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

少しだけデバッグコードを仕込んでデバッグしてみました。

print関数でTerminalに文字列を出力することができます。
C:\ForexTester2\LOGS\ForexTester.log にも同じ内容が記録されます。

Init関数、Calculate関数が呼ばれるタイミング、
Calculate関数の引数indexの値、
HOURバッファの初期値、
ロウソク足増加時のバッファの変化について確認しました。

library HourDisp;

uses
  SysUtils, Interfaces, DateUtils, graphics,
  IndicatorInterfaceUnit, TechnicalFunctions;

var
  HOUR: TIndexBuffer;

procedure Init; stdcall;
begin
  print('initinit');
  IndicatorShortName('Hour');
  SetOutputWindow(ow_SeparateWindow);
  SetFixedMinMaxValues(-1, 24);
  SetEmptyValue(100);
  AddLevel(13, psDashDot, 1, clYellow);
  AddLevel(20, psDot, 1, clBlue);

  HOUR := CreateIndexBuffer;
  IndicatorBuffers(1);
  SetIndexBuffer(0, HOUR);
end;

procedure Calculate(index: integer); stdcall;
begin
     if HOUR[index] < 24 then exit;
     HOUR[index] := HourOf(Time(index));
     print('index='+IntToStr(index)+
           ' | HOUR[2]='+FloatToStr(HOUR[2])+
           ' | HOUR[1]='+FloatToStr(HOUR[1])+
           ' | HOUR[0]='+FloatToStr(HOUR[0]));
end;

exports
Init, Calculate;

end.

実行した結果です。


最初にInit関数を実行しています。

バッファの初期値が100となっているので
SetEmptyValue関数で設定した値がバッファの初期値のようです。

Calculate関数の引数を9から0にデクリメントしながら10回実行しています。
右端がHOUR[0]になるようです。



ローソク足が1本増えると元々のHOUR[0]の値がHOUR[1]にコピーされています。
左端がHOUR[10]となって右端がHOUR[0]となっています。
勝手にシフトされているようです。

if HOUR[index] < 24 then exit;
この処理で設定済みのバッファは上書きしないようにしています。
Calculate関数が毎分実行されて
Logが多くなるのを防いでいます。