求助，蒙特卡洛算法

andrewhj

function allcost=Q(z)
, C# Z8 C. y- J  a8 ^/ Y, P9 D+ iclear
a=unifrnd(1000,2000,1,4);
* j9 S2 c; f" g$ Ofor i=1:4
    for j=4:-1:i+1
  y3 |# d  G; B  A; x( a        if a(j)<a(j-1)
! ~, P5 d! j: j" G8 @8 O8 F5 g            m=a(j);a(j)=a(j-1);a(j-1)=m;
  `; D9 ]0 P8 h6 y  S% }        end
1 w' P# H- b, b2 V0 S, |! \; ]    end
! r" L! J8 a$ d: M7 e5 N5 K, C+ Yend
b=a;
5 H5 `5 c8 S. \) Dt=z
4 z* L) s6 c4 ~! S! k. |! N4 M" k! n1 mk1=0;k2=0;
amin=a(1);bmin=b(1);
while amin<t
    r=a(1)+1;a(1)=a(2)+1;a(2)=a(3)+1;a(3)=a(4)+1;
    a(4)=r+unifrnd(1000,2000);
    for i=1:4
        for j=4:-1:i+1
) s3 u% a* Y, ~) o7 m( v3 q. V            if a(j)<a(j-1)
                n=a(j);a(j)=a(j-1);a(j-1)=n;
- B" z" _1 l+ W1 Z# c& r' s! X            end
        end
    end
    amin=a(1);
) c6 n7 h  C8 u    k1=k1+1;
3 m0 H: [4 a* W0 k; j) }end
while bmin<t
    b(1)=bmin+unifrnd(1000,2000)+2;
: Z  w) W5 j  f+ `1 v0 h& ]    b(2)=bmin+unifrnd(1000,2000)+2;
7 V4 p& h! E/ a9 ]    b(3)=bmin+unifrnd(1000,2000)+2;
& H9 ?- H$ k7 ~' o+ G6 {    b(4)=bmin+unifrnd(1000,2000)+2;
8 f* f8 E/ j, @  a5 g    bmin=min(b);
! t, k' ^% ?+ o& n& N4 j2 l    k2=k2+1;
end
+ @  E: ?9 a! a# I" k/ p/ dx1=k1*30;
2 m9 J: v# x; L  a  x2 ?2 |1 Bx2=k2*80;
allcost=[x1,x2]
0 k, B% @5 S$ j5 u8 v: S2 \7 a
% n5 r( T2 W- i8 x( t; Q调用该函数无法运行，显示“Reference to a cleared variable z.”
不明白请高手指教，谢谢

madio

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