Intermittent stimulation
delivery activation: [state[1, set point
= p[1] - 0.1, state[0,1]];
delivery: [2,1, While[p[1] > set
point], 2];
change state: [state[1, i+1]
= state[0. 1], state[0, 1]];
change state: [state[2, i+1]
= state[0. 1], state[0, 1]];
If[ p[1] > p[2], augment state: [state[2,i+1]
+= state[1, i]]
If[ p[2] > p[1], augment state:
[state[1,i+1] += state[2, i]]
This behavior reminds of an action potential.
The tolerance accumulation rate surface is rugged. The peaks are points
of mutual stimulations when tolerance accumulation is accelerated, They
are separated by areas of rest when the accumulation rate is constant
(9.79) . Unlike in the previous
experiments , here tolerance is always
gained.