Commit 2245a2d8 authored by CD's avatar CD

Some changes to modules

parent d64157f5
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
......@@ -284,8 +284,8 @@
;; The value output is in the range from 0.0001 to 1
(defun compute-homeostatic-arousal-factor (&optional test)
(let* ((LA (if (cadar (car (get-phys-vals nil (list '("Status.LastAsleep")))))
(cadar (car (get-phys-vals nil (list '("Status.LastAsleep")))))
"0"))
(cadar (car (get-phys-vals nil (list '("Status.LastAsleep")))))
"0"))
(currT (if (cadar (car (get-phys-vals nil (list '("System.X")))))
(cadar (car (get-phys-vals nil (list '("System.X")))))
"0"))
......
......@@ -801,15 +801,15 @@ t)
(defun de-stress ()
"Turn stress-based params back to normal"
(setf *stress-on* nil)
(schedule-event-relative 0.020 'set-phys-vals :module 'physio
(schedule-event-relative 0.001 'set-phys-vals :module 'physio
:params
(list (list (list "Sympathetics-Adrenal.ClampSwitch" 0)))
:priority :max :details "Turn stress off")
(schedule-event-relative 0.021 'set-phys-vals :module 'physio
(schedule-event-relative 0.002 'set-phys-vals :module 'physio
:params
(list (list (list "Sympathetics-General.EssentialEffect" 0)))
:priority :max :details "Turn stress off")
(schedule-event-relative 0.022 'set-phys-vals :module 'physio
(schedule-event-relative 0.003 'set-phys-vals :module 'physio
:params
(list (list (list "CorticotropinReleasingFactor.Stress" 2)))
:priority :max :details "Turn stress off"))
......
This diff is collapsed.
This diff is collapsed.
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