//+------------------------------------------------------------------+
//|                                                   ytg_TF_RSI.mq4 |
//|                                                     Yuriy Tokman |
//|                                            yuriytokman@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Yuriy Tokman"
#property link      "yuriytokman@gmail.com"

#property indicator_chart_window

extern string _____1_____ = "Настройки индикатора";
extern int timeframe      = 1440;
extern int period         = 14;
extern int applied_price  = 0;

 int Размер_шрифта  = 10;
 int угол           = 0;//0-3  
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   ObjectCreate("TF",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("RSI",OBJ_LABEL,0,0,0,0,0);   
   ObjectCreate("Arow",OBJ_LABEL,0,0,0,0,0);   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   ObjectDelete ("TF");
   ObjectDelete ("RSI");   
   ObjectDelete ("Arow");   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
//----
   int limit;
   int counted_bars=IndicatorCounted();
   
   if(counted_bars<0) return(-1);

   if(counted_bars>0) counted_bars--;
   limit=Bars-counted_bars;
   
   double RSI_0,RSI_1,delta_RSI;
   color colir_1,colir_2;
   string Arow;

   for(int i=limit; i>=0; i--)
   {
    RSI_0 = iRSI(Symbol(),timeframe,period,applied_price,i);
    RSI_1 = iRSI(Symbol(),timeframe,period,applied_price,i+1);
    delta_RSI = RSI_0 - RSI_1;
    if(RSI_0>=50)colir_1 = Green;
    else colir_1 = Red;
    if(delta_RSI>0){colir_2 = Green;Arow = "с";}
    else {colir_2 = Red;Arow = "т";}
   }   
//----
     string TF ="TF = "+GetNameTF(timeframe)+" ("+timeframe+")";
     string RSI ="RSI = "+DoubleToStr(RSI_0,2);
      
     ObjectSetText("TF",TF,Размер_шрифта,"Arial Black",Lime);
     ObjectSet("TF",OBJPROP_XDISTANCE,3);     
     ObjectSet("TF",OBJPROP_YDISTANCE,30);
     ObjectSet("TF",OBJPROP_CORNER,угол);
     
     ObjectSetText("RSI",RSI,Размер_шрифта,"Arial Black",Lime);
     ObjectSet("RSI",OBJPROP_XDISTANCE,3);     
     ObjectSet("RSI",OBJPROP_YDISTANCE,50);
     ObjectSet("RSI",OBJPROP_COLOR,colir_1);
     ObjectSet("RSI",OBJPROP_CORNER,угол);     

     ObjectSetText("Arow",Arow,Размер_шрифта+2,"Wingdings",Lime);     
     ObjectSet("Arow",OBJPROP_XDISTANCE,90);     
     ObjectSet("Arow",OBJPROP_YDISTANCE,50);
     ObjectSet("Arow",OBJPROP_COLOR,colir_2);
     ObjectSet("Arow",OBJPROP_CORNER,угол);     
//----
   return(0);
  }
//+------------------------------------------------------------------+
//|  Описание : Возвращает наименование таймфрейма                             |
//+----------------------------------------------------------------------------+
//|  Параметры:                                                                |
//|    TimeFrame - таймфрейм (количество секунд)      (0 - текущий ТФ)         |
//+----------------------------------------------------------------------------+
string GetNameTF(int TimeFrame=0) {
  if (TimeFrame==0) TimeFrame=Period();
  switch (TimeFrame) {
    case PERIOD_M1:  return("M1");
    case PERIOD_M5:  return("M5");
    case PERIOD_M15: return("M15");
    case PERIOD_M30: return("M30");
    case PERIOD_H1:  return("H1");
    case PERIOD_H4:  return("H4");
    case PERIOD_D1:  return("Daily");
    case PERIOD_W1:  return("Weekly");
    case PERIOD_MN1: return("Monthly");
    default:         return("UnknownPeriod");
  }
}