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_port 2650
set actr_address "10.0.75.1" set actr_address "192.168.1.62"
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
<windowtop> 76 </windowtop> <windowtop> 76 </windowtop>
<windowleft> 76 </windowleft> <windowleft> 76 </windowleft>
<windowhigh> 200 </windowhigh> <windowhigh> 200 </windowhigh>
<windowwide> 379 </windowwide> <windowwide> 377 </windowwide>
<windowstate> 0 </windowstate> <windowstate> 0 </windowstate>
<pipeinterval> 10 </pipeinterval> <pipeinterval> 10 </pipeinterval>
<hidewindow> False </hidewindow> <hidewindow> False </hidewindow>
......
...@@ -1084,6 +1084,18 @@ t) ...@@ -1084,6 +1084,18 @@ t)
(ics-out-file (concatenate 'string *HumModDir* "../ICS/Racinais-2008_Hot.ICS"))) (ics-out-file (concatenate 'string *HumModDir* "../ICS/Racinais-2008_Hot.ICS")))
(create-ics-from-out solver-out-file ics-out-file phys))) (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)
(set-as-init-cond)
(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---|# #|---End Physiological Initial Condition Functions---|#
;;; ;;;
......
<solverin><restart/></solverin>
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