@@ 1389-1403 (lines=15) @@ | ||
1386 | $PreviousValue = 1; |
|
1387 | $Done = false; |
|
1388 | $k = $m + 1; |
|
1389 | while ((!$Done) && ($k <= $trials)) { |
|
1390 | $CurrentValue = $PreviousValue * ($trials - $k + 1) * $probability / ($k * (1 - $probability)); |
|
1391 | $TotalUnscaledProbability += $CurrentValue; |
|
1392 | if ($k == $Guess) { |
|
1393 | $UnscaledPGuess += $CurrentValue; |
|
1394 | } |
|
1395 | if ($k <= $Guess) { |
|
1396 | $UnscaledCumPGuess += $CurrentValue; |
|
1397 | } |
|
1398 | if ($CurrentValue <= $EssentiallyZero) { |
|
1399 | $Done = true; |
|
1400 | } |
|
1401 | $PreviousValue = $CurrentValue; |
|
1402 | ++$k; |
|
1403 | } |
|
1404 | ||
1405 | $PreviousValue = 1; |
|
1406 | $Done = false; |
|
@@ 1408-1422 (lines=15) @@ | ||
1405 | $PreviousValue = 1; |
|
1406 | $Done = false; |
|
1407 | $k = $m - 1; |
|
1408 | while ((!$Done) && ($k >= 0)) { |
|
1409 | $CurrentValue = $PreviousValue * $k + 1 * (1 - $probability) / (($trials - $k) * $probability); |
|
1410 | $TotalUnscaledProbability += $CurrentValue; |
|
1411 | if ($k == $Guess) { |
|
1412 | $UnscaledPGuess += $CurrentValue; |
|
1413 | } |
|
1414 | if ($k <= $Guess) { |
|
1415 | $UnscaledCumPGuess += $CurrentValue; |
|
1416 | } |
|
1417 | if ($CurrentValue <= $EssentiallyZero) { |
|
1418 | $Done = true; |
|
1419 | } |
|
1420 | $PreviousValue = $CurrentValue; |
|
1421 | --$k; |
|
1422 | } |
|
1423 | ||
1424 | $PGuess = $UnscaledPGuess / $TotalUnscaledProbability; |
|
1425 | $CumPGuess = $UnscaledCumPGuess / $TotalUnscaledProbability; |