数独游戏程序.docVIP

%数独游戏程序，可以破解绝大部分数独题。 %用法：将所有文件复制到MATLAB工作目录下，或是将MATLAB工作目录修改为本文件夹所在路径。 %A是一个初始的99的方阵，空白处用0代替，调用TT=shudu(A),则生成结果。 function TT=fill1(A) T=A; i=1; n1=0;n2=0; flag1=judge1(T); while i10 n1=0;n2=0; for j=1:9 if T(i,j)==0i~=flag1(:,1)j~=flag1(:,2)iden(i,j,1,T)==0 n1=n1+1; end end if n1==1 for j=1:9 if T(i,j)==0i~=flag1(:,1)j~=flag1(:,2)iden(i,j,1,T)==0 T(i,j)=1; flag1=judge1(T); end end end for j=1:9 if T(j,i)==0j~=flag1(:,1)i~=flag1(:,2)iden(j,i,1,T)==0 n2=n2+1; end end if n2==1 for j=1:9 if T(j,i)==0j~=flag1(:,1)i~=flag1(:,2)iden(j,i,1,T)==0 T(j,i)=1; flag1=judge1(T); end end end if n1==1|n2==1 i=0; end i=i+1; end TT=T; function TT=fill2(A) T=A; i=1; n1=0;n2=0; flag2=judge2(T); while i10 n1=0;n2=0; for j=1:9 if T(i,j)==0i~=flag2(:,1)j~=flag2(:,2)iden(i,j,2,T)==0 n1=n1+1; end end if n1==1 for j=1:9 if T(i,j)==0i~=flag2(:,1)j~=flag2(:,2)iden(i,j,2,T)==0 T(i,j)=2; flag2=judge2(T); end end end for j=1:9 if T(j,i)==0j~=flag2(:,1)i~=flag2(:,2)iden(j,i,2,T)==0 n2=n2+1; end end if n2==1 for j=1:9 if T(j,i)==0j~=flag2(:,1)i~=flag2(:,2)iden(j,i,2,T)==0 T(j,i)=2; flag2=judge2(T); end end end if n1==1|n2==1 i=0; end i=i+1; end TT=T; function TT=fill3(A) T=A; i=1; n1=0;n2=0; flag3=judge3(T); while i10 n1=0;n2=0; for j=1:9 if T(i,j)==0i~=flag3(:,1)j~=flag3(:,2)iden(i,j,3,T)==0 n1=n1+1; end end if n1==1 for j=1:9 if T(i,j)==0i~=flag3(:,1)j~=flag3(:,2)iden(i,j,3,T)==0 T(i,j)=3; flag3=judg