//+------------------------------------------------------------------+
//|                                                   ang_AZad(C).mq4 |
//|                           Copyright © 2006, ANG3110@latchess.com |
//+------------------------------------------------------------------+

#property  copyright "ANG3110@latchess.com"
//----
#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 Blue
#property indicator_color2 Red
//----
extern double ki = 4;
//--------------------
double za[], z, za2[], z2, aza[], a0[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
   IndicatorBuffers(4);
   SetIndexBuffer(0, aza);
   SetIndexBuffer(1, a0);
   SetIndexBuffer(2, za);
   SetIndexBuffer(3, za2);
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator start function                                  |
//+------------------------------------------------------------------+
int start() 
  {
   int i, cbi;
   int n, ai, bi, f, ai2, bi2, f2; 
   cbi = Bars - IndicatorCounted() - 1;
//----
   for(i = cbi; i >= 0; i--) 
     { 
       if(Close[i] > z && Close[i] > Close[i+1]) 
           z = za[i+1] + (Close[i] - za[i+1]) / ki;
       if(Close[i] < z && Close[i] < Close[i+1]) 
           z = za[i+1] + (Close[i] - za[i+1]) / ki;
       if(Close[i] > z2 && Close[i] < Close[i+1]) 
           z2 = za2[i+1] + (Close[i] - za2[i+1]) / ki;
       if(Close[i] < z2 && Close[i] > Close[i+1]) 
           z2 = za2[i+1] + (Close[i] - za2[i+1]) / ki;
       if(i > Bars - 5) 
           {
             z = Close[i]; 
             z2 = z;
           }
       za[i] = z;  
       za2[i] = z2;
       aza[i] = (za[i] - za2[i]) / Point;
       a0[i] = 0.00000001;
     }
//----
   return(0);}
//+------------------------------------------------------------------+