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.
でも,何か冗長な気がする...