//+------------------------------------------------------------------+
//|                                                MA_In_Color.mq4   |
//|                      Copyright © 2004, MetaQuotes Software Corp. |
//| Modified from LSMA_In_Color to use any MA by Robert Hill         |     
//+------------------------------------------------------------------+
//
//Este indicador cambia el color según sea la tendencia alcista o bajista.
#property  copyright "Copyright © 2006, FX Sniper and Robert Hill"
#property  link      "http://www.metaquotes.net/"

//---- indicator settings

#property  indicator_chart_window
#property  indicator_buffers 3
#property indicator_color1 Yellow//El primer buffer sera amarillo   
#property indicator_color2 Green
#property indicator_color3 Red

//Parametros de configuracion al añadir el indicador a nuestro grafico
extern int       MAPeriod=14;//Periodo de media movil
extern int       MAType=1;//Tipo de media móvil

//---- Definicion de los buffers (lineas)
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];

//---- variables
int    MAMode;
string strMAType;


//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+

//Función que sólo será llamada una vez, 
//en el momento de inicializar el indicador. 
//En esta sección se comprueba que los valores de los parámetros 
//son correctos y se prepara el indicador para cargar datos
int init(){
   IndicatorBuffers(3);
   
//---- drawing settings
   
   //Asocia un array al buffer que habíamos definido --> (int index, double array)
   SetIndexBuffer(2,ExtMapBuffer1);
   
   //Especifica como se dibujará el buffer, en este caso
   // Dibujamos en el índice 2 una línea de estilo solido de valor 2 de ancho
   SetIndexStyle(2,DRAW_LINE,STYLE_SOLID,2);
   
   
   SetIndexBuffer(1,ExtMapBuffer2);
   SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,2);
   
   SetIndexBuffer(0,ExtMapBuffer3);
   SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,2);

   //Definimos los tipos de media movil:
   switch (MAType){
      case 1: strMAType="EMA"; MAMode=MODE_EMA; break;
      case 2: strMAType="SMMA"; MAMode=MODE_SMMA; break;
      case 3: strMAType="LWMA"; MAMode=MODE_LWMA; break;
      case 4: strMAType="LSMA"; break;
      default: strMAType="SMA"; MAMode=MODE_SMA; break;
   }
   IndicatorShortName( strMAType+ " (" +MAPeriod + ") ");
//---- initialization done
   return(0);
}//End init()



//Funcion custom:
double LSMA(int Rperiod, int shift){
   int i;
   double sum;
   int length;
   double lengthvar;
   double tmp;
   double wt;

   length = Rperiod;
 
   sum = 0;
   for(i = length; i >= 1  ; i--){
     lengthvar = length + 1;
     lengthvar /= 3;
     tmp = 0;
     tmp = ( i - lengthvar)*Close[length-i+shift];
     sum+=tmp;
    }
    wt = sum*6/(length*(length+1));
    
    return(wt);
}

int start(){
  
   double MA_Cur, MA_Prev;
   int limit;
   
   //nos dice cuantas barras no se han modificado desde que se llamó a la función start()
   int counted_bars = IndicatorCounted();
   
   //---- Comprobacion de posibles errores
   if (counted_bars<0) return(-1);
   
   //---- last counted bar will be recounted
   if (counted_bars>0) counted_bars--;
   
   //la variable limit almacena el número de barras que están 
   //modificándose en el momento de calcular el indicador
   limit = Bars - counted_bars;
   
   for(int i=limit; i>=0; i--){
   
      if (MAType == 4){
        MA_Cur = LSMA(MAPeriod,i);
        MA_Prev = LSMA(MAPeriod,i+1);
      }else{
      //iMA() --> Calcula el indicador de media móvil y devuelve su valor
        MA_Cur = iMA(NULL,0,MAPeriod,0,MAMode,PRICE_CLOSE,i);
        MA_Prev = iMA(NULL,0,MAPeriod,0,MAMode,PRICE_CLOSE,i+1);
      }
      
       //========== Codificacion del color ===================              
       ExtMapBuffer3[i] = MA_Cur; //red 
       ExtMapBuffer2[i] = MA_Cur; //green
       ExtMapBuffer1[i] = MA_Cur; //yellow
       
        if (MA_Prev > MA_Cur){
            ExtMapBuffer2[i] = EMPTY_VALUE;
        
        }else if (MA_Prev < MA_Cur) {
            ExtMapBuffer1[i] = EMPTY_VALUE; //-1 red/green tight
        }else{
            ExtMapBuffer1[i]=EMPTY_VALUE;//EMPTY_VALUE;
            ExtMapBuffer2[i]=EMPTY_VALUE;//EMPTY_VALUE;
        }
    }
      return(0);
  }
//+------------------------------------------------------------------+