Critical interaction fix #11

daimpi · daimpi · commit 6f3355a7bd84 · 2017-11-07T21:53:19.000+01:00
* Critical interaction now moves cps towards the correct aps.
diff --git a/SocNetABM.nlogo b/SocNetABM.nlogo
@@ -330,10 +330,10 @@ to evaluate-critically
     set actual-prob-suc th1-aps
   ][
     set crit-interactions-th2 crit-interactions-th2 + 1
+    set actual-prob-suc th2-aps
   ]
   if crit-interact-lock = 0 [
-    set crit-interact-lock crit-jump-threshold + 1
-    set actual-prob-suc th2-aps
+    set crit-interact-lock crit-jump-threshold + 1    
   ]
   let old-th-i-signal item mytheory subj-th-i-signal
   set subj-th-i-signal replace-item mytheory subj-th-i-signal (old-th-i-signal

Original file line number	Diff line number	Diff line change
`@@ -330,10 +330,10 @@ to evaluate-critically`
`330`	`330`	`set actual-prob-suc th1-aps`
`331`	`331`	`][`
`332`	`332`	`set crit-interactions-th2 crit-interactions-th2 + 1`
	`333`	`+ set actual-prob-suc th2-aps`
`333`	`334`	`]`
`334`	`335`	`if crit-interact-lock = 0 [`
`335`		`- set crit-interact-lock crit-jump-threshold + 1`
`336`		`- set actual-prob-suc th2-aps`
	`336`	`+ set crit-interact-lock crit-jump-threshold + 1`
`337`	`337`	`]`
`338`	`338`	`let old-th-i-signal item mytheory subj-th-i-signal`
`339`	`339`	`set subj-th-i-signal replace-item mytheory subj-th-i-signal (old-th-i-signal`