#property      indicator_chart_window
#property      copyright "Socrates Flores"

extern string  atrtxt = "Input Atrs =================";
extern int     i_atr1 = 1, 
               i_atr10 = 10;

extern string  i_simbolo1 = "US500.r", 
               i_simbolo2 = "NAS100.r";        
extern string  multitxt = "MULTI DOUBLE =================";
extern double  i_multi3 = 3,
               i_multi2 = 2,
               i_multi1 = 1;

//------------------------------------------------------------------------------------
int            num=3;//Numero de periodos a analizar
int            indicadores=8; //numero de filas

int            scaleX=20, //distancia entre columnas
               scaleY=20,   //distancia entre filas
               offsetX=10, //35
               offsetY=20, //20
               fontSize=40, //20
               corner=1,    //1   
               symbolCodeBuy=167, //110
               symbolCodeSell=167, //110
               symbolCodeNoSignal=167; //110
           
 color         signalBuyColor=clrLime,
               signalSellColor=clrRed,
               noSignalColor=clrBlack,
               leerColor=White,
               textColor=Lime;     

string         atrTxt = IntegerToString(i_atr1);

double         TrendUp[], 
               TrendDown[];


int            period[]={ 15, 5, 1}; //Timeframes en números 
string         periodString[]={   "15M",  "5M", "1M" }, //timefranmes como string


signalNameString[]={   
                    
                    "ES 1-1",
                    "ES 1-2",
                    "ES 1-3",
                    "ES 10-3",
                    "NQ 1-1",
                    "NQ 1-2",
                    "NQ 1-3",
                    "NQ 10-3"
      
                    };

//////////////////////////////////////////////////////////////////////
//
// init()          
//
//////////////////////////////////////////////////////////////////////
int init()
{
   
            for(int x=0;x<num;x++)
            for(int y=0;y<indicadores;y++)
            {
               ObjectCreate("signal"+x+y,OBJ_LABEL,0,0,0,0,0);
               ObjectSet("signal"+x+y,OBJPROP_CORNER,corner);
               ObjectSet("signal"+x+y,OBJPROP_XDISTANCE,x*scaleX+offsetX);
               ObjectSet("signal"+x+y,OBJPROP_YDISTANCE,y*scaleY+20);
               ObjectSetText("signal"+x+y,CharToStr(symbolCodeNoSignal),
                             fontSize,"Wingdings",noSignalColor);
            }
  
  
           //ASIGNANDO LOS PERIODOS A CADA CUADRADO
           for(x=0;x<num;x++)
           {
               ObjectCreate("textPeriod"+x,OBJ_LABEL,0,0,0,0,0);        
               ObjectSet("textPeriod"+x,OBJPROP_CORNER,corner);
               ObjectSet("textPeriod"+x,OBJPROP_XDISTANCE,x*scaleX+offsetX);  
               ObjectSet("textPeriod"+x,OBJPROP_YDISTANCE,offsetY-1);
               ObjectSetText("textPeriod"+x,periodString[x],9,"Tahoma",textColor);
           }
 
           //ASIGNANDO LOS NOMBRE DE LAS SENALES A CADA FILA
           for(y=0;y<indicadores;y++)
           {
               ObjectCreate("textSignal"+y,OBJ_LABEL,0,0,0,0,0);   
               ObjectSet("textSignal"+y,OBJPROP_CORNER,corner);
               ObjectSet("textSignal"+y,OBJPROP_XDISTANCE,offsetX+75);//-25
               ObjectSet("textSignal"+y,OBJPROP_YDISTANCE,y*(scaleY)+offsetY+20);//+8
               ObjectSetText("textSignal"+y,signalNameString[y],8,"Tahoma",textColor);      
           }
                           
            return(0);
}
 
 
  
