求助，蒙特卡洛算法

andrewhj

function allcost=Q(z)
clear
5 a4 ]2 q6 F2 Q, Xa=unifrnd(1000,2000,1,4);
for i=1:4
) j& ]5 x* w0 C1 a    for j=4:-1:i+1
        if a(j)<a(j-1)
            m=a(j);a(j)=a(j-1);a(j-1)=m;
        end
    end
end
4 v0 v  y9 b+ j' a0 W( d; [b=a;
t=z
k1=0;k2=0;
amin=a(1);bmin=b(1);
& C) D9 i( f, w/ Mwhile amin<t
3 }9 d0 T6 z! D& _, y    r=a(1)+1;a(1)=a(2)+1;a(2)=a(3)+1;a(3)=a(4)+1;
9 @1 `) s' H5 U- W9 P& P- U, S    a(4)=r+unifrnd(1000,2000);
    for i=1:4
6 C" g; h1 F, X3 X        for j=4:-1:i+1
. \$ l8 N0 W2 J8 l5 F            if a(j)<a(j-1)
0 D' ~- r2 f* ^& x& P: \2 A/ u5 _                n=a(j);a(j)=a(j-1);a(j-1)=n;
            end
        end
    end
& z" ]! a' B2 x8 w/ P    amin=a(1);
. \' u7 U; U  }" i    k1=k1+1;
end
while bmin<t
& A' _6 B8 u1 C) E  r. I) b    b(1)=bmin+unifrnd(1000,2000)+2;
    b(2)=bmin+unifrnd(1000,2000)+2;
    b(3)=bmin+unifrnd(1000,2000)+2;
    b(4)=bmin+unifrnd(1000,2000)+2;
6 h" o: Z, P* b/ J) K) V& L8 o' V    bmin=min(b);
    k2=k2+1;
end
& M7 R$ s9 f: u% Vx1=k1*30;
x2=k2*80;
4 D; V7 X8 q) [# T. Q& ]7 pallcost=[x1,x2]

$ Q2 }, R# p; I& q调用该函数无法运行，显示“Reference to a cleared variable z.”
0 W, w5 m. f. c) B# t/ p2 i不明白请高手指教，谢谢

madio

你在前面用clear把内存清理了，当然z没有值了！这个地方只想清理工作区应该用clc