"Johnny Craps" -haaste

Johdanto

Pian haasteeni lähettämisen jälkeen kysyin "Johnny Crapsilta", " An Old Timer's Guide to Beating the Craps Table" -oppaan pitäjältä, haluaisiko hän ottaa haasteeni vastaan. Kyseisen järjestelmän sivustoa ei enää ole olemassa, mikä on yleensä vedonlyöntijärjestelmien laita. Omistajat tuntuvat katoavan keskellä yötä.

John vastasi nopeasti ja oli erittäin luottavainen järjestelmäänsä ja sen kykyyn tuottaa yli miljardin heiton voittoa. Hän kertoi minulle useita tarinoita suurista voitoista järjestelmällään ja myönsi vain yhden merkittävän tappion, ja sekin johtui siitä, että hän humaltui eikä noudattanut järjestelmän ohjeita. Keskustelumme aikana John oli täydellinen herrasmies ja jopa kieltäytyi maksutarjouksestani, jos hänen järjestelmänsä läpäisisi haasteen. Hän uskoi siihen henkilökohtaisen sovelluksen ja muiden hänen järjestelmänsä ostaneiden todistusten kautta.

Hänen järjestelmänsä perustuu filosofiaan, jonka mukaan voittamisen todennäköisyys on suurempi aiemman tappion jälkeen. Lisäksi hänen järjestelmässään on rajoituksia tappioiden rajoittamiseksi, sillä suurin pass line -tappio on vain kahdeksan kertaa pienin. Hän panostaa vain pass line -tappioon ja ottaa kertoimet. Harha on siinä oletuksessa, että voiton todennäköisyys kasvaa tappion jälkeen. Alla olevat tulokset vahvistavat tämän.

Hävittyjen yksiköiden suhde panostettuihin yksiköihin on 0,005595, mikä ei ole kaukana crapsin taloedusta, joka on 0,005720 täydellä tuplakertoimella. Ero johtuu satunnaisvaihtelusta. Voitettujen yksiköiden enimmäismäärä vaihtelee huomattavasti pelisession välillä, eikä yllä olevan 2111:n tulosta voida odottaa olevan helppo toistaa. Alla on kymmenen eri pelisession, joissa kussakin on miljoona heittoa, perusteella voitetut enimmäisyksiköt: 224, 2521, 1226, 1199, 1298, 6130, 3123, 224, 851 ja 1314.

Ohjelman kopio on alla. Laitoin *** symbolit tiettyjen tekijöiden kohdalle, jotka paljastaisivat hänen strategiansa. Koska se on edelleen myynnissä, hän ei haluaisi antaa sitä pois ilmaiseksi.

Haluan kiittää Johnia hänen osallistumisestaan ja yhteistyöstään tässä kokeessa.

# sisällytä <stream.h>
# sisällytä <stdlib.h>
# sisällytä <merkkijono.h>
# sisällytä <math.h>

kokonaisluku pää(tyhjä)
{
int numpass, numodds, numroll, tbet, er, es, point, roll, die[2], i, n, max, bet, win, num, bil;

cerr << "syötä siemen ";
sin >> n;

for (i = 1; i <= n; i++)
{
    num = rand();
}

cerr << "syötä kokeiden määrä ";
sin >> n;

numroll = 0;
lasku = 0;
voitto = 0;
tbet = 0;
maksimi = 0;
numeron_arvo = 0;
numodit = 0;
lasku = 0;


tee // toista kokeen loppuun asti
{
    es = 0;
    veto = 2;

    tee // toista sarjan loppuun asti
    {
        piste = 0;
        er = 0;

        tee // toista kerroksen loppuun asti
        {
            for (i = 0; i <= 1; i++)
            {
                num = rand(); // rand():n maksimiarvo on 32767
                kuole[i] = 1 + kokonaisluku(luku * 6 / 32767);
            }

            heitto = noppa[0] + noppa[1];

            numroll++;

            jos (piste == 0)
            {
                numeronsiirto++;

                jos ((heitto == 7) || (heitto == 11))
                {
                    voitto += veto;
                    tbet + = veto;
                    er = 1;
                    es = 1;
                }
                muuten jos ((heitto == 2) || (heitto == 3) || (heitto == 12))
                {
                    er = 1;
                    voitto -= veto;
                    tbet + = veto;
                }
                muu
                {
                    piste = vieritys;
                    numodds++;
                }
            }
            muuten jos (roll == piste)
            {
                jos ((heitto == 4) || (heitto == 10))
                {
                    voitto += 5 * veto;
                    tbet += 3 * veto;
                }
                muuten jos ((heitto==5)||(heitto==9))
                {
                    voitto += 4 * veto;
                    tbet += 3 * veto;
                }
                muu
                {
                    voitto += 4 * veto;
                    tbet += 7 * veto / 2;
                }

                er = 1;
                es = 1;
            }
            muuten jos (heitto == 7)
            {
                jos ((piste == 6) || (piste == 8))
                {
                    voitto -= 7 * panos / 2;
                    tbet += 7 * veto / 2;
                }
                muu
                {
                    voitto -= 3 * veto;
                    tbet += 3 * veto;
                }

                er = 1;
            }

        } while(er == 0); // toista kierroksen loppuun asti

        jos (tbet > 1000000000)
        {
            lasku++;
            tbet -= 1000000000;
        }

        jos (voitto > maksimi)
        {
            max = voitto;
        }

        jos (es == 0)
        {
            jos (veto == ***) { veto = ***; } muuten
            jos (veto == ***) { veto = ***; } muuten
            jos (veto == ***) { es = ***; }
        }

    } while(es == 0); // toistetaan sarjan loppuun asti


} while (numroll < n); // toistetaan kokeen loppuun asti

cerr << "Heilauksia yhteensä = " << numroll << "\n";
cerr << "Pass line -panosten kokonaismäärä = " << numpass << "\n";
cerr << "Kokonaiskertoimet vedot = " << numodds << "\n";
cerr << "Voittojen kokonaismäärä = " << voitto << "\n";
cerr << "Kokonaispanokset = " << bill << " miljardia + " << tbet << "\n";
cerr << "Suuret voitot = " << max << "\n";
}

Kirjoittanut: Michael Shackleford