tourn1: Run a Texas Hold'em tournament
In holdem: Texas Holdem Simulator
Description
Usage
Arguments
Details
Value
Author(s)
References
Examples
Description
Runs a Texas Hold'em tournament, stopping for certain key hands which are
shown graphically. The top finishers are given payouts. By default, only
the top 3 finishers get points, and they get 13, 8, and 5 points
respectively. See chapter 8 of Schoenberg, F. (2011).
Usage
1
2
3
tourn1(name1, decision1, chipstart1 = 1000,
bigstart1 = 20, inc1 = 1.5, winners1 = 3, myfast1 = 2,
t1 = 0.5, t2 = 1, graphiccutoff1 = 0.1, lowercut1 = 30)
Arguments
name1
names of the players
decision1
the players' codes to determine their betting and folding
chipstart1
how many chips each player starts with
bigstart1
the initial big blind
inc1
how much the blinds increase every 10 hands. If inc1 = 2, for instance,
then blinds double after every 10 hands.
winners1
number of top finishers receiving payouts.
myfast1
make it 2 if you want the tournament to run quickly, or 0 if you want to
show graphics and have to click the mouse to proceed while showing each
key hand.
t1
fraction of times to show double ups
t2
fraction of times to show eliminations
graphiccutoff1
If a student's chip stack changes by a factor less than this amount, then
the graphic display will not bother replotting her name.
lowercut1
If a student has fewer chips than this, her name won't appear on the
graphic display.
Details
Each tournament works as follows.
Blinds last 10 hands, then increase by factor of inc1. (rounded to the
nearest chip)
If the number of players left is 11-20, then each hand, players are split
into 2 tables of equal size (or one off if the number of players is odd).
Then 10 hands are played, regardless of how many players are eliminated
during those 10 hands.
The small blind is always 1/2 the big blind (rounded to the nearest integer).
If the number of players > 20, then each 10 hands, players are randomly split
into tables of size 10.
The remaining players not assigned to tables sit out these 10 hands.
t1 and t2 govern how many hands are "key" hands. Usually, every student
wants to see at least 1 hand involving their code, so by default t2 = 1 so
that each student's elimination is shown, and if t1 = 0.5, then if a
student doubles up on a hand, then that hand is shown with probability 0.5.
The code might have errors if winners1 > 10.
Value
A vector indicating the indices of the players who won, in order.
For instance, an output of (4,1,5) means that function 4 got 1st place,
function 1 got 2nd place, and function 5 got 3rd place.
Author(s)
Frederic Paik Schoenberg
References
Schoenberg, F. (2011). An Introduction to Probability with Texas Holdem
Examples. Taylor and Francis, New York.
Examples
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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
name1 = c("gravity","tommy","ursula","timemachine","vera","william","xena")
decision1 = list(gravity, tommy, ursula, timemachine, vera, william, xena)
tourn1(name1, decision1, myfast1 = 2) ## run quickly
tourn1(name1, decision1, myfast1 = 0) ## run slowly, showing key hands
## The function is currently defined as
function(name1, decision1, chipstart1 = 1000, bigstart1 = 20,
inc1 = 1.50, winners1 = 3,myfast1 = 2, t1 = 0.5, t2=1,
graphiccutoff1 = .1, lowercut1 = 30 ){
## Note: don't have more than 10 winners! That might mess this up.
# blinds last 10 hands, then increase by factor of inc1. (rounded)
# If # players left is 11-20, then each hand, players are split
# into 2 tables of equal size (or one off if # players is odd). Then 10 hands are played,
# no matter what.
# Small = 1/2 big (rounded to nearest integer).
# If num players > 20, then each 10 hands, players are randomly split
# into tables of size 10. Remaining players sit out 10 hands.
# a) Start loop. Initiate blinds.
# b) Assign seats. Set num of tables.
# c) For each table, play a hand. Repeat 10 times.
# d) After each hand, update nplayers1, and
# if nplayers1 <= winners1, then store winners. See if all done too.
# e) On key hands, do instant replay! (if all-in & call, and
# total pool > 8 times big.
# f) Increase blinds and repeat b-e.
## myfast1 = 2 if you want it to go fast. 0 = slow.
## t1 = fraction of times to show double-ups
## t2 = fraction of times to show eliminations
## chipstart1 = starting number of chips. The big blind starts at 20.
## winners1 = the number of function that get points.
## payouts1 = c(13,8,5) = the number of points for the winner, 2nd place, etc.
nplayers1 = length(name1)
plot(c(0,nplayers1+1),c(lowercut1,chipstart1*nplayers1),pch=name1[1:nplayers1],
type="n",xlab="player number",ylab="chips",log="y")
chip1 = rep(chipstart1, nplayers1)
text(x=c(1:nplayers1),y=chip1,cex=2,labels=name1[1:nplayers1],srt=270,col=2)
chip7 = chip1
big1 = round(bigstart1)
sm1 = round(big1/2)
blinds1 = c(sm1,big1)
nleft1 = nplayers1
plleft = 1:nplayers1 ## plleft will be the indices of who's left.
places1 = rep(0,winners1)
stp3 = 0
while(stp3 < 1){
if(nleft1 > 20.5){
ntable1 = floor(nleft1/10)
pl1 = sample(nleft1)
tables1 = list(tbnums = rep(10,ntable1))
for(j in c(1:ntable1)){
tables1[[1+j]] = plleft[pl1[(1:10)+(j-1)*10]]
}
}
if((nleft1 < 20.5) && (nleft1 > 10.5)){
ntable1 = 2
pl1 = sample(nleft1)
thalf1 = ceiling(nleft1/2)
bhalf1 = nleft1 - thalf1
tables1 = list(tbnums = c(thalf1, bhalf1))
tables1[[2]] = plleft[pl1[1:thalf1]]
tables1[[3]] = plleft[pl1[(thalf1+1):nleft1]]
}
if(nleft1 < 10.5){
ntable1 = 1
pl1 = sample(nleft1)
tables1 = list(tbnums = nleft1)
tables1[[2]] = plleft[pl1]
## so, with 10 players or fewer, I'm re-shuffling seats every 10 hands.
}
cat("\n Big blind is ",blinds1[2],"\n")
for(i in 1:ntable1){
k = 0
for(j in 1:10){
chip3 = chip1[tables1[[1+i]]]
k = k+1
if(k > tables1[[1]][i]) k = 1
cat(j)
x32 = hand1(tables1[[1]][i], tables1[[1+i]], chip3,
blinds1, k, ntable1,myfast1,t1,t2,chipstart1,lowercut1, decision1)
chip2 = x32$chips2
chip1[tables1[[1+i]]] = chip2
chipdif8 = (abs(chip1-chip7)/pmax(chip1,chip7,rep(1,nplayers1)) > graphiccutoff1)
if(x32$draw1 > 1){
text(x=c(1:nplayers1),y=chip1,cex=2,labels=name1[1:nplayers1],srt=270,col=2)
chip7 = chip1
} else if(sum(chipdif8)>.5){
text(x=c(1:nplayers1)[chipdif8],
y=chip7[chipdif8],cex=2,col="white",labels=name1[chipdif8],srt=270)
text(x=c(1:nplayers1)[chipdif8],
y=chip7[chipdif8],cex=2,col="white",labels=name1[chipdif8],srt=270)
text(x=c(1:nplayers1)[chipdif8],
y=chip1[chipdif8],cex=2,col=2,labels=name1[chipdif8],srt=270)
chip7[chipdif8] = chip1[chipdif8]
}
## Now remove eliminated players, even if they were blinds.
## This may let some people miss their big blind. Note this.
j1 = sum(chip2 < .5) ## the number eliminated.
if(j1 > .5){
j2 = tables1[[i+1]][c(1:tables1[[1]][i])[chip2 < .5]] ## their indices
j3 = j2[order(chip3[j2],decreasing=T)] ## ordered by how much they had before
j4 = min(winners1,nleft1)
nleft1 = nleft1 - j1
if(nleft1 < winners1 - .5) places1[(nleft1+1):j4] = j3[1:(j4-nleft1)]
cat("\n Eliminated: ",j2,".....",nleft1," players remaining.\n")
tables1[[1]][i] = tables1[[1]][i] - j1
tables1[[1+i]] = tables1[[1+i]][chip2>.5]
}
if(nleft1 < 1.5) break
}
if(nleft1 < 1.5) break
}
big1 = round(blinds1[2]*inc1)
sm1 = round(big1/2)
blinds1 = c(sm1,big1)
plleft = c(1:nplayers1)[chip1>0.5]
nleft1 = length(plleft)
if(nleft1 < 1.5){
stp3 = 2
places1[1] = plleft
z2 = winners1+1
plot(c(0,nplayers1+1),c(lowercut1,chipstart1*nplayers1),
type="n",xlab="player number",ylab="chips",log="y")
text(1*nplayers1/z2,nplayers1*chipstart1, "1st:",col=4,cex=2)
text(2*nplayers1/z2,nplayers1*chipstart1, "2nd:",col=4,cex=2)
text(3*nplayers1/z2,nplayers1*chipstart1, "3rd:",col=4,cex=2)
if(z2 > 4.5) for(z1 in c(4:winners1))
text(z1*nplayers1/z2,nplayers1*chipstart1, paste(z1,"th:"),col=4,cex=2)
for(z1 in c(1:winners1)) text(z1*nplayers1/(winners1+1),
(nplayers1/2)*chipstart1,name1[places1[z1]],col=4,cex=2)
}
}
places1
} ## end of tourn1
holdem documentation built on May 2, 2019, 9:21 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Description Usage Arguments Details Value Author(s) References Examples
Description
Runs a Texas Hold'em tournament, stopping for certain key hands which are shown graphically. The top finishers are given payouts. By default, only the top 3 finishers get points, and they get 13, 8, and 5 points respectively. See chapter 8 of Schoenberg, F. (2011).
Usage
1 2 3 | tourn1(name1, decision1, chipstart1 = 1000,
bigstart1 = 20, inc1 = 1.5, winners1 = 3, myfast1 = 2,
t1 = 0.5, t2 = 1, graphiccutoff1 = 0.1, lowercut1 = 30)
|
Arguments
name1 |
names of the players |
decision1 |
the players' codes to determine their betting and folding |
chipstart1 |
how many chips each player starts with |
bigstart1 |
the initial big blind |
inc1 |
how much the blinds increase every 10 hands. If inc1 = 2, for instance, then blinds double after every 10 hands. |
winners1 |
number of top finishers receiving payouts. |
myfast1 |
make it 2 if you want the tournament to run quickly, or 0 if you want to show graphics and have to click the mouse to proceed while showing each key hand. |
t1 |
fraction of times to show double ups |
t2 |
fraction of times to show eliminations |
graphiccutoff1 |
If a student's chip stack changes by a factor less than this amount, then the graphic display will not bother replotting her name. |
lowercut1 |
If a student has fewer chips than this, her name won't appear on the graphic display. |
Details
Each tournament works as follows. Blinds last 10 hands, then increase by factor of inc1. (rounded to the nearest chip) If the number of players left is 11-20, then each hand, players are split into 2 tables of equal size (or one off if the number of players is odd). Then 10 hands are played, regardless of how many players are eliminated during those 10 hands. The small blind is always 1/2 the big blind (rounded to the nearest integer). If the number of players > 20, then each 10 hands, players are randomly split into tables of size 10. The remaining players not assigned to tables sit out these 10 hands.
t1 and t2 govern how many hands are "key" hands. Usually, every student wants to see at least 1 hand involving their code, so by default t2 = 1 so that each student's elimination is shown, and if t1 = 0.5, then if a student doubles up on a hand, then that hand is shown with probability 0.5. The code might have errors if winners1 > 10.
Value
A vector indicating the indices of the players who won, in order. For instance, an output of (4,1,5) means that function 4 got 1st place, function 1 got 2nd place, and function 5 got 3rd place.
Author(s)
Frederic Paik Schoenberg
References
Schoenberg, F. (2011). An Introduction to Probability with Texas Holdem Examples. Taylor and Francis, New York.
Examples
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 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 | name1 = c("gravity","tommy","ursula","timemachine","vera","william","xena")
decision1 = list(gravity, tommy, ursula, timemachine, vera, william, xena)
tourn1(name1, decision1, myfast1 = 2) ## run quickly
tourn1(name1, decision1, myfast1 = 0) ## run slowly, showing key hands
## The function is currently defined as
function(name1, decision1, chipstart1 = 1000, bigstart1 = 20,
inc1 = 1.50, winners1 = 3,myfast1 = 2, t1 = 0.5, t2=1,
graphiccutoff1 = .1, lowercut1 = 30 ){
## Note: don't have more than 10 winners! That might mess this up.
# blinds last 10 hands, then increase by factor of inc1. (rounded)
# If # players left is 11-20, then each hand, players are split
# into 2 tables of equal size (or one off if # players is odd). Then 10 hands are played,
# no matter what.
# Small = 1/2 big (rounded to nearest integer).
# If num players > 20, then each 10 hands, players are randomly split
# into tables of size 10. Remaining players sit out 10 hands.
# a) Start loop. Initiate blinds.
# b) Assign seats. Set num of tables.
# c) For each table, play a hand. Repeat 10 times.
# d) After each hand, update nplayers1, and
# if nplayers1 <= winners1, then store winners. See if all done too.
# e) On key hands, do instant replay! (if all-in & call, and
# total pool > 8 times big.
# f) Increase blinds and repeat b-e.
## myfast1 = 2 if you want it to go fast. 0 = slow.
## t1 = fraction of times to show double-ups
## t2 = fraction of times to show eliminations
## chipstart1 = starting number of chips. The big blind starts at 20.
## winners1 = the number of function that get points.
## payouts1 = c(13,8,5) = the number of points for the winner, 2nd place, etc.
nplayers1 = length(name1)
plot(c(0,nplayers1+1),c(lowercut1,chipstart1*nplayers1),pch=name1[1:nplayers1],
type="n",xlab="player number",ylab="chips",log="y")
chip1 = rep(chipstart1, nplayers1)
text(x=c(1:nplayers1),y=chip1,cex=2,labels=name1[1:nplayers1],srt=270,col=2)
chip7 = chip1
big1 = round(bigstart1)
sm1 = round(big1/2)
blinds1 = c(sm1,big1)
nleft1 = nplayers1
plleft = 1:nplayers1 ## plleft will be the indices of who's left.
places1 = rep(0,winners1)
stp3 = 0
while(stp3 < 1){
if(nleft1 > 20.5){
ntable1 = floor(nleft1/10)
pl1 = sample(nleft1)
tables1 = list(tbnums = rep(10,ntable1))
for(j in c(1:ntable1)){
tables1[[1+j]] = plleft[pl1[(1:10)+(j-1)*10]]
}
}
if((nleft1 < 20.5) && (nleft1 > 10.5)){
ntable1 = 2
pl1 = sample(nleft1)
thalf1 = ceiling(nleft1/2)
bhalf1 = nleft1 - thalf1
tables1 = list(tbnums = c(thalf1, bhalf1))
tables1[[2]] = plleft[pl1[1:thalf1]]
tables1[[3]] = plleft[pl1[(thalf1+1):nleft1]]
}
if(nleft1 < 10.5){
ntable1 = 1
pl1 = sample(nleft1)
tables1 = list(tbnums = nleft1)
tables1[[2]] = plleft[pl1]
## so, with 10 players or fewer, I'm re-shuffling seats every 10 hands.
}
cat("\n Big blind is ",blinds1[2],"\n")
for(i in 1:ntable1){
k = 0
for(j in 1:10){
chip3 = chip1[tables1[[1+i]]]
k = k+1
if(k > tables1[[1]][i]) k = 1
cat(j)
x32 = hand1(tables1[[1]][i], tables1[[1+i]], chip3,
blinds1, k, ntable1,myfast1,t1,t2,chipstart1,lowercut1, decision1)
chip2 = x32$chips2
chip1[tables1[[1+i]]] = chip2
chipdif8 = (abs(chip1-chip7)/pmax(chip1,chip7,rep(1,nplayers1)) > graphiccutoff1)
if(x32$draw1 > 1){
text(x=c(1:nplayers1),y=chip1,cex=2,labels=name1[1:nplayers1],srt=270,col=2)
chip7 = chip1
} else if(sum(chipdif8)>.5){
text(x=c(1:nplayers1)[chipdif8],
y=chip7[chipdif8],cex=2,col="white",labels=name1[chipdif8],srt=270)
text(x=c(1:nplayers1)[chipdif8],
y=chip7[chipdif8],cex=2,col="white",labels=name1[chipdif8],srt=270)
text(x=c(1:nplayers1)[chipdif8],
y=chip1[chipdif8],cex=2,col=2,labels=name1[chipdif8],srt=270)
chip7[chipdif8] = chip1[chipdif8]
}
## Now remove eliminated players, even if they were blinds.
## This may let some people miss their big blind. Note this.
j1 = sum(chip2 < .5) ## the number eliminated.
if(j1 > .5){
j2 = tables1[[i+1]][c(1:tables1[[1]][i])[chip2 < .5]] ## their indices
j3 = j2[order(chip3[j2],decreasing=T)] ## ordered by how much they had before
j4 = min(winners1,nleft1)
nleft1 = nleft1 - j1
if(nleft1 < winners1 - .5) places1[(nleft1+1):j4] = j3[1:(j4-nleft1)]
cat("\n Eliminated: ",j2,".....",nleft1," players remaining.\n")
tables1[[1]][i] = tables1[[1]][i] - j1
tables1[[1+i]] = tables1[[1+i]][chip2>.5]
}
if(nleft1 < 1.5) break
}
if(nleft1 < 1.5) break
}
big1 = round(blinds1[2]*inc1)
sm1 = round(big1/2)
blinds1 = c(sm1,big1)
plleft = c(1:nplayers1)[chip1>0.5]
nleft1 = length(plleft)
if(nleft1 < 1.5){
stp3 = 2
places1[1] = plleft
z2 = winners1+1
plot(c(0,nplayers1+1),c(lowercut1,chipstart1*nplayers1),
type="n",xlab="player number",ylab="chips",log="y")
text(1*nplayers1/z2,nplayers1*chipstart1, "1st:",col=4,cex=2)
text(2*nplayers1/z2,nplayers1*chipstart1, "2nd:",col=4,cex=2)
text(3*nplayers1/z2,nplayers1*chipstart1, "3rd:",col=4,cex=2)
if(z2 > 4.5) for(z1 in c(4:winners1))
text(z1*nplayers1/z2,nplayers1*chipstart1, paste(z1,"th:"),col=4,cex=2)
for(z1 in c(1:winners1)) text(z1*nplayers1/(winners1+1),
(nplayers1/2)*chipstart1,name1[places1[z1]],col=4,cex=2)
}
}
places1
} ## end of tourn1
|
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
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.