Commit d944f7b2 authored by CD's avatar CD
Browse files

Some testing. Sleep-Dep seems to working with run-trial (i:indep-run set to t)

parent a6635a03
This diff is collapsed.
# Port settings for ACT-R server started at 05:02:17 8/28/2020
# Port settings for ACT-R server started at 06:09:40 8/28/2020
set actr_port 2650
set actr_address "192.168.1.62"
......@@ -29,7 +29,7 @@ if {$reset_window_sizes != "yes"} {
set changed_window_list(.ptrace) 1
set window_config(.dispatcher) 700x274+1370+583
set changed_window_list(.dispatcher) 1
set window_config(.control_panel) 235x700+2716+644
set window_config(.control_panel) 235x1010+2716+334
set changed_window_list(.control_panel) 1
set window_config(.audicon) 870x150+1521+747
set changed_window_list(.audicon) 1
......@@ -43,10 +43,10 @@ if {$reset_window_sizes != "yes"} {
set changed_window_list(.bold_graphs) 1
set window_config(.bufferstatus) 450x240+1223+277
set changed_window_list(.bufferstatus) 1
set window_config(.whynot) 956x300+1620+570
set changed_window_list(.whynot) 1
set window_config(.procedural) 1469x450+1601+240
set changed_window_list(.procedural) 1
set window_config(.whynot) 956x300+1620+570
set changed_window_list(.whynot) 1
}
set gui_options(p_selected) #44DA22
set gui_options(p_matched) #FCA31D
......
......@@ -714,7 +714,6 @@ t)
(tagbody startGetVals
(while (probe-file solverOutputFile)
(handler-case (delete-file solverOutputFile) (error () nil)))
(format t "723...~&")
;;Get new HumMod value list
(handler-case
(with-open-file
......@@ -722,7 +721,6 @@ t)
:direction :output :if-exists :overwrite :if-does-not-exist :create)
(format messageStream getValsMessage)) ((or simple-error (or file-error))
() (go startGetVals)))
(format t "731...~&")
;wait for HumMod to digest input file
(let ((startTime (get-universal-time)))
......
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