Ehlers_iTrend_in_Color

//+------------------------------------------------------------------+
//|                                       Ehlers iTrend_in_Color.mq4 |
//|                      Copyright © 2006, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
// new coding attempt below:
//Model Ehler's iTrend.mq4, for Metatrader 4, 13 August 2006
//  - this custom indicator plots an interesting TREND line
// on a chart
//this initial 'beta' version appears to 'work' -
// but every user should check it out before using it -
// this code below may still have unknown bugs?
// 'use at your own risk'  please post suggestions for
// corrections and improvements to this code (.MQ4)
// - 'Bill_gigi' on YAHOO 'MetaTrader_Experts_and_Indicators'
// Robert Hill modified to be in color on Jan 17, 2007

#property indicator_chart_window
#property  indicator_buffers 3
#property indicator_color1 Yellow
#property indicator_color2 Green
#property indicator_color3 Red
#property indicator_width1 2
#property indicator_width2 2
#property indicator_width3 2


//---- buffers
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];
//---- input parameters
extern int Length=10;
//---- buffers
double TREND[];  // otherwise called "Model" by Ehlers
double iTrend[];
double Price[];
double Slope[];
double HP[];
//---- Varibles
int j, i, n, counted_bars, limit, totalBars;
double SMA=0.0, SmoothSlope=0.0, twopi=6.2831853, X=0.0;
double Alpha=0.0, SmoothHP=0.0, Prev = 0.0;

// Custom indicator initialization function
int init()
{
  string short_name;
//----  additional buffers used
  IndicatorBuffers(8);
//---- indicator line
   SetIndexBuffer(2,ExtMapBuffer1);
   SetIndexBuffer(1,ExtMapBuffer2);
   SetIndexBuffer(0,ExtMapBuffer3);
  SetIndexBuffer(3,TREND);
  SetIndexBuffer(4,iTrend);
  SetIndexBuffer(5,Price);
  SetIndexBuffer(6,Slope);
  SetIndexBuffer(7,HP);
   SetIndexStyle(2,DRAW_LINE,STYLE_SOLID,2);
   SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,2);
   SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,2);
//---- name for DataWindow and indicator subwindow label
  short_name="TREND("+Length+")";
  IndicatorShortName(short_name);
  SetIndexLabel(0,short_name);
  SetIndexLabel(1,short_name);
  SetIndexLabel(2,short_name);
//----
//   SetIndexDrawBegin(0,Length);
//----
  return(0);
}
//+------------------------------------------------------------------+
int start()
{
   counted_bars=IndicatorCounted();
   totalBars = Bars;
//----
  if(totalBars<=Length) return(0);
  Alpha = (1 - MathSin(twopi/Length)) / MathCos(twopi/Length);

  i=totalBars-counted_bars-1;
  while(i>=0)
      {

          if(i >= (totalBars - Length))
           {
             Price[i] = (High[i] + Low[i])/2;
             TREND[i] = 0.0;
             SMA = 0.0;
             HP[i] = 0.0;
             Slope[i] = 0.0;
           }
          else
            {
              Price[i] = (High[i] + Low[i])/2;
              X = 0.0;
              for(j = Length-1; j > -1; j--)
               {
                X = X + Price[i+j];
               }
              SMA = X/Length;

                // below compute iTrend[i] ~ "instantaneous Trend Line" 
component of the Model trend
               Slope[i] = (Price[i] - Price[i + Length - 1])/2.0;
               SmoothSlope = (Slope[i] + 2.0*Slope[i+1]+ 2.0*Slope
[i+2] + Slope[i+3])/6.0;
               iTrend[i] =  (0.5 * SmoothSlope) + SMA;

               // below is code for the Ehler's 'Cyclic Component'
               HP[i] = 0.5*(1+Alpha)* (Price[i] - Price[i+1]) +
Alpha*HP[i+1];
               SmoothHP = (HP[i] + 2.0*HP[i+1] + 2.0*HP[i+2] + HP
[i+3])/6.0;

             }  // end of above 'else' condition


         TREND[i] = MathFloor((iTrend[i] + SmoothHP)/Point)*Point;
//========== COLOR CODING ===========================================

       ExtMapBuffer3[i] = TREND[i]; //red
       ExtMapBuffer2[i] = TREND[i]; //green
       ExtMapBuffer1[i] = TREND[i]; //yellow

       //  for(c=loopbegin;c==shift;c++)
       // {
        if (TREND[i+1] > TREND[i])
        {
        ExtMapBuffer2[i] = EMPTY_VALUE;

        //ExtMapBuffer3[shift+1] = EMPTY_VALUE;
        //ExtMapBuffer3[shift+1] = EMPTY_VALUE;

        }
       else if (TREND[i+1] < TREND[i])
        {
        ExtMapBuffer1[i] = EMPTY_VALUE; //-1 red/greem tight
       //ExtMapBuffer3[shift+1] = EMPTY_VALUE;

        }
         else
         {

         ExtMapBuffer1[i]=EMPTY_VALUE;//EMPTY_VALUE;
         ExtMapBuffer2[i]=EMPTY_VALUE;//EMPTY_VALUE;
         }


        i--;

     }  // end of 'while' loop

   return(0);
}