八皇后问题matlab程序_第1页
八皇后问题matlab程序_第2页
八皇后问题matlab程序_第3页
八皇后问题matlab程序_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、function y=bahuanghou();result=cell(1,8);N=100;for i=1:8resulti=1,i;end;for i=1:8for j=2:8len=length(resulti);flagss=0;%看每一行运行的时候是不是第一次new_len=len;for m=1:lenaa=resulti;bb=aam;flags=0;%看第k行是否合适for k=1:8flags=0;if length(bb)=j-2+eps%J看找到的各行的点是否不合适了%，不合适就停止讨论continue;elsecc=zeros(j-1,1);cc=bb(1:j-1,2)

2、;for kk=1:length(cc(:,1)if find(cc(kk)=k) %如果发现在同一列上，跳出循环，继续下一列flags=1;break;end;if abs(k-cc(kk)=j-kk%ffl果在斜对角线上，跳出，继续下一列 flags=1;break;end;end;if flagscontinue;end;if flagssaam=bb;j,k;%如果是第一次找到那一列，就直接在其末尾增加这个点resulti=aa;flagss=flagss+1;elsenew_len=new_len+1;%如果不是第一次找到，就要新开辟一个集合aanew_len=bb;j,k;resulti=aa;end;end;end;end;end;end;% ret=zeros(8,N);ret=zeros(8,1);%寻找我已经找到的八皇后的结果for i=1:8 aa=resulti;len=length(aa);for m=1:len bb=aam;if length(aam)=8 ret=ret bb;end;end;end;%display(ret);%把八皇后的结果写入txt 文档中进行结果保存fid=fopen(F:ang.txt,w)for i=2:length(ret)fprintf(fid,%d%d%d%d%d%d%d%drn,ret(:,i

人人文库> 全部分类> 行业资料 > 管理策划

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论