MA_Level_v1

//+------------------------------------------------------------------+
//|                                                     MA_Level.mq4 |
//|                                                            Grell |
//|                                                dwgrell@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Grell"
#property link      "dwgrell@gmail.com"
#property indicator_separate_window //Â îòäåëüíîì îêíå
#property indicator_buffers 1 //Êîëè÷åñòâî áóôåðîâ
#property indicator_color1 Red //Öâåò îòîáðàæåíèÿ
//Âõîäíûå ïàðàìåòðû
extern int       period=24;
//Áóôåðû
double MA_L[];
//+------------------------------------------------------------------+
//| Èíèöèàëèçàöèÿ èíäèêàòîðà                                         |
//+------------------------------------------------------------------+
int init()
  {
//èíäèêàòîðû
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(0,MA_L);
   return(0);
  }
//+------------------------------------------------------------------+
//| Äåèíèöèàëèçàöèÿ èíäèêàòîðà                                       |
//+------------------------------------------------------------------+
int deinit()
  {
   return(0);
  }
//+------------------------------------------------------------------+
//| Ðàñ÷åò èíäèêàòîðà                                                |
//+------------------------------------------------------------------+
int start()
  {
   int counted_bars=IndicatorCounted();
   if(counted_bars<0) return(-1);
   if(counted_bars>0) counted_bars--;
   int limit=Bars-counted_bars;
   if(counted_bars==0) limit-=1+period+1;

   for(int i=0; i<limit; i++)//Ãëàâíûé öèêë
     {
      MA_L[i]=0;
      for(int j=0;j<period;j++)//Âíóòðåííèé öèêë
        {
         double ma0=iMA(NULL,0,period,0,0,1,i+j);//Òåêóùàÿ ñðåäíÿÿ
         double ma1=iMA(NULL,0,period,0,0,1,i+j+1);//Ïðåäûäóùàÿ ñðåäíÿÿ
         double open0=Open[i+j];//Òåêóùàÿ öåíà îòêðûòèÿ
         double open1=Open[i+j+1];//Ïðåäûäóùàÿ öåíà îòêðûòèÿ
         MA_L[i]+=Calc(ma0,ma1,open0,open1);
        }
      MA_L[i]=MA_L[i]/period;
     }
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Calc(double ma0,double ma1,double open0,double open1)
  {
   if(ma0<open0 && ma0>ma1 && open0>open1)return(2);//Ñðåäíÿÿ ïîä öåíîé, âîçðàñòàåò âìåñòå ñ öåíîé
   if(ma0<open0 && ma0>ma1)return(1);//Ñðåäíÿÿ ïîä öåíîé, âîçðàñòàåò
   if(ma0>ma1&&open0>open1)return(1);//Ñðåäíÿÿ âîçðàñòàåò âìåñòå ñ öåíîé
   if(ma0>open0 && ma0<ma1 && open0<open1)return(-2);//Ñðåäíÿÿ íàä öåíîé, óáûâàåò âìåñòå ñ öåíîé
   if(ma0>open0 && ma0<ma1)return(-1);//Ñðåäíÿÿ íàä öåíîé, óáûâàåò
   if(ma0<ma1&&open0<open1)return(-1);//Ñðåäíÿÿ óáûâàåò âìåñòå ñ öåíîé
   return(0);
  }
//+------------------------------------------------------------------+