八皇后问题matlab程序.doc

精品文档 精品文档 PAGE PAGE4 精品文档 PAGE functiony=bahuanghou(); result=cell(1,8); N=100; fori=1:8 result{i}={[1,i]}; end; fori=1:8 forj=2:8 len=length(result{i}); flagss=0;%看每一行运行的时候是不是第一次 new_len=len; form=1:len aa=result{i}; bb=aa{m}; flags=0;%看第k行是否合适 fork=1:8 flags=0; iflength(bb)=j-2+eps%看找到的各行的点是否不合适了 %，不合适就停止议论 continue; else 1/4 cc=zeros(j-1,1); cc=bb(1:j-1,2); forkk=1:length(cc(: ,1)) iffind(cc(kk)==k)%如果发现在同一列上，跳出循环，持续下一列 flags=1; break; end; ifabs(k-cc(kk))==j-kk%如果在斜对角线上，跳出，持续下一列 flags=1; break; end; end; ifflags continue; end; if~flagss aa{m}=[bb;j,k];%如果是第一次找到那一列，就直接在其末尾增加这个点 result{i}=aa; flagss=flagss+1; else new_len=new_len+1;%如果不是第一次找到，就要新开辟一个会合 aa{new_len}=[bb;j,k]; 2/4 result{i}=aa; end; end; end; end; end; end; ret=zeros(8,N); ret=zeros(8,1); %寻找我已经找到的八皇后的结果 fori=1:8 aa=result{i}; len=length(aa); form=1:len bb=aa{m}; iflength(aa{m})==8 ret=[retbb]; end; end; end; %display(ret); 3/4 %把八皇后的结果写入 txt文档中进行结果保留 fid=fopen(F: \ang.txt,w) fori=2:length(ret) fprintf(fid,%d%d%d%d%d%d%d%d\r\n,ret(: ,i)); ifmod(i,2) fprintf(fid,\r\n); end; end; size(ret) 4/4