请求高手帮看看程序 郁闷了一天也不知道怎么改 谢谢了

XKX1257

function [A]=my_YSPX(W)
%对截距阵进行分类后的各行进行排序
js=0; js0=0; n=length(W);
x=factorial(n)/(factorial(n-2)*factorial(2)); A=cell(1,x);
for i=1:n-1
    pd=1;
    for i1=1:js0%判断只要A{1,js0}各矩阵中若存在某一元素和i相等，则不执行
        pdjz=A{1,i1};
        pd2=any(pdjz==i);%该句有错误 提示Undefined function or method 'eq' for input arguments of type 'cell'.
        if(pd2),  pd=0;
           break%只需验证有一个就可跳出判断
        end
    end
    if(pd)
       for j=i+1:n
           if W(1,i)==W(1,j)%先找优先聚类的
              lsb=[i,j]; js=js+1; A{1,js}=lsb; C=[];
              for k=1:js, C=[C,A(1,k)]; end
              js0=js0+1; A{1,js0}=C;
           end
       end
    end
end
D=[];
for r=1:js0%记录没有聚类的
    D=[D,A(1,r)];
end
    E=setdiff(W,D); el=length(E);
for q=1:el
    js0=js0+1; A{1,js0}=E(q);
end

[ 本帖最后由 ChaChing 于 2010-5-24 11:34 编辑 ]

re-us

哪里错了？给出提示

ChaChing

注意下, 本版规则
6) 求助完整格式：出错代码和出错提示
LZ把出错提示摆在里头, 刚才注意到

any函数不支援cell格式!
还有看下, 提问的智慧！！！！(发帖前请认真阅读)
http://forum.vibunion.com/forum/viewthread.php?tid=21991

XKX1257

:@) :@) :@)