so-un-bot/0721_33/wrong2.txt
2022-11-15 14:27:16 +01:00

21 lines
No EOL
431 B
Text

block MarkovChain
//external function myrandom() returns a random real number in [0, 1]
parameter Integer x0 = 0;
OutputInteger x;
algorithm
when initial() then
x := x0;
elsewhen sample(0, 1) then
if (myrandom() <= 0.7)
then
if (myrandom() <= 0.8)
then
x := 0;
else
x := 1;
end if;
else
x := -1;
end if;
end when;
end MarkovChain;