求助，蒙特卡洛算法

andrewhj

function allcost=Q(z)
9 ]" e) k! x( u" i7 Qclear
a=unifrnd(1000,2000,1,4);
for i=1:4
    for j=4:-1:i+1
) k5 x  E. z5 G  K! E1 S+ Q5 P        if a(j)<a(j-1)
            m=a(j);a(j)=a(j-1);a(j-1)=m;
        end
    end
; |, ?3 [" Z% X/ e5 M1 t8 @9 q- M0 Yend
/ H* T% V9 B- l* C( ]( L0 t  ob=a;
t=z
k1=0;k2=0;
* A- ~0 q: q# j. u: u0 u8 e1 camin=a(1);bmin=b(1);
8 b8 V$ y9 r7 q; o7 cwhile amin<t
    r=a(1)+1;a(1)=a(2)+1;a(2)=a(3)+1;a(3)=a(4)+1;
& y, b8 o; r  [    a(4)=r+unifrnd(1000,2000);
- b: @8 |0 R. _* N( n- j    for i=1:4
# B3 W' m$ E' \5 y8 K# y5 R        for j=4:-1:i+1
            if a(j)<a(j-1)
7 P. C5 W3 d4 {" b  R                n=a(j);a(j)=a(j-1);a(j-1)=n;
) Z7 \) Y; P) ^0 t& d$ P: G8 e5 D            end
' \1 v) R1 ^; z8 @0 l        end
    end
    amin=a(1);
    k1=k1+1;
end
while bmin<t
    b(1)=bmin+unifrnd(1000,2000)+2;
    b(2)=bmin+unifrnd(1000,2000)+2;
7 t4 i9 K9 M5 k; O    b(3)=bmin+unifrnd(1000,2000)+2;
    b(4)=bmin+unifrnd(1000,2000)+2;
    bmin=min(b);
2 q. K- h7 [. y    k2=k2+1;
  \- ]9 [+ g4 Vend
/ u& ~# L# W5 |4 t' Lx1=k1*30;
x2=k2*80;
# h5 N* i: [$ D- M0 @% n8 ^$ Nallcost=[x1,x2]
6 b- J0 V2 g' @& B- l6 ^. _
! z) E2 E( t: \7 v  k. a6 P调用该函数无法运行，显示“Reference to a cleared variable z.”
不明白请高手指教，谢谢

madio

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