[Tiptoi] Zufall per Schleife reagiert "nicht ordentlich" ?

[andi]

Hi Karsten,

um eine Zufallsreihe von 1 bis 100 zu bekommen, kannst du diesen Code
nehmen:

# x[i]=(a+b*x[i-1])mod c
# since we are using 16bit unsigned integers, max equation result should be
lower than 2^16
# b * (c-1) <= 2^16
# c=800 --> b<=82
# values for b that result in full random number series length: 21 41 61 81
#
# x[i]=(1+81*x[i-1]) mod 800; x[1]=1
random:
- $n*=81 $n+=1 $n%=800 J(zahl) # pseudo random number 0 to 799

zahl: # 0-99
- $zahl:=$n $zahl/=8 J(xyz)

LG,
Andreas.
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <https://lists.nomeata.de/pipermail/tiptoi/attachments/20151217/852e8046/attachment.htm>