《matlab编程(五子棋)共6页word资料.doc》由会员分享，可在线阅读，更多相关《matlab编程(五子棋)共6页word资料.doc（6页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、如有侵权，请联系网站删除，仅供学习与交流matlab编程(五子棋)【精品文档】第 6 页function five() M文件的一种类型，以function开启的函数文件，另一种是把一系列命令结合在一起的一般M文件 figure(1) 创建一个新的图形对象axis(0 12 0 12); 坐标轴范围控制命令，axis(xmin xmax ymin ymax)用于设置图表各坐标轴的刻度范围hold on 图形保持功能，当前坐标轴和图形都将保持，此后绘制的图形都将添加在这个图形之上，并且自动调整坐标轴的范围axis off 取消坐标轴背景，在运行的图中不显示坐标for i = 1:11 a:b:c
2、第一个为起始值，第二个为增量（增量为1，冒号省略），第三个为结束值 line(1 11,i i); 画网格line(1,2,3,4)将画出(1,3)到(2,4)的一条直线 line(i i,1 11);endaxis equal 横纵坐标使用相同的刻度(使每一个格子成为正方形)qishou = 1; 判断棋手的颜色，开始的时候是红色，取0时是黑色boardstatus = zeros(10); 棋盘状态gt矩阵，取0为空，取1为黑，取2为红zeros(10)将画出10*10的零阵，代表棋盘上的100个位置while 1 hold on posflag = 1; 用于判断下的棋是否有效，取1说明
3、下的棋无效，要重新下 while posflag xpos,ypos = ginput(1); 能从当前的坐标中读取n个点并返回这n个点的x,y坐标，均为n x1向量,程序运行时，在界面鼠标会以一个十字线移动，便是ginput(x)的功能 xpos = 0.5*(floor(xpos)+ceil(xpos); x，y为圆心，floor(x)地板函数，即舍去正小数至最近整数 ypos = 0.5*(floor(ypos)+ceil(ypos); ceil(x)天花板函数，即加入正小数至最近整数，例如x=9.5，floo(x)=9,ceil(x)=10 if xpos=11|ypos=11 点到棋
4、盘外了，回到上面的循环 continue end for n=1:10 判断棋子是否下到边界，若在边线上，判断无效，继续 if xpos=n|ypos=n continue end rx = floor(xpos); boardstatus是10*10零阵从1*1开始，所以用floor函数 ry = floor(ypos); if boardstatus(rx,ry)=1|boardstatus(rx,ry)=2 该位置已经有棋子 continue; 回到上面的循环 end posflag = 0; 跳出循环 end if qishou=1 drawthego(xpos,ypos,qishou
5、); boardstatus(rx,ry)=1; 此空为红棋 qishou = 0; 轮到黑棋下 else drawthego(xpos,ypos,qishou); boardstatus(rx,ry)=2; 此空位黑棋 qishou = 1; 轮到红棋下 end if iswin(boardstatus,rx,ry)=1 if qishou=1 winmsg = 黑棋连成了五颗，黑棋胜！; else winmsg = 红棋连成了五颗，红棋胜！; end if iswin(boardstatus,rx,ry)=2 winmsg = 和棋; msgbox(winmsg) msgbox(Messa
6、ge) 创建一个对话框，根据figure窗体大小自动将Message换行。Message可以是一个字符串向量、字符串矩阵或者元胞数组，弹出赢家是红方或黑方的或和棋的对话框 return endaxis(0 12 0 12); 坐标轴范围控制命令，axis(xmin xmax ymin ymax)用 于设置图表各坐标轴的刻度范围 axis equal 横纵坐标使用相同的刻度（使每个格子是正方形）endfigure(1) 创建一个新的图形对象axis(0 10 0 10); 坐标轴范围控制命令，axis(xmin xmax ymin ymax)用于设 置图表各坐标轴的刻度范围 axis equal
7、 横纵坐标使用相同的刻度（使每个格子为正方形）【上三行为无效语句在程序中无作用】function drawthego(x,y,flag) 在(x,y)处画一个棋子 flag取1时画红棋 flag取0时画黑棋t = 0:pi/100:2*pi; 画最外面一层的圆周，x，y是圆心0.5为半径，其中增量只要足够小就行不必非取pi/100，若想要画到格子的点上，只需将圆心移到格点坐标rx = x+0.5*cos(t); ry = y+0.5*sin(t);if flag=1 fill(rx,ry,r); fill(x1,x2,x3,x4,y1,y2,y3,y4,k) x1,x2,x3,x4,y1,y2
8、,y3,y4区域内的颜色填充为黑色，k表示黑色r是红色，flag取1画红色，flag取0画黑色 else fill(rx,ry,k);endfunction w = iswin(board,x,y) 判断是否赢棋w = 0; if isempty(find(board)=0) 棋盘上下满棋了，判为和棋，find(A)计算一个数组，它包含数组A中非零元素的索引【此if循环判断和棋有误，find(A)函数返回的是行列向量】，应该统计棋子个数，若为棋盘的最大容量就和棋 w=2; return;end修改如下：在刚下棋的后面判断flag = board(x,y); 刚下的棋sum=0；for i=1:
9、10 for j=1:10 if boardstatus(i,j)=1|boardstatus(i,j)=2 该位置已经有棋子 sum=sum+1；if sum=100 w=2;return;k = 0; 统计连在一起的棋的个数for i = x:10 统计从此子开始，横向到右边界的同色个数 if board(i,y)=flag 判断在此过程中，棋子与刚下的棋的颜色是否一样，不一样就跳出循环 break end k = k+1;endif k=5 w=1; returnendfor i = x-1:-1:1 统计从此子开始，横向到左边界的同色个数 if board(i,y)=flag 判断在此
10、过程中，棋子与刚下的棋的颜色是否一样，不一样就跳出循环 break; end k = k+1;endif k=5 w=1; returnendk = 0;for i = y:10 统计从此子开始，纵向到上边界的同色个数 if board(x,i)=flag 判断在此过程中，棋子与刚下的棋的颜色是否一样，不一样就跳出循环 break; end k = k+1;endif k=5 w=1; returnendfor i = y-1:-1:1 统计从此子开始，纵向到下边界的同色个数 if board(x,i)=flag 判断在此过程中，棋子与刚下的棋的颜色是否一样，不一样就跳出循环 break; e
11、nd k = k+1;endif k=5 w=1; returnendk = 0; 统计主对角线，斜向上同色子的个数for i = 0:10 if x+i10 break end if y+i10 break; end if board(x+i,y+i)=flag 判断在此过程中，棋子与刚下的棋的颜色是否一样，不一样就跳出循环 break; end k = k+1;endif k=5 w=1; returnendfor i = 1:10 统计主对角线，斜向下同色子的个数 if x-i0 break; end if y-i=5 w=1; returnendk = 0; 统计副对角线，斜向上同色子的个数for i = 0:10 if x-i10 break; end if board(x-i,y+i)=flag 判断在此过程中，棋子与刚下的棋的颜色是否一样，不一样就跳出循环 break; end k = k+1;endif k=5 w=1; returnendfor i = 1:10 统计副对角线，斜向下同色子的个数 if x+i10 break; end if y-i=5 w=1; returnend