dual stoch - divergences 2.1 (alerts).mq5

#property indicator_separate_window
#property indicator_buffers    5
#property indicator_color1     clrDarkGray
#property indicator_color2     clrLimeGreen
#property indicator_color3     clrLimeGreen
#property indicator_color4     clrOrange
#property indicator_color5     clrOrange
#property indicator_width1     2
#property indicator_width2     3
#property indicator_width3     3
#property indicator_width4     3
#property indicator_width5     3
#property indicator_minimum   -0.1
#property indicator_maximum    1.1
#property strict

#define _fltPrc 0x01
#define _fltVal 0x10
enum enFltWhat
{
   flt_01 = _fltPrc,        // Filter the price
   flt_02 = _fltVal,        // Filter the value
   flt_03 = _fltPrc+_fltVal // Filter the price and the value
};
input int                 Length          = 30;           // Period
input ENUM_APPLIED_PRICE  Price           = PRICE_CLOSE;  // Price
input string              BaseSymbol      = "GBPUSD";     // Symbol to compare to
input double              TresholdUp      = 0.8;          // Upper treshlod
input double              TresholdDn      = 0.2;          // Lower treshlod
input int                 PreSmooth       = 8;            // Price smoothing period
input int                 PreSmoothPhase  = 0;            // Price smoothing phase
input int                 PosSmooth       = 0;            // Result smoothing period
input int                 PosSmoothPhase  = 0;            // Result smoothing phase
input double              Filter          = 0;            // Filter to use for filtering (<=0 - no filtering)
input enFltWhat           FilterWhat      = _fltVal;      // Filter on :
input bool                alertsOn        = true;         // Alerts true/false?
input bool                alertsOnCurrent = false;        // Alerts open bar true/false?
input bool                alertsMessage   = true;         // Alerts pop-up message true/false?
input bool                alertsSound     = false;        // Alerts sound true/false?
input bool                alertsNotify    = false;        // Alerts push notification true/false?
input bool                alertsEmail     = false;        // Alerts email true/false?
input string              soundFile        = "alert2.wav"; // Sound file

double stoch[],stochua[],stochub[],stochda[],stochdb[],stocha[],stochb[],stochc[],pricesa[],pricesb[],state[];

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);

   double pfilter = ((FilterWhat&_fltPrc)==0) ? 0 : Filter;
   double vfilter = ((FilterWhat&_fltVal)==0) ? 0 : Filter;
   if (state[limit]== 1) CleanPoint(limit,stochua,stochub);
   if (state[limit]==-1) CleanPoint(limit,stochda,stochdb);
   for(int i=limit; i>=0; i--)
   {
      pricesa[i] = iSmooth(iFilter(iMA(NULL      ,0,1,0,MODE_SMA,Price,i),pfilter,Length,i,0),PreSmooth,PreSmoothPhase,i,0);
      pricesb[i] = iSmooth(iFilter(iMA(BaseSymbol,0,1,0,MODE_SMA,Price,i),pfilter,Length,i,1),PreSmooth,PreSmoothPhase,i,1);
      stochda[i] = stochdb[i] = EMPTY_VALUE;
      stochua[i] = stochub[i] = EMPTY_VALUE;
      double min=0,max=0;
         max = pricesa[ArrayMaximum(pricesa,Length,i)];
         min = pricesa[ArrayMinimum(pricesa,Length,i)];
            stocha[i] = (max!=min) ? (pricesa[i]-min)/(max-min) : 0.5;
         max = pricesb[ArrayMaximum(pricesb,Length,i)];
         min = pricesb[ArrayMinimum(pricesb,Length,i)];
            stochb[i] = (max!=min) ? (pricesb[i]-min)/(max-min) : 0.5;
            stochc[i] = stocha[i]-stochb[i];
         max = stochc[ArrayMaximum(stochc,Length*10,i)];
         min = stochc[ArrayMinimum(stochc,Length*10,i)];
            stoch[i] = (max!=min) ? iFilter(fmax(fmin(iSmooth((stochc[i]-min)/(max-min),PosSmooth,PosSmoothPhase,i,2),1),0),vfilter,Length,i,2) :
                                    iFilter(fmax(fmin(iSmooth(0.5                      ,PosSmooth,PosSmoothPhase,i,2),1),0),vfilter,Length,i,2);
            state[i] = (stoch[i]>TresholdUp) ? 1 : (stoch[i]<TresholdDn) ? -1 : 0;
        if (state[i] ==  1) PlotPoint(i,stochua,stochub,stoch);
        if (state[i] == -1) PlotPoint(i,stochda,stochdb,stoch);
   }
   if (alertsOn)
   {
      int whichBar = (alertsOnCurrent) ? 0 : 1;
      if (state[whichBar] != state[whichBar+1])
      {
         if (state[whichBar] == 1) doAlert(" crossing upper threshold");
         if (state[whichBar] ==-1) doAlert(" crossing lower threshold");       
      }

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