Displaying 1 result from an estimated 1 matches for "uplimit1".
2004 Jun 29
0
gambling problem
...#################################################################################
#GAMBLING- this function simulates the basic game as stated above
GAMBLING<-function(nsim)
{
#denote hearts =1,diamonds =2,spades =3,clubs =4, joker=5, castle = 6
time1<-Sys.time()
#the upper level of the pdf
uplimit1<-c(0.14,0.24,0.30,0.40,0.50,1)
uplimit2<-c(0.14,0.30,0.44,0.50,0.56,1)
uplimit3<-c(0.16,0.30,0.36,0.50,0.56,1)
payoffcombs<-matrix(c(2,6,34,2,8,48,2,13,211,2,21,127,2,19,296,0,0,0),nrow=18,ncol=1)
bet<-1
t<-matrix(data=0,nrow=length(uplimit1),ncol=3)
reelpic<-matrix(data=0,nr...