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

at it only records every 5 seconds

environment/GUI/init/05-current-net.tcl

-# 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"

user-loads/Affective-Associations.lisp

@@ -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)))