matlab游戏编程实例(五子棋).doc

这是单机版的五子棋，做为学习用的一个matlab代码，两个人轮流下，电脑自动判别胜负。此代码为realghost开发，如有转载，请保留这部分信息。若要交流，请与 联系function five() figure(1)axis(0 12 0 12);hold onaxis offfor i = 1:11% line(1 11,i i); line(i i,1 11);endaxis equalqishou = 1; % 0boardstatus = zeros(10);% 012 while 1 hold on posflag = 1; % 1 while posflag xpos,ypos = ginput(1); xpos = 0.5*(floor(xpos)+ceil(xpos); ypos = 0.5*(floor(ypos)+ceil(ypos); if xpos=11|ypos=11% continue end rx = floor(xpos); ry = floor(ypos); if boardstatus(rx,ry)=1|boardstatus(rx,ry)=2% continue; end posflag = 0; end if qishou=1 drawthego(xpos,ypos,qishou); boardstatus(rx,ry)=1; qishou = 0; else drawthego(xpos,ypos,qishou); boardstatus(rx,ry)=2; qishou = 1; end if iswin(boardstatus,rx,ry) if qishou=1 winmsg = ; else winmsg = ; end msgbox(winmsg) return % end axis(0 12 0 12); axis equalend figure(1)axis(0 10 0 10);axis equal function drawthego(x,y,flag)% (x,y)% flag1% flag0t = 0:pi/100:2*pi;rx = x+0.5*cos(t);ry = y+0.5*sin(t);if flag=1 fill(rx,ry,r);else fill(rx,ry,k);end function w = iswin(board,x,y)% w = 0; if isempty(find(board)=0) w=2;% return;end flag = board(x,y);% %yk = 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 break; end k = k+1;endif k=5 w=1; returnend % xk = 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; end k = k+1;endif k=5 w=1; returnend % 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;endif k=5 w=1; returnendfor i = 1:10 if x-i0 break; end if y-i=5 w=1; returnend % k = 0;for i = 0:10 if x-i10 break; end if board(x-i,y+i)=flag break; end