FractalChannel_v1_v3

//+------------------------------------------------------------------+
//|                                            FractalChannel_v1.mq4 |
//|                           Copyright © 2005, TrendLaboratory Ltd. |
//|                                       E-mail: igorad2004@list.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, TrendLaboratory Ltd."
#property link      "E-mail: igorad2004@list.ru"
//----
#property indicator_chart_window
#property indicator_buffers 3
#property indicator_color1 DodgerBlue
#property indicator_color2 DodgerBlue
#property indicator_color3 DodgerBlue
//---- input parameters
extern int ChannelType=1;
extern double Margins=0;
extern double Advance=0;
extern int OpenClose=0;
//---- buffers
double UpBuffer[];
double DnBuffer[];
double MdBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
   string short_name;
//---- indicator line
   SetIndexStyle(0,DRAW_LINE);
   SetIndexStyle(1,DRAW_LINE);
   SetIndexStyle(2,DRAW_LINE,2);
   SetIndexBuffer(0,UpBuffer);
   SetIndexBuffer(1,DnBuffer);
   SetIndexBuffer(2,MdBuffer);
//---- name for DataWindow and indicator subwindow label
   short_name="Fractal Channel("+ChannelType+")";
   IndicatorShortName(short_name);
   SetIndexLabel(0,"Up Channel");
   SetIndexLabel(1,"Down Channel");
   SetIndexLabel(2,"Middle Channel");
//----
   SetIndexDrawBegin(0,2*ChannelType);
   SetIndexDrawBegin(1,2*ChannelType);
   SetIndexDrawBegin(2,2*ChannelType);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| FractalChannel_v1                                                |
//+------------------------------------------------------------------+
int start()
  {
   int        shift;
   double   v1,v2,smax,smin,
   High0,High1,High2,High3,High4,High5,High6,
   Low0,Low1,Low2,Low3,Low4,Low5,Low6;
//----
   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+6;

   for(shift=limit;shift>=0;shift--)
     {
      v1=-1;
      v2=-1;
//----
      High0=High[shift];
      High1=High[shift+1];
      High2=High[shift+2];
      High3=High[shift+3];
      High4=High[shift+4];
      High5=High[shift+5];
      High6=High[shift+6];
      //
      Low0=Low[shift];
      Low1=Low[shift+1];
      Low2=Low[shift+2];
      Low3=Low[shift+3];
      Low4=Low[shift+4];
      Low5=Low[shift+5];
      Low6=Low[shift+6];
//----
      if (OpenClose>0)
        {
         High0=MathMax(Close[shift],Open[shift]);
         High1=MathMax(Close[shift+1],Open[shift+1]);
         High2=MathMax(Close[shift+2],Open[shift+2]);
         High3=MathMax(Close[shift+3],Open[shift+3]);
         High4=MathMax(Close[shift+4],Open[shift+4]);
         High5=MathMax(Close[shift+5],Open[shift+5]);
         High6=MathMax(Close[shift+6],Open[shift+6]);
         //
         Low0=MathMin(Close[shift],Open[shift]);
         Low1=MathMin(Close[shift+1],Open[shift+1]);
         Low2=MathMin(Close[shift+2],Open[shift+2]);
         Low3=MathMin(Close[shift+3],Open[shift+3]);
         Low4=MathMin(Close[shift+4],Open[shift+4]);
         Low5=MathMin(Close[shift+5],Open[shift+5]);
         Low6=MathMin(Close[shift+6],Open[shift+6]);
        }
      if (ChannelType==1)
        {
         if (High2<=High1 && High0<High1) v1=High1;
         if (Low2>=Low1 && Low0>Low1) v2=Low1;
        }
      if (ChannelType==2)
        {
         if (High4<=High2 && High3<=High2 && High0<High2 && High1<High2)
            v1=High2;
         if (Low4>=Low2 && Low3>=Low2 && Low0>Low2 && Low1>Low2)
            v2=Low2;
        }
      if (ChannelType==3)
        {
         if (High6<=High3 && High5<=High3 && High4<=High3 &&
         High0<High3 && High1<High3 && High2<High3)
            v1=High3;
         if (Low6>=Low3 && Low5>=Low3 && Low4>=Low3 &&
         Low0>Low3 && Low1>Low3 && Low2>Low3)
            v2=Low3;
        }
      if(v1>0)smax=v1;
      if (High0>smax) smax=High0;
      if(v2>0)smin=v2;
      if (Low0<smin) smin=Low0;
      if (shift==limit) {smin=Low0;smax=High0;}
//----
      UpBuffer[shift]=smax-(smax-smin)*Margins;
      DnBuffer[shift]=smin+(smax-smin)*Margins;
      MdBuffer[shift]=(UpBuffer[shift]+DnBuffer[shift])/2;
     }
   return(0);
  }
//+------------------------------------------------------------------+