求助，蒙特卡洛算法

andrewhj

function allcost=Q(z)
8 z" p/ ]' i3 s! [clear
a=unifrnd(1000,2000,1,4);
2 j# ^) Y/ V4 H( w" ofor i=1:4
. x' m# ?. v# G1 m( K- n6 ~! G1 @    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
) K8 `8 h3 [: z. e1 h    end
end
. w& {. U, A3 N% rb=a;
t=z
k1=0;k2=0;
$ n& W3 b: C' r. ]! d# ^% z& [* ?, \amin=a(1);bmin=b(1);
$ e- T$ ]) T4 g, b" Zwhile 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);
% U$ P% F/ @+ E  @. e( b    for i=1:4
( Y1 n) W  Y0 |' j        for j=4:-1:i+1
) r' S8 t% ^- {  P6 i5 k1 ]! q! K            if a(j)<a(j-1)
                n=a(j);a(j)=a(j-1);a(j-1)=n;
& D( L' Z; j4 j6 g3 L2 ^6 L/ b- B/ P            end
! a0 U# l4 o1 \5 E% g' U* J        end
: {& a  g, {1 }. V    end
4 `. n7 k4 ?: Y8 S4 U2 t. `    amin=a(1);
* K# t* \! d& m) V# F    k1=k1+1;
end
while bmin<t
    b(1)=bmin+unifrnd(1000,2000)+2;
    b(2)=bmin+unifrnd(1000,2000)+2;
  E) P; B" i! F+ k" t    b(3)=bmin+unifrnd(1000,2000)+2;
    b(4)=bmin+unifrnd(1000,2000)+2;
- }3 H# ^& ~) {# v    bmin=min(b);
    k2=k2+1;
& H% _+ J! A" Z3 Rend
x1=k1*30;
$ O1 K. v+ \! i  D$ J7 a; b. u7 s3 D) Bx2=k2*80;
allcost=[x1,x2]

调用该函数无法运行，显示“Reference to a cleared variable z.”
4 }* P2 B8 Z6 z% k' x8 ]2 \3 M不明白请高手指教，谢谢

madio

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