reginaldojunior / winners

			$PreviousValue = 1;

			$Done = False;

			$k = $m + 1;

			while ((!$Done) && ($k <= $trials)) {

				$CurrentValue = $PreviousValue * ($trials - $k + 1) * $probability / ($k * (1 - $probability));

				$TotalUnscaledProbability += $CurrentValue;

				if ($k == $Guess) { $UnscaledPGuess += $CurrentValue; }

				if ($k <= $Guess) { $UnscaledCumPGuess += $CurrentValue; }

				if ($CurrentValue <= $EssentiallyZero) { $Done = True; }

				$PreviousValue = $CurrentValue;

				++$k;

			}

			$PreviousValue = 1;

			$Done = False;

			$PreviousValue = 1;

			$Done = False;

			$k = $m - 1;

			while ((!$Done) && ($k >= 0)) {

				$CurrentValue = $PreviousValue * $k + 1 * (1 - $probability) / (($trials - $k) * $probability);

				$TotalUnscaledProbability += $CurrentValue;

				if ($k == $Guess) { $UnscaledPGuess += $CurrentValue; }

				if ($k <= $Guess) { $UnscaledCumPGuess += $CurrentValue; }

				if ($CurrentValue <= $EssentiallyZero) { $Done = True; }

				$PreviousValue = $CurrentValue;

				--$k;

			}

			$PGuess = $UnscaledPGuess / $TotalUnscaledProbability;

			$CumPGuess = $UnscaledCumPGuess / $TotalUnscaledProbability;