####(1)

##x is the current position
CH1 <- function(x) {0}
CH2 <- function(x) {10}
CH3 <- function(x) {11}
CH4 <- function(x) {24}
CH5 <- function(x) {39}
CH6 <- function(x) {5}
CH7 <- function(x) {5*(2*ceiling(x/10+1/2)-1) %% 40}
CH8 <- function(x) {CH7(x)}
CH9 <- function(x) {if (x<=12) {28} else {12}}
CH10 <- function(x) {(x-3) %% 40}

CC1 <- function(x) {CH1(x)}
CC2 <- function(x) {CH2(x)}

isCC <- function(x) {if (x==2 | x==17 | x==33) {TRUE} else {FALSE}}
isCH <- function(x) {if (x==7 | x==22 | x==36) {TRUE} else {FALSE}}

adjust <- function(x,CH,CC,CH.th,CC.th) {
if (isCH(x)) {
CHcard = CH[(CH.th %% 16)+1 ]
if (CHcard==1) {CH1(x)}
else if (CHcard==2) {CH2(x)}
else if (CHcard==3) {CH3(x)}
else if (CHcard==4) {CH4(x)}
else if (CHcard==5) {CH5(x)}
else if (CHcard==6) {CH6(x)}
else if (CHcard==7) {CH7(x)}
else if (CHcard==8) {CH8(x)}
else if (CHcard==9) {CH9(x)}
else if (CHcard==10) {CH10(x)}
else {return(x)}
}
else if (isCC(x)) {
CCcard = CC[(CC.th %% 16)+1]
if (CCcard==1) {CC1(x)}
else if (CCcard==2) {CC2(x)}
else {return(x)}
}
else if (x==30) {
return(10)
}
else {return(x)}
}

6. Consider the probability distribution shown here. x -4 -3 -2...