input:n(20);

JZ:MA(C,N),linethick0;
cc:c,linethick0;
nn:o,linethick0;
ss:=0;
for i=0 to n-1 do begin
nn[barpos-i]:=(cC[barpos-i]-jz[barpos])^2;
end
for k=0 to n-1 do begin
?ss:=nn[barpos-k]+ss;
end

BZC:SQRT(ss/(N-1)),colorwhite,linethick0;
可以用下面的函數做個驗證

BZC2:STD(C,N),colorwhite,linethick0;

?

?

{別忘了將本網告訴您身邊的朋友，向朋友傳達有用資料，也是一種人情，你朋友會感謝你的。}

?