Description Usage Arguments Value Author(s) Examples

Runs a round of preflop bidding. Used by tourn1().

1 | ```
bid1(numattable1, playerseats1, chips1, blinds1, dealer1, b3, ntable1, decision1)
``` |

`numattable1` |
Number of players currently remaining at the given table. |

`playerseats1` |
list of indices, who's in seat 1, seat 2, etc. |

`chips1` |
list of chips left, for players at this table only. |

`blinds1` |
vector of (small blind amount, big blind amount). |

`dealer1` |
seat that the dealer is in. |

`b3` |
cards the players have. |

`ntable1` |
how many tables remain in the tournament. |

`decision1` |
vector of the functions governing the players' betting |

`i1 ` |
vector indicating who is still in the hand (1) or is out (0) |

`p1 ` |
the size of the pot |

`p1 ` |
the size of the pot |

`c1 ` |
the number of chips everyone has left |

`rb ` |
the betting for the whole hand |

`all1 ` |
0 if there is more betting in the hand, or 2 if the betting in the hand is all over. |

`bl1 ` |
the betting for the current round |

`il1` |
player number indices of who bet |

`out1` |
list of who is out, i.e. who folded this round or had folded previously. |

Frederic Paik Schoenberg

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 | ```
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function(numattable1, playerseats1, chips1, blinds1, dealer1, b3, ntable1, decision1){
round1 = 1
in1 = 1*(chips1>0.5)
bet1 = rep(0,numattable1)
betlist1 = c(0)
indlist1 = c(0)
outlist1 = c(0)
ind1 = dealer1+1
if(ind1>numattable1) ind1 = 1
j = 0
prevbet = 0
currentbet = 0
better1 = 0
board1 = matrix(rep(0,10),ncol=2)
board1[1:3,1] = b3$brdnum1[1:3]
board1[1:3,2] = b3$brdsuit1[1:3]
roundbets = matrix(rep(0,(4*numattable1)),ncol=4)
pot1 = 0
stp = 0
while(stp < 1){
myout1 = 0
j = j+1
if(j==1){
bet1[ind1] = min(chips1[ind1],blinds1[1])
prevbet = bet1[ind1]
better1 = ind1
pot1 = bet1[ind1]
roundbets[ind1,1] = bet1[ind1]
chips1[ind1] = chips1[ind1] - bet1[ind1]
betlist1 = c(betlist1,bet1[ind1])
indlist1 = c(indlist1,ind1)
outlist1 = c(outlist1,myout1)
}
if(j==2){
bet1[ind1] = min(chips1[ind1],blinds1[2])
currentbet = max(prevbet,blinds1[2])
better1 = ind1
pot1 = pot1 + bet1[ind1]
roundbets[ind1,1] = bet1[ind1]
chips1[ind1] = chips1[ind1] - bet1[ind1]
betlist1 = c(betlist1,bet1[ind1])
indlist1 = c(indlist1,ind1)
outlist1 = c(outlist1,myout1)
}
if(j==3){better1 = ind1} # so that big blind can raise!
if((j > 2.5) && (in1[ind1] > 0.5)){
crds1 =
matrix(c(b3$plnum1[ind1,],b3$plsuit1[ind1,]),ncol=2)
bmax1 = max((bet1[-ind1] + chips1[-ind1])[in1[-ind1]>.5])
# cat(".a. Seat ",ind1,"'s turn, bmax is ",bmax1,", lastbetter is ",better1,"...\n")
if(bmax1 < currentbet) currentbet = bmax1
b1 = round(decision1[[playerseats1[ind1]]](numattable1,
crds1,
board1,
round1,
currentbet - bet1[ind1],
chips1[ind1],
pot1,
roundbets,
blinds1[2],
chips1,
ind1,
dealer1,
ntable1))
# cat("\n Seat ", ind1,": b1 was ",b1," and it was ",currentbet-bet1[ind1]," to him.")
if(b1 > chips1[ind1]) b1 = chips1[ind1] ## if bet is more than you have, fix that.
if(b1 > bmax1 - bet1[ind1]) b1 = bmax1 - bet1[ind1]
## can't bet more than anyone has left
## if bet is between 0.5 and the amount to you, make it a call.
if((b1 > 0.5) && (b1 < currentbet - bet1[ind1])) b1 = min(chips1[ind1],
currentbet - bet1[ind1])
## if bet is a raise of less than the big blind, make it a raise of the big blind.
raiseamt1 = b1 - (currentbet - bet1[ind1])
if((raiseamt1 > 0.5) && (raiseamt1 < blinds1[2])) b1 = min(blinds1[2] +
currentbet - bet1[ind1],chips1[ind1])
# cat("Now b1 = ",b1,". Currentbet = ",currentbet,".\n")
if(b1 > currentbet-bet1[ind1]+.5){ ## raise
prevbet = currentbet
currentbet = b1+bet1[ind1]
# cat("curbet = ",currentbet,".\n")
better1 = ind1
pot1 = pot1 + b1
roundbets[ind1,round1] = roundbets[ind1,round1] + b1
bet1[ind1] = roundbets[ind1,round1]
in1[ind1] = 1
chips1[ind1] = chips1[ind1] - b1
} else if(b1 == min(chips1[ind1],currentbet-bet1[ind1])){ ## call
pot1 = pot1 + b1
roundbets[ind1,round1] = roundbets[ind1,round1] + b1
bet1[ind1] = roundbets[ind1,round1]
in1[ind1] = 1
chips1[ind1] = chips1[ind1] - b1
} else if((chips1[ind1]>0.5) && (b1 < min(chips1[ind1],
currentbet-bet1[ind1])-.5)){ ## fold
in1[ind1] = 0
myout1 = 2
}
betlist1 = c(betlist1,bet1[ind1])
indlist1 = c(indlist1,ind1)
outlist1 = c(outlist1,myout1)
}
ind1 = ind1 + 1
if(ind1 > numattable1) ind1 = 1
if(better1 == ind1) stp = 2
# cat("\n\n who:",numattable1,playerseats1, chips1,".\n")
if(sum(in1) < 1.5) stp = 2
}
z3 = 0 ## now see if all the betting is over: if so, let z3 = 2.
if(sum(chips1[c(1:numattable1)[in1 > .5]] > .5) < 1.5) z3 = 2
# cat("\n Round 1 over. z3 = ",z3,". in1 = ",in1,".\n")
list(i1=in1,p1=pot1,c1=chips1,rb=roundbets,all1=z3,bl1 = betlist1,
il1 = indlist1,out1=outlist1)
} ## end of bid1
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.