diary/20091020
微分が動いた
プレインストールの単純平均関数を参考にして微分のコードを書き直したら,今度は動いた.
function last;
result dx(series);
vars i(number),f(number), l(number),cnt(number);
begin
f := front(close);
l := f + 1;
cnt := back(close);
if l <= cnt then begin
dx[l] := close[l]-close[f];
end;
for i:= l + 1 to cnt do begin
dx[i] := close[i] - close[i-1];
end;
end.
でも,何か冗長な気がする...

