Huhu,
wir haben in AutoIt ja die schöne Funktion Random(), die uns pseudo Zufalllszahlen generiert.
Normalerweise geht man mit der Inversionsmethode vor.
Hat jmd von euch bereits schoneinmal versucht solche zu generieren?
Ich b rauchte Zufallszahlen von 2 bis 7 und habe folgendes probiert, um 'pseudo Zufallszahlen zu erstellen'.
Die einzige Zufälligkeit ist allerdings der Zeitpunkt des Ausführens des Skriptes.
Ich glaube auch nicht, dass diese Zahlen in einem Test auf eine Zufallsverteilung bestehen würden.
Spoiler anzeigen
#include <Date.au3>
#include <Array.au3>
Global $tSystem[8], $quo[2]
Do
$aTime=_Date_Time_GetSystemTime()
$tSystem = _Date_Time_SystemTimeToArray($aTime)
;_ArrayDelete($tSystem, 2)
$quo[0] = 0
$quo[1] = 1
For $i = 0 To (UBound($tSystem)-1)
$quo[0] = $quo[0] + Number($tSystem[$i])
If $tSystem[$i] <> 0 Then
$quo[1] = $quo[1] * Number($tSystem[$i])
EndIf
Next
$exp=($quo[1]/($quo[0]*$quo[0]))/(Sqrt(Number($quo[1]))*0.1)
; If $exp < 0.7 Then
; $rand = $exp*10
If $exp > 0.7 And $exp < 2 Then
$rand = Exp($exp)
ElseIf $exp > 2 And $exp < 7 Then
$rand = $exp
Else
$rand = $exp/7
EndIf
Until $rand >= 2 And $rand <= 7
MsgBox(0, '', Round($rand, 0))
Exit
MfG bocky
(english: more random :D)
