Exponentialfunktion Warscheinlichkeit

[silver-moon-2000]

Zitat von Furtbichler:

Delphi-Quellcode:

propability : Array [0..8] if double = (1,2,4,8,16,32,64,128,256,-1)
[...]
 if random(propability[level])=0 then

Beim ersten Aufruf ist die Wahrscheinlichkeit 50%, danach 25% usw. Du kannst das Array anpassen, wie Du willst.

Entschuldige, wenn ich so blöd frage, aber ist im zweiten Durchlauf nach Deinem Array die Wahrscheinlichkeit nicht 50%, anstatt, wie Du sagtest 25% und im ersten Durchlauf wäre die Wahrscheinlichkeit doch 100%?

y := Random(x) liefert doch Zahlen im Bereich 0 <= y < x

Müsste das Array nicht so lauten, wenn sich die Wahrscheinlichkeit pro Level immer halbieren soll
propability : Array [0..8] if double = (2,5,9,17,33,65,129,257,-1)