MQL4プログラミング　第２回　インジケーターを作成してみよう（実践編）

// prg-0002.mq4
#property copyright "Copyright 2024, smile-invest-blog.com"
#property link      "https://www.smile-invest-blog.com/prg-0002/"
#property strict
#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 Yellow
#property indicator_color2 Red
#property indicator_width1 2
#property indicator_width2 2

double Log1Up[];   // Highサイン用バッファ
double Log1Down[]; // Low　サイン用バッファ
int    realBars = 0;

int shortMaPeriod = 10;  // 短期移動平均線の期間
int longMaPeriod  = 30;  // 長期移動平均線の期間

//+------------------------------------------------------------------+
//| initialization function
//+------------------------------------------------------------------+
int init() {
//---- indicators
   SetIndexStyle(0, DRAW_ARROW, EMPTY);
   SetIndexArrow(0, 233);
   SetIndexBuffer(0, Log1Up);
   SetIndexStyle(1, DRAW_ARROW, EMPTY);
   SetIndexArrow(1, 234);
   SetIndexBuffer(1, Log1Down);

//----
   return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| deinitialization function
//+------------------------------------------------------------------+
int deinit() {
   return(INIT_SUCCEEDED);
}

//+------------------------------------------------------------------+
//| start function
//+------------------------------------------------------------------+
int start() {
   double shortMaPrevious, longMaPrevious;
   double shortMaCurrent, longMaCurrent;
   int counted_bars=IndicatorCounted(); 
   int limit = Bars - counted_bars;

   for(int i = limit - 1; i >= 0; i--) {
      if(i == 0) {
         Log1Down[i] = EMPTY_VALUE;
         Log1Up[i]   = EMPTY_VALUE;

         // 前回の移動平均値を取得
         shortMaPrevious = iMA(NULL, 0, shortMaPeriod, 0, MODE_SMA, PRICE_CLOSE, 1);
         longMaPrevious  = iMA(NULL, 0, longMaPeriod, 0, MODE_SMA, PRICE_CLOSE, 1);

         // 現在の移動平均値を取得
         shortMaCurrent = iMA(NULL, 0, shortMaPeriod, 0, MODE_SMA, PRICE_CLOSE, 0);
         longMaCurrent  = iMA(NULL, 0, longMaPeriod, 0, MODE_SMA, PRICE_CLOSE, 0);

         // 移動平均線のクロスを確認
         if (shortMaPrevious < longMaPrevious && shortMaCurrent > longMaCurrent) {
            // ゴールデンクロス → Highサイン
            Log1Up[i] = Low[i] - 10 * Point;
            if (realBars < Bars) {  // １本のローソク足で１回だけ実行するための条件
               Alert(Symbol(), " *** High ***");
               realBars = Bars;     // realBarsをBarsにする事で同じローソク足では１回だけ実行する
            }
         }
         else if (shortMaPrevious > longMaPrevious && shortMaCurrent < longMaCurrent) {
             // デッドクロス → Lowサイン
            Log1Down[i] = High[i] + 10 * Point;
            if (realBars < Bars) {  // １本のローソク足で１回だけ実行するための条件
               Alert(Symbol(), " *** Low ***");
               realBars = Bars;     // realBarsをBarsにする事で同じローソク足では１回だけ実行する
            }
         }
      }
   }

   return(0);
}