I want to generate 100000 Random numbers with different seeds.
example.
Code: Select all
For g=0 To 10
RandomSeed(g)
Debug g
Define t=0
For i = 0 To 100000
t+Random(255)
Next
Debug t
Debug "--------------------------------------"
Next
Code: Select all
0
12827991
--------------------------------------
1
12737589
--------------------------------------
2
12758888
--------------------------------------
...
Now I hoped, I can create 10 Threads and run them parallel.
Code: Select all
Structure seed
seed.i
tt.i
EndStructure
Procedure rThread(*data.seed)
RandomSeed(*data\seed)
For i=0 To 100000
*data\tt+Random(255)
Next
EndProcedure
NewList tt.seed()
For g=0 To 10
Define *t.seed=AddElement(tt())
*t\seed=g
CreateThread(@rThread(),*t)
Next
Delay(1000)
ForEach tt()
Debug tt()\seed
Debug tt()\tt
Debug "--------------------------------------"
Next
BUT: That do not work. It always use the last RandomSeed.
Code: Select all
0
12737656
--------------------------------------
1
12733613
--------------------------------------
2
12724172
--------------------------------------
...