#底分序列
base_gold_ls<-c(20,50,100)
x<-as.numeric(c( names(table(TIMES))))

# 输赢倍率所对应的频率

fre_TIMES<-c(as.numeric(table(TIMES)))
#每轮玩家数目序列
num_gamers<-c(12,9,3)

RESULT_GOLD<-c()
RESULT_GOLD_LS<-list()
# 随机抽取
wl_times<-sample(x,1,replace=F,prob=fre_TIMES)
# 轮次循环,嵌套轮次内玩家循环,循环次数为当前人数/3
for (i in c(1:length(num_gamers))){ 
#本轮比赛循环，循环次数为当前人数/3
for (j in c(1: (num_gamers[i]/3))){
#胜利失败的倍数
wl_times<-sample(x,1,replace=F,prob=fre_TIMES)
# 底分
basegold<-base_gold_ls[i]
# 玩家入场分
base_gold<-1000

wl<-sample(0:1,1)
if(wl==1){ result_gold<-c(wl_times*basegold*2*1+base_gold,wl_times*basegold*-1+base_gold,wl_times*basegold*-1+base_gold)
} else {result_gold<-c(wl_times*basegold*2*-1+base_gold,wl_times*basegold*1+base_gold,wl_times*basegold*1+base_gold)
}

RESULT_GOLD<-append(RESULT_GOLD,result_gold)
#选取前n名作为下次底分
#RL<-sort(RESULT_GOLD,decreasing=T)
#RL<-RL[1:num_gamers[i]

result_gold<-c()
}



RESULT_GOLD_LS[i]<-list(RESULT_GOLD)
RESULT_GOLD<-c()    
}