【MQL5】iFractals関数について

int iFractals(
  string symbol,          // 銘柄名
  ENUM_TIMEFRAMES period  // 期間
);

//+------------------------------------------------------------------+
//|                                            Demo_iFractals.mq5    |
//|                        Copyright 2011, MetaQuotes Software Corp. |
//|                                             https://www.MQL5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2000-2024, MetaQuotes Ltd." // 著作権情報
#property link      "https://www.mql5.com"                 // リンク情報
#property version   "1.00"                                 // バージョン情報
#property description "The indicator demonstrates how to obtain data" // インジケータの説明
#property description "of indicator buffers for the iFractals technical indicator."
#property description "A symbol and timeframe used for calculation of the indicator,"
#property description "are set by the symbol and period parameters."
#property description "The method of creation of the handle is set through the 'type' parameter (function type)."

#property indicator_chart_window   // インジケータをチャートウィンドウに表示
#property indicator_buffers 2      // インジケータバッファの数を指定
#property indicator_plots   2      // インジケータプロットの数を指定

//--- FractalUp プロット
#property indicator_label1 "FractalUp"   // プロット1のラベル
#property indicator_type1   DRAW_ARROW   // プロット1の描画タイプ
#property indicator_color1  clrBlue      // プロット1の色
//--- FractalDown プロット
#property indicator_label2 "FractalDown" // プロット2のラベル
#property indicator_type2   DRAW_ARROW   // プロット2の描画タイプ
#property indicator_color2  clrRed       // プロット2の色

