KI_signals1_H1ylow_3-10-18_optimized

//+------------------------------------------------------------------+
//|                                                KI_signals_v1.mq4 |
//|                                                          Kalenzo |
//|                                      bartlomiej.gorski@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Kalenzo"
#property link      "bartlomiej.gorski@gmail.com"
//----
#property indicator_chart_window
#property indicator_buffers 8
#property indicator_color1 AliceBlue
#property indicator_color2 AliceBlue
#property indicator_color3 DarkViolet
#property indicator_color4 DarkViolet
#property indicator_level1 0
//----
extern int Length1 = 3;
extern int Length2 = 10;
extern int Length3 = 18;
// 60[min] = PERIOD_H1
int period=60;
//----
double Histo[];
double MaHisto[];
double Histoh1[];
double MaHistoh1[];
double up[];
double dn[];
double uph1[];
double dnh1[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- additional buffers are used for counting
   IndicatorBuffers(8);
   SetIndexStyle(0,DRAW_ARROW,EMPTY,1);
   SetIndexStyle(1,DRAW_ARROW,EMPTY,1);
   SetIndexStyle(2,DRAW_ARROW,EMPTY,1);
   SetIndexStyle(3,DRAW_ARROW,EMPTY,1);
   SetIndexArrow(0,241);
   SetIndexArrow(1,242);
   SetIndexArrow(2,241);
   SetIndexArrow(3,242);
//   IndicatorDigits(6);
   SetIndexBuffer(0,up);
   SetIndexBuffer(1,dn);
   SetIndexBuffer(2,uph1);
   SetIndexBuffer(3,dnh1);
   SetIndexBuffer(4,Histoh1);
   SetIndexBuffer(5,MaHistoh1);
   SetIndexBuffer(6,Histo);
   SetIndexBuffer(7,MaHisto);
//   IndicatorShortName("KI signals v1");
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {
   int tmp,i,j,m;
// this is fro M30 (we are on it), but we want for H1

   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+MathMax(1,MathMax(Length1,Length2));

// ----------- H1
// this is for H1, but counted_bars is for M30
// so...

   for(i = 0;i <= limit;i++)Histoh1[i] = iMA(Symbol(),period,Length1,0,MODE_EMA,PRICE_CLOSE,i) - iMA(Symbol(),period,Length2,0,MODE_EMA,PRICE_CLOSE,i);
   for(j = 0;j <= limit;j++)MaHistoh1[j] = iMAOnArray(Histoh1,0,Length3,0,MODE_EMA,j);
   for(m = 0;m <= limit;m++)
     {
      if(MaHistoh1[m+1]<=0 && MaHistoh1[m]>0)
        {
         tmp=iTime(Symbol(),period,m);
         for(j=0; j<Bars; j++)
           {
            if(iTime(Symbol(),0,j)==tmp)
               uph1[j-period/Period()+1]=iOpen(Symbol(),period,m)-(20*Point);
           }
        }
      if(MaHistoh1[m+1]>=0 && MaHistoh1[m]<0)
        {
         tmp=iTime(Symbol(),period,m);
         for(j=0; j<Bars; j++)
           {
            if(iTime(Symbol(),0,j)==tmp)
               dnh1[j-period/Period()+1]=iOpen(Symbol(),period,m)+(20*Point);
           }
        }
     }
// ----------- M30
//----
   for(i = 0;i <= limit;i++)Histo[i] = iMA(Symbol(),0,Length1,0,MODE_EMA,PRICE_CLOSE,i) - iMA(Symbol(),0,Length2,0,MODE_EMA,PRICE_CLOSE,i);
   for(j = 0;j <= limit;j++)MaHisto[j] = iMAOnArray(Histo,0,Length3,0,MODE_EMA,j);
   for(m = 0;m <= limit;m++)
     {
      if(MaHisto[m+1]<=0 && MaHisto[m]>0)
        {
         for(i=m+1; i<limit; i++)
           {
            if(uph1[i]!=dnh1[i])
              {
               if(uph1[i]<dnh1[i])
                  up[m]=iOpen(Symbol(),0,m)-(20*Point);
               else
                  break;
              }
           }
        }
      if(MaHisto[m+1]>=0 && MaHisto[m]<0)
        {
         for(i=m+1; i<limit; i++)
           {
            if(uph1[i]!=dnh1[i])
              {
               if(uph1[i]>dnh1[i])
                  dn[m]=iOpen(Symbol(),0,m)+(20*Point);
               else
                  break;
              }
           }
        }
     }
   return(0);
  }
//+------------------------------------------------------------------+