order.m

这是一个起重机智能防摇控制系统运用神经网络TOOLBOX的simulink仿真程序源码

function h=order(x)
l=length(x);
l1=prod(x,2);
h=[];
for i=1:l;
    a=l1/prod(x(1:i),2);
    b=l1/x(i)/a;
    c=[];
    m=[];
    for k=1:x(i);
        c=[c;k*ones(a,1)];
    end
    for j=1:b;
        m=[m;c];
    end
    h=[h,m];
end
return