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;
{别忘了将本网告诉您身边的朋友,向朋友传达有用资料,也是一种人情,你朋友会感谢你的。}