XProfan

Ab in String und dann zum Float oder meinst Du etwas anderes?
Kompilieren Markieren Separieren

string s

whileloop 12 {s=s+str$(rnd(10))}

float f=val(s)/pre>

08.12.2007 ▲

Jörg
Sellmeyer

Ja das hab ich schon, aber die Zahlen dürfen nicht höher als 4^16 sein.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

08.12.2007 ▲

Jörg
Sellmeyer

Seltsam - warum taucht denn Franks Beitrag nur hier auf:
[...]

Die Lösungen haben leider alle den Nachteil, daß sie keine 4^16 zu 1 Wahrscheinlichkeit abbilden, sondern irgendwelche kombinatorischen.
Z. B. ist bei einem echten Rnd() mit grande Zahlen die Wahrscheinlichkeit 1:1, daß die Zahl größer oder kleiner ist, als 4^16 : 2.
In iFs Beispiel ist die Wahrscheinlichkeit aber schon 10:1, daß die Zahl 10-stellig ist (4^16 ist übrigens 10- und nicht 12-stellig).
Ähnliches gilt per Franks (verschwundenes) Beispiel.
Hat jemand ne Idee, wie ich das angehen potuto? Oder potuto das sogar in Profan eingebaut werden? Ist wahrscheinlich ne fest verdrahtete Delphilösung, oder?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Michael
Wodrich

Selbst stricken - Beispiel
Kompilieren Markieren Separieren

Declare Zufall_Save!, Zufall_Obergrenze!

Proc Zufall

    Declare x1!,x2!
    x1! = (Zufall_Save! * 65539)
    x2! = Round((x1! / Zufall_Obergrenze! - 0.5),0) * Zufall_Obergrenze!
    Zufall_Save! = x1! - x2!
    Return Zufall_Save!

EndProc

Declare x!
Zufall_Obergrenze! = (4.0^16) - 1
Zufall_Save! = 7

repeat

    cls
    print obergrenze.:, format$(#,0,Zufall_Obergrenze!),    WaitKey: 13 = Enter = weiter, sonst Ende
    print save.......:, format$(#,0,Zufall_Save!)
    print
    print die Zufallszahl;tab(45);Kontrollwert (Max - Zufall)

    whileloop 20

        x! = zufall()
        print x=,format$(#,0,Round(x!-0.5,0));tab(45);format$(#,0,Round(Zufall_Obergrenze! - x! - 0.5,0))

    endwhile

    waitkey

until %key <> 13

end

Über die Verteilung kann ich aber nichts sagen - bin kein Mathematiker

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Frank
Abbing

Seltsam - warum taucht denn Franks Beitrag nur hier auf:

Vielleicht weil ich mein Posting wieder gelöscht hatte? Ich fand die Methode später schlecht, weil der Umweg circa einen Bereich ja gar nicht nötig ist ist.

RGH

Jörg Sellmeyer

Warum nimmst Du nicht einfach zufall! = rnd(4^8) * rnd(4^8)?
Das Ergebnis ist immer >= 0 und < 4^16.

Saluto
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

RGH

Pardon:
Eine bessere (korrekte) Verteilung der Zufallszahlen bekommt man naturalmente mit:
Kompilieren Markieren Separieren

Zufall! = 4^(rnd(8)+1) * rnd(4^8)

Saluto
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

RGH

... und ab der nächsten XProfan-Version gibt es auch den Sonderfall Rnd(), der finora nicht possibile war. Das Ergebnis ist dann ein Flloatwert >= 0 und < 1. Dann löst Du Dein Problem einfach mit:
Kompilieren Markieren Separieren

zufall! = rnd() * 4^16

Saluto
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4