Unsmoothed RSI

#property indicator_separate_window
#property indicator_buffers 1
#property indicator_color1  Yellow
#property indicator_minimum 0
#property indicator_maximum 100

extern int Length=14;
extern int Price=0;      // Applied price

extern double Smooth = 5;

double U_RSI[];
double Pos[], Neg[];

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

   for (int pos=limit; pos>=0; pos--)
   {
      double Diff=iMA(NULL, 0, 1, 0, MODE_SMA, Price, pos)-iMA(NULL, 0, 1, 0, MODE_SMA, Price, pos+1);
      if (Diff>0)
            { Pos[pos]=Diff; Neg[pos]=0;     }
      else  { Pos[pos]=0;    Neg[pos]=-Diff; }
   } 
   for (pos=limit; pos>=0; pos--)
   {
      double P=iMAOnArray(Pos, 0, Length, 0, MODE_SMA, pos);
      double N=iMAOnArray(Neg, 0, Length, 0, MODE_SMA, pos);
      if (N==0)
            U_RSI[pos

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