Commit 39ea8cb6 authored by CD's avatar CD
Browse files

Added additional columns to CEC-arous output file (created/appended when...

Added additional columns to CEC-arous output file (created/appended when compute-arousal-factor is called with parameter "test" set to t
parent db67a697
...@@ -255,17 +255,19 @@ ...@@ -255,17 +255,19 @@
(with-open-file (with-open-file
(msgStream (concatenate 'string "Phys-data/CEC-Arous" (phys-module-pipeID phys) ".txt") (msgStream (concatenate 'string "Phys-data/CEC-Arous" (phys-module-pipeID phys) ".txt")
:direction :output :if-exists :append :if-does-not-exist :create) :direction :output :if-exists :append :if-does-not-exist :create)
(format msgStream "~$,~5$,~5$,~5$,~5$,~5$~&" (format msgStream "~&~$,~$,~5$,~5$,~5$,~5$,~5$,~5$,~5$,~5$"
(mp-time-ms) (compute-homeostatic-arousal-factor) (compute-cort test) (compute-epi-arousal test) (compute-crh-arousal test) (mp-time) (mp-time-ms) (compute-homeostatic-arousal-factor)
(compute-cort test) (compute-epi-arousal test) (compute-crh-arousal test)
(* (compute-homeostatic-arousal-factor) (* (compute-homeostatic-arousal-factor)
(compute-cort test) (compute-cort test)
(+ (* (AA-epi-arous-ratio aa) (+ (* (AA-epi-arous-ratio aa)
(compute-epi-arousal)) (compute-epi-arousal))
(* (AA-crh-arous-ratio aa) (compute-crh-arousal)))))) (* (AA-crh-arous-ratio aa) (compute-crh-arousal))))
(sgp :ans) (sgp :egs) (sgp :ut)))
(with-open-file (with-open-file
(msgStream (concatenate 'string "Phys-data/CEC-Arous" (phys-module-pipeID phys) ".txt") (msgStream (concatenate 'string "Phys-data/CEC-Arous" (phys-module-pipeID phys) ".txt")
:direction :output :if-exists :overwrite :if-does-not-exist :create) :direction :output :if-exists :overwrite :if-does-not-exist :create)
(format msgStream "time (ms),Homeostatic-Arousal-Factor,f(Cortisol),g(Epinephrine),h(CRH),Arousal~&")))) (format msgStream "time.s,time.ms,Homeostatic-Arousal-Factor,f(Cortisol),g(Epinephrine),h(CRH),Arousal,ans,egs,ut"))))
(* (compute-homeostatic-arousal-factor) (compute-cort) (* (compute-homeostatic-arousal-factor) (compute-cort)
(+ (+
(if (and (get-module physio) (phys-module-enabled phys)) (if (and (get-module physio) (phys-module-enabled phys))
......
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