原碼: CKSP:=barslast(date<>ref(date,1) or barpos=1)+1;
N:=5; CC:=C;
WMAS:C;
for i=1 to datacount do begin
SS:=0; NN:=N; if CKSP[i]<NN then NN:=CKSP[i];
for j=0 to NN-1 do begin
SS:=SS+CC[i-j]*(NN-j);
end;
WMAS[i]:=SS/(NN*(NN+1)/2);
end;
原碼: CKSP:=barslast(date<>ref(date,1) or barpos=1)+1;
N:=5; CC:=C;
WMAS:C;
for i=1 to datacount do begin
SS:=0; NN:=N; if CKSP[i]<NN then NN:=CKSP[i];
for j=0 to NN-1 do begin
SS:=SS+CC[i-j]*(NN-j);
end;
WMAS[i]:=SS/(NN*(NN+1)/2);
end;