Pokerikäsien arviointi

PokerBot

Esimerkiksi PokerStove arvioi muutamassa sekunnin sadasosassa preflop-voittotodennäköisyydet kahden aloituskäden kesken. Kun pakassa on jäljellä 48 korttia, erilaisia viiden kortin yhdistelmiä on (48*47*46*45*44)/(5*4*3*2*1) = 1.712.304 kpl. Tietokoneessani näiden käsien luuppaaminen koodilla

for J := 1 to 44 do
valitse kortti 1
for K := 2 to 45 do
valitse kortti 2
for L := 3 to 46 do
valitse kortti 3
for M := 4 to 47 do
valitse kortti 4
for N := 5 to 48 do
valitse kortti 5
poyta = kortti 1 kortti 2 kortti 3 kortti 4 kortti 5

vie aikaa vajaat 20 sekuntia.

Tavoitteenani on laskea pelaamistani käsistä todennäköisyydet eri panostusvaiheissa, kun showdowniin on edennyt kaksi pelaajaa. Kolme tai useampi ei siis ole välttämätön.

Laskentaan pitäisi saada vauhtia. Millä tavalla sitä pystyisi nopeuttamaan. Esimerkiksi näistä http://forumserver.twoplustwo.com/45/software/7-card-hand-evaluators-597/ jutuista en saa juuri mitään irti. Ne ovat liian vaikeita kotitarveohjelmoitsijalle.

1

553

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • heikkioskari

      Silmäilepä allaolevaa QBasic-listausta, "väärä tapa" tekee
      yli 100-kertaisest i"työtä" verrattuna "oikeaan tapaan".

      Delphiä en tunne, mutta oletan FOR-luuppien pyörivän samoin
      kuin Basicissakin. Jos näin on, listauksesi ohjelma kehittää
      monet "kädet" tarpeettomasti sataan kertaan.

      Luuppimuuttujia voi tietenkin käyttää sellaisinaan korttien
      paikkojen määrittelyyn, ei niitä tarvitse erikseen sijoittaa
      ylimääräisiin muuttujiin.

      Pienenä vihjeenä tulevan varalle: Kun olet muutaman vuoden
      päästä päässyt vaiheeseen jossa kortteja ja "käsiä" aletaan
      vertailla, suosittelen korttien yksilöimistä 13 mittaisilla
      yksipainoisten binäärilukujen taulukoilla.
      Neljä yksiulotteista taulukkoa, yksi jokaista maata varten,
      jokaisessa taulukossa 13 alkiota, joiden ykkösbitin paikka
      määrittelee kortin numeron.



      Tuon oman listaukseni kehittämien "käsien" määrät
      ja ajankulutukset ovat seuraavat:

      "Oikea tapa", "käsiä" 2 598 960 kpl, aika 0.49 sek.
      "Väärä tapa", "käsiä" 311 875 200 kpl, aika 52.06 sek.

      Aikojen suhde : "Väärä tapa"/"oikea tapa" = noin 105.
      "Käsien suhde": "Väärä tapa"/"oikea tapa" = 120



      REM **********************************************
      REM **********************************************

      DEFINT A-Z

      CLS

      DIM kortteja AS LONG
      DIM laskuri1 AS LONG
      DIM laskuri2 AS LONG


      DIM aika1 AS DOUBLE
      DIM aika2 AS DOUBLE
      DIM aikasuhde AS DOUBLE
      DIM laskurisuhde AS DOUBLE

      kortteja = 52


      REM **********************
      REM oikea tapa
      REM **********************

      aika1 = TIMER
      laskuri = 0

      FOR J = 1 TO kortteja
      FOR K = J 1 TO kortteja
      FOR L = K 1 TO kortteja
      FOR M = L 1 TO kortteja
      FOR N = M 1 TO kortteja

      laskuri1 = laskuri1 1

      NEXT N: NEXT M: NEXT L: NEXT K: NEXT J

      aika1 = TIMER - aika1

      PRINT aika1, laskuri1


      REM **********************
      REM väärä tapa
      REM **********************

      aika2 = TIMER
      laskuri2 = 0

      FOR J = 1 TO kortteja
      FOR K = 2 TO kortteja
      FOR L = 3 TO kortteja
      FOR M = 4 TO kortteja
      FOR N = 5 TO kortteja

      laskuri2 = laskuri2 1

      NEXT N: NEXT M: NEXT L: NEXT K: NEXT J

      aika2 = TIMER - aika2

      PRINT aika2, laskuri2

      aikasuhde = aika2 / aika1
      laskurisuhde = laskuri2 / laskuri1

      PRINT aikasuhde, laskurisuhde

      END

      REM **********************************************
      REM **********************************************

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Räppäri kuoli vankilassa

      Ei kuulemma ole tapahtunut rikosta. Sama vahinkohan kävi Epsteinille. https://www.hs.fi/suomi/art-2000011840869.html "
      Maailman menoa
      113
      4862

    2. Välillä kyllä tuntuu, että jaat vihjeitä

      Mutta miten niistä voi olla ollenkaan varma? Ja minä saan niistä kimmokkeen luulemaan yhtä sun toista. Eli mitä ajatella
      Ikävä
      29
      3523

    3. No kyllä te luuserit voitte tehdä mitä vaan keskenänne, sitä en ymmärrä miksi pelaat,nainen

      Pisteesi silmissäni, edes ystävätasolla tippui jo tuhannella, kun sain selville pelailusi, olet toisen kanssa, vaikka ol
      Ikävä
      45
      2430

    4. Missä näitte viimeksi?

      Missä näit kaivattua viimeksi ja oliko sähköä ilmassa?
      Ikävä
      50
      1548

    5. Harmittaako sinua yhtään?

      Tuntuuko pahalta ollenkaan?
      Ikävä
      40
      1413

    6. Jätä minut rauhaan

      En pidä sinusta. Lopeta seuraaminen. Älä tulkitse keskustelutaitoa tai ystävällisyyttä miksikään sellaiseksi mitä ne eiv
      Ikävä
      23
      1312

    7. Puukotus yöllä

      Oli kaveri hermostunut ja antanut puukosta.
      Sotkamo
      14
      1222

    8. On varmaan turn off

      Mutta olen tosi kokematon.
      Ikävä
      27
      1108

    9. Mitä sun kaltainen ihminen tekee tämmöisessä paikassa?

      Et kuulu tänne?
      Ikävä
      165
      1089

    10. Olen oikeasti aika mukava

      Vaikka itse sanonkin. Tunnemyrsky sekoitti mieltä silloin ja annoin aika kahjon kuvan itsestäni.
      Ikävä
      22
      1027
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt