//+------------------------------------------------------------------+
//|                                              Trend Following.mq4 |
//|                                              http://www.o-bo.com |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright "Christophe Sangouard"
#property link      "cs@o-bo.com"

#property indicator_chart_window

int tframe[]={1,5,15,30,60,240,1440,10080,43200};
string tf[]={"M1","M5","M15","M30","H1","H4","D1","W1","MN1"};
int tfnumber=9;    

int Periode=6;
color UpColor=Blue;
color DownColor=Red;
color FlatColor=Yellow;
color TextColor=White;
int Corner=0;

double TREND0;
double TREND1;
double Trend1;
double Explo1;
string TimeFrameStr;
double IndVal[9];

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {

   for(int w=1;w<tfnumber+1;w++)
      {
         ObjectCreate(tf[w-1],OBJ_LABEL,0,0,0,0,0);
         ObjectSet(tf[w-1],OBJPROP_CORNER,Corner);
         ObjectSet(tf[w-1],OBJPROP_XDISTANCE,(w-1)*23+15);
         ObjectSet(tf[w-1],OBJPROP_YDISTANCE,20);
         ObjectSetText(tf[w-1],tf[w-1],8,"Tahoma",TextColor);
      }



//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----

   for(int k=1;k<tfnumber+1;k++)
      ObjectDelete("Ind"+k);
   for(k=1;k<tfnumber+1;k++)
      ObjectDelete(tf[k-1]);

      ObjectDelete("signal");
      ObjectDelete("explosion");
      ObjectDelete("juice");
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   
//----
   
   for(int a=1;a<tfnumber+1;a++)
      ObjectDelete("Ind"+a);



   for(int j=1;j<tfnumber+1;j++)
      {
         ObjectCreate("Ind"+j,OBJ_LABEL,0,0,0,0,0);
         ObjectSet("Ind"+j,OBJPROP_CORNER,Corner);
         ObjectSet("Ind"+j,OBJPROP_XDISTANCE,(j-1)*23+15);
         ObjectSet("Ind"+j,OBJPROP_YDISTANCE,30);
         ObjectSetText("Ind"+j,CharToStr(110),12,"Wingdings",White);
      }
      
    
   for(int x=1;x<tfnumber+1;x++)
      {
      
      TREND0=iMA(NULL,tframe[x-1],Periode,0,MODE_SMMA,PRICE_MEDIAN,0);
      TREND1=iMA(NULL,tframe[x-1],Periode,0,MODE_SMMA,PRICE_MEDIAN,1);

        if (TREND0>TREND1)
        {
        IndVal[x-1]=1;
        }
        else if (TREND0<TREND1)
        {
        IndVal[x-1]=-1;
        }
        else IndVal[x-1]=0;
      }
   
   
   
      for(int y=1;y<tfnumber+1;y++)
      {
         if(IndVal[y-1]==-1) ObjectSetText("Ind"+y,CharToStr(108),12,"Wingdings",DownColor);
         if(IndVal[y-1]==0) ObjectSetText("Ind"+y,CharToStr(108),12,"Wingdings",FlatColor);
         if(IndVal[y-1]==1) ObjectSetText("Ind"+y,CharToStr(108),12,"Wingdings",UpColor);
      }  
      
         ObjectCreate("signal",OBJ_LABEL,0,0,0,0,0);
         ObjectSet("signal",OBJPROP_CORNER,Corner);
         ObjectSet("signal",OBJPROP_XDISTANCE,16);
         ObjectSet("signal",OBJPROP_YDISTANCE,45);
         if (IndVal[1]==1&&IndVal[4]==1&&IndVal[6]==1)
         {ObjectSetText("signal","TREND FOLLOWING",8,"Tahoma",Lime);}
         else
         {if (IndVal[1]==-1&&IndVal[4]==-1&&IndVal[6]==-1)
         {ObjectSetText("signal","TREND FOLLOWING",8,"Tahoma",Red);}
         else
         {ObjectSetText("signal","TREND FOLLOWING",8,"Tahoma",Gray);}}
         
         double bollup=iBands(NULL,0,20,2,0,PRICE_CLOSE,MODE_UPPER,0);
         double bolldn=iBands(NULL,0,20,2,0,PRICE_CLOSE,MODE_LOWER,0);
         
         ObjectCreate("juice",OBJ_LABEL,0,0,0,0,0);
         ObjectSet("juice",OBJPROP_CORNER,Corner);
         ObjectSet("juice",OBJPROP_XDISTANCE,117);
         ObjectSet("juice",OBJPROP_YDISTANCE,45);
         if (Close[0]>=bollup||Close[0]<=bolldn)
         {ObjectSetText("juice","PULSE",8,"Tahoma",Yellow);}
         else
         {ObjectSetText("juice","PULSE",8,"Tahoma",Gray);}
         
         Trend1 = (iMACD(NULL, 0, 20, 40, 9, PRICE_CLOSE, MODE_MAIN, 0) - 
                 iMACD(NULL, 0, 20, 40, 9, PRICE_CLOSE, MODE_MAIN, 1))*150;
         Explo1 = (iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, 0) - 
                 iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_LOWER, 0));
         
         ObjectCreate("explosion",OBJ_LABEL,0,0,0,0,0);
         ObjectSet("explosion",OBJPROP_CORNER,Corner);
         ObjectSet("explosion",OBJPROP_XDISTANCE,152);
         ObjectSet("explosion",OBJPROP_YDISTANCE,45);
         if (Trend1>Explo1)
         {ObjectSetText("explosion","EXPLO: " + DoubleToStr((((Trend1/Explo1)-1)*100),0)+"%",8,"Tahoma",Lime);}
         else
         {if (-Trend1>Explo1)
         {ObjectSetText("explosion","EXPLO: " + DoubleToStr((((MathAbs(Trend1)/Explo1)-1)*100),0)+"%",8,"Tahoma",Red);}
         else
         {ObjectSetText("explosion","FLAT TREND",8,"Tahoma",Gray);}}      
   
//----
   return(0);
  }
//+------------------------------------------------------------------+