int start()
{
       

   //ES--------------------------------------------------------------------------------------------------------------
    for(int x=0;x<num;x++) 
   {
              
              if(tendencia(i_simbolo1, period[x], i_atr1, i_multi1) ==1){
              ObjectSetText("signal"+x+"0",CharToStr(symbolCodeBuy),fontSize,"Wingdings",signalBuyColor);
              }else if(tendencia(i_simbolo1, period[x], i_atr1, i_multi1) == -1 ){
              ObjectSetText("signal"+x+"0",CharToStr(symbolCodeSell),fontSize,"Wingdings",signalSellColor);
              }else   
              ObjectSetText("signal"+x+"0",CharToStr(symbolCodeNoSignal),fontSize,"Wingdings",noSignalColor);
   }
   
    for(x=0;x<num;x++) 
   {
              
              if(tendencia( i_simbolo1, period[x], i_atr1, i_multi2) ==1){
              ObjectSetText("signal"+x+"1",CharToStr(symbolCodeBuy),fontSize,"Wingdings",signalBuyColor);
              }else if(tendencia(i_simbolo1, period[x], i_atr1, i_multi2) == -1 ){
              ObjectSetText("signal"+x+"1",CharToStr(symbolCodeSell),fontSize,"Wingdings",signalSellColor);
              }else   
              ObjectSetText("signal"+x+"1",CharToStr(symbolCodeNoSignal),fontSize,"Wingdings",noSignalColor);
   }
   
    for(x=0;x<num;x++) 
   {
              
              if(tendencia(i_simbolo1, period[x], i_atr1, i_multi3) ==1){
              ObjectSetText("signal"+x+"2",CharToStr(symbolCodeBuy),fontSize,"Wingdings",signalBuyColor);
              }else if(tendencia(i_simbolo1, period[x], i_atr1, i_multi3) == -1 ){
              ObjectSetText("signal"+x+"2",CharToStr(symbolCodeSell),fontSize,"Wingdings",signalSellColor);
              }else   
              ObjectSetText("signal"+x+"2",CharToStr(symbolCodeNoSignal),fontSize,"Wingdings",noSignalColor);
   }
   
    for(x=0;x<num;x++) 
   {
              
              if(tendencia(i_simbolo1, period[x], i_atr10, i_multi3) ==1){
              ObjectSetText("signal"+x+"3",CharToStr(symbolCodeBuy),fontSize,"Wingdings",signalBuyColor);
              }else if(tendencia(i_simbolo1, period[x], i_atr10, i_multi3) == -1 ){
              ObjectSetText("signal"+x+"3",CharToStr(symbolCodeSell),fontSize,"Wingdings",signalSellColor);
              }else   
              ObjectSetText("signal"+x+"3",CharToStr(symbolCodeNoSignal),fontSize,"Wingdings",noSignalColor);
   }
   
   //NQ--------------------------------------------------------------------------------------------------------------
    for( x=0;x<num;x++) 
   {
              
              if(tendencia(i_simbolo2, period[x], i_atr1, i_multi1) ==1){
              ObjectSetText("signal"+x+"4",CharToStr(symbolCodeBuy),fontSize,"Wingdings",signalBuyColor);
              }else if(tendencia(i_simbolo2, period[x], i_atr1, i_multi1) == -1 ){
              ObjectSetText("signal"+x+"4",CharToStr(symbolCodeSell),fontSize,"Wingdings",signalSellColor);
              }else   
              ObjectSetText("signal"+x+"4",CharToStr(symbolCodeNoSignal),fontSize,"Wingdings",noSignalColor);
   }
   
    for(x=0;x<num;x++) 
   {
              
              if(tendencia( i_simbolo2, period[x], i_atr1, i_multi2) ==1){
              ObjectSetText("signal"+x+"5",CharToStr(symbolCodeBuy),fontSize,"Wingdings",signalBuyColor);
              }else if(tendencia(i_simbolo2, period[x], i_atr1, i_multi2) == -1 ){
              ObjectSetText("signal"+x+"5",CharToStr(symbolCodeSell),fontSize,"Wingdings",signalSellColor);
              }else   
              ObjectSetText("signal"+x+"5",CharToStr(symbolCodeNoSignal),fontSize,"Wingdings",noSignalColor);
   }
   
    for(x=0;x<num;x++) 
   {
              
              if(tendencia(i_simbolo2, period[x], i_atr1, i_multi3) ==1){
              ObjectSetText("signal"+x+"6",CharToStr(symbolCodeBuy),fontSize,"Wingdings",signalBuyColor);
              }else if(tendencia(i_simbolo2, period[x], i_atr1, i_multi3) == -1 ){
              ObjectSetText("signal"+x+"6",CharToStr(symbolCodeSell),fontSize,"Wingdings",signalSellColor);
              }else   
              ObjectSetText("signal"+x+"6",CharToStr(symbolCodeNoSignal),fontSize,"Wingdings",noSignalColor);
   }
   
    for(x=0;x<num;x++) 
   {
              
              if(tendencia(i_simbolo2, period[x], i_atr10, i_multi3) ==1){
              ObjectSetText("signal"+x+"7",CharToStr(symbolCodeBuy),fontSize,"Wingdings",signalBuyColor);
              }else if(tendencia(i_simbolo2, period[x], i_atr10, i_multi3) == -1 ){
              ObjectSetText("signal"+x+"7",CharToStr(symbolCodeSell),fontSize,"Wingdings",signalSellColor);
              }else   
              ObjectSetText("signal"+x+"7",CharToStr(symbolCodeNoSignal),fontSize,"Wingdings",noSignalColor);
   }

 
 
   WindowRedraw(); 
   return(0);
}

