Topic: Does martingale really works? - page 84. (Read 123290 times)

#Run Variables
$bankRoll = 100 #starting bankroll
$bet = 1          #starting bet

$multiplier = 2 #Calculates Payout

#Three Variables Calculating Percentage accuracy and win threshold
$minBound = 0
$winThreshold = 50
$maxBound = 100

#Counters
$maxProfit = 0
$seedDuplicates = 0
$i = 0 

$seeds = @() #for tracking seeds to make sure they are always different

Clear-Host #clear the screen

while ($true)
{
    #better random seeds (check seed history: generate new seed if history matches)
    $seed = ($(Get-Random) + $(Get-Random)) * .001 #Must be a valid INT number so reduce a couple decimal places
    while($seeds -match $seed)
    {
        $seed = ($(Get-Random) + $(Get-Random)) * .001
        $seedDuplicates++
    }

    $seeds += $seed #add seed to history

    if ($($bankRoll - $bet) -ge 0)
    {
        $bankroll = $($bankroll - $bet) #Deduct next bet from Bankroll
    }
    else #BUST
    {
        Write-Host -ForegroundColor Red "BUSTED"-NoNewline; Write-Host " After $i Rounds"
        Write-Host -NoNewline "Max Profit was "; Write-host -ForegroundColor Green "`$" -NoNewline; Write-host -ForegroundColor Green $("{0:N2}" -f $maxProfit)
        Write-Host "$seedDuplicates Duplicate Seeds"
        Break
    }

    #Keep track of tests profit cap - Remeber you would have had to cash out here
    if ($bankroll -gt $maxProfit) {$maxProfit = $bankRoll} 
    
    #Roll the dice...
    $r = Get-Random -Minimum $minBound -Maximum $maxBound -SetSeed $seed

    if ($r -gt $winThreshold) #Win Condition
    {
        #Write-Host -NoNewline "Seed($seed)=$r "
        Write-Host "BET: `$$bet -- " -NoNewline
        Write-host -ForegroundColor Green "WIN  : " -NoNewline
        $bankRoll = $bankRoll + $($bet * $multiplier)
        $bet = 1
        Write-Host "Bank = `$" -NoNewline; "{0:N2}" -f  $bankroll
    }
    else #Loss
    {
        #Write-Host -NoNewline "Seed($seed)=$r "
        Write-Host "BET: `$$bet -- " -NoNewline
        Write-Host -ForegroundColor Red "LOSE : " -NoNewline
        $bet = $bet * 2 #martingale doubles every loss
        Write-Host "Bank = `$" -NoNewline; "{0:N2}" -f $bankroll
    }
    $i++ #loop counter
}