CTLでシステムトレード(旧為替の一歩)
| フロントページ | 新着 | 一覧 |
<-domain ijino tamedesu

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.


でも,何か冗長な気がする...