| |
| |
|
Jörg
Sellmeyer | Gibt lo una Möglichkeit una Zufallszahl de una Zona jenseits el Longgrenze a ermitteln.
Wenn Yo
Var n! = 4^16
Imprimir Rnd(n!)
verwende, kommt sólo 0 fuera. Gibts como qué por Api más o menos?
Saludo
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08.12.2007 ▲ |
|
| |
|
|
 | |
| |
| |
| |
|
|
Jörg
Sellmeyer | | Sí el tener Yo ya, aber los números dürfen no höher como 4^16 ser. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08.12.2007 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Seltsam - por qué taucht porque Franks Contribución sólo hier en:
[...] 
El Lösungen haben desafortunadamente todos el Nachteil, daß ellos no 4^16 a 1 Wahrscheinlichkeit abbilden, pero irgendwelche kombinatorischen.
Z. B. es en una echten Rnd() con großen Pagar el Wahrscheinlichkeit 1:1, daß el Zahl größer oder kleiner es, como 4^16 : 2.
In iFs Ejemplo Es el Wahrscheinlichkeit aber ya 10:1, daß el Zahl 10-stellig es (4^16 es de paso 10- y no 12-stellig).
Ähnliches gilt para Franks (verschwundenes) Ejemplo.
Sombrero alguien ne Concepto, como yo angehen podría? Oder podría el incluso en Profano se instalará? Ist wahrscheinlich ne fest verdrahtete Delphilösung, oder? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 11.12.2007 ▲ |
|
| |
|
|
Michael
Wodrich | Selbst stricken - Ejemplo
KompilierenMarcaSeparaciónDeclare 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 el Verteilung kann Yo aber nichts sagen - bin kein Mathematiker
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 11.12.2007 ▲ |
|
| |
|
|
Frank
Abbing |
Seltsam - por qué taucht porque Franks Contribución sólo hier en:
Tal vez porque Yo mein Posting otra vez gelöscht hatte? Yo fand el método später schlecht, porque el Umweg encima una Zona sí nada nötig es es. |
|
| |
| |
| |
|
|
RGH | Jörg Sellmeyer
Gibt lo una Möglichkeit una Zufallszahl de una Zona jenseits el Longgrenze a ermitteln.
Wenn Yo
Var n! = 4^16
Imprimir Rnd(n!)
verwende, kommt sólo 0 fuera. Gibts como qué por Api más o menos?
Saludo
Jörg
¿Por qué nimmst No simplemente zufall! = rnd(4^8) * rnd(4^8)?
Das Ergebnis es siempre >= 0 y < 4^16.
Saludo
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 | |
| |
| 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 | ... y de el nächsten XProfan-Versión hay auch el Sonderfall Rnd(), el bislang no posible war. Das Ergebnis es entonces una Flloatwert >= 0 y < 1. Dann löst Du Dein Problem einfach mit:
KompilierenMarcaSeparación
Saludo
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 | Sehr schön! Alle kombinierten Werte son nämlich irgendwie gemauschelt y entsprechen no tatsächlichen Wahrscheinlichkeit.
Läßt se hier muy ligeramente nachvollziehen:
KompilierenMarcaSeparación $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
... y de el nächsten XProfan-Versión hay auch el Sonderfall Rnd(), el bislang no posible war. Das Ergebnis es entonces una Flloatwert >= 0 y < 1. Dann löst Du Dein Problem einfach mit: KompilierenMarcaSeparaciónSaludo Roland
Jau el es super! 
@Jörg: Usted greifst así en una vergänglichen BeitragsCache a, Franco hatte seinen Contribución gelöscht. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Diese neue Möglichkeit es en el Ayuda nada erwähnt! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 07.08.2008 ▲ |
|
| |
|
(507)
Deutsch
English
Français
Español
Italia