トレンドを視覚化する便利インディケータ

//+------------------------------------------------------------------+
//|                                            Alligator_support.mq4 |
//|                                    Copyright 2020, mef Software. |
//|                                             https://fx-prog.com/ |
//+------------------------------------------------------------------+
#property copyright "Copyright 2020, mef Software."
#property link      "https://fx-prog.com/"
#property description "Bill Williams' Aligator"
#property strict
 
//---- indicator settings
#property indicator_chart_window
#property indicator_buffers 5
#property indicator_color1  Blue
#property indicator_color2  Red
#property indicator_color3  Lime
#property indicator_color4  Blue
#property indicator_color5  Red
 
 
//---- input parameters
input int InpJawsPeriod=13; // Jaws Period
input int InpJawsShift=8;   // Jaws Shift
input int InpTeethPeriod=8; // Teeth Period
input int InpTeethShift=5;  // Teeth Shift
input int InpLipsPeriod=5;  // Lips Period
input int InpLipsShift=3;   // Lips Shift
//---- indicator buffers
double ExtBlueBuffer[];
double ExtRedBuffer[];
double ExtLimeBuffer[];
 
double CrossUp[];
double CrossDown[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
void OnInit(void)
  {
   IndicatorDigits(Digits);
//---- line shifts when drawing
   SetIndexShift(0,InpJawsShift);
   SetIndexShift(1,InpTeethShift);
   SetIndexShift(2,InpLipsShift);
//---- first positions skipped when drawing
   SetIndexDrawBegin(0,InpJawsShift+InpJawsPeriod);
   SetIndexDrawBegin(1,InpTeethShift+InpTeethPeriod);
   SetIndexDrawBegin(2,InpLipsShift+InpLipsPeriod);
//---- 3 indicator buffers mapping
   SetIndexBuffer(0,ExtBlueBuffer);
   SetIndexBuffer(1,ExtRedBuffer);
   SetIndexBuffer(2,ExtLimeBuffer);
//---- drawing settings
   SetIndexStyle(0,DRAW_LINE);
   SetIndexStyle(1,DRAW_LINE);
   SetIndexStyle(2,DRAW_LINE);
//---- index labels
   SetIndexLabel(0,"Gator Jaws");
   SetIndexLabel(1,"Gator Teeth");
   SetIndexLabel(2,"Gator Lips");
    
    
   ArrayInitialize(CrossUp,EMPTY_VALUE);
   SetIndexBuffer(3,CrossUp);
   SetIndexStyle(3,DRAW_ARROW,EMPTY);
   SetIndexArrow(3,228);
       
   ArrayInitialize(CrossDown,EMPTY_VALUE);
   SetIndexBuffer(4,CrossDown);   
   SetIndexStyle(4,DRAW_ARROW,EMPTY);
   SetIndexArrow(4,230);
    
    
  }
//+------------------------------------------------------------------+
//| Bill Williams' Alligator                                         |
//+------------------------------------------------------------------+
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 limit=rates_total-prev_calculated;
    
//---- main loop
   for(int i=0; i<limit; i++)
     {
      
      double Range=0;
      double AvgRange=0;
       
      //----矢印位置調整用
      for(int counter=0;counter<=0+9;counter++){
         AvgRange= AvgRange+MathAbs(High[counter]-Low[counter]);
      }
      Range=AvgRange/10;
      
      //---- ma_shift set to 0 because SetIndexShift called abowe
      ExtBlueBuffer[i]=iMA(NULL,0,InpJawsPeriod,0,MODE_SMMA,PRICE_MEDIAN,i);
      ExtRedBuffer[i]=iMA(NULL,0,InpTeethPeriod,0,MODE_SMMA,PRICE_MEDIAN,i);
      ExtLimeBuffer[i]=iMA(NULL,0,InpLipsPeriod,0,MODE_SMMA,PRICE_MEDIAN,i);
       
      double rosokuValueCloseP = iClose(NULL, 0, i);
       
      //ジョーズライン
      double JAW_ATAI_1 = ExtBlueBuffer[i];
      double JAW_ATAI_2 = iMA(NULL,0,InpJawsPeriod,0,MODE_SMMA,PRICE_MEDIAN,i+1);
     
      //ティースライン
      double TEETH_ATAI_1 = ExtRedBuffer[i];
      double TEETH_ATAI_2 = iMA(NULL,0,InpTeethPeriod,0,MODE_SMMA,PRICE_MEDIAN,i+1);
       
      //リップスライン
      double LIPS_ATAI_1 = ExtLimeBuffer[i];
      double LIPS_ATAI_2 = iMA(NULL,0,InpLipsPeriod,0,MODE_SMMA,PRICE_MEDIAN,i+1);
     
 
      //リップスラインのゴールデンクロスでロング（ジョーズラインが上を向いている事）  
      if(LIPS_ATAI_1 > TEETH_ATAI_1 && LIPS_ATAI_1 > JAW_ATAI_1 && JAW_ATAI_2 < JAW_ATAI_1 && rosokuValueCloseP > LIPS_ATAI_1)
      {
            //ロングエントリー
            CrossUp[i]=Low[i]-Range*0.5;
      }
      //リップスラインのデッドクロスでショート（ジョーズラインが下を向いている事）     
      else if(LIPS_ATAI_1 < TEETH_ATAI_1 && LIPS_ATAI_1 < JAW_ATAI_1 && JAW_ATAI_2 > JAW_ATAI_1 && rosokuValueCloseP < LIPS_ATAI_1)
      {
            //ショートエントリー   
            CrossDown[i]=High[i]+Range*0.5;
      }
      else
      {
            //何もしない
      }
       
     }
//---- done
   return(rates_total);
  }
//+------------------------------------------------------------------+