XProfan

- Page 1 -

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

Jörg
Sellmeyer

Sehr schön! Alle kombinierten Werte sind nämlich irgendwie gemauschelt und entsprechen nicht der tatsächlichen Wahrscheinlichkeit.
Läßt sich hier sehr leicht nachvollziehen:
Kompilieren Markieren Separieren

 $H Windows.ph
Set(Decimals,0)
Window 300,10 - 800,1010
Cls
SetDialogFont ~GetStockobject($11)
Declare z!,l&,l1&,l2&,z$,i%,i1%,i2%
l&= Create(ListBox,%hwnd,1,10,10,180,Height(%hwnd)-20)
l1&= Create(ListBox,%hwnd,1,212,10,180,Height(%hwnd)-20)
l2&= Create(ListBox,%hwnd,1,414,10,180,Height(%hwnd)-20)

WhileLoop 20670

    Randomize
    z$=Format$(0000000000,Rnd($7fffffff) + Rnd($7fffffff))

    If Left$(z$,2)= 00

        Inc i%

    EndIf

    Case SelectString(l&,-1,z$) = -1:AddString(l&, z$)
    z$=Format$(00000,Rnd(256^2))

    If Left$(z$,2)= 00

        Inc i1%

    EndIf

    Case SelectString(l1&,-1,z$) = -1:AddString(l1&, z$) +   + Format$(0000000000,Rnd(256^2))
    z$=Format$(00000,(Rnd(256)+1) * Rnd(256))

    If Left$(z$,2)= 00

        Inc i2%

    EndIf

    Case SelectString(l2&,-1,z$) = -1:AddString(l2&, z$) +   + Format$(0000000000,Rnd(256^2))
    WindowTitle Str$(i%) +   + Str$(i1%) +   + Str$(i2%) +   + Str$(&Loop)

Wend

waitkey

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

RGH

zufall! = rnd() * 4^16

Saluto
Roland

Jau das ist super!

@Jörg: Du greifst damit auf einen vergänglichen BeitragsCache zu, Frank hatte seinen Beitrag gelöscht.

Jörg
Sellmeyer

Diese neue Möglichkeit ist in der Aiuto gar nicht erwähnt!

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

- Page 2 -

Manfred
Barei

Hallo Jörg,

kann doch auch gar nicht, Roland hat doch geschrieben ab der nächsten XProfan-Version.

Grus
Manfred

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

Jac
de
Lad

Ich denke mal, damit war XProfan 11 gemeint.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

RGH

Jörg Sellmeyer

Diese neue Möglichkeit ist in der Aiuto gar nicht erwähnt!

Sollte ich was vergessen haben? Ich schaue heute Abend mal nach.

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

Jörg
Sellmeyer

Manfred Barei

Hallo Jörg,

kann doch auch gar nicht, Roland hat doch geschrieben ab der nächsten XProfan-Version.

Grus
Manfred

Genau! Und wenn Du Dir die Datümer der Beiträge ansiehst...

P.S.
Lustig - jetzt wieder Grus?

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

RGH

Jörg Sellmeyer

Diese neue Möglichkeit ist in der Aiuto gar nicht erwähnt!

Sollte ich was vergessen haben? Ich schaue heute Abend mal nach.

Saluto
Roland

Ha! In der aktuellen Aiuto (letzte Version vom 4. August) ist es erwähnt!

So, und jetzt erstelle ich ein paar Master-CDs. Nichts geht mehr!

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

Jörg
Sellmeyer

Ok, habe ich glatt übersehen.

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