File tree Expand file tree Collapse file tree 2 files changed +8
-2
lines changed Expand file tree Collapse file tree 2 files changed +8
-2
lines changed Original file line number Diff line number Diff line change @@ -66,10 +66,11 @@ to go
66
66
]
67
67
]
68
68
if nature-evidence-frequency > 0 and ticks != 0
69
- and ticks mod (1 / nature-evidence-frequency) = 0 [
69
+ and ticks mod (1 / nature-evidence-frequency) = 0 [
70
70
ask turtles [
71
71
update-from-nature
72
72
]
73
+ set g-depressed-confidence false
73
74
]
74
75
ask turtles with [crit-interact-lock = 0
75
76
and not member? mytheory cur-best-th] [
Original file line number Diff line number Diff line change @@ -81,7 +81,12 @@ to calc-confidence
81
81
; for cautionarly reasons
82
82
set belief-to-beat max (list 0 belief-to-beat)
83
83
let cur-theory mytheory
84
- if converged-ticks = 0 [
84
+ ; the -1 correction in ticks compensates for the fact that this procedure
85
+ ; will be called after the go procedure and therefore the tick-counter has
86
+ ; already advanced one step further
87
+ if converged-ticks = 0 or (nature-evidence-frequency > 0
88
+ and (ticks - 1) != 0
89
+ and (ticks - 1) mod (1 / nature-evidence-frequency) = 0) [
85
90
set avg-neighbor-signal mean [item cur-theory subj-th-i-signal] of
86
91
(turtle-set link-neighbors self)
87
92
]
You can’t perform that action at this time.
0 commit comments