//+------------------------------------------------------------------+
//| 入力パラメータ                                                     |
//+------------------------------------------------------------------+
input string symbol = "EURUSD";                   // シンボル（銘柄名）
input ENUM_TIMEFRAMES period = PERIOD_H1;         // 時間軸
//--- インジケータバッファ
double FractalUpBuffer[];
double FractalDownBuffer[];
//--- iFractals インジケータハンドルを格納する変数
int FractalsHandle;
//+------------------------------------------------------------------+
//| カスタムインジケータを初期化する関数                                |
//+------------------------------------------------------------------+
int OnInit()
{
  //--- 配列のインジケータバッファへの割り当て
  SetIndexBuffer(0, FractalUpBuffer, INDICATOR_DATA);
  SetIndexBuffer(1, FractalDownBuffer, INDICATOR_DATA);
  //--- PLOT_ARROWプロパティのコードを Wingdings 文字セットからの記号を使用して設定
  PlotIndexSetInteger(0, PLOT_ARROW, 217); // 上矢印
  PlotIndexSetInteger(1, PLOT_ARROW, 218); // 下矢印
  //--- フラクタルインジケータのハンドルを作成
  FractalsHandle = iFractals(symbol, period);
  //--- ハンドルが無効な場合
  if (FractalsHandle == INVALID_HANDLE)
  {
    //--- エラーメッセージを出力
    Print("フラクタルインジケータのハンドル取得に失敗しました。エラーコード: ", GetLastError());
    return (INIT_FAILED);
  }
  return (INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| カスタムインジケータの反復関数                                    |
//+------------------------------------------------------------------+
int OnCalculate(
  const int rates_total,           // 全てのレート数
  const int prev_calculated,       // 以前に計算されたレート数
  const datetime &time[],          // 時刻配列
  const double &open[],            // 始値配列
  const double &high[],            // 高値配列
  const double &low[],             // 安値配列
  const double &close[],           // 終値配列
  const long &tick_volume[],       // ティックボリューム配列
  const long &volume[],            // 取引量配列
  const int &spread[]              // スプレッド配列
)
{
  //--- フラクタルインジケータの上矢印データをコピー
  int copied = CopyBuffer(FractalsHandle, 0, 0, rates_total, FractalUpBuffer);
  if (copied <= 0)
  {
    //--- エラーメッセージを出力
    Print("フラクタルインジケータのデータコピーに失敗しました。エラーコード: ", GetLastError());
    return (0);
  }
  //--- フラクタルインジケータの下矢印データをコピー
  copied = CopyBuffer(FractalsHandle, 1, 0, rates_total, FractalDownBuffer);
  if (copied <= 0)
  {
    //--- エラーメッセージを出力
    Print("フラクタルインジケータのデータコピーに失敗しました。エラーコード: ", GetLastError());
    return (0);
  }
  return (rates_total);
}
//+------------------------------------------------------------------+
//| インジケータ初期化解除関数                                        |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
  //--- インジケータハンドルを解放
  if (FractalsHandle != INVALID_HANDLE)
  {
    IndicatorRelease(FractalsHandle);
  }
}

#property indicator_chart_window   // インジケータをチャートウィンドウに表示
#property indicator_buffers 2      // インジケータバッファの数を指定
#property indicator_plots   2      // インジケータプロットの数を指定

//--- FractalUp プロット
#property indicator_label1 "FractalUp"   // プロット1のラベル
#property indicator_type1   DRAW_ARROW   // プロット1の描画タイプ
#property indicator_color1  clrBlue      // プロット1の色
//--- FractalDown プロット
#property indicator_label2 "FractalDown" // プロット2のラベル
#property indicator_type2   DRAW_ARROW   // プロット2の描画タイプ
#property indicator_color2  clrRed       // プロット2の色

//+------------------------------------------------------------------+
//| 作成を処理する方法の列挙                                              |
//+------------------------------------------------------------------+
enum Creation
{
  Call_iFractals,         // iFractals を使用する
  Call_IndicatorCreate    // IndicatorCreateを使用する
};
//--- 入力パラメータ
input Creation type = Call_iFractals;           // 関数の種類
input string symbol = " ";                      // シンボル
input ENUM_TIMEFRAMES period = PERIOD_CURRENT;  // 時間軸
//--- インジケータバッファ
double FractalUpBuffer[];
double FractalDownBuffer[];
//--- iFractals インジケータハンドルを格納する変数
int handle;
//--- 格納に使用される変数
string name = symbol;
//--- チャートでのインジケータ名
string short_name;
//--- フラクタルインジケータに値の数を保存
int bars_calculated = 0;

int OnInit()
{
  //--- 配列のインジケータバッファへの割り当て
  SetIndexBuffer(0, FractalUpBuffer, INDICATOR_DATA);
  SetIndexBuffer(1, FractalDownBuffer, INDICATOR_DATA);
  //--- PLOT_ARROWプロパティのコードを Wingdings 文字セットからの記号を使用して設定
  PlotIndexSetInteger(0, PLOT_ARROW, 217); // 上矢印
  PlotIndexSetInteger(1, PLOT_ARROW, 218); // 下矢印
  //--- インジケータが描画するシンボルを決める
  name = symbol;
  //--- 左右のスペースを削除する
  StringTrimRight(name);
  StringTrimLeft(name);

//---「name」文字列の長さがゼロになった場合
if(StringLen(name) == 0)
{
  //--- インジケータが接続されているチャートのシンボルを取る
  name = _Symbol;
}
//--- インジケータハンドルを作成する
if(type == Call_iFractals)
  handle = iFractals(name, period);
else
  handle = IndicatorCreate(name, period, IND_FRACTALS);
//--- ハンドルが作成されなかった場合
if(handle == INVALID_HANDLE)
{
  //--- 失敗した事実とエラーコードを出力する
  PrintFormat("Failed to create handle of the iFractals indicator for the symbol %s/%s, error code %d",
              name,
              EnumToString(period),
              GetLastError());
  //--- インジケータが早期に中止された
  return(INIT_FAILED);
}

if(StringLen(name) == 0)
{
  name = _Symbol;
}

if(type == Call_iFractals)
  handle = iFractals(name, period);
else
  handle = IndicatorCreate(name, period, IND_FRACTALS);

if(handle == INVALID_HANDLE)
{
  PrintFormat("Failed to create handle of the iFractals indicator for the symbol %s/%s, error code %d",
              name,
              EnumToString(period),
              GetLastError());
  return(INIT_FAILED);
}

PrintFormat("Failed to create handle of the iFractals indicator for the symbol %s/%s, error code %d",
            name,
            EnumToString(period),
            GetLastError());

//--- フラクタルインジケータが計算された銘柄/時間軸を表示
short_name = StringFormat("iFractals(%s/%s)", name, EnumToString(period));
IndicatorSetString(INDICATOR_SHORTNAME, short_name);
//--- 通常のインジケータの初期化
return(INIT_SUCCEEDED);
}

//+------------------------------------------------------------------+
//| カスタム指標の反復関数                                                |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
{
  //--- iFractals インジケータから複製された値の数
  int values_to_copy;
  //--- インジケータで計算された値の数を決める
  int calculated = BarsCalculated(handle);
  if(calculated <= 0)
  {
    PrintFormat("BarsCalculated() returned %d, error code %d", calculated, GetLastError());
    return(0);
  }

int values_to_copy;

int calculated = BarsCalculated(handle);
if(calculated <= 0)
{
  PrintFormat("BarsCalculated() returned %d, error code %d", calculated, GetLastError());
  return(0);
}

PrintFormat("BarsCalculated() returned %d, error code %d", calculated, GetLastError());

//--- これがインジケータ計算の初めであるか iFractals インジケータの値の数が変更した
//---または、2つ以上のバーのインジケータの計算が必要である場合（価格履歴で何かが変更された)
if(prev_calculated == 0 || calculated != bars_calculated || rates_total > prev_calculated + 1)
{
  //--- もし FractalUpBuffer 配列が銘柄/期間で iFractalsインジケータの値の数より大きい場合、全体のコピーはしない
  //--- 他の場合、インジケータバッファサイズより少ない量をコピーをする
  if(calculated > rates_total) 
    values_to_copy = rates_total;
  else 
    values_to_copy = calculated;
}
else
{
  //--- これは初回の計算ではなく、
  //--- 前回の OnCalculate() から、一以上のバーが加えられてない。
  values_to_copy = (rates_total - prev_calculated) + 1;
}

if(prev_calculated == 0 || calculated != bars_calculated || rates_total > prev_calculated + 1)

if(calculated > rates_total) 
  values_to_copy = rates_total;
else 
  values_to_copy = calculated;

else
{
  values_to_copy = (rates_total - prev_calculated) + 1;
}

//--- フラクタルインジケータの値で FractalUpBuffer 及び FractalDownBuffer 配列を記入する
//--- FillArrayFromBuffer が false を返した場合、情報の準備が終わっていないので操作を終了する
if(!FillArraysFromBuffers(FractalUpBuffer, FractalDownBuffer, handle, values_to_copy)) 
  return(0);
//--- メッセージを形成する
string comm = StringFormat("%s ==>  Updated value in the indicator %s: %d",
                           TimeToString(TimeCurrent(), TIME_DATE | TIME_SECONDS),
                           short_name,
                           values_to_copy);
//--- チャートにサービスメッセージを表示する
Comment(comm);
//--- フラクタルインジケータの値の数を覚える
bars_calculated = calculated;
//--- prev_calculated 値を次の関数呼び出しのために返す
return(rates_total);
}

if(!FillArraysFromBuffers(FractalUpBuffer, FractalDownBuffer, handle, values_to_copy))
  return(0);

string comm = StringFormat("%s ==>  Updated value in the indicator %s: %d",
                           TimeToString(TimeCurrent(), TIME_DATE | TIME_SECONDS),
                           short_name,
                           values_to_copy);

Comment(comm);

bars_calculated = calculated;

return(rates_total);

//+------------------------------------------------------------------+
//| iFractals インジケータからインジケータバッファを記入する                                   |
//+------------------------------------------------------------------+
bool FillArraysFromBuffers(double &up_arrows[],       // 上矢印のインジケータバッファ
                          double &down_arrows[],     // 下矢印のインジケータバッファ
                          int ind_handle,            // iFractals インジケータハンドル
                          int amount                 // 複製された値の数
                          )

{
  //--- エラーコードをリセットする
  ResetLastError();
  //--- インデックス0 を持つインジケータバッファの値で FractalUpBuffer 配列の一部を記入する
  if(CopyBuffer(ind_handle, 0, 0, amount, up_arrows) < 0)
  {
    //--- 複製が失敗したら、エラーコードを出す
    PrintFormat("Failed to copy data from the iFractals indicator to the FractalUpBuffer array, error code %d",
                GetLastError());
    //--- ゼロ結果で終了。 インジケータは計算されていないと見なされる
    return(false);
  }

ResetLastError();

if(CopyBuffer(ind_handle, 0, 0, amount, up_arrows) < 0)

if(CopyBuffer(ind_handle, 0, 0, amount, up_arrows) < 0)
{
  PrintFormat("Failed to copy data from the iFractals indicator to the FractalUpBuffer array, error code %d",
              GetLastError());
  return(false);
}

//--- インデックス 1 を持つインジケータバッファの値で FractalDownBuffer 配列の一部を記入する
if(CopyBuffer(ind_handle, 1, 0, amount, down_arrows) < 0)
{
  //--- 複製が失敗したら、エラーコードを出す
  PrintFormat("Failed to copy data from the iFractals indicator to the FractalDownBuffer array, error code %d",
              GetLastError());
  //--- ゼロ結果で終了。 インジケータは計算されていないと見なされる
  return(false);
}
//--- 全てが成功
return(true);
}

if(CopyBuffer(ind_handle, 1, 0, amount, down_arrows) < 0)

if(CopyBuffer(ind_handle, 1, 0, amount, down_arrows) < 0)
{
  PrintFormat("Failed to copy data from the iFractals indicator to the FractalDownBuffer array, error code %d",
              GetLastError());
  return(false);
}

return(true);

//+------------------------------------------------------------------+
//| インジケータ初期化解除関数                                                  |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
  if(handle != INVALID_HANDLE)
    IndicatorRelease(handle);
  //--- インジケータの削除後チャートをクリアする
  Comment("");
}

if(handle != INVALID_HANDLE)
  IndicatorRelease(handle);

//--- インジケータの削除後チャートをクリアする
Comment("");