wie werden RANDOM-Funktionen berechnet?! Mathemathik ist ein exakte Hilfswissenschaft mit immer gleichen Ergebnissen, also kann nach meinem bisherigen Wissenstand kein Zufall "berechnet" werden?!

Code: Alles auswählen
#m=100000000
#m1=10000
#b=31415821
i.l
Global a.l
N.l
Procedure mult(p.l,q.l)
p1.l
p0.l
q1.l
q0.l
p1=Int(p/#m1)
p0=p%#m1
q1=Int(q/#m1)
q0=q%#m1
ProcedureReturn (((p0*q1+p1*q0)%#m1)*#m1+p0*q0)%#m
EndProcedure
Procedure myrandom(r) ;r=max
a=(mult(a,#b)+1)%#m
ProcedureReturn Int((Int(a/#m1)*r)/#m1)+1 ;zahlen von 1 bis r
EndProcedure
N=10
a=Random(12135) ;seed
For i=1 To N
Debug myrandom(11)
Next