双人对战版五子棋Matlab程序.docx

function fivechess1()figure(color,0.8 0.65 0.5)axis(0 16 0 16);hold onfor i = 1:15 line(1 15,i i,Color,k); line(i i,1 15,Color,k);endaxis tightaxis equalaxis offqishou = 0;boardstatus = zeros(15);while 1 hold on posflag = 1; while posflag xpos,ypos = ginput(1); if xpos= 0.5*(floor(xpos)+ceil(xpos) xpos = ceil(xpos); elseif xpos= 0.5*(floor(ypos)+ceil(ypos) ypos = ceil(ypos); elseif ypos 0.5*(floor(ypos)+ceil(ypos) ypos = floor(ypos); else continue end if xpos15|ypos15 continue end rx = xpos; ry = ypos; if boardstatus(rx,ry)=1|boardstatus(rx,ry)=2 continue; end posflag = 0; end if qishou=0 drawthego(xpos,ypos,qishou); boardstatus(rx,ry)=1; qishou = 1; else drawthego(xpos,ypos,qishou); boardstatus(rx,ry)=2; qishou = 0; end if iswin(boardstatus,rx,ry)=1 if qishou=1 winmsg = black win; else winmsg = white win; end msgbox(winmsg) return end if iswin(boardstatus,rx,ry)=2 winmsg = equal; msgbox(winmsg) return end axis(0 12 0 12); axis equal axis tightend figure(1)axis(0 10 0 10);axis equalfunction drawthego(x,y,flag)t = 0:pi/100:2*pi;rx = x+0.42*cos(t);ry = y+0.42*sin(t);if flag=1 fill(rx,ry,w);else fill(rx,ry,k);end function w = iswin(board,x,y)w = 0;flag = board(x,y);k = 0; for i = x:15 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; returnendk = 0;for i = y:15 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; returnendk = 0;for i = 0:15 if x+i15 break end if y+i15 break; end if board(x+i,y+i)=flag break; end k = k+1;endif k=5 w=1; returnendfor i = 1:15 if x-i=0 break; end if y-i=5 w=1; returnendk = 0;for i = 0:15 if x-i15 break; end if board(x-i,y+i)=flag break; end k = k+1;endif k=5 w=1; return