Source code for Cancellation Betting System analyzer

Introduction

The following program is written in C++. It is quite simple, anybody with a little experience with C++ should be able to understand how it works. I apologize about the lack of documentation but by following the logic it shouldn’t be hard to see what is going on.

//
//  cancellation system analyzer
//  10/19/1998
//

#include <iostream.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <time.h>
#include <stdio.h>

void tenbet();

int main()
{
char ch;

do
{
    tenbet();

    cerr << "Play again? ";
    cin >> ch;
}
while ((ch == 'y') || (ch == 'Y'));

return 0;
}

void tenbet()
{
int maxloss, num, bet[1000], lpt, rpt, i, j, curbet, bank, result[2], randwin, g;

long totbet, spins;

cerr << "Enter maximum loss ";        cin  >> maxloss;
cerr << "Enter number of trials ";    cin  >> num;
cerr << "Roulette(1) or craps(2)? ";  cin  >> g;

result[0] = 0;
result[1] = 0;
totbet    = 0;
spins     = 0;

if (g == 1)
{
    randwin = 32767 * 18/38;
}
else
{
    randwin = 32767 * 244 / 495;
}

for (i = 1; i <= num; i++)
{
    bank =  0;
    lpt  =  1;
    rpt  = 10;

    for (j = 1; j <= 10; j++)
    {
        bet[j] = 1;
    }

    do
    {
        if (rpt == lpt)
        {
            curbet = bet[rpt];
        }
        else
        {
            curbet = bet[lpt] + bet[rpt];
        }

        while ((maxloss+bank < curbet)&&(maxloss+bank > 0))
        {
            spins++;

            if (maxloss + bank >= bet[lpt])
            {
                totbet += bet[lpt];

                if (rand() <= randwin)
                {
                    bank += bet[lpt];
                    lpt++;
                }
                else
                {
                    bank     -= bet[lpt];
                    bet[lpt] *= 2;
                }
            }
            else
            {
                totbet += (maxloss + bank);

                if (rand() <= randwin)
                {
                    bet[lpt] -= (maxloss + bank);
                    bank     += (maxloss + bank);
                }
                else
                {
                    bank     -= (maxloss + bank);
                }
            }

            if (rpt == lpt)
            {
                curbet = bet[rpt];
            }
            else
            {
                curbet = bet[lpt] + bet[rpt];
            }
        }

        if (maxloss + bank > 0)
        {
            totbet+=curbet;
            spins++;

            if (rand() <= randwin)
            {
                lpt++;
                rpt--;
                bank     += curbet;
            }
            else
            {
                rpt++;
                bet[rpt]  = curbet;
                bank     -= curbet;
            }
        }
    }
    while ((lpt <= rpt) && (maxloss + bank > 0));

    if (maxloss + bank == 0)
    {
        result[1]++;
    }
    else
    {
        result[0]++;
    }

    if (i % 100000 == 0)
    {
        cerr << i << "\n";
    }
}

cerr << "Maximum loss: "        << maxloss << "\n";
cerr << "Probability of loss: " << (float)(result[1])/(float)(num) << "\n";
cerr << "Average spins: "       << (float)(spins)/(float)(num) << "\n";
cerr << "Average bet: "         << (float)(totbet)/(float)(num)<<"\n";
cerr << "Wins: "                << result[0]<<"\nLosses: "<<result[1]<<"\n";
cerr << "Total bet: "           << totbet<<"\n";
cerr << "Total win/loss: "      << (result[0]*10)-(result[1]*maxloss) << "\n";
cerr << "Total spins: "         << spins << "\n";
cerr << "Net loss: "            << (float)((result[0]*10)-(result[1]*maxloss))/(float)totbet << "\n";
}

Written by: Michael Shackleford