julei.m

来自「有兴趣学系matlab的朋友」· M 代码 · 共 19 行

function y=julei(x,chidu)
[m n]=size(x);
x0=ones(1,n);
for m=1:n
    chushijulizhen=chushijulizhen(x);
    s=min(min(chushijulizhen));
    if s<chidu
        [a b]=find((chushijulizhen-s)==0);
        a=a(1);
        b=b(1);
        x(a)=(x(a)*x0(a)+x(b)*x0(b))/(x0(a)+x0(b));
        x(b)=[];
        x0(a)=x0(a)+x0(b);
        x0(b)=[];
    end
end
y=[x;x0];