<pre>
model System

Integer y;  Real r1024;

Integer state1024[Modelica.Math.Random.Generators.Xorshift1024star.nState];

equation

y = if (r1024 <= 0.2) then -1 else if (r1024 <= 0.7) then 0 else 1;

algorithm

when initial() then

state1024 := Modelica.Math.Random.Generators.Xorshift1024star.initialState(614657, 30020);

r1024     := 0;

elsewhen sample(0,1) then

(r1024,state1024) := Modelica.Math.Random.Generators.Xorshift1024star.random(pre(state1024));

end when;

end System;
</pre>