用arrayfun求解八皇后问题

qibbxxt

看了萝卜的程序，http://luobo.ycool.com/post.866141.html
用剔除的思想去求解八皇后问题
决定用arrayfun来重写一下这个问题，发现arrayfun的效率并不高
这样做只为代码的简洁，欢迎大家讨论

1. 
   
2. clear;clc;close all
   
3. N=8;
   
4. T=N-2;
   
5. rows=1:N;         % 皇后所在行的位置
   
6. cols=perms(rows);  % 皇后所在列的位置
   
7. S=size(cols,1);
   
8. M=zeros(N,N,S); % 存储所以情况的矩阵
   
9. linearInd = sub2ind(size(M), repmat(rows',1,S), cols', repmat(1:S,N,1));
   
10. M(linearInd) = 1;
    
11. dv=arrayfun(@(k)max([arrayfun(@(x)sum(diag(M(:,:,k),x)),-T:T),arrayfun(@(x)sum(diag(rot90(M(:,:,k)),x)),-T:T)]),1:S);
    
12. M(:,:,dv>1)=[];
    

复制代码

feynmand

一看到arrayfun这个函数就想到了你，再一看，果然是你写的帖子。

chenzhian

1# qibbxxt 版主提供的那个萝卜的博客还可以，matlab高人，有挺多东西可以学习哦。哈哈。

rocwoods

萝卜是《MATLAB科学计算与可视化仿真宝典》的作者，哈工大博士，05年前后活跃在哈工大紫丁香MATLAB版和研学论坛MATLAB版，在网上MATLAB论坛潜水时间长的人很多都对他比较熟悉。可惜最近几年不知是研究忙还是啥的，很少露面了。

qibbxxt

恩，萝卜现在好像已经在哈工大做老师了，应该比较忙，最近也没有怎么更新日志了
看他的QQ，已经3个太阳，说明一直在隐身