verschiedene ergebnisse für verschiedene setzsysteme bei roulette in scheme(akzent von lisp)

    • derecht
      derecht
      Bronze
      Dabei seit: 25.07.2007 Beiträge: 518
      da ich letztes grad meine komplette bankroll zum 3. mal ausgecasht und mich nen bisschen durchs casino bankrollbuster forum durchgelesen habe, habe ich mir gedacht, dass ich mal ne simulation in scheme(akzent von lisp) schreibe, in denen ich 2 verschiedene setzstrategien simuliere. was mir dabei aufviel war, dass man mit dem verdopplungsverfahren sehr viel gewinn macht und kein verlusst, sowie korn einmal vorgerechnet hat. ich habe mehrere male 1000k spins durchrechnen lassen, immer positiver gewinn. ich denke, ich werde heute über nacht mal ne sehr große zahl an spins simulieren, mal sehen was dabei rauskommt. grad nen ergebniss für 10^7 spins bekommen, das ergebnis ist $4864726 gewinn.
      das andere verfahren ist, dass man nen bestimmten teil(z.bsp. die hälfte) von einer bestimmten summe setzt, wenn man gewinnt nochmal neu beginnt und wenn man verliert nochmal von dem ausgehend was man von der bestimmten summe noch über hat bis man mehr als die bestimmte summe hat. dieses system hat bei spinzahlen von 100k einen größtenteils negativen erwartungswert.
      und dann nochmal wenn man immer einen festen betrag setzt. muss ich ja nicht viel zu sagen, ist ja klar.

      für leute, die sich das mal angucken wollen und vllt mal selber simulieren wollen:
      (define (doppel start gewinn spins)
      (cond((= 0 spins) gewinn)
      ((<= (random) (/ 18 37))(doppel 1 (+ gewinn start) (- spins 1)))
      (#t (doppel (* start 2) (- gewinn start) (- spins 1)))))

      (doppel 1 0 10)



      (define (sim start gewinn spins)
      (cond((= spins 0) (+ gewinn (- start 100)))
      ((<= (random) (/ 18 37))(cond((> (+ start (/ start 2)) 100)(sim 100 (+ gewinn (/ start 2)) (- spins 1)))
      (#t (sim (+ start (/ start 2)) gewinn (- spins 1)))))
      (#t (sim (/ start 2) gewinn (- spins 1)))))

      (sim 100 0 100)




      (define (gleich setz gewinn spins)
      (cond((= 0 spins) gewinn)
      ((<= (random) (/ 18 37))(gleich setz (+ gewinn setz) (- spins 1)))
      (#t (gleich setz (- gewinn setz) (- spins 1)))))

      (gleich 1 0 100000)




      achja. btw: wer noch nen paar dollar übrig hat kann gerne für meine arbeit, die ich hier geleistet habe, spenden, nen paar dollar reichen schon aus, gegen mehr habe ich aber auch nichts;) .
      moneybookers: derecht@googlemail.com
      party: derecht111
      stars: derecht111
      titan: derecht111
      full tilt: derecht

      mal sehen ob ich was bekomme;) achja, die leute werden hier erwähnt wenn gewünscht.
  • 7 Antworten