adaptivelaguerrersi_v3.2 600z.mq5

#property indicator_separate_window
#property indicator_buffers 3
#property indicator_color1  clrTomato
#property indicator_width1  2  
#property indicator_color2  clrDeepSkyBlue
#property indicator_width2  2
#property indicator_color3  clrDeepSkyBlue
#property indicator_width3  2

#property indicator_level1  50
#property indicator_level2  25
#property indicator_level3  75

enum ENUM_PRICE
{
   close,               // Close
   open,                // Open
   high,                // High
   low,                 // Low
   median,              // Median
   typical,             // Typical
   weightedClose,       // Weighted Close
   heikenAshiClose,     // Heiken Ashi Close
   heikenAshiOpen,      // Heiken Ashi Open
   heikenAshiHigh,      // Heiken Ashi High   
   heikenAshiLow,       // Heiken Ashi Low
   heikenAshiMedian,    // Heiken Ashi Median
   heikenAshiTypical,   // Heiken Ashi Typical
   heikenAshiWeighted   // Heiken Ashi Weighted Close   
};

enum ENUM_SMOOTHMODE
{
   SMA,                 // Simple Moving Average
   EMA,                 // Exponential Moving Average
   Wilder,              // Wilder Exponential Moving Average
   LWMA,                // Linear Weighted Moving Average
   Median               // Moving Median
};

input ENUM_TIMEFRAMES   TimeFrame            =        0;       //
input ENUM_PRICE        Price                =        0;       // Price
input int               Length               =       50;       // Length  
input int               Order                =        4;       // Laguerre Filter Order 
input bool              AdaptiveModeOn       =     true;       // Adaptive Mode On/Off 
input int               AdaptiveSmooth       =        5;       // Adaptive Factor Smoothing Period
input ENUM_SMOOTHMODE   AdaptiveSmoothMode   =        4;       // Adaptive Factor Smoothing Mode
input bool              ShowInColor          =     true;       // Show in Color

double  laguerreRSI[];
double  upTrend1[];
double  upTrend2[];
double  trend[];
double  iprice[];
double  diff[];
double  gamma[];

int      timeframe;
double   L[][2], ema[2], laguerre[2];
datetime prevtime, ptime, prevTime;
bool     ftime = true;
string   TF, IndicatorName, short_name;

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

int start()
{
      // код доступен только после оплаты
   }
   int    limit, i, shift, counted_bars = IndicatorCounted(); 
   double sgamma, rsi;

   if(counted_bars > 0) limit=Bars-counted_bars-1;
   if(counted_bars < 0) return(0);
   if(counted_bars < 1)
   { 
   limit = Bars - 1;   
      for(i=limit;i>=0;i--) 
      {
      laguerreRSI[i] = 0;
      upTrend1[i]    = EMPTY_VALUE; 
      upTrend2[i]    = EMPTY_VALUE; 
      }
   }   

   if(timeframe != Period())
	{
   limit = MathMax(limit,timeframe/Period());   

      for(shift = 0;shift < limit;shift++) 
      {	
      int y = iBarShift(NULL,timeframe,Time[shift]);

      double RSI   = iCustom(NULL,TimeFrame,IndicatorName,0,Price,Length,Order,AdaptiveModeOn,AdaptiveSmooth,AdaptiveSmoothMode,ShowInColor,0,y);      

      laguerreRSI[shift] = RSI;

         if(ShowInColor)
         {
         int rsitrend = iCustom(NULL,TimeFrame,IndicatorName,0,Price,Length,Order,AdaptiveModeOn,AdaptiveSmooth,AdaptiveSmoothMode,ShowInColor,3,y);      

         upTrend1[shift] = EMPTY_VALUE;
         upTrend2[shift] = EMPTY_VALUE;
         if(rsitrend > 0) upTrend1[shift] = laguerreRSI[shift]; 
         }
      } 

      if(ShowInColor)
      {
         for(shift = limit;shift >= 0;shift--) 
         {	
            if(laguerreRSI[shift] > laguerreRSI[shift+1] && timeframe > Period()) 
            {
            upTrend2[shift]   = laguerreRSI[shift];
            upTrend2[shift+1] = laguerreRSI[shift+1];
            }	
         }
      }   

	return(0);
	}
	else 
   {
      for(shift=limit;shift>=0;shift--)
      {
         if(prevTime != Time[shift])
         {
         laguerre[1] = laguerre[0];
         prevTime    = Time[shift]; 
         }

         if((int)Price <= 6) iprice[shift] = iMA(NULL,0,1,0,0,(int)Price,shift);   
         else
         if((int)Price > 6 && (int)Price <= 13) iprice[shift] = HeikenAshi((int)Price-7,Bars,shift);

      diff[shift] = MathAbs(iprice[shift] - laguerre[1]);

         if(AdaptiveModeOn && shift < Bars - Length - AdaptiveSmooth) 
         {
         gamma[shift] = AdaptiveGamma(diff,Length,shift);

            switch(AdaptiveSmoothMode)
            {
            case 1 : sgamma = EMA   (gamma[shift],AdaptiveSmooth    ,Time[shift],shift); break;
            case 2 : sgamma = EMA   (gamma[shift],2*AdaptiveSmooth-1,Time[shift],shift); break;  
            case 3 : sgamma = LWMA  (gamma       ,AdaptiveSmooth    ,shift); break;   
            case 4 : sgamma = Median(gamma       ,AdaptiveSmooth    ,shift); break; 
            default: sgamma = SMA   (gamma       ,AdaptiveSmoo

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