//+------------------------------------------------------------------+
//|                                                       iftrsi.mq4 |
//|                        Copyright 2021, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property indicator_separate_window
#property indicator_maximum  1.1
#property indicator_minimum -1.1
#property indicator_buffers 1
#property indicator_color1 clrAqua
extern int                rsi_lenght = 5;
extern ENUM_APPLIED_PRICE rsi_price  = PRICE_CLOSE;
extern int                ma_lenght  = 9;
extern ENUM_MA_METHOD     ma_mode    = MODE_LWMA;
#property indicator_levelstyle 0;
#property indicator_level1 0.5
#property indicator_level2 -0.5
#property indicator_levelcolor 4868682

double B0[], B1[], B2[];

int init(){
   IndicatorDigits(Digits);
   IndicatorBuffers(3);
   SetIndexBuffer(0,B0);
   SetIndexBuffer(1,B1);
   SetIndexBuffer(2,B2);
   return(0);
  }

int start(){int i, limit=Bars-IndicatorCounted()-1;

   for(i=limit-2;i>=0;i--){B1[i]=0.1*(iRSI(Symbol(),0,rsi_lenght,rsi_price,i)-50.0);}
   for(i=limit-2;i>=0;i--){B2[i]=iMAOnArray(B1,0,ma_lenght,0,ma_mode,i);}
   for(i=limit-2;i>=0;i--){B0[i]=(MathPow(M_E,2*B2[i])-1)/(MathPow(M_E,2*B2[i])+1);}
   return(0);
  }