matlab编程(五子棋)

1、精品文档 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第一个为起始值，第二个为增量(增量为1，冒号省略)，第三个

2、为结束 值 line(1 11,i i);画网格 line(1,2,3,4) 将画出 (1,3) 到(2,4) 的一条直线 line(i i,1 11); end axis 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(Message)创

6、建一个对话框，根据 figure 窗体大小自动将 Message换行。Message可以是一个子符串向量、子符串矩阵或 者元胞数组，弹出赢家是红方或黑方的或和棋的对话框 return end axis(0 12 0 12); 坐标轴范围控制命令，axis(xmin xmax ymin ymax)用 于设置图表各坐标轴的刻度范围 axis equal end 横纵坐标使用相同的刻度(使每个格子是正方形) figure(1) axis(0 10 0 10); 创建一个新的图形对象 坐标轴范围控制命令，axis(xmin xmax ymin ymax)用于设 置图表各坐标轴的刻度范围 axis eq

7、ual 横纵坐标使用相同的刻度(使每个格子为正方形)【上三行为无效语句在程序中 无作用】 function drawthego(x,y,flag) t = 0:pi/100:2*pi; 在(x,y)处画一个棋子flag取1时画红棋flag取0时画黑棋 画最外面一层的圆周，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

8、,x3,x4,y1,y2,y3,y4 区域内的颜色填充为黑色， k 表示 黑色 r 是红色， flag 取 1画红色， flag 取0画黑色 else fill(rx,ry,k); end function w = iswin(board,x,y) w = 0; if isempty(find(board)=0) 判断是否赢棋 棋盘上下满棋了，判为和棋， find(A) 计算一个数组，它包含数 组A中非零元素的索引【此if循环判断和棋有误，find(A) 函数返回的是行列向量】，应该统计棋子个数，若为棋 盘的最大容量就和棋 w=2; return; end 修改如下：在刚下棋的后面判断 fla

9、g = board(x,y);刚下的棋 sum=0；for i=1: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; end if k=5 w=1; return end for i = x-1:-1:1 i

10、f board(i,y)=flag 统计从此子开始，横向到左边界的同色个数 判断在此过程中，棋子与刚下的棋的颜色是否一样，不一样就跳出 循环 break; end k = k+1; end if k=5 w=1; return end k = 0; for i = y:10统计从此子开始，纵向到上边界的同色个数 if board(x,i)=flag 判断在此过程中，棋子与刚下的棋的颜色是否一样，不一样就跳出 循环 break; end k = k+1; end if k=5 w=1; return end for i = y-1:-1:1 if board(x,i)=flag 统计从此子开始，

11、纵向到下边界的同色个数 判断在此过程中，棋子与刚下的棋的颜色是否一样，不一样就跳出 循环 break; end k = k+1; end if k=5 w=1; return end k = 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; end if k=5 w=1; return end for i = 1:10统计主对角线，斜向下同色子的个数 if x-i0 break; end if y-i=5 w=1; return end k = 0;统计副对角线，斜向上同色子的个数 for i = 0:10 if x-i10 break; end if board(x-i,y+i)=flag 判断在此过程中，棋子与刚下的棋的颜色是否一样，不一样就 跳出循环 break; end