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;