Salve a tutti ho un problema con il generatore di numeri casuali (o pseudocasuali), scrivendo poche righe per simulare il lancio di una moneta mi sono imbattuto in comportamenti strani dei miei 3 computer. cioè nel Pc ho simulato milioni di volte avendo come risultato uno sbilanciamento delle statistiche avendo più teste rimanendo in differenza delle due uscite sempre dalla stessa parte. Tutte le uscite dei numeri sono registrate in un database
che tiene conto delle differenze delle due uscite e lo scarto si attiene intorno alle centinaia, mentre sul notebook pende sempre da una parte costantemente con differenza di circa 400. Mentre nel computer che uso io funziona benissimo nel senso che si alternano le differenze. Mi chiedevo se il problema fosse il sistema operativo nei primi due XP mentre quello che uso è VISTA?
Dim Numero as double
Dim Pari as double
Dim Dispari as double
Dim Differenza as double
Randomize
Numero = Fix(Rnd * 2)
if Numero = 0 then
Pari=Pari+1
Elseif Numero =1 then
Dispari=Dispari+1
End if
Differenza = Pari -Dispari
Ultima modifica effettuata da Aangelus il 21/06/2013 alle 0:13 |