Ik zal je een voorbeeld in Pascal geven:function random(dummy: integer): real;
const pi = 3.14159;
var x: real;
i: integer;
begin
x:=seed+pi;
x:=exp(5.0*ln(x));
seed:=x-trunc(x);
random:=seed
end;
In een programma gebruik je deze functie dan bijvoorbeeld zo:seed:=4.0;
x=random(0);
Op 't Internet is vast meer over te vinden...
Zie Scientific Subroutine Library for Turbo Pascal
dinsdag 6 juli 2004