数学建模纸牌游戏21点(蒙特卡罗法)精讲.ppt

数学建模 纸牌游戏21点 一.21点的蒙特卡罗算法 第1步 初始化：COUNTER=0. 第2步 得到[1，13]内的随机数x1,x2,y1,y2 计算x1,x2的和SUM1（玩家总点数 ）， 的和SUM2（庄家总点数）；同时庄家现出自己的第一张牌 . 第3步 判断x1的值，若＞10，则将其值改为10，并重新计算SUM1. 第4步 判断x2的值，若＞10，则将其值改为10，并重新计算SUM1. 第5步 判断y1的值，若＞10，则将其值改为10，并重新计算SUM2. 第6步 判断y2的值，若＞10，则将其值改为10，并重新计算SUM2. 第7步 判断x1的值是否为1，若等于1将其值改为11，重新计算SUM1，并判断SUM1是否大于21，若大于21则将x1改为1，并重新计算SUM1，若没有大于21则继续第9步;若x1不为1，直接进行第9步. 第8步 判断x2的值是否为1，若等于1将其值改为11，重新计算SUM1，并判断SUM1是否大于21，若大于21则将x2改为1，并重新计算SUM1，若没有大于21则继续第10步;若x2不为1，直接进行第10步. 第9步 判断y1的值是否为1，若等于1将其值改为11，重新计算SUM2，并判断SUM2是否大于21，若大于21则将y1改为1，并重新计算SUM2，若没有大于21则继续第11步;若y1不为1，直接进行第11步. 第10步 判断y2的值是否为1，若等于1将其值改为11，重新计算SUM2，并判断SUM2是否大于21，若大于21则将y2改为1，并重新计算SUM2，若没有大于21则继续第12步;若y2不为1，直接进行第12步. 第11步 玩家判断SUM1是否大于等于18或大于庄家第一张牌y1的两倍，若是则玩家停止取牌，跳到第14步；若没有则继续取牌，得到[1，13]内的随机数xi，进行第13步. 第12步 同第4步和第8步，判断xi的值，若＞10，则将其值改为10，并将其值加到SUM1；接着判断xi的值是否为1，若等于1将其值改为11，重新计算SUM1，并判断SUM1是否大于21，若大于21则将xi改为1，并重新计算SUM1，若没有大于21则回到第12步;若xi不为1，直接进行第12步. 第13步 庄家判断SUM2是否大于16，若是则庄家不取牌，则跳到第16步；否则庄家取牌，得到[1，13]内的随机数yi，进行第15步. 第14步 同第6步和第10步，判断yi的值，若＞10，则将其值改为10，并将其值加到SUM2；接着判断yi的值是否为1，若等于1将其值改为11，重新计算SUM1，并判断SUM2是否大于21，若大于21则将yi改为1，并重新计算SUM2，若没有大于21则回到第14步;若yi不为1，直接回到第14步. 第15步 比较SUM1和SUM2的大小， If ( SUM121SUM221) or （SUM1=21SUM2=21），则为平局，得分SCORE=0； If SUM1=21UM2≠21，则玩家赢，得分SCORE=3； If (SUM2=21SUM2≠21) or (21SUM2SUM1)，则庄家赢，得分SCORE=-2； If 21SUM1SUM2 则玩家赢，得分SCORE=2； If 21SUM1=SUM2 则为平局，SCORE =0. 第16步 输出得分SCORE. 停止. 二．Matlab程序 function y=dian21() a=ones(8,13); %产生8*13的矩阵 numz=0; numw=0; pz=[]; pw=[]; totz=0; %庄家总点数 totw=0; %玩家总点数 [numz,pz,a]=choose(numz,pz,a); totz=totz+pz(numz); [numz,pz,a]=choose(numz,pz,a); totz=totz+pz(numz); [numw,pw,a]=choose(numw,pw,a); totw=totw+pw(numw); [numw,pw,a]=choose(numw,pw,a); totw=totw+pw(numw); while 1 if (totw18)|(totw (2*pz(1)) ) break; else [numw,pw,a]=choose(num