#TickLaguerre-ACS1

//+------------------------------------------------------------------+
//|                                                     Laguerre.mq4 |
//|                                                     Emerald King |
//|                                     mailto:info@emerald-king.com |
//+------------------------------------------------------------------+
// Modified and simplified by ACS. 03-Oct-07. Added MA for Laguerre! 25-Oct-07. This code was released on 21-JUL-08 in FF.
#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 Blue
#property indicator_minimum 0
#property indicator_maximum 1
#property indicator_width1 2
#property indicator_level1 0.85
#property indicator_level2 0.50
#property indicator_level3 0.15
//---- input parameters

extern double gamma=0.6;
extern int MaxBars=1000;
extern int MA = 2;
int LastTm;
double L0 = 0, L1 = 0, L2 = 0, L3 = 0, L0A = 0, L1A = 0, L2A = 0, L3A = 0, LRSI = 0, CU = 0, CD = 0;
double Buffer1[], dummy[];
//+------------------------------------------------------------------+
int init() {
   IndicatorDigits(2);
   IndicatorBuffers(2); 
   SetIndexBuffer(0,Buffer1);
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(1,dummy);
   //SetIndexStyle(1,DRAW_LINE);
   SetIndexEmptyValue(1,0.5);
   SetIndexStyle(1,DRAW_NONE);
   SetIndexLabel(1,NULL); 
   string shortname="Laguerre-ACS("+DoubleToStr(gamma,2); if (MA < 2) shortname = shortname+")"; else shortname = shortname+"-MA"+MA+")";
   IndicatorShortName(shortname);
   //SetIndexLabel(0,shortname+"-"+Period()+"M");
return(0); }
//+------------------------------------------------------------------+
int deinit() { return(0); }
//+------------------------------------------------------------------+
int start() {
   int i,j;
   double sum1=0;
         
   sum1=0;
   L0A = L0; L1A = L1; L2A = L2; L3A = L3;
   L0 = (1 - gamma)*((Ask+Bid)/2) + gamma*L0A;
   L1 = - gamma *L0 + L0A + gamma *L1A;
   L2 = - gamma *L1 + L1A + gamma *L2A;
   L3 = - gamma *L2 + L2A + gamma *L3A;
   CU = 0; CD = 0;
   if (L0 >= L1) CU = L0 - L1; else CD = L1 - L0;
   if (L1 >= L2) CU = CU + L1 - L2; else CD = CD + L2 - L1;
   if (L2 >= L3) CU = CU + L2 - L3; else CD = CD + L3 - L2;
   if (CU + CD != 0) LRSI = CU / (CU + CD);
   
   if (LastTm < Time[0]) {
      for (i = 0;i<1000;i++) {
         dummy[i] = dummy[i+1];
         Buffer1[i] = Buffer1[i+1];
      }
      LastTm = Time[0];   
   }
   for(i=MaxBars-1;i>=0;i--) {
      dummy[i+1] = dummy[i];
      Buffer1[i+1] = Buffer1[i];
   }
   dummy[0] = LRSI;
   if (MA < 2) Buffer1[0] = dummy[0]; else { for (j=0; j < 0+MA; j++) sum1 += dummy[j]; Buffer1[0] = sum1/MA; }
   return(0);
}
//+------------------------------------------------------------------+