LSdemarker_in_Color

//+------------------------------------------------------------------+
//|                                                        |
//|                      Copyright © 2004, MetaQuotes Software Corp. |
//|                                       http://www.metaquotes.net/ |
//+------------------------------------------------------------------+
#property  copyright "Copyright © 2005, FX Sniper "
#property  link      "http://www.metaquotes.net/"

//---- indicator settings
#property  indicator_separate_window
#property  indicator_buffers 3
#property indicator_color1 Yellow      
#property indicator_color2 Chartreuse
#property indicator_color3 Red

//---- buffers
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];
int width;

extern int Rperiod = 50;
extern int BarProcessed = 1000;
int shift;
int i;
int loopbegin;
double sum[];
int length;
double lengthvar;
double tmp ;
double wt[];
int c;

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- 2 additional buffers are used for counting.
   IndicatorBuffers(5);
   
//---- drawing settings
   SetIndexBuffer(2,ExtMapBuffer1);
   SetIndexBuffer(1,ExtMapBuffer2);
   SetIndexBuffer(0,ExtMapBuffer3);
   SetIndexBuffer(3,sum);
   SetIndexBuffer(4,wt);
   
   SetIndexStyle(2,DRAW_LINE,STYLE_SOLID,3);  
   SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,3);  
   SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,3);  

//---- initialization done
   return(0);
  }

int start()
   {
   if (Bars < Rperiod+1)  BarProcessed = Bars-Rperiod-1;
	if (Bars < Rperiod+1)  return;
	if (BarProcessed ==0) BarProcessed = Bars-Rperiod-1;
	
   length = Rperiod;
   loopbegin = BarProcessed;
 
   for(shift = loopbegin; shift >= 0; shift--)
      {
      sum[1] = 0;
      for(i = length; i >= 1  ; i--)
         {
         lengthvar = length + 1;
         lengthvar /= 3;
         tmp = 0;
         tmp = ( i - lengthvar)*  iDeMarker(NULL,0,Rperiod,length-i+shift);
                 
         sum[1]+=tmp;
         }
         
      wt[shift] = sum[1]*6/(length*(length+1));
      
      ExtMapBuffer3[shift] = wt[shift]; //red
      ExtMapBuffer2[shift] = wt[shift]; //green
      ExtMapBuffer1[shift] = wt[shift]; //yellow
      
      if (wt[shift+1] > wt[shift])
         {
         ExtMapBuffer2[shift+1] = EMPTY_VALUE;
         } else if (wt[shift+1] < wt[shift]) {
         ExtMapBuffer1[shift+1] = EMPTY_VALUE; //-1 red/greem tight         
         } else {
         ExtMapBuffer1[shift+1] = CLR_NONE;//EMPTY_VALUE;
         ExtMapBuffer2[shift+1] = CLR_NONE;//EMPTY_VALUE;
         }
        
      }    
      return(0);
   }