//////////////////////////////////////////////////////////////////////
//  deinit()                       
//////////////////////////////////////////////////////////////////////
int deinit()
{

   ObjectsDeleteAll();
   return(0);
}



//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int tendencia(string i_simbolo, int timeFrame, int atrPeriodo, double multipler)
  {

   int limit, i, flag, flagh, trend[50], tendencia;

   double up[50], dn[50], medianPrice, atr;

   int counted_bars = IndicatorCounted();

   if(counted_bars < 0)
      return(-1);

   if(counted_bars > 0)
      counted_bars--;

   limit= iBars(i_simbolo, timeFrame) -1-counted_bars;

   for(i = iBars(i_simbolo, timeFrame) ; i >= 1; i--)
     {

      TrendUp[i] = EMPTY_VALUE;

      TrendDown[i] = EMPTY_VALUE;

      //-------------------------------------------------------------------------

      atr = iATR(i_simbolo, timeFrame, atrPeriodo, i);

      medianPrice = (iHigh(i_simbolo, timeFrame, i) + iLow(i_simbolo, timeFrame, i))/2;

      up[i]=medianPrice+(multipler*atr);

      dn[i]=medianPrice-(multipler*atr);

      if(iClose(i_simbolo, timeFrame, i) > up[i+1])
        {

         trend[i]=1;

        }

      else
         if(iClose(i_simbolo, timeFrame, i) < dn[i+1])
           {

            trend[i]=-1;

           }//done

         else
            if(trend[i+1]==1)
              {

               trend[i]=1;

              }//donde

            else
               if(trend[i+1]==-1)
                 {

                  trend[i]=-1;

                 }//done

      if(trend[i]<0 && trend[i+1]>0)
        {

         flag=1;

        }
      else
        {

         flag=0;

        }

      if(trend[i]>0 && trend[i+1]<0)
        {

         flagh=1;

        }
      else
        {

         flagh=0;

        }

      if(trend[i]>0 && dn[i]<dn[i+1])

         dn[i]=dn[i+1];

      if(trend[i]<0 && up[i]>up[i+1])

         up[i]=up[i+1];

      if(flag==1)

         up[i]=medianPrice+(multipler*atr);

      if(flagh==1)

         dn[i]=medianPrice-(multipler*atr);

      if(trend[i]==1)
        {

         tendencia = 1;

        }
      else
         if(trend[i]==-1)
           {

            tendencia = -1;

           }

     }


   return tendencia;

  }