Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
AI-CogSci-Group
ACT-R_Phi
Commits
ee3117b1
Commit
ee3117b1
authored
Nov 01, 2020
by
CD
Browse files
update to ans-log recording (within the dm-noise hook) so th
at it only records every 5 seconds
parent
baca3405
Changes
2
Hide whitespace changes
Inline
Side-by-side
environment/GUI/init/05-current-net.tcl
View file @
ee3117b1
# Port settings for ACT-R server started at 15:
17:59
11/01/2020
# Port settings for ACT-R server started at 15:
25:22
11/01/2020
set actr_port 2651
set actr_address
"192.168.1.118"
user-loads/Affective-Associations.lisp
View file @
ee3117b1
...
...
@@ -85,7 +85,7 @@
(
progn
(
setf
noise-val
(
/
(
+
(
*
arous-dm-noise
(
AA-nom-dm-noise
aa
))
(
*
(
-
arous-mid
arous-dm-noise
)
(
AA-max-dm-noise
aa
)))
arous-mid
))
;We only record every 5 seconds
(
when
(
eq
(
mod
(
mp-time
-ms
)
5000
)
0
)
(
when
(
eq
(
mod
(
mp-time
)
5
)
0
)
(
with-open-file
(
n-stream
(
format
nil
"Phys-data/ans-log~a.txt"
(
phys-module-pipeID
(
get-module
physio
)))
:direction
:output
:if-exists
:append
:if-does-not-exist
:create
)
(
format
n-stream
"~5$,~10$~&"
(
mp-time-ms
)
noise-val
)))
...
...
@@ -94,7 +94,7 @@
(
progn
(
setf
noise-val
(
/
(
+
(
*
(
-
(
AA-max-arous
aa
)
arous-dm-noise
)
(
AA-nom-dm-noise
aa
))
(
*
(
-
arous-dm-noise
arous-mid
)
(
AA-max-dm-noise
aa
)))
arous-mid
))
;(when (and (>= (mod (mp-time) 5) 0) (<= (mod (mp-time) 5) 1))
(
when
(
eq
(
mod
(
mp-time
-ms
)
5000
)
0
)
(
when
(
eq
(
mod
(
mp-time
)
5
)
0
)
(
with-open-file
(
n-stream
(
format
nil
"Phys-data/ans-log~a.txt"
(
phys-module-pipeID
(
get-module
physio
)))
:direction
:output
:if-exists
:append
:if-does-not-exist
:create
)
(
format
n-stream
"~5$,~10$~&"
(
mp-time-ms
)
noise-val
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment