Trend Manager

//+------------------------------------------------------------------+
//|                                                Trend Manager.mq4 |
//|                             Copyright © 2006,  Alejandro Galindo |
//|                                              http://elCactus.com |
//+------------------------------------------------------------------+
// Based on indicator sold at traderstradingsystem.com
#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 Blue
#property indicator_color2 Red
// Divergence controls
extern double DVLimit=0.0007;
extern int    Fast_Period=23;
extern int    Fast_Price=PRICE_OPEN;
extern int    Slow_Period=84;
extern int    Slow_Price=PRICE_OPEN;
extern int    BarCount=1500;
//----
double SpanA_Buffer[];
double SpanB_Buffer[];
//----
int tickcount=0;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int init()
  {
   // histogram defined by top and bottom buffer
   // pos or neg from top buffer determines color   
   SetIndexStyle(0,DRAW_HISTOGRAM,STYLE_SOLID);
   SetIndexBuffer(0,SpanB_Buffer);
   //SetIndexDrawBegin(0,TM_Period+TM_Shift-1);
   //SetIndexLabel(0,"TM_Period+");
   SetIndexStyle(1,DRAW_HISTOGRAM,STYLE_SOLID);
   SetIndexBuffer(1,SpanA_Buffer);
   //SetIndexDrawBegin(1,TM_Period+TM_Shift-1);
   //SetIndexLabel(1,"TM_Period");
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {
   int    pos;
   int iFileHandle;
//----
   double maF1, maF2, maS1, maS2;
   double D;
//----
   for(pos=BarCount; pos>=0; pos--)
     {
      // Create Divergence stage one
      maF1=iMA(Symbol(),0,Fast_Period,0,MODE_SMA,Fast_Price,pos);
      maS1=iMA(Symbol(),0,Slow_Period,0,MODE_SMA,Slow_Price,pos);
      D=maF1-maS1;
//----
      SpanA_Buffer[pos] =0;
      SpanB_Buffer[pos] =0;
//----
      if(D>=DVLimit )
        {
         SpanA_Buffer[pos] =High[pos];
         SpanB_Buffer[pos] =High[pos]+(D-DVLimit);
        }
      if(D<=(DVLimit*(-1)) )
        {
         SpanA_Buffer[pos] =Low[pos];
         SpanB_Buffer[pos] =Low[pos]+(D-DVLimit);
        }
     } //for
  } //start
//+------------------------------------------------------------------+