MultiTrend(1)

//+------------------------------------------------------------------+
//|                                          MultiTrend_Signal_KVN.mq4 |
//|                                                   Vladimir Korykin |
//|                                             koryvladimir@inbox.ru |
//+------------------------------------------------------------------+
#property copyright "Vladimir Korykin"
#property link      "koryvladimir@inbox.ru"

#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 Red
#property indicator_color2 Yellow

extern   int      K=48;
extern   double   Kstop=0.5;
extern   int      Kperiod=150;
extern   int      PerADX=14;
extern   int      CountBars=2800;

double ind0[];
double ind1[];

int init()
{
   SetIndexStyle(0,DRAW_ARROW,EMPTY,2);
   SetIndexArrow(0,218);
   SetIndexBuffer(0,ind0);
   SetIndexEmptyValue(0,0.0);
   SetIndexStyle(1,DRAW_ARROW,EMPTY,2);
   SetIndexArrow(1,217);
   SetIndexBuffer(1,ind1);
   SetIndexEmptyValue(1,0.0);

   return(0);
}

int deinit()
{
   return(0);
}

int start()
{
   int loopbegin=0, SSP=0, i1=0, MyBars=0;
   double Range=0,AvgRange=0;
   double smin=0, smax=0, SsMax=0, SsMin=0,val1=0,val2=0,value3=0; 
   int table1[], table2[];
   double Table_value2[];
   
   ArrayResize(Table_value2, Bars);
   ArrayResize(table1, Bars);
   ArrayResize(table2, Bars);

   bool first=true;
   
   if (first)
   {
	  loopbegin = CountBars+1;
	  MyBars=loopbegin;
	  if (loopbegin < 0) return(0);
	  first = false;
   }
   
   for (int i = loopbegin; i>=0; i--)
   {
//      SSP=MathCeil(Kperiod/iADX(NULL, 0, PerADX, PRICE_CLOSE, MODE_MAIN, 1));
      SSP=MathCeil(Kperiod/iADX(NULL, 0, PerADX, PRICE_OPEN, MODE_MAIN, 1));
   	Range=0;
	   AvgRange=0;
   	for (i1=i; i1<=i+SSP; i1++)
         AvgRange=AvgRange+MathAbs(High[i1]-Low[i1]);
	   Range=AvgRange/(SSP+1);

      SsMax = High[Highest(NULL,0,MODE_HIGH,SSP,i)];
      SsMin = Low[Lowest(NULL,0,MODE_LOW,SSP,i)];
      smin = SsMin+(SsMax-SsMin)*K/100;
      smax = SsMax-(SsMax-SsMin)*K/100;

	   table1[i]=i;
//	   Table_value2[i]=Close[i];
	   Table_value2[i]=Open[i];
	   table2[i]=0;
	   val1=0;
	   val2=0;
	   value3=0;
//	   if (Close[i]<smin)
	   if (Open[i]<smin)
		{
		    i1=1;
		    table2[i]=-1;
		    while (table2[i+i1]>-1 && table2[i+i1]<1 && Table_value2[i+i1]>0)
            i1=i1+1;
	       if (table2[i+i1]==1)
			 {
			   value3=High[i]+Range*Kstop;
			   val1=value3;
			 }
		}
//	   if (Close[i]>smax)
	   if (Open[i]>smax)
		{
		    i1=1;
		    table2[i]=1;
		    while (table2[i+i1]>-1 && table2[i+i1]<1 && Table_value2[i+i1]>0)
            i1=i1+1;
		    if (table2[i+i1]==-1)
			 {
			   value3=Low[i]-Range*Kstop;
			   val2=value3;
			 }
		}
		
      ind0[i]=val1;
      ind1[i]=val2;
      loopbegin=loopbegin+1;
      if (MyBars<Bars && i==0)
	   {
	       for (i1=72; i1>=2; i1--)
		    {
			   table1[i1]=table1[i1-1];
			   Table_value2[i1]=Table_value2[i1-1];
			   table2[i1]=table2[i1-1];
		    }
	       MyBars=MyBars+1;
	   }
   }

   return(0);
}