StocRSI Metatrader MQ4 Indicators Forex Trading Systems - XEATrade - Metatrader, Metastock, Tradestation, Amibroker

# A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Home
Forex Forum
+ Add Script
Metastock Expert Advisors Explorations Indicators Trading Systems Metatrader MQL Experts MQL Indicators MQ4 Experts MQ4 Indicators MQ4 Scripts Tradestation Functions Indicators PaintBars ShowMe Trading Systems Amibroker Commentaries Explorations Functions Indicators Trading Systems

Contact us



Newsletter

Group: Metatrader MQ4 Indicators

Title: StocRSI

Description: John Ehlers StocRSI

//+------------------------------------------------------------------+
//|                                                    StocRSI 2.mq4 |
//|                                                     Emerald King |
//|                                     mailto:info@emerald-king.com |
//+------------------------------------------------------------------+
#property copyright "Emerald King"
#property link      "mailto:info@emerald-king.com"

#property indicator_separate_window
#property indicator_color1 Red
//---- input parameters
extern int Len1=8;
extern int Len2=8;
extern int Len3=5;
extern int CountBars=950;

double CU = 0;
double CD = 0;
double CUAve = 0;
double CDAve = 0;
double CUAveB = 0;
double CDAveB = 0;
double Count = 0;
double RSI0[1000];
double HiR = 0;
double LoR = 0;
double StocR = 0;
double StocRSI = 0;
double Price = 0;
int x = 0;
double TempA = 0;
double TempB = 0;
double TempC = 0;
int Lookback = 0;

double val1[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
//----
   Lookback = MathMax(Len1, Len2);
   Lookback = MathMax(Lookback, Len3);   
   SetIndexBuffer(0,val1);
   return(0);
  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//---- TODO: add your code here
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   if (CountBars>Bars) CountBars=Bars;
   SetIndexDrawBegin(0,Bars-CountBars+Lookback);
   
   int i;
   int    counted_bars=IndicatorCounted();

   if(CountBars<=Lookback) return(0);
   //---- initial zero
   if(counted_bars<1)
   {
      for(i=1;i<=Lookback;i++) val1[CountBars-i]=0.0;
   }

   i=CountBars-Lookback-1;
   while(i>=0)
   {
      CU = 0;
      CD = 0;
      CUAveB = CUAve;
      CDAveB = CDAve;
      
      for (x=i; x<i+Len1-1;x++)
      {
         if (Close[x] > Close[x + 1]) CU = CU + (Close[x] - Close[x + 1]);
         if (Close[x] < Close[x + 1]) CD = CD + (Close[x + 1] - Close[x]);
      }
      
      
      CU = CU / Len1;
      CD = CD / Len1;
      CUAve = CU;
      CDAve = CD;
      
      if ((CUAve + CDAve) != 0) RSI0[i] = CUAve / (CUAve+ CDAve);
      if (i > Lookback)
      {
         CUAve = (CUAveB *(Len1 - 1) + CU) / Len1;
         CDAve = (CDAveB *(Len1 - 1) + CD) / Len1;
      }
      
      if ((CUAve + CDAve) != 0) RSI0[i] = CUAve / (CUAve+ CDAve);
      
      for (x=i; x<i+Len2-1; x++) 
      {
         if ( x==i )
         {
            TempA = RSI0[x];
            TempB = RSI0[x];
         }
         
         if ( RSI0[x] > TempA )
            TempA = RSI0[x];
         if ( RSI0[x] < TempB )
            TempB = RSI0[x];
      }
            
      HiR = TempA;
      LoR = TempB;
      
      if (HiR != LoR) StocR = (RSI0[i] - LoR)/ (HiR - LoR);

      StocRSI = 0;
      TempC = 0;
      
      for (x=i; x<i+Len3-1;x++)
      {
         StocRSI = StocRSI + (Len3 - x) * StocR;
         TempC = TempC + (x+1);
      }
      
      if ( TempC != 0 ) StocRSI = StocRSI / TempC;

      if ( StocRSI > 0 )
         val1[i] = val1[i+1];
      else
         val1[i] = StocRSI;   
	  i--;
	}
   return(0);
 }
//+------------------------------------------------------------------+

Author/Source: Emerald King