Commit ee3117b1 authored by CD's avatar CD
Browse files

update to ans-log recording (within the dm-noise hook) so th

at it only records every 5 seconds
parent baca3405
# Port settings for ACT-R server started at 15:17:59 11/01/2020
# Port settings for ACT-R server started at 15:25:22 11/01/2020
set actr_port 2651
set actr_address "192.168.1.118"
......@@ -85,7 +85,7 @@
(progn
(setf noise-val (/ (+ (* arous-dm-noise (AA-nom-dm-noise aa)) (* (- arous-mid arous-dm-noise) (AA-max-dm-noise aa))) arous-mid))
;We only record every 5 seconds
(when (eq (mod (mp-time-ms) 5000) 0)
(when (eq (mod (mp-time) 5) 0)
(with-open-file
(n-stream (format nil "Phys-data/ans-log~a.txt" (phys-module-pipeID (get-module physio))) :direction :output :if-exists :append :if-does-not-exist :create)
(format n-stream "~5$,~10$~&" (mp-time-ms) noise-val)))
......@@ -94,7 +94,7 @@
(progn
(setf noise-val (/ (+ (* (- (AA-max-arous aa) arous-dm-noise) (AA-nom-dm-noise aa)) (* (- arous-dm-noise arous-mid) (AA-max-dm-noise aa))) arous-mid))
;(when (and (>= (mod (mp-time) 5) 0) (<= (mod (mp-time) 5) 1))
(when (eq (mod (mp-time-ms) 5000) 0)
(when (eq (mod (mp-time) 5) 0)
(with-open-file
(n-stream (format nil "Phys-data/ans-log~a.txt" (phys-module-pipeID (get-module physio))) :direction :output :if-exists :append :if-does-not-exist :create)
(format n-stream "~5$,~10$~&" (mp-time-ms) noise-val)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment