matlab編的五子棋

1、精品好資料學(xué)習(xí)推薦%五子棋程序function = five()global a h m1 n1 m2 n2 t h1 h2 h3 color score hsc ha sshf=figure(resize,off,name,five,. position,360 280 560 420,numbertitle,off);ha=axes;set(gcf,menubar,none,color,0.3 0.3 0.3)set(gca,position,0.2300 0.1100 0.7750 0.8150)set(gca,xlim,0,9,ylim,0,9)set(ha,xtick,ytick,b

2、ox,on)set(ha,color,0.7 0.6,0.6)set(ha,DataAspectRatio,1 1 1,PlotBoxAspectRatio,1 1 1)x=repmat(0;9,1,9);y=1:9;1:9;line(x,y,color,k)line(y,x,color,k)hst=uicontrol(style,text,string,Score,fontsize,30,. units,normal,position,0.02,0.55,0.26,0.14,parent,hf,. ForegroundColor,w,backgroundcolor,0.3 0.3 0.3,.

3、 fontweight,bold);hsc=uicontrol(style,text,string,0,fontsize,24,. units,normal,position,0.02,0.4,0.26,0.14,parent,hf,. ForegroundColor,w,backgroundcolor,0.3 0.3 0.3,. fontweight,bold);hbt=uicontrol(style,pushbutton,string,Restart,fontsize,18,. units,normal,position,0.02,0.16,0.26,0.14,parent,hf,. fo

4、ntweight,bold,callback,restart);color=. 1 1 0; 1 0 1; 0 1 1; 1 0 0; 0 1 0; 0 0 1; 0.7 0.3 0; ;h1=annotation(ellipse,0.04,0.84,0.06,0.08,facecolor,k);h2=annotation(ellipse,0.12,0.84,0.06,0.08,facecolor,k);h3=annotation(ellipse,0.2,0.84,0.06,0.08,facecolor,k);set(ha,buttondownfcn,select2)initializefun

5、ction initialize()global a h m1 n1 m2 n2 t h1 h2 h3 color score hsc ssa=zeros(9);h=zeros(9)*NaN;m1=;n1=;m2=;n2=;score=0;ss=0;k=rs(1:81,5);t=ceil(rand(1,5)*7);a(k)=t;m,n = ind2sub(9,9,k);y=9.5-m;x=n-0.5;for p=1:5 h(k(p)=line(x(p),y(p),marker,o,markersize,24,. markerfacecolor,color(t(p),:),markeredgec

6、olor,none,. buttondownfcn,select1);endt=ceil(rand(1,3)*7);set(h1,facecolor,color(t(1),:)set(h2,facecolor,color(t(2),:)set(h3,facecolor,color(t(3),:)function k=rs(s,n);for m=1:n t=ceil(rand*length(s); k(m)=s(t); s(t)=;endfunction select1(src,eventdata)global a h m1 n1n1=ceil(get(src,xdata);m1=ceil(9-

7、get(src,ydata);set(h(isnan(h),markeredgecolor,none)set(src,markeredgecolor,w)function select2(src,eventdata)global a h m1 n1 m2 n2 t h1 h2 h3 color score hsc ha ssif isempty(m1) | isempty(n1) returnendcp=get(src,currentpoint);n2=ceil(cp(1,1);m2=ceil(9-cp(1,2);if a(m2,n2) returnendb=a;b(m1,n1)=1;b=bw

8、label(b,4);if b(m1,n1)=b(m2,n2) returnenda(m2,n2)=a(m1,n1);a(m1,n1)=0;h(m2,n2)=h(m1,n1);h(m1,n1)=NaN;set(h(m2,n2),xdata,n2-0.5,ydata,9.5-m2,markeredgecolor,none)m1=;n1=;judgement;if sum(sum(a)0 & a(m2,n2-left-1)=a(m2,n2) left=left+1;endwhile n2+right+10 & a(m2-up-1,n2)=a(m2,n2) up=up+1;endwhile m2+d

9、own+10 & m2-lu-10 & a(m2-lu-1,n2-lu-1)=a(m2,n2) lu=lu+1;endwhile n2+rd+110 & m2+rd+10 & m2+ld+110 & a(m2+ld+1,n2-ld-1)=a(m2,n2) ld=ld+1;endwhile n2+ru+10 & a(m2-ru-1,n2+ru+1)=a(m2,n2) ru=ru+1;endif left+right+1=5 b(m2,n2-left:n2+right)=1;endif up+down+1=5 b(m2-up:m2+down,n2)=1;endif lu+rd+1=5 ind=su

10、b2ind(9,9,m2-lu:m2+rd,n2-lu:n2+rd); b(ind)=1;endif ld+ru+1=5 ind=sub2ind(9,9,m2+ld:-1:m2-ru,n2-ld:n2+ru); b(ind)=1;endif sum(sum(b) a(b)=0; delete(h(b); h(b)=NaN; score=score+sum(sum(b); set(hsc,string,num2str(score) ss=1;endfunction newglobal a h m1 n1 m2 n2 t h1 h2 h3 color score hsc hak=rs(find(a

11、),3);a(k)=t;mt,nt = ind2sub(9,9,k);y=9.5-mt;x=nt-0.5;for p=1:3 h(k(p)=line(x(p),y(p),marker,o,markersize,24,. markerfacecolor,color(t(p),:),markeredgecolor,none,. buttondownfcn,select1);endfor p=1:3 m2=mt(p); n2=nt(p); judgement;endif sum(sum(a)=0 hgo=text(1,4.5,Game Over,fontsize,36,fontweight,. bold,parent,ha); pause(3) delete(hgo); delete(h(isnan(h) set(hsc,string,0) initialize; returnendt=ceil(rand(1,3)*7);set(h1,facecolor,color(t(1),:)set(h2,facecol