| |
| |
|
Jörg
Sellmeyer | Gibt es une Possibilité une Zufallszahl aus einem Bereich outre- qui Longgrenze trop ermitteln.
si je
Var n! = 4^16
Imprimer Tour(n!)
verwende, venez seulement 0 raus. Gibts là quoi per Api ou bien so?
Salut
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08.12.2007 ▲ |
|
| |
|
|
 | |
| |
| |
| |
|
|
Jörg
Sellmeyer | | oui cela hab je déjà, mais les numéros dürfen pas höher comme 4^16 son. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08.12.2007 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Seltsam - pourquoi taucht car Franks Beitrag seulement ici sur:
[...] 
qui Lösungen avons malheureusement alle den le tort, qui vous aucun 4^16 trop 1 probabilité figurer, mais irgendwelche kombinatorischen.
Z. B. ist chez einem echten Tour() avec grand payons qui probabilité 1:1, qui qui numéro größer ou bien kleiner ist, comme 4^16 : 2.
dans iFs Beispiel ist qui probabilité mais déjà 10:1, qui qui numéro 10-stellig ist (4^16 ist incidemment 10- et pas 12-stellig).
Ähnliches gilt pour Franks (verschwundenes) Beispiel.
Hat quelqu'un ne concept, comment je cela angehen pourrait? ou bien pourrait cela sogar dans Profan incorporé volonté? Ist wahrscheinlich ne fest verdrahtete Delphilösung, ou bien? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 11.12.2007 ▲ |
|
| |
|
|
Michael
Wodrich | Selbst stricken - Beispiel
KompilierenMarqueSéparationDeclare 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 qui Verteilung peux je mais rien dire - suis ne...aucune Mathematiker
belle Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 11.12.2007 ▲ |
|
| |
|
|
Frank
Abbing |
Seltsam - pourquoi taucht car Franks Beitrag seulement ici sur:
peut-être weil je mon Posting wieder gelöscht hatte? je fand la méthode später mal, weil qui le détour sur une Bereich oui gar pas nötig ist ist. |
|
| |
| |
| |
|
|
RGH | Jörg Sellmeyer
Gibt es une Possibilité une Zufallszahl aus einem Bereich outre- qui Longgrenze trop ermitteln.
si je
Var n! = 4^16
Imprimer Tour(n!)
verwende, venez seulement 0 raus. Gibts là quoi per Api ou bien so?
Salut
Jörg
pourquoi prends Du pas simple zufall! = rnd(4^8) * rnd(4^8)?
cela Ergebnis ist toujours >= 0 et < 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 | 11.12.2007 ▲ |
|
| |
|
|
RGH | Pardon:
une bessere (korrekte) Verteilung qui nombres aléatoires bekommt on naturellement avec:
KompilierenMarqueSéparationZufall! = 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 | 11.12.2007 ▲ |
|
| |
|
|
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:
KompilierenMarqueSéparation
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 | 11.12.2007 ▲ |
|
| |
|
|
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:
KompilierenMarqueSé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 ... | 11.12.2007 ▲ |
|
| |
|
|
| 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: KompilierenMarqueSéparationSalut 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 ... | 07.08.2008 ▲ |
|
| |
|
(522)
Deutsch
English
Français
Español
Italia