forex tester2のインディケーターを自作

procedure Calculate(index: integer); stdcall;
var
   i:integer;
   sum:double;
begin
     if Bars < index + 21 then exit;
     MA1[index] := GetMA(index, 0, 5, ma_SMA, pt_Close) -
			GetMA(index, 0, 20, ma_SMA, pt_Close);
     if Bars < index + 41 then exit;
     sum := 0;
     for i:=index to index + 20 - 1 do
         sum := sum + MA1[i];
     MA2[index] := sum / 20;
end;