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

procedure Calculate(index: integer); stdcall;
var
di : Array [ 0..51 ] of Integer;
i,j,d: integer;
begin

  if (Bars - index) < RCIPeriod3 then exit;
  if index <> 1 then exit;

  for i:=0 to RCIPeriod1 - 1 do di[i] := -2*i;

  d := 0;
  for i:=0 to RCIPeriod1 - 2 do
  begin
    for j:=i+1 to RCIPeriod1 - 1 do
    begin
      if Close(i+index) < Close(j+index) then di[i] := di[i] + 2
      else if Close(i+index) > Close(j+index) then di[j] := di[j] + 2
      else
      begin
        di[i] := di[i] + 1;  di[j] := di[j] + 1;
      end;
    end;
    d := d + (di[i] * di[i]);
  end;
  d := d + (di[RCIPeriod1 - 1] * di[RCIPeriod1 - 1]);
  RCI1[index] := (1 - (6 * d / (RCIPeriod1 * ((RCIPeriod1 * RCIPeriod1) - 1))) / 4) * 100;

  for i:=0 to RCIPeriod2 - 1 do di[i] := -2*i;
  d := 0;
  for i:=0 to RCIPeriod2 - 2 do
  begin
    for j:=i+1 to RCIPeriod2 - 1 do
    begin
      if Close(i+index) < Close(j+index) then di[i] := di[i] + 2
      else if Close(i+index) > Close(j+index) then di[j] := di[j] + 2
      else
      begin
        di[i] := di[i] + 1;  di[j] := di[j] + 1;
      end;
    end;
    d := d + (di[i] * di[i]);
  end;
  d := d + (di[RCIPeriod2 - 1] * di[RCIPeriod2 - 1]);
  RCI2[index] := (1 - (6 * d / (RCIPeriod2 * ((RCIPeriod2 * RCIPeriod2) - 1))) / 4) * 100;

  for i:=0 to RCIPeriod3 - 1 do di[i] := -2*i;
  d := 0;
  for i:=0 to RCIPeriod3 - 2 do
  begin
    for j:=i+1 to RCIPeriod3 - 1 do
    begin
      if Close(i+index) < Close(j+index) then di[i] := di[i] + 2
      else if Close(i+index) > Close(j+index) then di[j] := di[j] + 2
      else
      begin
        di[i] := di[i] + 1;  di[j] := di[j] + 1;
      end;
    end;
    d := d + (di[i] * di[i]);
  end;
  d := d + (di[RCIPeriod3 - 1] * di[RCIPeriod3 - 1]);
  RCI3[index] := (1 - (6 * d / (RCIPeriod3 * ((RCIPeriod3 * RCIPeriod3) - 1))) / 4) * 100;

end;