Commit a0d7bb01 authored by CD's avatar CD
Browse files

Added function to create default ICS file

parent 7a64447f
# Port settings for ACT-R server started at 10:56:02 3/21/2020
# Port settings for ACT-R server started at 13:24:19 8/26/2020
set actr_port 2650
set actr_address ""
set actr_address ""
......@@ -2,7 +2,7 @@
<windowtop> 76 </windowtop>
<windowleft> 76 </windowleft>
<windowhigh> 200 </windowhigh>
<windowwide> 379 </windowwide>
<windowwide> 377 </windowwide>
<windowstate> 0 </windowstate>
<pipeinterval> 10 </pipeinterval>
<hidewindow> False </hidewindow>
......@@ -1084,6 +1084,18 @@ t)
(ics-out-file (concatenate 'string *HumModDir* "../ICS/Racinais-2008_Hot.ICS")))
(create-ics-from-out solver-out-file ics-out-file phys)))
(defun make-Default-ICS (new-ics-file-name phys)
"Make default ICS file that moves model to stable position (1 week)"
(schedule-event-relative 0.023 'advance-phys :module 'physio
:module :physio :priority :max :params '(10080)
:details "Advance physiology 1 week")
(schedule-break-relative 0.024)
(run 0.5)
(let ((solver-out-file (concatenate 'string *HumModDir* "SolverOut" (phys-module-pipeID phys)))
(ics-out-file (concatenate 'string *HumModDir* "../ICS/1wkNormal.ICS")))
(create-ics-from-out solver-out-file ics-out-file phys)))
#|---End Physiological Initial Condition Functions---|#
Supports Markdown
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