MATLAB实现求解9x9数独完整源码（高分作业项目）.zip

function Re=Inference % 根据同行、同列、同box不能出现同一个数推理 Re=0; global PN Seto sudu dg for i=1:size(Seto,1) for j=1:size(Seto,2) if ~PN(i,j) for k=1:length(Seto{i,j}) if strcmp(Seto{i,j}(k),'*') %% 如果整行、列仅该位置有* s=0; for ii=1:9 if strcmp(Seto{ii,j}(k),'*') | strcmp(Seto{ii,j}(k),'1') s=s+1; end end if s==1 Seto{i,j}='000000000'; Seto{i,j}(k)='1'; PN(i,j)=1; sudu(i,j)=log10(str2num(Seto{i,j}))+1; Re=1; for iii=1:dg;fprintf(' ');end % 让递归有层次感 fprintf('%d行- %d列 填%d； %s\n',i,j,log10(str2num(Seto{i,j}))+1,'通过列 推出') return end s=0; for jj=1:9 if strcmp(Seto{i,jj}(k),'*') | strcmp(Seto{i,jj}(k),'1') Seto{i,jj}(k); s=s+1; end end if s==1 Seto{i,j}='000000000'; Seto{i,j}(k)='1'; PN(i,j)=1; sudu(i,j)=log10(str2num(Seto{i,j}))+1; Re=1; for iii=1:dg;fprintf(' ');end % 让递归有层次感 fprintf('%d行- %d列 填%d； %s\n',i,j,log10(str2num(Seto{i,j}))+1,'通过行 推出') return end %% 如果整个box…… s=0; for ii=3*floor((i-.01)/3)+1:3*floor((i-.01)/3)+3 for jj=3*floor((j-.01)/3)+1:3*floor((j-.01)/3)+3 if strcmp(Seto{ii,jj}(k),'*') | strcmp(Seto{ii,jj}(k),'1') s=s+1; end end end if s==1 Seto{i,j}='000000000'; Seto{i,j}(k)='1'; PN(i,j)=1; sudu(i,j)=log10(str2num(Seto{i,j}))+1; Re=1; for iii=1:dg;fprintf(' ');end % 让递归有层次感 fprintf('%d行- %d列 填%d； %s\n',i,j,log10(str2num(Seto{i,j}))+1,'通过九宫格 推出') return end end end end end end