so-un-bot/0721_39/wrong2.txt
2022-11-16 17:56:16 +01:00

21 lines
No EOL
420 B
Text

<pre>
block MarkovChain
//external function myrandom() returns a random real number in [0, 1]
parameter Real x0 = 0;
OutputReal x;
Integer countdown;
algorithm
when initial() then
x := x0;
countdown := 0;
elsewhen sample(0, 1) then
if (countdown >= 0)
then
countdown := 1 + integer(floor(10*myrandom()));
x := 1 - pre(x);
else
countdown := countdown - 1;
end if;
end when;
end MarkovChain;
</pre>