XProfan

- page 1 -

RGH

Pardon:
une bessere (korrekte) Verteilung qui nombres aléatoires bekommt on naturellement avec:
Kompilieren Marque Séparation

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

Salut
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

... et ab qui prochain XProfan-Version gibt es aussi den Sonderfall Tour(), qui jusqu'alors pas possible était. cela Ergebnis ist ensuite un Flloatwert >= 0 et < 1. Dann löst Du Dein Problem einfach mit:
Kompilieren Marque Séparation

zufall! = rnd() * 4^16

Salut
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

très joli! Alle kombinierten Werte sommes nämlich irgendwie gemauschelt et entsprechen pas qui tatsächlichen probabilité.
Läßt sich ici très léger nachvollziehen:
Kompilieren Marque Séparation

 $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

Salut
Roland

Jau c'est super!

@Jörg: Du greifst avec cela sur une vergänglichen BeitragsCache trop, Frank hatte seinen Beitrag gelöscht.

Jörg
Sellmeyer

cet neue Possibilité ist dans qui Aider gar pas erwähnt!

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

- page 2 -

Manfred
Barei

allô Jörg,

peux doch aussi gar pas, Roland hat doch geschrieben ab qui prochain 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

je denke la fois, avec cela était 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

cet neue Possibilité ist dans qui Aider gar pas erwähnt!

Sollte je quoi oublier qc avons? je schaue aujourd'hui soir la fois pour.

Salut
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

allô Jörg,

peux doch aussi gar pas, Roland hat doch geschrieben ab qui prochain XProfan-Version.

Grus
Manfred

oui c'est ca! et si Du Dir qui Datümer qui Posts ansiehst...

P.S.
Lustig - maintenant wieder Grus?

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

RGH

Jörg Sellmeyer

cet neue Possibilité ist dans qui Aider gar pas erwähnt!

Sollte je quoi oublier qc avons? je schaue aujourd'hui soir la fois pour.

Salut
Roland

Ha! dans qui aktuellen Aider (dernier Version vom 4. août) ist es erwähnt!

So, et maintenant erstelle je un paire Master-CDs. rien allez plus!

Salut
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 je glatt übersehen.

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