Rsi of Smoother

#property indicator_separate_window
#property indicator_buffers 1
#property indicator_color1  Orange
#property indicator_width1  2
#property indicator_minimum 0
#property indicator_maximum 100
#property indicator_level1  70
#property indicator_level2  30

extern double Length      = 14;
extern int    Price       = PRICE_CLOSE;
extern double SmoothSpeed =  1;

double rsi[];

int init()
{
      // код доступен только после оплаты
   }
int deinit() { return(0); }

int start()
{
      // код доступен только после оплаты
   }
   int i,counted_bars=IndicatorCounted();
      if(counted_bars<0) return(-1);
      if(counted_bars>0) counted_bars--;
         int limit = MathMin(Bars-counted_bars,Bars-1);

   for(i=limit; i>=0; i--)
   {
      double mom  = iMA(NULL,0,1,0,MODE_SMA,Price,i)-iMA(NULL,0,1,0,MODE_SMA,Price,i+1);
      double moa  = MathAbs(mom);
      double tmom = iSmooth(mom,Length,SmoothSpeed,i,0);
      double tmoa = iSmooth(moa,Length,SmoothSpeed,i,1);
      if (tmoa != 0)
           rsi[i] = MathMax(MathMin((tmom/tmoa+1.0)*50.0,100.00),0.00); 

Показано первые 50% кода (символов: 1846)