Williams AD +MA

#property description "Williams Accumulation/Distribution [A/D] определяется изменением цены и объема." 
#property description "Объем выступает в роли весового коэффициента при изменении цены: рост A/D = накопление (покупка) и падение A/D = распределение (продажа) фьючерса." 

#property indicator_separate_window
#property indicator_buffers 2

enum MAtype { NO, Lines, Cloud };

extern int            SignalMA1  =  15;

extern ENUM_MA_METHOD MA1Method  =  MODE_LWMA;

extern int             WADShift  =  0,
                       MA1Shift  =  0;     

extern color            ADcolor  =  LightSteelBlue,   //Lavender,    Индекс - Цвет
                       MA1color  =  Lime;             //             Первая МАшка: Цвет

extern MAtype          MA12Type  =  Lines;            //Первая, Вторая МАшка - Тип Отрисовки 
extern ENUM_LINE_STYLE  ADstyle  =  STYLE_SOLID,      //Индекс - Стиль
                       MA1style  =  STYLE_SOLID;      //Первая МАшка: Стиль

extern int               ADsize  =  2,                //Индекс - Толщина
                        MA1size  =  1;                //Первая МАшка: Толщина

extern bool       AlertsMessage  =  false,    
                    AlertsSound  =  false,
                    AlertsEmail  =  false,
                   AlertsMobile  =  false;

double Signal1[], Signal2[], Signal3[], Buffer[];
datetime TimeBar=0; 

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

int deinit()  { return(0); }

int start()
{
      // код доступен только после оплаты
   }
   double AD,TRH,TRL;

   int limit, i;
   int counted_bars=IndicatorCounted();

   if(counted_bars<0) return(-1);

   if(counted_bars>0) counted_bars--;
   limit=Bars-counted_bars;

   for (i=limit; i >= 0; i--)   //for(i=0; i<=limit; i++)    //
     {      
      TRH = MathMax(High[i], Close[i+1]);
      TRL = MathMin(Low[i], Close[i+1]);

      if (Close[i]>Close[i+1]+Point)       AD = Close[i]-TRL;
      else if (Close[i]<Close[i+1]-Point)  AD = Close[i]-TRH;
      else AD = 0;

      Buffer[i] = Buffer[i+1]+AD;
     }

   for (i=limit; i>=0; i--) 
     {
      if (SignalMA1==0) Signal1[i]=EMPTY_VALUE; else Signal1[i]=iMAOnArray(Buffer,0,SignalMA1,0,MA1Method,i);

     }

   if (Ale

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