【MQL5】iBearsPower関数の使い方と自動売買実装コード

int  iBearsPower(
   string           symbol,     // 通貨ペア名（NULLで現在のチャート）
   ENUM_TIMEFRAMES  period,     // 時間軸（0またはPERIOD_CURRENTで現在）
   int              ma_period   // 平均期間（一般的には13が推奨される）
   );

//+------------------------------------------------------------------+
//|                                              BearsPowerSample.mq5|
//|                                  Copyright 2023, Quant Engineer  |
//+------------------------------------------------------------------+
#property strict

// 入力パラメーター
input int InpMAPeriod = 13; // ベアパワーの期間（EMA）

// グローバル変数
int handleBears; // 指標のハンドルを格納

//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
{
   // 1. Bears Power指標のハンドルを作成
   handleBears = iBearsPower(_Symbol, _Period, InpMAPeriod);

   // ハンドルの取得に失敗した場合はエラーを出力
   if(handleBears == INVALID_HANDLE)
   {
      Print("指標ハンドルの作成に失敗しました。エラーコード:", GetLastError());
      return(INIT_FAILED);
   }

   return(INIT_SUCCEEDED);
}

//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
   // メモリ解放のためにハンドルを削除
   IndicatorRelease(handleBears);
}

//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{
   double bearsValues[]; // 指標値を格納する動的配列

   // 配列を時系列順（最新がインデックス0）に設定
   ArraySetAsSeries(bearsValues, true);

   // 2. ハンドルを使って最新の指標値を2個コピーする
   // 第1引数: ハンドル, 第2引数: バッファ番号(0), 第3引数: 開始位置, 第4引数: 個数, 第5引数: 格納先
   if(CopyBuffer(handleBears, 0, 0, 2, bearsValues) < 2)
   {
      Print("データの取得に失敗しました。");
      return;
   }

   // 3. ロジック判定（例：売り圧力が弱まってきたか確認）
   double currentBears = bearsValues[0]; // 最新のベアパワー
   double prevBears    = bearsValues[1]; // 1本前のベアパワー

   // ベアパワーがマイナス圏にあり、かつ前回より上昇（0に接近）している場合
   if(currentBears < 0 && currentBears > prevBears)
   {
      Comment("売り圧力が弱まりつつあります。値: ", currentBears);
   }
   else
   {
      Comment("現在のベアパワー: ", currentBears);
   }
}