多交易品种多周期指标中的颜色缓冲区·综合运用

case DRAW_HISTOGRAM     :
case DRAW_ARROW       :
case DRAW_SECTION     :
             class="kw">return ArrayResize(array0,new_size)==new_size;
             class=class="str">"cmt">//--- Two buffers
             case DRAW_HISTOGRAM2     :
             case DRAW_ZIGZAG       :
             case DRAW_FILLING       :
                  res   =(ArrayResize(array0,new_size)==new_size);
                  res &=(ArrayResize(array1,new_size)==new_size);
                  class="kw">return res;
             class=class="str">"cmt">//--- Four buffers
             case DRAW_BARS         :
             case DRAW_CANDLES       :
                  res   =(ArrayResize(array0,new_size)==new_size);
                  res &=(ArrayResize(array1,new_size)==new_size);
                  res &=(ArrayResize(array2,new_size)==new_size);
                  res &=(ArrayResize(array3,new_size)==new_size);
                  class="kw">return res;
             class=class="str">"cmt">//--- One buffer + class="type">color buffer
             case DRAW_COLOR_LINE      :
             case DRAW_COLOR_HISTOGRAM  :

case DRAW_COLOR_ARROW :
case DRAW_COLOR_SECTION :
  res  =(ArrayResize(array0,new_size)==new_size);
  res &=(ArrayResize(color_indexes,new_size)==new_size);
  class="kw">return res;
  class=class="str">"cmt">//--- Two buffers + class="type">color buffer
case DRAW_COLOR_HISTOGRAM2 :
case DRAW_COLOR_ZIGZAG :
  res  =(ArrayResize(array0,new_size)==new_size);
  res &=(ArrayResize(array1,new_size)==new_size);
  res &=(ArrayResize(color_indexes,new_size)==new_size);
  class="kw">return res;
  class=class="str">"cmt">//--- Four buffers + class="type">color buffer
case DRAW_COLOR_BARS :
case DRAW_COLOR_CANDLES :
  res  =(ArrayResize(array0,new_size)==new_size);
  res &=(ArrayResize(array1,new_size)==new_size);
  res &=(ArrayResize(array2,new_size)==new_size);
  res &=(ArrayResize(array3,new_size)==new_size);
  res &=(ArrayResize(color_indexes,new_size)==new_size);
  class="kw">return res;
  class=class="str">"cmt">//---DRAW_NONE
class="kw">default:
  break;

         class="kw">return false;
       }
class=class="str">"cmt">//--- Initializes all arrays
   class="type">int                InitArrays(class="type">void)
      {
         class="type">bool res=class="num">0;
         class="kw">switch(draw_type)
           {
            class=class="str">"cmt">//--- One buffer
            case DRAW_LINE           :
            case DRAW_HISTOGRAM      :
            case DRAW_ARROW          :
            case DRAW_SECTION        :
               class="kw">return ArrayInitialize(array0,init_value);
            class=class="str">"cmt">//--- Two buffers
            case DRAW_HISTOGRAM2     :
            case DRAW_ZIGZAG         :
            case DRAW_FILLING        :
               res+=ArrayInitialize(array0,init_value);
               res+=ArrayInitialize(array1,init_value);
               class="kw">return res/class="num">2;
            class=class="str">"cmt">//--- Four buffers
            case DRAW_BARS           :
            case DRAW_CANDLES        :
               res+=ArrayInitialize(array0,init_value);

res+=ArrayInitialize(array1,init_value);
res+=ArrayInitialize(array2,init_value);
res+=ArrayInitialize(array3,init_value);
class="kw">return res/class="num">4;
class=class="str">"cmt">//--- One buffer + class="type">color buffer
case DRAW_COLOR_LINE       :
case DRAW_COLOR_HISTOGRAM  :
case DRAW_COLOR_ARROW      :
case DRAW_COLOR_SECTION    :
   res+=ArrayInitialize(array0,init_value);
   res+=ArrayInitialize(color_indexes,init_color_idx);
   class="kw">return res/class="num">2;
class=class="str">"cmt">//--- Two buffers + class="type">color buffer
case DRAW_COLOR_HISTOGRAM2 :
case DRAW_COLOR_ZIGZAG     :
   res+=ArrayInitialize(array0,init_value);
   res+=ArrayInitialize(array1,init_value);
   res+=ArrayInitialize(color_indexes,init_color_idx);
   class="kw">return res/class="num">3;
class=class="str">"cmt">//--- Four buffers + class="type">color buffer
case DRAW_COLOR_BARS       :
case DRAW_COLOR_CANDLES    :
   res+=ArrayInitialize(array0,init_value);

res+=ArrayInitialize(array1,init_value);
res+=ArrayInitialize(array2,init_value);
res+=ArrayInitialize(array3,init_value);
res+=ArrayInitialize(color_indexes,init_color_idx);
class="kw">return res/class="num">5;
class=class="str">"cmt">//---DRAW_NONE
class="kw">default:
   break;
}
class="kw">return false;
}
class="kw">public:
   class="type">class="kw">double      array0[];            class=class="str">"cmt">// Indicator&class="macro">#x27;s buffer-array0
   class="type">class="kw">double      array1[];            class=class="str">"cmt">// Indicator&class="macro">#x27;s buffer-array1(2nd array for calculation)
   class="type">class="kw">double      array2[];            class=class="str">"cmt">// Indicator&class="macro">#x27;s buffer-array2(3rd array for calculation)
   class="type">class="kw">double      array3[];            class=class="str">"cmt">// Indicator&class="macro">#x27;s buffer-array3(4th array for calculation)
   class="type">class="kw">double      color_indexes[];     class=class="str">"cmt">// Buffer array of indicator class="type">color indexes
   class="type">color       clrs[];              class=class="str">"cmt">// Array of colors assigned to the buffer
   class="type">class="kw">string      descript;            class=class="str">"cmt">// Buffer description
class=class="str">"cmt">//--- Returns the class="type">color buffer flag
   class="type">bool        IsColoredBuffer(class="type">void) { class="kw">return colored; }
class=class="str">"cmt">//--- (class="num">1) Sets, (class="num">2) returns the buffer drawing style, (class="num">3) the number of the corresponding buffer of the source indicator

class="type">void SetBufferDrawType(const ENUM_DRAW_TYPE type,const class="type">uint buff_source)
  {
   draw_type=type;
   
   class="kw">switch(draw_type)
     {
      case DRAW_COLOR_LINE       :
      case DRAW_COLOR_SECTION    :
      case DRAW_COLOR_HISTOGRAM  :
      case DRAW_COLOR_HISTOGRAM2 :
      case DRAW_COLOR_ARROW      :
      case DRAW_COLOR_ZIGZAG     :
      case DRAW_COLOR_BARS       :
      case DRAW_COLOR_CANDLES    :  colored=true;  break;
      class="kw">default                    :  colored=false; break;
     }
  }
ENUM_DRAW_TYPE DrawType(class="type">void) { class="kw">return draw_type; }
class="type">uint BufferFrom(class="type">void)      { class="kw">return source; }
class=class="str">"cmt">//--- (class="num">1) Sets, (class="num">2) returns the initializing value
class="type">void SetInitValue(const class="type">class="kw">double value) { init_value=value; }
class="type">class="kw">double InitValue(class="type">void)            { class="kw">return init_value; }

class="type">void SetInitColorIdx(const class="type">uchar idx) { init_color_idx=idx; }
class="type">uchar InitColorIdx(class="type">void) { class="kw">return init_color_idx; }
class=class="str">"cmt">//--- (class="num">1) Sets, (class="num">2) returns the buffer offset
class="type">void SetShift(const class="type">int value) { shift=value; }
class="type">int Shift(class="type">void) { class="kw">return shift; }
class=class="str">"cmt">//--- (class="num">1) Returns the size of the buffer array, (class="num">2) changes the size of the buffer array,
class=class="str">"cmt">//--- (class="num">3) initializes the array with the set "empty" value
class="type">uint BufferSize(class="type">void) { class="kw">return array0.Size(); }
class="type">bool BuffResize(const class="type">int new_size) { class="kw">return ResizeArrays(new_size); }
class="type">int InitBuffer(class="type">void) { class="kw">return InitArrays(); }
class=class="str">"cmt">//--- (class="num">1) Returns the size of the class="type">color index buffer array,
class="type">uint BufferColorIdxSize(class="type">void) { class="kw">return color_indexes.Size(); }
class=class="str">"cmt">//--- (class="num">1) Sets, (class="num">2) returns the class="type">color value by index
class="type">void SetColorToIdx(const class="type">uchar idx,const class="type">color clr)
   {
    if(idx>(class="type">int)clrs.Size()-class="num">1)
      {
       ResetLastError();
       if(ArrayResize(clrs,idx+class="num">1)!=idx+class="num">1)
         {
          PrintFormat("%s: ArrayResize &class="macro">#x27;clrs&class="macro">#x27; failed. Error %lu",__FUNCTION__,GetLastError());

class CIndMSTF : class="kw">public CObject
  {
class="kw">private:
   ENUM_PROGRAM_TYPE m_program;       class=class="str">"cmt">// Program type
   ENUM_INDICATOR    m_type;          class=class="str">"cmt">// Indicator type
   ENUM_TIMEFRAMES   m_timeframe;     class=class="str">"cmt">// Chart timeframe
   class="type">class="kw">string            m_symbol;        class=class="str">"cmt">// Chart symbol
   class="type">int               m_handle;        class=class="str">"cmt">// Indicator handle
   class="type">int               m_id;            class=class="str">"cmt">// Identifier
   class="type">bool              m_success;       class=class="str">"cmt">// Successful calculation flag
   ENUM_ERR_TYPE     m_type_err;      class=class="str">"cmt">// Calculation error type
   class="type">class="kw">string            m_description;   class=class="str">"cmt">// Custom description of the indicator
   class="type">class="kw">string            m_name;          class=class="str">"cmt">// Indicator name
   class="type">class="kw">string            m_parameters;    class=class="str">"cmt">// Description of indicator parameters
class="kw">protected:
   ENUM_IND_CATEGORY m_category;      class=class="str">"cmt">// Indicator category
   class="type">MqlParam          m_param[];       class=class="str">"cmt">// Array of indicator parameters
   class="type">class="kw">string            m_title;         class=class="str">"cmt">// Title(indicator name + description of parameters)
   SBuffer           m_buffers[];     class=class="str">"cmt">// Indicator buffers
   class="type">int               m_digits;        class=class="str">"cmt">// Digits in indicator values
   class="type">int               m_limit;         class=class="str">"cmt">// Number of bars required to calculate the indicator on the current tick
   class="type">int               m_rates_total;   class=class="str">"cmt">// Number of available bars for indicator calculation

class="type">int m_prev_calculated; class=class="str">"cmt">// Number of calculated bars on the previous indicator call

class=class="str">"cmt">//--- (class="num">1) Sets indicator name, (class="num">2) description of parameters
class="type">void SetName(const class="type">class="kw">string name) { this.m_name=name; }
class="type">void SetParameters(const class="type">class="kw">string str) { this.m_parameters=str; }

class=class="str">"cmt">//--- Resizes the(class="num">1) specified, (class="num">2) all indicator buffers
class="type">bool BufferResize(const class="type">uint buffer_num,const class="type">int new_buff_size);
class="type">bool BuffersResize(const class="type">int new_buff_size);
class=class="str">"cmt">//--- Initializes the(class="num">1) specified, (class="num">2) all indicator buffers
class="type">bool BufferInitialize(const class="type">uint buffer_num,const class="type">int new_buff_size);
class="type">bool BuffersInitialize(const class="type">int new_buff_size);

class=class="str">"cmt">//--- Returns the flag indicating equality of the structure of one parameter of two objects
class="type">bool IsEqualParameters(const class="type">MqlParam &this_param,const class="type">MqlParam &compared_param) const
  {
   if(this_param.type==compared_param.type &&
      this_param.integer_value==compared_param.integer_value &&
      this_param.string_value==compared_param.string_value &&
      ::NormalizeDouble(this_param.double_value-compared_param.double_value,class="num">8)==class="num">0
      ) class="kw">return true;
   class="kw">return false;
  }
class=class="str">"cmt">//--- Return the result of comparison on one parameter of two objects
class="type">int CompareParams(const class="type">MqlParam &this_param,const class="type">MqlParam &compared_param)
  {
   if(this.IsEqualParameters(this_param,compared_param))
      class="kw">return class="num">0;

else if(this_param.type>compared_param.type      ||
         this_param.integer_value>compared_param.integer_value ||
         this_param.string_value>compared_param.string_value   ||
         this_param.double_value>compared_param.double_value
         ) class="kw">return class="num">1;
      else if(this_param.type<compared_param.type      ||
         this_param.integer_value<compared_param.integer_value ||
         this_param.string_value<compared_param.string_value   ||
         this_param.double_value<compared_param.double_value
         ) class="kw">return -class="num">1;
      else
         class="kw">return -class="num">1;
      }
class=class="str">"cmt">//--- Copies data of the specified array of the specified buffer
   class="type">bool       CopyArray(const class="type">uint buff_num,const class="type">uint array_num,const class="type">int to_copy,class="type">class="kw">double &array[]);
class=class="str">"cmt">//--- Copies data of all arrays of the specified buffer
   class="type">bool       CopyArrays(const class="type">uint buff_num,const class="type">int to_copy);
class="kw">public:
class=class="str">"cmt">//--- Creates the calculation part of the indicator, returns the handle
   class="type">int        CreateIndicator(class="type">void);
class=class="str">"cmt">//--- (class="num">1) Calculates the indicator, fills the passed(class="num">2) plot buffer array, (class="num">3) buffer array of class="type">color indexes(taking into account the symbol-period of the chart) with data from the buffer of the calculation part of the indicator of this class
   class="type">bool       Calculate(class="type">void);
   class="type">bool       DataToBuffer(const class="type">class="kw">string symbol_to,const ENUM_TIMEFRAMES timeframe_to,const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int limit,class="type">class="kw">double &buffer[]);

class="type">bool DataToColorBuffer(const class="type">class="kw">string symbol_to,const ENUM_TIMEFRAMES timeframe_to,const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int limit,class="type">class="kw">double &plot_buffer[],class="type">class="kw">double &color_buffer[]);
class=class="str">"cmt">//--- (class="num">1) Sets(class="num">2) returns the initializing value for the specified buffer
class="type">void SetBufferInitValue(const class="type">uint buffer_num,const class="type">class="kw">double value);
class="type">class="kw">double BufferInitValue(const class="type">uint buffer_num) const;
class=class="str">"cmt">//--- (class="num">1) Sets(class="num">2) returns the initializing value of the class="type">color index for the specified buffer
class="type">void SetBufferInitColorIndex(const class="type">uint buffer_num,const class="type">uchar index);
class="type">uchar BufferInitColorIndex(const class="type">uint buffer_num) const;
class=class="str">"cmt">//--- (class="num">1) Sets, (class="num">2) returns the class="type">color value by index for the specified buffer
class="type">void SetBufferColorToIndex(const class="type">uint buffer_num,const class="type">uchar color_idx,const class="type">color clr);
class="type">color BufferColorByIndex(const class="type">uint buffer_num,const class="type">uchar color_idx);
class=class="str">"cmt">//--- Returns the class="type">color buffer flag
class="type">bool IsColoredBuffer(const class="type">uint buffer_num) const;
class=class="str">"cmt">//--- (class="num">1) Sets(class="num">2) returns the offset value for the specified buffer
class="type">void SetBufferShift(const class="type">uint buffer_num,const class="type">int value);
class="type">class="kw">double BufferShift(const class="type">uint buffer_num) const;
class=class="str">"cmt">//--- (class="num">1) Sets, (class="num">2) returns the drawing style of the specified buffer, (class="num">3) the number of the corresponding buffer of the source indicator
class="type">void SetBufferDrawType(const class="type">uint buffer_num,const ENUM_DRAW_TYPE type,const class="type">uint buff_source);
ENUM_DRAW_TYPE BufferDrawType(const class="type">uint buffer_num);
class="type">uint BufferFrom(const class="type">uint buffer_num);
class=class="str">"cmt">//--- Returns data of the specified buffer and array(class="num">1) as is, (class="num">2) relative to the specified symbol/timeframe,
class=class="str">"cmt">//--- data of the specified class="type">color buffer(class="num">3) as is, (class="num">4) relative to the specified symbol/timeframe,
class=class="str">"cmt">//--- (class="num">5) amount of data in the specified buffer, (class="num">6) number of colors set for the buffer, (class="num">7) the state of the indicator line as it is in the calculation part buffer,
class=class="str">"cmt">//--- (class="num">8) state of the indicator line for the chart symbol/period, description of the line state(class="num">9) as is in the buffer(class="num">10) for the specific chart symbol/period
class="type">class="kw">double GetData(const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int index) const;

class="type">class="kw">double GetDataTo(const class="type">class="kw">string symbol_to,const ENUM_TIMEFRAMES timeframe_to,const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int index) const;
class="type">class="kw">double GetColorData(const class="type">uint buffer_num,const class="type">int index) const;
class="type">class="kw">double GetColorDataTo(const class="type">class="kw">string symbol_to,const ENUM_TIMEFRAMES timeframe_to,const class="type">uint buffer_num,const class="type">int index) const;
class="type">uint DataTotal(const class="type">uint buffer_num,const class="type">uint array_num) const;
class="type">uint ColorsTotal(const class="type">uint buffer_num) const;
ENUM_LINE_STATE BufferLineState(const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int index) const;
ENUM_LINE_STATE BufferLineState(const class="type">class="kw">string symbol_from,const ENUM_TIMEFRAMES timeframes_from,const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int index) const;
ENUM_LINE_STATE BufferLineStateRelative(const class="type">int buffer_num,const class="type">uint array_num,const class="type">int index,const class="type">class="kw">double level0,const class="type">class="kw">double level1=EMPTY_VALUE);
ENUM_LINE_STATE BufferLineStateRelative(const class="type">class="kw">string symbol_from,const ENUM_TIMEFRAMES timeframes_from,const class="type">int buffer_num,const class="type">uint array_num,const class="type">int index,const class="type">class="kw">double level0,const class="type">class="kw">double level1=EMPTY_VALUE);
class=class="str">"cmt">//--- Returns(class="num">1) success flag, (class="num">2) calculation error type
class="type">bool IsSuccess(class="type">void) const { class="kw">return this.m_success; }
ENUM_ERR_TYPE TypeError(class="type">void) const { class="kw">return this.m_type_err; }
class=class="str">"cmt">//--- Sets(class="num">1) identifier, (class="num">2) Digits, (class="num">3) custom description, (class="num">4) description of the specified buffer

class="type">void SetID(const class="type">int id) { this.m_id=id; }
class="type">void SetDigits(const class="type">uint digits) { this.m_digits=(class="type">int)digits; }
class="type">void SetDescription(const class="type">class="kw">string descr) { this.m_description=descr; }
class="type">void SetBufferDescription(const class="type">uint buffer_num,const class="type">class="kw">string descr);
class="type">void SetAsSeriesOff(class="type">void);
class="type">bool IsSeries(const class="type">uint buffer_num,const class="type">uint array_num) const;
class="type">bool IsSynchronized(class="type">void) const
  { class="kw">return (class="type">bool)::SeriesInfoInteger(this.m_symbol,this.m_timeframe,SERIES_SYNCHRONIZED); }
ENUM_TIMEFRAMES Timeframe(class="type">void) const { class="kw">return this.m_timeframe; }
class="type">class="kw">string Symbol(class="type">void) const { class="kw">return this.m_symbol; }
class="type">class="kw">string Name(class="type">void) const { class="kw">return this.m_name; }

class="type">class="kw">string Parameters(class="type">void) const { class="kw">return this.m_parameters; }
class="type">int Handle(class="type">void) const { class="kw">return this.m_handle; }
class="type">int Digits(class="type">void) const { class="kw">return this.m_digits; }
class="type">uint BuffersTotal(class="type">void) const { class="kw">return this.m_buffers.Size(); }
class="type">uint RatesTotal(class="type">void) const { class="kw">return this.m_rates_total; }
class="type">int ID(class="type">void) const { class="kw">return this.m_id; }
class="type">class="kw">string Description(class="type">void) const { class="kw">return this.m_description; }
class="type">class="kw">string Title(class="type">void) const { class="kw">return this.m_title; }
ENUM_IND_CATEGORY Category(class="type">void) const { class="kw">return this.m_category; }
class="type">uint ParamsTotal(class="type">void) const { class="kw">return this.m_param.Size(); }
ENUM_PROGRAM_TYPE Program(class="type">void) const { class="kw">return this.m_program; }
class="type">class="kw">string CategoryDescription(class="type">void);

class="type">class="kw">string BufferDescription(const class="type">uint buffer_num);
class=class="str">"cmt">//--- Returns(class="num">1) structure of parameters by index from array, (class="num">2) flag of indicator program, (class="num">3) timeframe description
class="type">MqlParam GetMqlParam(const class="type">int index) const { class="kw">return this.m_param[index]; }
class="type">bool IsIndicator() const { class="kw">return(this.Program()==PROGRAM_INDICATOR); }
class="type">class="kw">string TimeframeDescription(class="type">void) const
  {
   class="kw">return ::StringSubstr(::EnumToString(this.m_timeframe),class="num">7);
  }
class=class="str">"cmt">//--- Returns amount of calculated data
class="type">int Calculated(class="type">void) const { class="kw">return ::BarsCalculated(this.m_handle); }
class=class="str">"cmt">//--- Virtual method returning the type of object(indicator)
class="kw">virtual class="type">int Type(class="type">void) const { class="kw">return this.m_type; }
class=class="str">"cmt">//--- Virtual method for comparing two objects
class="kw">virtual class="type">int Compare(const CObject *node,const class="type">int mode=class="num">0) const
  {
   const CIndMSTF *compared=node;
   class="kw">switch(mode)
     {
      case COMPARE_MODE_ID       : class="kw">return(this.ID()>compared.ID()       ? class="num">1 : this.ID()<compared.ID()       ? -class="num">1 : class="num">0);
      case COMPARE_MODE_HANDLE   : class="kw">return(this.Handle()>compared.Handle() ? class="num">1 : this.Handle()<compared.Handle() ? -class="num">1 : class="num">0);

case COMPARE_MODE_CATEGORY     : class="kw">return(this.Category()>compared.Category()       ? class="num">1 : this.Category()<compared.Category()       ? -class="num">1 : class="num">0);
case COMPARE_MODE_SYMBOL       : class="kw">return(this.Symbol()>compared.Symbol()           ? class="num">1 : this.Symbol()<compared.Symbol()           ? -class="num">1 : class="num">0);
case COMPARE_MODE_TIMEFRAME    : class="kw">return(this.Timeframe()>compared.Timeframe()     ? class="num">1 : this.Timeframe()<compared.Timeframe()     ? -class="num">1 : class="num">0);
case COMPARE_MODE_DESCRIPTION  : class="kw">return(this.Description()>compared.Description() ? class="num">1 : this.Description()<compared.Description() ? -class="num">1 : class="num">0);
class=class="str">"cmt">//--- Equality of all object parameters
class="kw">default                         : class="kw">return(this.IsEqualIndicators(compared) ? class="num">0 : -class="num">1);
}
class=class="str">"cmt">//--- Returns the flag of equality of parameters of two indicator objects
class="type">bool IsEqualIndicators(const CIndMSTF *compared) const
{
   if(this.Type()!=compared.Type() || this.ParamsTotal()!=compared.ParamsTotal())
      class="kw">return false;
   class="type">bool res=true;
   class="type">int total=(class="type">int)this.ParamsTotal();
   for(class="type">int i=class="num">0;i<total;i++)
      res &=this.IsEqualParameters(this.m_param[i],compared.GetMqlParam(i));
   res &=(this.Timeframe()==compared.Timeframe());
   res &=(this.Symbol()==compared.Symbol());

CIndMSTF::~CIndMSTF()
  {
class=class="str">"cmt">//--- Delete timer
  ::EventKillTimer();
class=class="str">"cmt">//--- Release handle of the indicator
  ::ResetLastError();
  if(this.m_handle!=INVALID_HANDLE && !::IndicatorRelease(this.m_handle))
    ::PrintFormat("%s: %s, handle %ld IndicatorRelease failed. Error %ld",__FUNCTION__,this.Title(),m_handle,::GetLastError());
class=class="str">"cmt">//--- Free up the memory of buffer arrays
  for(class="type">int i=class="num">0;i<(class="type">int)this.BuffersTotal();i++)
   {
    ::ArrayFree(this.m_buffers[i].array0);
    ::ArrayFree(this.m_buffers[i].array1);
    ::ArrayFree(this.m_buffers[i].array2);
    ::ArrayFree(this.m_buffers[i].array3);
    ::ArrayFree(this.m_buffers[i].color_indexes);
   }
  }

class="type">void CIndMSTF::SetBufferInitColorIndex(const class="type">uint buffer_num,const class="type">uchar index)
  {
  if(buffer_num>this.BuffersTotal()-class="num">1)
   {
    class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
    ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
    class="kw">return;
   }
  this.m_buffers[buffer_num].SetInitColorIdx(index);
  }

class="type">uchar CIndMSTF::BufferInitColorIndex(const class="type">uint buffer_num) const
  {
  if(buffer_num>this.BuffersTotal()-class="num">1)
    {
    class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
    ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
    class="kw">return class="type">uchar(this.BuffersTotal()>class="num">0 ? this.m_buffers[class="num">0].InitColorIdx() : class="num">0);
    }
  class="kw">return this.m_buffers[buffer_num].InitColorIdx();
  }

class="type">void CIndMSTF::SetBufferColorToIndex(const class="type">uint buffer_num,const class="type">uchar color_idx,const class="type">color clr)
  {
  if(buffer_num>this.BuffersTotal()-class="num">1)
    {
    class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
    ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
    class="kw">return;
    }
  this.m_buffers[buffer_num].SetColorToIdx(color_idx,clr);
  }

class="type">color CIndMSTF::BufferColorByIndex(const class="type">uint buffer_num,const class="type">uchar color_idx)
  {
  if(buffer_num>this.BuffersTotal()-class="num">1)
    {
    class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
    ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);

class="kw">return clrNONE;
  }
class=class="str">"cmt">//--- Return the class="type">color value by index for the requested buffer
  class="kw">return this.m_buffers[buffer_num].ColorByIdx(color_idx);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the class="type">color buffer flag                                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CIndMSTF::IsColoredBuffer(const class="type">uint buffer_num) const
  {
class=class="str">"cmt">//--- Validate the buffer number passed to the method and, if the number is incorrect, print a message to log
  if(buffer_num>this.BuffersTotal()-class="num">1)
    {
      class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
      ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
      class=class="str">"cmt">//--- Return false
      class="kw">return false;
    }
class=class="str">"cmt">//--- Return the class="type">color flag for the specified buffer
   class="kw">return this.m_buffers[buffer_num].IsColoredBuffer();
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Set the drawing style for the specified buffer                           |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CIndMSTF::SetBufferDrawType(const class="type">uint buffer_num,const ENUM_DRAW_TYPE type,const class="type">uint buff_source)
  {
class=class="str">"cmt">//--- Validate the buffer number passed to the method and, if the number is incorrect, print a message to the log and exit
  if(buffer_num>this.BuffersTotal()-class="num">1)
    {
      class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
      ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
      class="kw">return;
    }
class=class="str">"cmt">//--- Set the drawing style for the buffer
   this.m_buffers[buffer_num].SetBufferDrawType(type,buff_source);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the drawing style for the specified buffer                        |
class=class="str">"cmt">//+------------------------------------------------------------------+
ENUM_DRAW_TYPE CIndMSTF::BufferDrawType(const class="type">uint buffer_num)
  {
class=class="str">"cmt">//--- Validate the buffer number passed to the method and, if the number is incorrect, print a message to log
  if(buffer_num>this.BuffersTotal()-class="num">1)
    {
      class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
      ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
      class=class="str">"cmt">//--- If the indicator has buffers, class="kw">return the shift value of the very first one, otherwise class="num">0

class="type">uint CIndMSTF::BufferFrom(const class="type">uint buffer_num)
  {
  if(buffer_num>this.BuffersTotal()-class="num">1)
    {
    class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
    ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
    class="kw">return(this.BuffersTotal()>class="num">0 ? this.m_buffers[class="num">0].Shift() : class="num">0);
    }
  class="kw">return this.m_buffers[buffer_num].BufferFrom();
  }

class="type">bool CIndMSTF::CopyArray(const class="type">uint buff_num,const class="type">uint array_num,const class="type">int to_copy,class="type">class="kw">double &array[])
  {
  ::ResetLastError();
  class="type">int copied=class="num">0;
  if(to_copy==class="num">2)
    {
    class="kw">switch(array_num)
      {
      case class="num">0  :  case class="num">1 : case class="num">2 :
      case class="num">3  :  copied=::CopyBuffer(this.m_handle,this.m_buffers[buff_num].BufferFrom(),  -this.m_buffers[buff_num].Shift(),to_copy,array);  break;
      case class="num">4  :  copied=::CopyBuffer(this.m_handle,this.m_buffers[buff_num].BufferFrom()+class="num">1,-this.m_buffers[buff_num].Shift(),to_copy,array);  break;
      class="kw">default  :  break;
      }
    }
  else
    {
    class="kw">switch(array_num)
      {
      case class="num">0  :  copied=::CopyBuffer(this.m_handle,this.m_buffers[buff_num].BufferFrom(),  -this.m_buffers[buff_num].Shift(),to_copy,this.m_buffers[buff_num].array0);        break;

   case class="num">1   :  copied=::CopyBuffer(this.m_handle,this.m_buffers[buff_num].BufferFrom(),  -this.m_buffers[buff_num].Shift(),to_copy,this.m_buffers[buff_num].array1);        break;
   case class="num">2   :  copied=::CopyBuffer(this.m_handle,this.m_buffers[buff_num].BufferFrom(),  -this.m_buffers[buff_num].Shift(),to_copy,this.m_buffers[buff_num].array2);        break;
   case class="num">3   :  copied=::CopyBuffer(this.m_handle,this.m_buffers[buff_num].BufferFrom(),  -this.m_buffers[buff_num].Shift(),to_copy,this.m_buffers[buff_num].array3);        break;
   case class="num">4   :  copied=::CopyBuffer(this.m_handle,this.m_buffers[buff_num].BufferFrom()+class="num">1,-this.m_buffers[buff_num].Shift(),to_copy,this.m_buffers[buff_num].color_indexes);  break;
   class="kw">default   :  break;
     }
   }
class=class="str">"cmt">//--- If copied successfully
   if(copied>class="num">0)
      class="kw">return true;
class=class="str">"cmt">//--- If not all data is copied
class=class="str">"cmt">//--- If CopyBuffer returned -class="num">1, this means the start of historical data downloading
class=class="str">"cmt">//--- print a message about this to the log
   if(copied==WRONG_VALUE)
      ::PrintFormat("%s::%s: Start downloading data by %s/%s. Waiting for the next tick...",__FUNCTION__,this.Title(),this.m_symbol,this.TimeframeDescription());
class=class="str">"cmt">//--- In any other case, not all data has been copied yet
class=class="str">"cmt">//--- print a message about this to the log
   else
      ::PrintFormat("%s::%s: Not all data was copied. Data available: %lu, total copied: %ld",__FUNCTION__,this.Title(),this.m_rates_total,copied);
   class="kw">return false;
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Copy data of all arrays of the specified buffer                  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CIndMSTF::CopyArrays(const class="type">uint buff_num,const class="type">int to_copy)
  {
   class="type">bool res=true;
   class="type">class="kw">double array[class="num">2];
   if(to_copy==class="num">2)
     {
      class="kw">switch(this.BufferDrawType(buff_num))
        {
         class=class="str">"cmt">//--- One buffer
         case DRAW_LINE            :
         case DRAW_HISTOGRAM       :
         case DRAW_ARROW           :
         case DRAW_SECTION         :

res=this.CopyArray(buff_num,class="num">0,to_copy,array);
if(res)
  {
   this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">1]=array[class="num">1];
   this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">2]=array[class="num">0];
  }
class="kw">return res;
class=class="str">"cmt">//--- Two buffers
case DRAW_HISTOGRAM2       :
case DRAW_ZIGZAG           :
case DRAW_FILLING          :
   res=this.CopyArray(buff_num,class="num">0,to_copy,array);
   if(res)
     {
      this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">1]=array[class="num">1];
      this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">2]=array[class="num">0];
     }
   res &=this.CopyArray(buff_num,class="num">1,to_copy,array);
   if(res)
     {
      this.m_buffers[buff_num].array1[this.DataTotal(buff_num,class="num">1)-class="num">1]=array[class="num">1];
      this.m_buffers[buff_num].array1[this.DataTotal(buff_num,class="num">1)-class="num">2]=array[class="num">0];
     }
   class="kw">return res;
class=class="str">"cmt">//--- Four buffers
case DRAW_BARS             :
case DRAW_CANDLES          :
   res=this.CopyArray(buff_num,class="num">0,to_copy,array);
   if(res)
     {
      this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">1]=array[class="num">1];
      this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">2]=array[class="num">0];
     }
   res &=this.CopyArray(buff_num,class="num">1,to_copy,array);
   if(res)
     {

this.m_buffers[buff_num].array1[this.DataTotal(buff_num,class="num">1)-class="num">1]=array[class="num">1];
this.m_buffers[buff_num].array1[this.DataTotal(buff_num,class="num">1)-class="num">2]=array[class="num">0];
}
res &=this.CopyArray(buff_num,class="num">2,to_copy,array);
if(res)
  {
   this.m_buffers[buff_num].array2[this.DataTotal(buff_num,class="num">2)-class="num">1]=array[class="num">1];
   this.m_buffers[buff_num].array2[this.DataTotal(buff_num,class="num">2)-class="num">2]=array[class="num">0];
  }
res &=this.CopyArray(buff_num,class="num">3,to_copy,array);
if(res)
  {
   this.m_buffers[buff_num].array3[this.DataTotal(buff_num,class="num">3)-class="num">1]=array[class="num">1];
   this.m_buffers[buff_num].array3[this.DataTotal(buff_num,class="num">3)-class="num">2]=array[class="num">0];
  }
class="kw">return res;
class=class="str">"cmt">//--- One buffer + class="type">color buffer
case DRAW_COLOR_LINE       :
case DRAW_COLOR_HISTOGRAM  :
case DRAW_COLOR_ARROW      :
case DRAW_COLOR_SECTION    :
   res=this.CopyArray(buff_num,class="num">0,to_copy,array);
   if(res)
     {
      this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">1]=array[class="num">1];
      this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">2]=array[class="num">0];
     }
   res &=this.CopyArray(buff_num,class="num">4,to_copy,array);
   if(res)
     {
      this.m_buffers[buff_num].color_indexes[this.DataTotal(buff_num,class="num">4)-class="num">1]=array[class="num">1];
      this.m_buffers[buff_num].color_indexes[this.DataTotal(buff_num,class="num">4)-class="num">2]=array[class="num">0];
     }
   class="kw">return res;
class=class="str">"cmt">//--- Two buffers + class="type">color buffer

case DRAW_COLOR_HISTOGRAM2 :
case DRAW_COLOR_ZIGZAG    :
      res=this.CopyArray(buff_num,class="num">0,to_copy,array);
      if(res)
        {
         this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">1]=array[class="num">1];
         this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">2]=array[class="num">0];
        }
      res &=this.CopyArray(buff_num,class="num">1,to_copy,array);
      if(res)
        {
         this.m_buffers[buff_num].array1[this.DataTotal(buff_num,class="num">1)-class="num">1]=array[class="num">1];
         this.m_buffers[buff_num].array1[this.DataTotal(buff_num,class="num">1)-class="num">2]=array[class="num">0];
        }
      res &=this.CopyArray(buff_num,class="num">4,to_copy,array);
      if(res)
        {
         this.m_buffers[buff_num].color_indexes[this.DataTotal(buff_num,class="num">4)-class="num">1]=array[class="num">1];
         this.m_buffers[buff_num].color_indexes[this.DataTotal(buff_num,class="num">4)-class="num">2]=array[class="num">0];
        }
      class="kw">return res;
      class=class="str">"cmt">//--- Four buffers + class="type">color buffer
      case DRAW_COLOR_BARS      :
      case DRAW_COLOR_CANDLES   :
      res=this.CopyArray(buff_num,class="num">0,to_copy,array);
      if(res)
        {
         this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">1]=array[class="num">1];
         this.m_buffers[buff_num].array0[this.DataTotal(buff_num,class="num">0)-class="num">2]=array[class="num">0];
        }
      res &=this.CopyArray(buff_num,class="num">1,to_copy,array);
      if(res)
        {
         this.m_buffers[buff_num].array1[this.DataTotal(buff_num,class="num">1)-class="num">1]=array[class="num">1];

this.m_buffers[buff_num].array1[this.DataTotal(buff_num,class="num">1)-class="num">2]=array[class="num">0];
}
res &=this.CopyArray(buff_num,class="num">2,to_copy,array);
if(res)
  {
   this.m_buffers[buff_num].array2[this.DataTotal(buff_num,class="num">2)-class="num">1]=array[class="num">1];
   this.m_buffers[buff_num].array2[this.DataTotal(buff_num,class="num">2)-class="num">2]=array[class="num">0];
  }
res &=this.CopyArray(buff_num,class="num">3,to_copy,array);
if(res)
  {
   this.m_buffers[buff_num].array3[this.DataTotal(buff_num,class="num">3)-class="num">1]=array[class="num">1];
   this.m_buffers[buff_num].array3[this.DataTotal(buff_num,class="num">3)-class="num">2]=array[class="num">0];
  }
res &=this.CopyArray(buff_num,class="num">4,to_copy,array);
if(res)
  {
   this.m_buffers[buff_num].color_indexes[this.DataTotal(buff_num,class="num">4)-class="num">1]=array[class="num">1];
   this.m_buffers[buff_num].color_indexes[this.DataTotal(buff_num,class="num">4)-class="num">2]=array[class="num">0];
  }
class="kw">return res;
class=class="str">"cmt">//---DRAW_NONE
class="kw">default:
  break;
 }
 }
 else
 {
 class="kw">switch(this.BufferDrawType(buff_num))
   {
    class=class="str">"cmt">//--- One buffer
    case DRAW_LINE           :
    case DRAW_HISTOGRAM      :
    case DRAW_ARROW          :
    case DRAW_SECTION        :
       class="kw">return this.CopyArray(buff_num,class="num">0,to_copy,array);
    class=class="str">"cmt">//--- Two buffers
    case DRAW_HISTOGRAM2     :
    case DRAW_ZIGZAG         :
    case DRAW_FILLING        :

res  =this.CopyArray(buff_num,class="num">0,to_copy,array);
res &=this.CopyArray(buff_num,class="num">1,to_copy,array);
class="kw">return res;
class=class="str">"cmt">//--- Four buffers
case DRAW_BARS        :
case DRAW_CANDLES     :
   res  =this.CopyArray(buff_num,class="num">0,to_copy,array);
   res &=this.CopyArray(buff_num,class="num">1,to_copy,array);
   res &=this.CopyArray(buff_num,class="num">2,to_copy,array);
   res &=this.CopyArray(buff_num,class="num">3,to_copy,array);
   class="kw">return res;
class=class="str">"cmt">//--- One buffer + class="type">color buffer
case DRAW_COLOR_LINE     :
case DRAW_COLOR_HISTOGRAM:
case DRAW_COLOR_ARROW    :
case DRAW_COLOR_SECTION  :
   res  =this.CopyArray(buff_num,class="num">0,to_copy,array);
   res &=this.CopyArray(buff_num,class="num">4,to_copy,array);
   class="kw">return res;
class=class="str">"cmt">//--- Two buffers + class="type">color buffer
case DRAW_COLOR_HISTOGRAM2 :
case DRAW_COLOR_ZIGZAG     :
   res  =this.CopyArray(buff_num,class="num">0,to_copy,array);
   res &=this.CopyArray(buff_num,class="num">1,to_copy,array);
   res &=this.CopyArray(buff_num,class="num">4,to_copy,array);
   class="kw">return res;
class=class="str">"cmt">//--- Four buffers + class="type">color buffer
case DRAW_COLOR_BARS      :
case DRAW_COLOR_CANDLES   :
   res  =this.CopyArray(buff_num,class="num">0,to_copy,array);
   res &=this.CopyArray(buff_num,class="num">1,to_copy,array);
   res &=this.CopyArray(buff_num,class="num">2,to_copy,array);
   res &=this.CopyArray(buff_num,class="num">3,to_copy,array);
   res &=this.CopyArray(buff_num,class="num">4,to_copy,array);
   class="kw">return res;
class=class="str">"cmt">//---DRAW_NONE
class="kw">default:
   break;
}
class="kw">return false;

class="type">bool CIndMSTF::Calculate(class="type">void)
  {
class=class="str">"cmt">//--- Set the success flag to true, and the error type to no error
   this.m_success=true;
   this.m_type_err=ERR_TYPE_NO_ERROR;
class=class="str">"cmt">//--- If the data is not yet synchronized with the trade server,
   if(!this.IsSynchronized())
     {
       class=class="str">"cmt">//--- Log a message about non-synchronized data,
       ::PrintFormat("%s::%s: Waiting for data to sync...",__FUNCTION__,this.Title());
       class=class="str">"cmt">//--- set the error type, add &class="macro">#x27;false&class="macro">#x27; to the error flag and class="kw">return &class="macro">#x27;false&class="macro">#x27;
       this.m_type_err=ERR_TYPE_NO_SYNC;
       this.m_success=false;
       class="kw">return false;
     }
class=class="str">"cmt">//--- If the Calculated method returned -class="num">1, this means the start of data downloading
   if(this.Calculated()==WRONG_VALUE)
     {
       class=class="str">"cmt">//--- Log a message about the start of data downloading,
       ::PrintFormat("%s::%s: Start downloading data by %s/%s. Waiting for the next tick...",__FUNCTION__,this.Title(),this.m_symbol,this.TimeframeDescription());
       class=class="str">"cmt">//--- set the error type, add &class="macro">#x27;false&class="macro">#x27; to the error flag and class="kw">return &class="macro">#x27;false&class="macro">#x27;
       this.m_type_err=ERR_TYPE_NO_DATA;
       this.m_success=false;
       class="kw">return false;
     }
class=class="str">"cmt">//--- If the Calculated method returned class="num">0, this means that the indicator has not yet been calculated
   if(this.Calculated()==class="num">0)
     {
       class=class="str">"cmt">//--- Log a message about waiting for the indicator to be calculated,
       ::PrintFormat("%s::%s: Waiting for a new tick and when the indicator will be calculated...",__FUNCTION__,this.Title());
       class=class="str">"cmt">//--- set the error type, add &class="macro">#x27;false&class="macro">#x27; to the error flag and class="kw">return &class="macro">#x27;false&class="macro">#x27;
       this.m_type_err=ERR_TYPE_NO_CALC;
       this.m_success=false;
       class="kw">return false;
     }
class=class="str">"cmt">//--- Get the number of data bars for the indicator symbol/period
   class="type">int bars=::Bars(this.m_symbol,this.m_timeframe);
class=class="str">"cmt">//--- If the Bars function returned a zero value, which often happens on weekends, calculate the available number of bars
   if(bars==class="num">0)
     {
       class=class="str">"cmt">//--- Get the date of the very first available bar in history for the symbol/period
       class="type">class="kw">datetime firstdate=(class="type">class="kw">datetime)::SeriesInfoInteger(this.m_symbol,this.m_timeframe,SERIES_FIRSTDATE);
       class=class="str">"cmt">//--- Get the date of the last(current) bar in history for the symbol/period
       class="type">class="kw">datetime lastdate=(class="type">class="kw">datetime)::SeriesInfoInteger(this.m_symbol,this.m_timeframe,SERIES_LASTBAR_DATE);
       class=class="str">"cmt">//--- Calculate the number of bars between the first and last dates of history
       class="type">int sec=::PeriodSeconds(this.m_timeframe);

class="type">ulong date_bars=(((class="type">ulong)lastdate-(class="type">ulong)firstdate)/(sec>class="num">0 ? sec : class="num">1))+class="num">1;
class=class="str">"cmt">//--- Write to the &class="macro">#x27;bars&class="macro">#x27; variable the smaller value of the calculated number of bars and the maximum number of bars available in the terminal
bars=(class="type">int)fmin(date_bars,::TerminalInfoInteger(TERMINAL_MAXBARS));
 }
class=class="str">"cmt">//--- Write the resulting number of available bars to m_rates_total
 if(this.m_rates_total!=bars)
    this.m_rates_total=bars;
class=class="str">"cmt">//--- If the number of available bars is received, and it is class="num">2 or less,
 if(this.m_rates_total>=class="num">0 && this.m_rates_total<class="num">3)
  {
   class=class="str">"cmt">//--- Log a message about the number of available bars being too small
   ::PrintFormat("%s::%s: Not enough data for calculation: %ld bars. Waiting for the next tick...",__FUNCTION__,this.Title(),this.m_rates_total);
   class=class="str">"cmt">//--- set the error type, add &class="macro">#x27;false&class="macro">#x27; to the error flag and class="kw">return &class="macro">#x27;false&class="macro">#x27;
   this.m_type_err=ERR_TYPE_NO_DATA;
   this.m_success=false;
   class="kw">return false;
  }
class=class="str">"cmt">//--- Calculate the number of bars required to calculate the indicator
class=class="str">"cmt">//--- Either the entire available history, or class="num">1 when a new bar opens, or class="num">0 on the current tick
 this.m_limit=this.m_rates_total-this.m_prev_calculated;
 this.m_prev_calculated=this.Calculated();
class=class="str">"cmt">//--- Declare an array of size class="num">2 to receive data into it from the indicator&class="macro">#x27;s calculation part buffer
class=class="str">"cmt">//--- We always get two bars: previous and current
class="type">class="kw">double array[class="num">2];
class=class="str">"cmt">//--- Get the number of indicator buffers
 class="type">int total=(class="type">int)this.BuffersTotal();
class=class="str">"cmt">//--- If the calculated m_limit is greater than class="num">1, it means either the first launch or changes in historical data
class=class="str">"cmt">//--- In this case, a complete recalculation of the indicator is necessary
 if(this.m_limit>class="num">1)
  {
   class=class="str">"cmt">//--- In a loop over the number of indicator buffers
   for(class="type">int i=class="num">0;i<total;i++)
     {
      class=class="str">"cmt">//--- resize the indicator buffer array and initialize it to the "empty" value set for this buffer
      this.BufferInitialize(i,this.m_rates_total);
      class=class="str">"cmt">//--- Determine the amount of data to copy
      class="type">int to_copy=(this.m_prev_calculated>this.m_rates_total ? this.m_rates_total : this.m_prev_calculated);
      class=class="str">"cmt">//--- If not all arrays were successfully copied, write false to m_success
      if(!this.CopyArrays(i,to_copy))
         this.m_success &=false;
     }
   class=class="str">"cmt">//--- If there are errors after the error, class="kw">return false
   if(!this.m_success)
     {

if(this.m_limit<=class="num">1)
  {
  for(class="type">int i=class="num">0;i<total;i++)
    {
    if(this.m_limit==class="num">1 && !this.BufferResize(i,this.m_rates_total))
      {
      this.m_success=false;
      class="kw">return false;
      }
    if(!this.CopyArrays(i,class="num">2))
     {
      ::PrintFormat("%s::%s: CopyBuffer(%lu) failed. Error %lu",__FUNCTION__,this.Title(),i,::GetLastError());
      this.m_success &=false;
     }
    }
  if(!this.m_success)
    {
    this.m_type_err=ERR_TYPE_NO_DATA;
    class="kw">return false;
    }
  this.m_type_err=ERR_TYPE_NO_ERROR;
  this.m_success=true;
  class="kw">return true;
  }
class="kw">return false;

class="type">bool CIndMSTF::DataToColorBuffer(const class="type">class="kw">string symbol_to,const ENUM_TIMEFRAMES timeframe_to,const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int limit,class="type">class="kw">double &plot_buffer[],class="type">class="kw">double &color_buffer[])
  {
class=class="str">"cmt">//--- Set the success flag
   this.m_success=true;
class=class="str">"cmt">//--- Get the indexing direction of the buffer array passed to the method and,
class=class="str">"cmt">//--- if non-timeseries indexing, set timeseries indexing
   class="type">bool as_series_plot=::ArrayGetAsSeries(plot_buffer);
   if(!as_series_plot)
      ::ArraySetAsSeries(plot_buffer,true);
   class="type">bool as_series_color=::ArrayGetAsSeries(color_buffer);
   if(!as_series_color)
      ::ArraySetAsSeries(color_buffer,true);
class=class="str">"cmt">//--- Set the symbol name and timeframe value passed to the method
   class="type">class="kw">string symbol=(symbol_to=="" || symbol_to==NULL ? ::Symbol() : symbol_to);
   ENUM_TIMEFRAMES timeframe=(timeframe_to==PERIOD_CURRENT ? ::Period() : timeframe_to);
   class="type">class="kw">datetime array[class="num">2];
class=class="str">"cmt">//--- If this is the first launch or history changes, initialize the buffer array passed to the method
   if(limit>class="num">1 && this.m_limit>class="num">1)
     {
      ::PrintFormat("%s::%s First start, or historical data has been changed. Initialize Buffer(%lu)",__FUNCTION__,this.Title(),buffer_num);
      ::ArrayInitialize(plot_buffer,this.BufferInitValue(buffer_num));
      ::ArrayInitialize(color_buffer,this.BufferInitColorIndex(buffer_num));
     }
class=class="str">"cmt">//--- Set the value of the loop counter(no more than the maximum number of bars in the terminal on the chart)
   class="type">int count=(limit<=class="num">1 ? class="num">2 : ::fmin(::TerminalInfoInteger(TERMINAL_MAXBARS),limit));
class=class="str">"cmt">//--- In a loop from the zero bar to the value of the loop counter
   for(class="type">int i=class="num">0;i<count;i++)
     {
      class=class="str">"cmt">//--- If the chart timeframe matches the class object timeframe, fill the buffer directly from the class object array
      if(timeframe==::Period() && this.m_timeframe==::Period())
        {
         plot_buffer[i]=this.GetData(buffer_num,array_num,i);
         color_buffer[i]=this.GetColorData(buffer_num,i);
        }
      class=class="str">"cmt">//--- Otherwise, if the chart timeframe is not equal to the timeframe of the class object
      else
        {
         class=class="str">"cmt">//--- Find out which time of this class the bar of the current chart timeframe, corresponding to the loop index, belongs to
         ::ResetLastError();
         if(::CopyTime(symbol,timeframe,i,class="num">2,array)!=class="num">2)
           {

class=class="str">"cmt">//--- If there is no data in the terminal, move on
if(::GetLastError()==class="num">4401)
   class="kw">continue;
class=class="str">"cmt">//--- Error in obtaining existing data - class="kw">return false
this.m_success &=false;
class="kw">return false;
   }
      class=class="str">"cmt">//--- Using time of bar of current chart timeframe, find corresponding index of bar of class object&class="macro">#x27;s chart period
      ::ResetLastError();
      class="type">int bar=::iBarShift(this.m_symbol,this.m_timeframe,array[class="num">0]);
      if(bar==WRONG_VALUE)
         {
          this.m_success &=false;
          class="kw">continue;
         }
      class=class="str">"cmt">//--- If this is historical data(not the first or zero bar) -
      class=class="str">"cmt">//--- in the indicator buffer at the loop index, write the value obtained from the calculation part buffer
      if(i>class="num">1)
         {
          plot_buffer[i]=this.GetData(buffer_num,array_num,bar);
          color_buffer[i]=this.GetColorData(buffer_num,bar);
         }
      class=class="str">"cmt">//--- If this is the current(zero) or previous(first) bar
      else
         {
          class=class="str">"cmt">//--- Get the time of bars class="num">0 and class="num">1 by symbol/timeframe of the class object
          if(::CopyTime(this.m_symbol,this.m_timeframe,class="num">0,class="num">2,array)!=class="num">2)
            {
             this.m_success &=false;
             class="kw">return false;
            }
          class=class="str">"cmt">//--- Using time, get indexes of current and previous bars on the chart whose symbol/period was passed to method
          class="type">int bar0=::iBarShift(symbol,timeframe,array[class="num">1]);
          class="type">int bar1=::iBarShift(symbol,timeframe,array[class="num">0]);
          if(bar0==WRONG_VALUE || bar1==WRONG_VALUE)
            {
             this.m_success &=false;
             class="kw">return false;
            }
          class=class="str">"cmt">//--- If the chart timeframe is lower than the timeframe of the class object,
          if(timeframe<this.m_timeframe)
            {

   class=class="str">"cmt">//--- in a loop from bar with smaller time to current chart bar, fill the buffer with data from the last class="num">2 cells of the indicator buffer array
      for(class="type">int j=bar1;j>=class="num">0;j--)
         {
         plot_buffer[j]=this.GetData(buffer_num,array_num,(j>bar0 ? class="num">1 : class="num">0));
         color_buffer[j]=this.GetColorData(buffer_num,(j>bar0 ? class="num">1 : class="num">0));
         }
      }
      class=class="str">"cmt">//--- If the chart timeframe is higher than the timeframe of the class object,
      else
         {
         class=class="str">"cmt">//--- Get the time of the current and previous bars by symbol/timeframe of the current chart
         if(::CopyTime(symbol,timeframe,class="num">0,class="num">2,array)!=class="num">2)
            {
            this.m_success &=false;
            class="kw">return false;
            }
         class=class="str">"cmt">//--- Using time, get indexes of bars in indicator&class="macro">#x27;s calculation part buffer, corresponding to time of current and previous bars on the chart
         class="type">int bar0=::iBarShift(this.m_symbol,this.m_timeframe,array[class="num">1]);
         class="type">int bar1=::iBarShift(this.m_symbol,this.m_timeframe,array[class="num">0]);
         class=class="str">"cmt">//--- Write into indicator buffer, at indexes class="num">1 and class="num">0, values from corresponding indexes of calculation part buffer
         plot_buffer[class="num">1]=this.GetData(buffer_num,array_num,bar1);
         plot_buffer[class="num">0]=this.GetData(buffer_num,array_num,bar0);
         color_buffer[class="num">1]=this.GetColorData(buffer_num,bar1);
         color_buffer[class="num">0]=this.GetColorData(buffer_num,bar0);
         }
      }
   }
class=class="str">"cmt">//--- Set initial indexing of the buffer array passed to the method
   ::ArraySetAsSeries(plot_buffer,as_series_plot);
   ::ArraySetAsSeries(color_buffer,as_series_color);
class=class="str">"cmt">//--- Successful
   class="kw">return true;
   }

class="type">bool CIndMSTF::DataToBuffer(const class="type">class="kw">string symbol_to,const ENUM_TIMEFRAMES timeframe_to,const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int limit,class="type">class="kw">double &buffer[])
  {
class=class="str">"cmt">//--- Set the success flag
   this.m_success=true;
class=class="str">"cmt">//--- Get the indexing direction of the buffer array passed to the method and,
class=class="str">"cmt">//--- if non-timeseries indexing, set timeseries indexing
   class="type">bool as_series=::ArrayGetAsSeries(buffer);
   if(!as_series)
       ::ArraySetAsSeries(buffer,true);
class=class="str">"cmt">//--- Set the symbol name and timeframe value passed to the method
   class="type">class="kw">string symbol=(symbol_to=="" || symbol_to==NULL ? ::Symbol() : symbol_to);
   ENUM_TIMEFRAMES timeframe=(timeframe_to==PERIOD_CURRENT ? ::Period() : timeframe_to);
   class="type">class="kw">datetime array[class="num">2];
class=class="str">"cmt">//--- If this is the first launch or history changes, initialize the buffer array passed to the method
   if(limit>class="num">1 && this.m_limit>class="num">1)
     {
      ::PrintFormat("%s::%s First start, or historical data has been changed. Initialize Buffer(%lu)",__FUNCTION__,this.Title(),buffer_num);
      ::ArrayInitialize(buffer,this.BufferInitValue(buffer_num));
     }
class=class="str">"cmt">//--- Set the value of the loop counter(no more than the maximum number of bars in the terminal on the chart)
   class="type">int count=(limit<=class="num">1 ? class="num">2 : ::fmin(::TerminalInfoInteger(TERMINAL_MAXBARS),limit));
class=class="str">"cmt">//--- In a loop from the zero bar to the value of the loop counter
   for(class="type">int i=class="num">0;i<count;i++)
     {
      class=class="str">"cmt">//--- If the chart timeframe matches the class object timeframe, fill the buffer directly from the class object array
      if(timeframe==::Period() && this.m_timeframe==::Period())
         buffer[i]=this.GetData(buffer_num,array_num,i);
      class=class="str">"cmt">//--- Otherwise, if the chart timeframe is not equal to the timeframe of the class object
      else
        {
         class=class="str">"cmt">//--- Find out which time of this class the bar of the current chart timeframe, corresponding to the loop index, belongs to
         ::ResetLastError();
         if(::CopyTime(symbol,timeframe,i,class="num">2,array)!=class="num">2)
           {
            class=class="str">"cmt">//--- If there is no data in the terminal, move on
            if(::GetLastError()==class="num">4401)
               class="kw">continue;
            class=class="str">"cmt">//--- Error in obtaining existing data - class="kw">return false
            this.m_success &=false;
            class="kw">return false;
           }
         class=class="str">"cmt">//--- Using time of bar of current chart timeframe, find corresponding index of bar of class object&class="macro">#x27;s chart period
         ::ResetLastError();

class="type">int bar=::iBarShift(this.m_symbol,this.m_timeframe,array[class="num">0]);
if(bar==WRONG_VALUE)
  {
   this.m_success &=false;
   class="kw">continue;
  }
class=class="str">"cmt">//--- If this is historical data(not the first or zero bar) -
class=class="str">"cmt">//--- in the indicator buffer at the loop index, write the value obtained from the calculation part buffer
if(i>class="num">1)
   buffer[i]=this.GetData(buffer_num,array_num,bar);
class=class="str">"cmt">//--- If this is the current(zero) or previous(first) bar
else
   {
   class=class="str">"cmt">//--- Get the time of bars class="num">0 and class="num">1 by symbol/timeframe of the class object
   if(::CopyTime(this.m_symbol,this.m_timeframe,class="num">0,class="num">2,array)!=class="num">2)
      {
       this.m_success &=false;
       class="kw">return false;
      }
   class=class="str">"cmt">//--- Using time, get indexes of current and previous bars on the chart whose symbol/period was passed to method
   class="type">int bar0=::iBarShift(symbol,timeframe,array[class="num">1]);
   class="type">int bar1=::iBarShift(symbol,timeframe,array[class="num">0]);
   if(bar0==WRONG_VALUE || bar1==WRONG_VALUE)
      {
       this.m_success &=false;
       class="kw">return false;
      }
   class=class="str">"cmt">//--- If the chart timeframe is lower than the timeframe of the class object,
   if(timeframe<this.m_timeframe)
      {
      class=class="str">"cmt">//--- in a loop from bar with smaller time to current chart bar, fill the buffer with data from the last class="num">2 cells of the indicator buffer array
      for(class="type">int j=bar1;j>=class="num">0;j--)
         buffer[j]=this.GetData(buffer_num,array_num,(j>bar0 ? class="num">1 : class="num">0));
      }
   class=class="str">"cmt">//--- If the chart timeframe is higher than the timeframe of the class object,
   else
      {
      class=class="str">"cmt">//--- Get the time of the current and previous bars by symbol/timeframe of the current chart

if(::CopyTime(symbol,timeframe,class="num">0,class="num">2,array)!=class="num">2)
  {
  this.m_success &=false;
  class="kw">return false;
  }
class=class="str">"cmt">//--- Using time, get indexes of bars in indicator&class="macro">#x27;s calculation part buffer, corresponding to time of current and previous bars on the chart
class="type">int bar0=::iBarShift(this.m_symbol,this.m_timeframe,array[class="num">1]);
class="type">int bar1=::iBarShift(this.m_symbol,this.m_timeframe,array[class="num">0]);
class=class="str">"cmt">//--- Write into indicator buffer, at indexes class="num">1 and class="num">0, values from corresponding indexes of calculation part buffer
buffer[class="num">1]=this.GetData(buffer_num,array_num,bar1);
buffer[class="num">0]=this.GetData(buffer_num,array_num,bar0);
  }
   }
  }
 }
class=class="str">"cmt">//--- Set initial indexing of the buffer array passed to the method
 ::ArraySetAsSeries(buffer,as_series);
class=class="str">"cmt">//--- Successful
 class="kw">return true;
 }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the data of the specified buffer as is                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">double CIndMSTF::GetData(const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int index) const
  {
class=class="str">"cmt">//--- Validate the buffer number passed to the method and, if the number is incorrect, print a message to log
 if(buffer_num>this.BuffersTotal()-class="num">1)
   {
   class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
   ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
   class=class="str">"cmt">//--- If the indicator has buffers, class="kw">return "empty" value of the first one, otherwise EMPTY_VALUE
   class="kw">return(this.BuffersTotal()>class="num">0 ? this.BufferInitValue(class="num">0) : EMPTY_VALUE);
   }
class=class="str">"cmt">//--- If an incorrect index is specified, class="kw">return the "empty" value of the specified buffer
 if(index<class="num">0 || index>(class="type">int)this.DataTotal(buffer_num,array_num)-class="num">1)
   class="kw">return this.BufferInitValue(buffer_num);
class=class="str">"cmt">//--- Calculate the real index in the buffer array and class="kw">return the value at this index
 class="type">int n=class="type">int(this.DataTotal(buffer_num,array_num)-class="num">1-index);

  class="kw">switch(array_num)
    {
      case class="num">0 : class="kw">return this.m_buffers[buffer_num].array0[n];
      case class="num">1 : class="kw">return this.m_buffers[buffer_num].array1[n];
      case class="num">2 : class="kw">return this.m_buffers[buffer_num].array2[n];
      case class="num">3 : class="kw">return this.m_buffers[buffer_num].array3[n];
      case class="num">4 : class="kw">return this.m_buffers[buffer_num].color_indexes[n];
      class="kw">default: break;
    }
  class="kw">return EMPTY_VALUE;
}
class=class="str">"cmt">//+-------------------------------------------------------------------+
class=class="str">"cmt">//| Returns data from specified buffer for specified symbol/timeframe |
class=class="str">"cmt">//+-------------------------------------------------------------------+
class="type">class="kw">double CIndMSTF::GetDataTo(const class="type">class="kw">string symbol_to,const ENUM_TIMEFRAMES timeframe_to,const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int index) const
  {
class=class="str">"cmt">//--- If current symbol/period of the chart is specified
  if(timeframe_to==::Period() && this.m_timeframe==::Period() && symbol_to==::Symbol() && this.m_symbol==::Symbol())
      class="kw">return this.GetData(buffer_num,array_num,index);
class=class="str">"cmt">//--- Validate the buffer number passed to the method and, if the number is incorrect, print a message to log
  if(buffer_num>this.BuffersTotal()-class="num">1)
    {
      class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
      ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
      class=class="str">"cmt">//--- If the indicator has buffers, class="kw">return "empty" value of the first one, otherwise EMPTY_VALUE
      class="kw">return(this.BuffersTotal()>class="num">0 ? this.BufferInitValue(class="num">0) : EMPTY_VALUE);
    }
class=class="str">"cmt">//--- Find out which time of this class the current chart timeframe&class="macro">#x27;s bar, corresponding to the loop index, belongs to
  class="type">class="kw">datetime array[];
  if(::CopyTime(symbol_to,timeframe_to,index,class="num">1,array)!=class="num">1)
      class="kw">return this.BufferInitValue(buffer_num);
class=class="str">"cmt">//--- Using time of bar of current chart timeframe, find corresponding bar index of bar this class chart period
  class="type">int bar=iBarShift(this.m_symbol,this.m_timeframe,array[class="num">0]);
class=class="str">"cmt">//--- If the bar is not found, class="kw">return the "empty" value set for the buffer
  if(bar==WRONG_VALUE)
      class="kw">return this.BufferInitValue(buffer_num);
class=class="str">"cmt">//--- Return value from the indicator object buffer at the found index
  class="kw">return this.GetData(buffer_num,array_num,bar);
  }

ENUM_LINE_STATE CIndMSTF::BufferLineState(const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int index) const
  {
class=class="str">"cmt">//--- Get the values of the indicator line with the shift(class="num">0,class="num">1,class="num">2) relative to the passed index
   const class="type">class="kw">double value0=this.GetData(buffer_num,array_num,index);
   const class="type">class="kw">double value1=this.GetData(buffer_num,array_num,index+class="num">1);
   const class="type">class="kw">double value2=this.GetData(buffer_num,array_num,index+class="num">2);
class=class="str">"cmt">//--- If at least one of the values could not be obtained, class="kw">return an undefined value 
   if(value0==EMPTY_VALUE || value1==EMPTY_VALUE || value2==EMPTY_VALUE)
      class="kw">return LINE_STATE_NONE;
class=class="str">"cmt">//--- Line upward reversal(value2>value1 && value0>value1)
   if(::NormalizeDouble(value2-value1,this.m_digits)>class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)>class="num">0)
      class="kw">return LINE_STATE_TURN_UP;
class=class="str">"cmt">//--- Line upward direction(value2<=value1 && value0>value1)
   else if(::NormalizeDouble(value2-value1,this.m_digits)<=class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)>class="num">0)
      class="kw">return LINE_STATE_UP;
class=class="str">"cmt">//--- Line upward stop(value2<=value1 && value0==value1)
   else if(::NormalizeDouble(value2-value1,this.m_digits)<=class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)==class="num">0)
      class="kw">return LINE_STATE_STOP_UP;
class=class="str">"cmt">//--- Line downward reversal(value2<value1 && value0<value1)
   if(::NormalizeDouble(value2-value1,this.m_digits)<class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)<class="num">0)
      class="kw">return LINE_STATE_TURN_DOWN;
class=class="str">"cmt">//--- Line downward direction(value2>=value1 && value0<value1)
   else if(::NormalizeDouble(value2-value1,this.m_digits)>=class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)<class="num">0)
      class="kw">return LINE_STATE_DOWN;
class=class="str">"cmt">//--- Line downward stop(value2>=value1 && value0==value1)
   else if(::NormalizeDouble(value2-value1,this.m_digits)>=class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)==class="num">0)
      class="kw">return LINE_STATE_STOP_DOWN;
class=class="str">"cmt">//--- Undefined state
   class="kw">return LINE_STATE_NONE;
   }

ENUM_LINE_STATE CIndMSTF::BufferLineState(const class="type">class="kw">string symbol_from,const ENUM_TIMEFRAMES timeframes_from,const class="type">uint buffer_num,const class="type">uint array_num,const class="type">int index) const
  {
class=class="str">"cmt">//--- Determine the chart symbol/period passed to the method
   class="type">class="kw">string symbol=(symbol_from=="" || symbol_from==NULL ? ::Symbol() : symbol_from);
   ENUM_TIMEFRAMES timeframe=(timeframes_from==PERIOD_CURRENT ? ::Period() : timeframes_from);
class=class="str">"cmt">//--- If we get data from symbol/period equal to current chart, class="kw">return state from the buffer "as is"
   if(symbol==::Symbol() && symbol==this.m_symbol && timeframe==::Period() && timeframe==this.m_timeframe)
      class="kw">return this.BufferLineState(buffer_num,array_num,index);
class=class="str">"cmt">//--- Declare variables to search for the required bars on the current chart
   class="type">class="kw">datetime array[class="num">1];
   class="type">int       bar0=WRONG_VALUE;
   class="type">int       bar1=WRONG_VALUE;
   class="type">int       bar2=WRONG_VALUE;
class=class="str">"cmt">//--- Get the time of the first bar on the chart
   ::ResetLastError();
   if(::CopyTime(symbol,timeframe,index,class="num">1,array)!=class="num">1)
     {
       ::PrintFormat("%s: CopyTime for %s/%s, bar %ld failed. Error %lu",__FUNCTION__,symbol,::StringSubstr(::EnumToString(timeframe),class="num">7),index,::GetLastError());
       class="kw">return LINE_STATE_NONE;
     }
class=class="str">"cmt">//--- Get index of the first bar in indicator object buffer based on bar opening time on the chart
   bar0=::iBarShift(this.m_symbol,this.m_timeframe,array[class="num">0]);
   if(bar0==WRONG_VALUE)
     {
       ::PrintFormat("%s: iBarShift for %s/%s, time %s failed. Error %lu",__FUNCTION__,this.m_symbol,this.TimeframeDescription(),class="type">class="kw">string(array[class="num">0]),::GetLastError());
       class="kw">return LINE_STATE_NONE;
     }
class=class="str">"cmt">//--- Get the time of the second bar on the chart
   ::ResetLastError();
   if(::CopyTime(symbol,timeframe,index+class="num">1,class="num">1,array)!=class="num">1)
     {
       ::PrintFormat("%s: CopyTime for %s/%s, bar %ld failed. Error %lu",__FUNCTION__,symbol,::StringSubstr(::EnumToString(timeframe),class="num">7),index+class="num">1,::GetLastError());
       class="kw">return LINE_STATE_NONE;
     }
class=class="str">"cmt">//--- Get index of the second bar in indicator object buffer based on bar opening time on the chart
   bar1=::iBarShift(this.m_symbol,this.m_timeframe,array[class="num">0]);
   if(bar1==WRONG_VALUE)
     {
       ::PrintFormat("%s: iBarShift for %s/%s, time %s failed. Error %lu",__FUNCTION__,this.m_symbol,this.TimeframeDescription(),class="type">class="kw">string(array[class="num">0]),::GetLastError());
       class="kw">return LINE_STATE_NONE;
     }

class=class="str">"cmt">//--- Get the time of the third bar on the chart
   ::ResetLastError();
   if(::CopyTime(symbol,timeframe,index+class="num">2,class="num">1,array)!=class="num">1)
     {
       ::PrintFormat("%s: CopyTime for %s/%s, bar %ld failed. Error %lu",__FUNCTION__,symbol,::StringSubstr(::EnumToString(timeframe),class="num">7),index+class="num">2,::GetLastError());
       class="kw">return LINE_STATE_NONE;
     }
class=class="str">"cmt">//--- Get index of the third bar in indicator object buffer based on bar opening time on the chart
   bar2=::iBarShift(this.m_symbol,this.m_timeframe,array[class="num">0]);
   if(bar2==WRONG_VALUE)
     {
       ::PrintFormat("%s: iBarShift for %s/%s, time %s failed. Error %lu",__FUNCTION__,this.m_symbol,this.TimeframeDescription(),class="type">class="kw">string(array[class="num">0]),::GetLastError());
       class="kw">return LINE_STATE_NONE;
     }

class=class="str">"cmt">//--- Get the values of the indicator line with the shift(class="num">0,class="num">1,class="num">2) relative to the passed index
   const class="type">class="kw">double value0=this.GetData(buffer_num,array_num,bar0);
   const class="type">class="kw">double value1=this.GetData(buffer_num,array_num,bar1);
   const class="type">class="kw">double value2=this.GetData(buffer_num,array_num,bar2);
class=class="str">"cmt">//--- If at least one of the values could not be obtained, class="kw">return an undefined value 
   if(value0==EMPTY_VALUE || value1==EMPTY_VALUE || value2==EMPTY_VALUE)
      class="kw">return LINE_STATE_NONE;
class=class="str">"cmt">//--- Line upward reversal(value2>value1 && value0>value1)
   if(::NormalizeDouble(value2-value1,this.m_digits)>class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)>class="num">0)
      class="kw">return LINE_STATE_TURN_UP;
class=class="str">"cmt">//--- Line upward direction(value2<=value1 && value0>value1)
   else if(::NormalizeDouble(value2-value1,this.m_digits)<=class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)>class="num">0)
      class="kw">return LINE_STATE_UP;
class=class="str">"cmt">//--- Line upward stop(value2<=value1 && value0==value1)
   else if(::NormalizeDouble(value2-value1,this.m_digits)<=class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)==class="num">0)
      class="kw">return LINE_STATE_STOP_UP;
class=class="str">"cmt">//--- Line downward reversal(value2<value1 && value0<value1)
   if(::NormalizeDouble(value2-value1,this.m_digits)<class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)<class="num">0)
      class="kw">return LINE_STATE_TURN_DOWN;
class=class="str">"cmt">//--- Line downward direction(value2>=value1 && value0<value1)
   else if(::NormalizeDouble(value2-value1,this.m_digits)>=class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)<class="num">0)
      class="kw">return LINE_STATE_DOWN;
class=class="str">"cmt">//--- Line downward stop(value2>=value1 && value0==value1)

else if(::NormalizeDouble(value2-value1,this.m_digits)>=class="num">0 && ::NormalizeDouble(value0-value1,this.m_digits)==class="num">0)
      class="kw">return LINE_STATE_STOP_DOWN;
class=class="str">"cmt">//--- Undefined state
   class="kw">return LINE_STATE_NONE;
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the state of the line relative to the specified level       |
class=class="str">"cmt">//+------------------------------------------------------------------+
ENUM_LINE_STATE CIndMSTF::BufferLineStateRelative(const class="type">int buffer_num,const class="type">uint array_num,const class="type">int index,const class="type">class="kw">double level0,const class="type">class="kw">double level1=EMPTY_VALUE)
  {
class=class="str">"cmt">//--- Get the values of the indicator line with the shift(class="num">0,class="num">1) relative to the passed index
   const class="type">class="kw">double value0=this.GetData(buffer_num,array_num,index);
   const class="type">class="kw">double value1=this.GetData(buffer_num,array_num,index+class="num">1);
class=class="str">"cmt">//--- If at least one of the values could not be obtained, class="kw">return an undefined value 
   if(value0==EMPTY_VALUE || value1==EMPTY_VALUE)
      class="kw">return LINE_STATE_NONE;
class=class="str">"cmt">//--- Define the second level to compare
   class="type">class="kw">double level=(level1==EMPTY_VALUE ? level0 : level1);
class=class="str">"cmt">//--- The line is below the level(value1<level && value0<level0)
   if(::NormalizeDouble(value1-level,this.m_digits)<class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)<class="num">0)
      class="kw">return LINE_STATE_BELOW;
class=class="str">"cmt">//--- The line is above the level(value1>level && value0>level0)
   if(::NormalizeDouble(value1-level,this.m_digits)>class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)>class="num">0)
      class="kw">return LINE_STATE_ABOVE;
class=class="str">"cmt">//--- The line crossed the level upwards(value1<=level && value0>level0)
   if(::NormalizeDouble(value1-level,this.m_digits)<=class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)>class="num">0)
      class="kw">return LINE_STATE_CROSS_UP;
class=class="str">"cmt">//--- The line crossed the level downwards(value1>=level && value0<level0)
   if(::NormalizeDouble(value1-level,this.m_digits)>=class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)<class="num">0)
      class="kw">return LINE_STATE_CROSS_DOWN;
class=class="str">"cmt">//--- The line touched the level from below(value1<level0 && value0==level0)
   if(::NormalizeDouble(value1-level,this.m_digits)<class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)==class="num">0)
      class="kw">return LINE_STATE_TOUCH_BELOW;
class=class="str">"cmt">//--- The line touched the level from above(value1>level0 && value0==level0)
   if(::NormalizeDouble(value1-level,this.m_digits)>class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)==class="num">0)
      class="kw">return LINE_STATE_TOUCH_BELOW;
class=class="str">"cmt">//--- Line is equal to the level value(value1==level0 && value0==level0)

if(::NormalizeDouble(value1-level,this.m_digits)==class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)==class="num">0)
      class="kw">return LINE_STATE_EQUALS;
class=class="str">"cmt">//--- Undefined state
   class="kw">return LINE_STATE_NONE;
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the state of the line relative to the specified level       |
class=class="str">"cmt">//| on the specified chart symbol/period                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
ENUM_LINE_STATE CIndMSTF::BufferLineStateRelative(const class="type">class="kw">string symbol_from,const ENUM_TIMEFRAMES timeframes_from,const class="type">int buffer_num,const class="type">uint array_num,const class="type">int index,const class="type">class="kw">double level0,const class="type">class="kw">double level1=EMPTY_VALUE)
  {
class=class="str">"cmt">//--- Determine the chart symbol/period passed to the method
   class="type">class="kw">string symbol=(symbol_from=="" || symbol_from==NULL ? ::Symbol() : symbol_from);
   ENUM_TIMEFRAMES timeframe=(timeframes_from==PERIOD_CURRENT ? ::Period() : timeframes_from);
class=class="str">"cmt">//--- Get the values of the indicator line with the shift(class="num">0,class="num">1) relative to the passed index
   const class="type">class="kw">double value0=this.GetDataTo(symbol,timeframe,buffer_num,array_num,index);
   const class="type">class="kw">double value1=this.GetDataTo(symbol,timeframe,buffer_num,array_num,index+class="num">1);
class=class="str">"cmt">//--- If at least one of the values could not be obtained, class="kw">return an undefined value 
   if(value0==EMPTY_VALUE || value1==EMPTY_VALUE)
      class="kw">return LINE_STATE_NONE;
class=class="str">"cmt">//--- Define the second level to compare
   class="type">class="kw">double level=(level1==EMPTY_VALUE ? level0 : level1);
class=class="str">"cmt">//--- The line is below the level(value1<level && value0<level0)
   if(::NormalizeDouble(value1-level,this.m_digits)<class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)<class="num">0)
      class="kw">return LINE_STATE_BELOW;
class=class="str">"cmt">//--- The line is above the level(value1>level && value0>level0)
   if(::NormalizeDouble(value1-level,this.m_digits)>class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)>class="num">0)
      class="kw">return LINE_STATE_ABOVE;
class=class="str">"cmt">//--- The line crossed the level upwards(value1<=level && value0>level0)
   if(::NormalizeDouble(value1-level,this.m_digits)<=class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)>class="num">0)
      class="kw">return LINE_STATE_CROSS_UP;
class=class="str">"cmt">//--- The line crossed the level downwards(value1>=level && value0<level0)
   if(::NormalizeDouble(value1-level,this.m_digits)>=class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)<class="num">0)
      class="kw">return LINE_STATE_CROSS_DOWN;
class=class="str">"cmt">//--- The line touched the level from below(value1<level0 && value0==level0)

if(::NormalizeDouble(value1-level,this.m_digits)<class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)==class="num">0)
      class="kw">return LINE_STATE_TOUCH_BELOW;
class=class="str">"cmt">//--- The line touched the level from above(value1>level0 && value0==level0)
if(::NormalizeDouble(value1-level,this.m_digits)>class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)==class="num">0)
      class="kw">return LINE_STATE_TOUCH_BELOW;
class=class="str">"cmt">//--- Line is equal to the level value(value1==level0 && value0==level0)
if(::NormalizeDouble(value1-level,this.m_digits)==class="num">0 && ::NormalizeDouble(value0-level0,this.m_digits)==class="num">0)
      class="kw">return LINE_STATE_EQUALS;
class=class="str">"cmt">//--- Undefined state
   class="kw">return LINE_STATE_NONE;
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return data of the specified buffer of class="type">color indexes as is         |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">double CIndMSTF::GetColorData(const class="type">uint buffer_num,const class="type">int index) const
  {
class=class="str">"cmt">//--- Validate the buffer number passed to method and, if number is incorrect, print a message to log and class="kw">return class="num">0
   if(buffer_num>this.BuffersTotal()-class="num">1)
     {
       class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
       ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
       class="kw">return class="num">0;
     }
class=class="str">"cmt">//--- If this is not a class="type">color buffer, report this to the log and class="kw">return class="num">0
   if(!this.IsColoredBuffer(buffer_num))
     {
       ::PrintFormat("%s: Buffer %lu is not a class="type">color buffer",__FUNCTION__,buffer_num);
       class="kw">return class="num">0;
     }
class=class="str">"cmt">//--- If an incorrect index is specified, class="kw">return "empty" value of the specified class="type">color buffer
   if(index<class="num">0 || index>(class="type">int)this.DataTotal(buffer_num,class="num">4)-class="num">1)
      class="kw">return this.BufferInitColorIndex(buffer_num);
class=class="str">"cmt">//--- Calculate the real index in the class="type">color buffer array and class="kw">return the value at this index
   class="type">int n=class="type">int(this.DataTotal(buffer_num,class="num">4)-class="num">1-index);
   class="kw">return this.m_buffers[buffer_num].color_indexes[n];
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return data of the specified class="type">color index buffer                     |
class=class="str">"cmt">//| for the specified symbol/timeframe                                  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">double CIndMSTF::GetColorDataTo(const class="type">class="kw">string symbol_to,const ENUM_TIMEFRAMES timeframe_to,const class="type">uint buffer_num,const class="type">int index) const
  {
class=class="str">"cmt">//--- If current symbol/period of the chart is specified

if(timeframe_to==::Period() && this.m_timeframe==::Period() && symbol_to==::Symbol() && this.m_symbol==::Symbol())
      class="kw">return this.GetColorData(buffer_num,index);
class=class="str">"cmt">//--- Validate the buffer number passed to method and, if number is incorrect, print a message to log and class="kw">return class="num">0
   if(buffer_num>this.BuffersTotal()-class="num">1)
     {
       class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
       ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
       class="kw">return class="num">0;
     }
class=class="str">"cmt">//--- If this is not a class="type">color buffer, report this to the log and class="kw">return class="num">0
   if(!this.IsColoredBuffer(buffer_num))
     {
       ::PrintFormat("%s: Buffer %lu is not a class="type">color buffer",__FUNCTION__,buffer_num);
       class="kw">return class="num">0;
     }
class=class="str">"cmt">//--- Find out which time of this class the current chart timeframe&class="macro">#x27;s bar, corresponding to the loop index, belongs to
   class="type">class="kw">datetime array[];
   if(::CopyTime(symbol_to,timeframe_to,index,class="num">1,array)!=class="num">1)
      class="kw">return this.BufferInitColorIndex(buffer_num);
class=class="str">"cmt">//--- Using time of bar of current chart timeframe, find corresponding bar index of bar this class chart period
   class="type">int bar=iBarShift(this.m_symbol,this.m_timeframe,array[class="num">0]);
class=class="str">"cmt">//--- If the bar is not found, class="kw">return "empty" value set for the class="type">color buffer
   if(bar==WRONG_VALUE)
      class="kw">return this.BufferInitColorIndex(buffer_num);
class=class="str">"cmt">//--- Return a value from the class="type">color buffer of the indicator object at the found index
   class="kw">return this.GetColorData(buffer_num,bar);
class=class="str">"cmt">//--- Calculate the real index in the class="type">color buffer array and class="kw">return the value at this index
   class="type">int n=class="type">int(this.DataTotal(buffer_num,class="num">4)-class="num">1-bar);
   class="kw">return this.m_buffers[buffer_num].color_indexes[n];
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Disable timeseries indexing of buffer arrays                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CIndMSTF::SetAsSeriesOff(class="type">void)
  {
class=class="str">"cmt">//--- In a loop through all indicator buffers, disable the array as timeseries flag
   for(class="type">int i=class="num">0;i<(class="type">int)this.BuffersTotal();i++)
     {
      ::ArraySetAsSeries(this.m_buffers[i].array0,false);
      ::ArraySetAsSeries(this.m_buffers[i].array1,false);
      ::ArraySetAsSeries(this.m_buffers[i].array2,false);
      ::ArraySetAsSeries(this.m_buffers[i].array3,false);
      ::ArraySetAsSeries(this.m_buffers[i].color_indexes,false);
     }
  }

class=class="str">"cmt">//| Returns the timeseries flag of the given buffer                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CIndMSTF::IsSeries(const class="type">uint buffer_num,const class="type">uint array_num) const
  {
class=class="str">"cmt">//--- Validate the buffer number passed to the method and, if the number is incorrect, print a message to the log and class="kw">return &class="macro">#x27;false&class="macro">#x27;
   if(buffer_num>this.BuffersTotal()-class="num">1)
     {
       class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
       ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
       class="kw">return false;
     }
class=class="str">"cmt">//--- Return the timeseries flag of the array of the specified buffer
   class="kw">switch(array_num)
     {
      case class="num">0 : class="kw">return (class="type">bool)::ArrayGetAsSeries(this.m_buffers[buffer_num].array0);
      case class="num">1 : class="kw">return (class="type">bool)::ArrayGetAsSeries(this.m_buffers[buffer_num].array1);
      case class="num">2 : class="kw">return (class="type">bool)::ArrayGetAsSeries(this.m_buffers[buffer_num].array2);
      case class="num">3 : class="kw">return (class="type">bool)::ArrayGetAsSeries(this.m_buffers[buffer_num].array3);
      case class="num">4 : class="kw">return (class="type">bool)::ArrayGetAsSeries(this.m_buffers[buffer_num].color_indexes);
      class="kw">default: break;
     }
   class="kw">return false;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Returns the amount of data in the specified buffer                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">uint CIndMSTF::DataTotal(const class="type">uint buffer_num,const class="type">uint array_num) const
  {
class=class="str">"cmt">//--- Validate the buffer number passed to method and, if number is incorrect, print message to log and class="kw">return zero
   if(buffer_num>this.BuffersTotal()-class="num">1)
     {
       class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
       ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
       class="kw">return class="num">0;
     }
class=class="str">"cmt">//--- Return the array size of the specified buffer
   class="kw">switch(array_num)
     {
      case class="num">0 : class="kw">return this.m_buffers[buffer_num].array0.Size();
      case class="num">1 : class="kw">return this.m_buffers[buffer_num].array1.Size();
      case class="num">2 : class="kw">return this.m_buffers[buffer_num].array2.Size();

case class="num">3 : class="kw">return this.m_buffers[buffer_num].array3.Size();
   case class="num">4 : class="kw">return this.m_buffers[buffer_num].color_indexes.Size();
   class="kw">default: break;
    }
  class="kw">return class="num">0;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the number of colors set for the buffer                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">uint CIndMSTF::ColorsTotal(const class="type">uint buffer_num) const
  {
class=class="str">"cmt">//--- Validate the buffer number passed to method and, if number is incorrect, print a message to log and class="kw">return zero
  if(buffer_num>this.BuffersTotal()-class="num">1)
    {
      class="type">class="kw">string buff_limit=(this.BuffersTotal()==class="num">1 ? "class="num">0" : "class="num">0 - "+class="type">class="kw">string(this.BuffersTotal()-class="num">1));
      ::PrintFormat("%s: Invalid buffer number passed(%lu). Value must be %s",__FUNCTION__,buffer_num,buff_limit);
      class="kw">return class="num">0;
    }
class=class="str">"cmt">//--- Return the size of the class="type">color array of the specified buffer
  class="kw">return this.m_buffers[buffer_num].clrs.Size();
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Accelerator Oscillator indicator class                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CIndAC : class="kw">public CIndMSTF
  {
class="kw">public:
class=class="str">"cmt">//--- Constructor
  CIndAC(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe) : CIndMSTF(IND_AC,class="num">1,symbol,timeframe)
    {
      class=class="str">"cmt">//--- Create description of parameters
      class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
      class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
      class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
      class="type">class="kw">string param=(current ? "" : StringFormat("(%s)",symbol_period));
      class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title and category
      this.SetParameters(param);
      this.SetName("AC");
      this.SetDescription("Accelerator Oscillator");
      this.m_title=this.Name()+this.Parameters();
      this.m_category=IND_CATEGORY_WILLIAMS;
      this.m_digits=::Digits()+class="num">2;
      class=class="str">"cmt">//--- Write description of line buffers
      this.SetBufferDescription(class="num">0,this.m_title);
      class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and number of the calculation part data buffer

this.SetBufferDrawType(class="num">0,DRAW_COLOR_HISTOGRAM,class="num">0);
class=class="str">"cmt">//--- Set two class="kw">default colors for the class="type">color buffer class="num">0
this.SetBufferColorToIndex(class="num">0,class="num">0,clrGreen);
this.SetBufferColorToIndex(class="num">0,class="num">1,clrRed);
class=class="str">"cmt">//--- Set the class="kw">default initializing class="type">color index
this.SetBufferInitColorIndex(class="num">0,class="num">0);
 }
};
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Accumulation/Distribution indicator class                        |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CIndAD : class="kw">public CIndMSTF
 {
class="kw">public:
class=class="str">"cmt">//--- Constructor
  CIndAD(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
         const ENUM_APPLIED_VOLUME applied_volume class=class="str">"cmt">// used volume
        ) : CIndMSTF(IND_AD,class="num">1,symbol,timeframe)
  {
  class=class="str">"cmt">//--- Set the size of the parameter array and fill it
  ::ResetLastError();
  if(::ArrayResize(this.m_param,class="num">1)==class="num">1)
    {
     ::ZeroMemory(this.m_param);
     this.m_param[class="num">0].type=TYPE_UINT;
     this.m_param[class="num">0].integer_value=applied_volume;
    }
  else
     ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
  class=class="str">"cmt">//--- Create description of parameters
  class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
  class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
  class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
  class="type">class="kw">string param=(current ? "" : StringFormat("(%s)",symbol_period));
  class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
  this.SetParameters(param);
  this.SetName("A/D");
  this.SetDescription("Accumulation/Distribution");
  this.m_title=this.Name()+this.Parameters();
  this.m_category=IND_CATEGORY_VOLUME;
  this.m_digits=class="num">0;
  class=class="str">"cmt">//--- Write description of line buffers
  this.SetBufferDescription(class="num">0,this.m_title);

class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
   this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
   class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
   this.SetBufferColorToIndex(class="num">0,class="num">0,clrLightSeaGreen);

this.SetBufferDescription(PLUSDI_LINE,"+DI");
this.SetBufferDescription(MINUSDI_LINE,"-DI");

class=class="str">"cmt">//--- Set drawing style for buffers class="num">0, class="num">1, class="num">2 and the numbers of calculation part data buffers
this.SetBufferDrawType(class="num">0,DRAW_LINE,MAIN_LINE);
this.SetBufferDrawType(class="num">1,DRAW_LINE,PLUSDI_LINE);
this.SetBufferDrawType(class="num">2,DRAW_LINE,MINUSDI_LINE);

class=class="str">"cmt">//--- Set class="kw">default colors for buffers class="num">0, class="num">1 and class="num">2
this.SetBufferColorToIndex(MAIN_LINE,class="num">0,clrLightSeaGreen);
this.SetBufferColorToIndex(PLUSDI_LINE,class="num">0,clrYellowGreen);
this.SetBufferColorToIndex(MINUSDI_LINE,class="num">0,clrWheat);

class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
   this.SetParameters(param);
   this.SetName("ADX Wilder");
   this.SetDescription("Average Directional Movement Index Wilder");
   this.m_title=this.Name()+this.Parameters();
   this.m_category=IND_CATEGORY_TREND;
   this.m_digits=class="num">2;
class=class="str">"cmt">//--- write descriptions of MAIN_LINE, PLUSDI_LINE and MINUSDI_LINE line buffers
   this.SetBufferDescription(MAIN_LINE,this.m_title);
   this.SetBufferDescription(PLUSDI_LINE,"+DI");
   this.SetBufferDescription(MINUSDI_LINE,"-DI");

class=class="str">"cmt">//--- Set drawing style for buffers class="num">0, class="num">1, class="num">2 and the numbers of calculation part data buffers
   this.SetBufferDrawType(class="num">0,DRAW_LINE,MAIN_LINE);
   this.SetBufferDrawType(class="num">1,DRAW_LINE,PLUSDI_LINE);
   this.SetBufferDrawType(class="num">2,DRAW_LINE,MINUSDI_LINE);

class=class="str">"cmt">//--- Set class="kw">default colors for buffers class="num">0, class="num">1 and class="num">2
   this.SetBufferColorToIndex(MAIN_LINE,class="num">0,clrLightSeaGreen);
   this.SetBufferColorToIndex(PLUSDI_LINE,class="num">0,clrYellowGreen);
   this.SetBufferColorToIndex(MINUSDI_LINE,class="num">0,clrWheat);

const class="type">int lips_shift,                 class=class="str">"cmt">// horizontal shift of lips
const ENUM_MA_METHOD ma_method,       class=class="str">"cmt">// smoothing type
const ENUM_APPLIED_PRICE applied_price class=class="str">"cmt">// price type or handle
) : CIndMSTF(IND_ALLIGATOR,class="num">3,symbol,timeframe)
 {
 class=class="str">"cmt">// Buffer indexes: class="num">0 - GATORJAW_LINE, class="num">1 - GATORTEETH_LINE, class="num">2 - GATORLIPS_LINE
 class=class="str">"cmt">//--- Set the size of the parameter array and fill it
 ::ResetLastError();
 if(::ArrayResize(this.m_param,class="num">8)==class="num">8)
   {
    ::ZeroMemory(this.m_param);
    class=class="str">"cmt">//--- period for jaw line calculation
    this.m_param[class="num">0].type=TYPE_UINT;
    this.m_param[class="num">0].integer_value=(jaw_period<class="num">1 ? class="num">13 : jaw_period);
    class=class="str">"cmt">//--- horizontal shift of the jaw line
    this.m_param[class="num">1].type=TYPE_INT;
    this.m_param[class="num">1].integer_value=jaw_shift;
    class=class="str">"cmt">//--- period for teeth line calculation
    this.m_param[class="num">2].type=TYPE_UINT;
    this.m_param[class="num">2].integer_value=(teeth_period<class="num">1 ? class="num">8 : teeth_period);
    class=class="str">"cmt">//--- horizontal shift of teeth line
    this.m_param[class="num">3].type=TYPE_INT;
    this.m_param[class="num">3].integer_value=teeth_shift;
    class=class="str">"cmt">//--- period for lip line calculation
    this.m_param[class="num">4].type=TYPE_UINT;
    this.m_param[class="num">4].integer_value=(lips_period<class="num">1 ? class="num">5 : lips_period);
    class=class="str">"cmt">//--- horizontal shift of lips line
    this.m_param[class="num">5].type=TYPE_INT;
    this.m_param[class="num">5].integer_value=lips_shift;
    class=class="str">"cmt">//--- smoothing type
    this.m_param[class="num">6].type=TYPE_UINT;
    this.m_param[class="num">6].integer_value=ma_method;
    class=class="str">"cmt">//--- price type or handle
    this.m_param[class="num">7].type=TYPE_UINT;
    this.m_param[class="num">7].integer_value=applied_price;
    }
 else
    ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
 class=class="str">"cmt">//--- Create description of parameters

class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
class="type">class="kw">string param=StringFormat("(%s%s%lu,%lu,%lu)",symbol_period,(current ? "" : ":"),jaw_period,teeth_period,lips_period);
class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title and category
this.SetParameters(param);
this.SetName("Alligator");
this.SetDescription("Alligator");
this.m_title=this.Name()+this.Parameters();
this.m_category=IND_CATEGORY_WILLIAMS;
class=class="str">"cmt">//--- Write descriptions of GATORJAW_LINE, GATORTEETH_LINE and GATORLIPS_LINE line buffers
this.SetBufferDescription(GATORJAW_LINE,::StringFormat("Jaws(%s%lu)", (current ? "" : symbol_period+":"),jaw_period));
this.SetBufferDescription(GATORTEETH_LINE,::StringFormat("Teeth(%s%lu)",(current ? "" : symbol_period+":"),teeth_period));
this.SetBufferDescription(GATORLIPS_LINE,::StringFormat("Lips(%s%lu)", (current ? "" : symbol_period+":"),lips_period));
class=class="str">"cmt">//--- Write offsets to buffers GATORJAW_LINE, GATORTEETH_LINE and GATORLIPS_LINE
this.SetBufferShift(GATORJAW_LINE,jaw_shift);
this.SetBufferShift(GATORTEETH_LINE,teeth_shift);
this.SetBufferShift(GATORLIPS_LINE,lips_shift);

class=class="str">"cmt">//--- Set drawing style for buffers class="num">0, class="num">1, class="num">2 and the numbers of calculation part data buffers
this.SetBufferDrawType(class="num">0,DRAW_LINE,GATORJAW_LINE);
this.SetBufferDrawType(class="num">1,DRAW_LINE,GATORTEETH_LINE);
this.SetBufferDrawType(class="num">2,DRAW_LINE,GATORLIPS_LINE);

class=class="str">"cmt">//--- Set class="kw">default colors for buffers class="num">0, class="num">1 and class="num">2
this.SetBufferColorToIndex(GATORJAW_LINE,class="num">0,clrBlue);
this.SetBufferColorToIndex(GATORTEETH_LINE,class="num">0,clrRed);
this.SetBufferColorToIndex(GATORLIPS_LINE,class="num">0,clrLime);

const class="type">int ama_period,                 class=class="str">"cmt">// AMA period
const class="type">int fast_ma_period,             class=class="str">"cmt">// fast MA period
const class="type">int slow_ma_period,             class=class="str">"cmt">// slow MA period
const class="type">int ama_shift,                  class=class="str">"cmt">// horizontal shift of the indicator
const ENUM_APPLIED_PRICE applied_price class=class="str">"cmt">// price type or handle
) : CIndMSTF(IND_AMA,class="num">1,symbol,timeframe)
 {
 class=class="str">"cmt">//--- Set the size of the parameter array and fill it
 ::ResetLastError();
 if(::ArrayResize(this.m_param,class="num">5)==class="num">5)
  {
   ::ZeroMemory(this.m_param);
   class=class="str">"cmt">//--- AMA period
   this.m_param[class="num">0].type=TYPE_UINT;
   this.m_param[class="num">0].integer_value=(ama_period<class="num">1 ? class="num">9 : ama_period);
   class=class="str">"cmt">//--- fast MA period
   this.m_param[class="num">1].type=TYPE_UINT;
   this.m_param[class="num">1].integer_value=(fast_ma_period<class="num">1 ? class="num">2 : fast_ma_period);
   class=class="str">"cmt">//--- slow MA period
   this.m_param[class="num">2].type=TYPE_UINT;
   this.m_param[class="num">2].integer_value=(slow_ma_period<class="num">1 ? class="num">30 : slow_ma_period);
   class=class="str">"cmt">//--- horizontal shift of the indicator
   this.m_param[class="num">3].type=TYPE_INT;
   this.m_param[class="num">3].integer_value=ama_shift;
   class=class="str">"cmt">//--- price type or handle
   this.m_param[class="num">4].type=TYPE_UINT;
   this.m_param[class="num">4].integer_value=applied_price;
   }
 else
   ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
 class=class="str">"cmt">//--- Create description of parameters
 class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
 class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
 class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));

class="type">class="kw">string param=StringFormat("(%s%s%lu,%lu,%lu)",symbol_period,(current ? "" : ":"),ama_period,fast_ma_period,slow_ma_period);
class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
this.SetParameters(param);
this.SetName("AMA");
this.SetDescription("Adaptive Moving Average");
this.m_title=this.Name()+this.Parameters();
this.m_category=IND_CATEGORY_TREND;
this.m_digits=::Digits()+class="num">1;
class=class="str">"cmt">//--- Write description of line buffers
this.SetBufferDescription(class="num">0,this.m_title);
class=class="str">"cmt">//--- Write shift to buffer class="num">0
this.SetBufferShift(class="num">0,ama_shift);
class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
this.SetBufferColorToIndex(class="num">0,class="num">0,clrRed);

class CIndAO : class="kw">public CIndMSTF
{
class="kw">public:
class=class="str">"cmt">//--- Constructor
 CIndAO(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe) : CIndMSTF(IND_AO,class="num">1,symbol,timeframe)
 {
 class=class="str">"cmt">//--- Create description of parameters
 class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
 class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
 class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
 class="type">class="kw">string param=(current ? "" : StringFormat("(%s)",symbol_period));
 class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
 this.SetParameters(param);
 this.SetName("AO");
 this.SetDescription("Awesome Oscillator");
 this.m_title=this.Name()+this.Parameters();
 this.m_category=IND_CATEGORY_WILLIAMS;
 this.m_digits=::Digits()+class="num">1;
 class=class="str">"cmt">//--- Write description of line buffers
 this.SetBufferDescription(class="num">0,this.m_title);
 class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part

this.SetBufferDrawType(class="num">0,DRAW_COLOR_HISTOGRAM,class="num">0);
class=class="str">"cmt">//--- Set two class="kw">default colors for the class="type">color buffer class="num">0
this.SetBufferColorToIndex(class="num">0,class="num">0,clrGreen);
this.SetBufferColorToIndex(class="num">0,class="num">1,clrRed);
class=class="str">"cmt">//--- Set the class="kw">default initializing class="type">color index
this.SetBufferInitColorIndex(class="num">0,class="num">0);
}
};
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Average True Range indicator class                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CIndATR : class="kw">public CIndMSTF
{
class="kw">public:
class=class="str">"cmt">//--- Constructor
  CIndATR(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
          const class="type">int ma_period       class=class="str">"cmt">// averaging period
          ) : CIndMSTF(IND_ATR,class="num">1,symbol,timeframe)
  {
  class=class="str">"cmt">//--- Set the size of the parameter array and fill it
  ::ResetLastError();
  if(::ArrayResize(this.m_param,class="num">1)==class="num">1)
    {
     ::ZeroMemory(this.m_param);
     this.m_param[class="num">0].type=TYPE_UINT;
     this.m_param[class="num">0].integer_value=(ma_period<class="num">1 ? class="num">14 : ma_period);
    }
  else
     ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
  class=class="str">"cmt">//--- Create description of parameters
  class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
  class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
  class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
  class="type">class="kw">string param=StringFormat("(%s%s%lu)",symbol_period,(current ? "" : ":"),ma_period);
  class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title and category
  this.SetParameters(param);
  this.SetName("ATR");
  this.SetDescription("Average True Range");
  this.m_title=this.Name()+this.Parameters();
  this.m_category=IND_CATEGORY_OSCILLATOR;
  class=class="str">"cmt">//--- Write description of line buffers
  this.SetBufferDescription(class="num">0,this.m_title);

   class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
   this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
   class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
   this.SetBufferColorToIndex(class="num">0,class="num">0,clrLightSeaGreen);
   }
};
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Bears Power indicator class                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CIndBears : class="kw">public CIndMSTF
  {
class="kw">public:
class=class="str">"cmt">//--- Constructor
   CIndBears(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
             const class="type">int ma_period       class=class="str">"cmt">// averaging period
             ) : CIndMSTF(IND_BEARS,class="num">1,symbol,timeframe)
   {
   class=class="str">"cmt">//--- Set the size of the parameter array and fill it
   ::ResetLastError();
   if(::ArrayResize(this.m_param,class="num">1)==class="num">1)
     {
      ::ZeroMemory(this.m_param);
      this.m_param[class="num">0].type=TYPE_UINT;
      this.m_param[class="num">0].integer_value=(ma_period<class="num">1 ? class="num">13 : ma_period);
     }
   else
      ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
   class=class="str">"cmt">//--- Create description of parameters
   class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
   class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
   class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
   class="type">class="kw">string param=StringFormat("(%s%s%lu)",symbol_period,(current ? "" : ":"),ma_period);
   class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
   this.SetParameters(param);
   this.SetName("Bears");
   this.SetDescription("Bears Power");
   this.m_title=this.Name()+this.Parameters();
   this.m_category=IND_CATEGORY_OSCILLATOR;
   this.m_digits=::Digits()+class="num">1;
   class=class="str">"cmt">//--- Write description of line buffers
   this.SetBufferDescription(class="num">0,this.m_title);

this.SetBufferDrawType(class="num">0,DRAW_HISTOGRAM,class="num">0);
this.SetBufferColorToIndex(class="num">0,class="num">0,clrSilver);

class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
   this.SetBufferDrawType(class="num">0,DRAW_HISTOGRAM,class="num">0);
   class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
   this.SetBufferColorToIndex(class="num">0,class="num">0,clrSilver);
 }
};
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Bollinger Bands® indicator class                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CIndBands : class="kw">public CIndMSTF
 {
class="kw">public:
class=class="str">"cmt">//--- Constructor
  CIndBands(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
            const class="type">int bands_period,       class=class="str">"cmt">// central line calculation period
            const class="type">int bands_shift,        class=class="str">"cmt">// horizontal shift of the indicator
            const class="type">class="kw">double deviation,       class=class="str">"cmt">// number of standard deviations
            const ENUM_APPLIED_PRICE applied_price class=class="str">"cmt">// price type or handle
            ) : CIndMSTF(IND_BANDS,class="num">3,symbol,timeframe)
  {
  class=class="str">"cmt">// Buffer indexes: class="num">0 - BASE_LINE, class="num">1 - UPPER_BAND, class="num">2 - LOWER_BAND
  class=class="str">"cmt">//--- Set the size of the parameter array and fill it
  ::ResetLastError();
  if(::ArrayResize(this.m_param,class="num">4)==class="num">4)
    {
     ::ZeroMemory(this.m_param);
     class=class="str">"cmt">//--- central line calculation period
     this.m_param[class="num">0].type=TYPE_UINT;
     this.m_param[class="num">0].integer_value=(bands_period<class="num">1 ? class="num">20 : bands_period);
     class=class="str">"cmt">//--- horizontal shift of the indicator
     this.m_param[class="num">1].type=TYPE_INT;
     this.m_param[class="num">1].integer_value=bands_shift;
     class=class="str">"cmt">//--- number of standard deviations
     this.m_param[class="num">2].type=TYPE_DOUBLE;
     this.m_param[class="num">2].double_value=deviation;
     class=class="str">"cmt">//--- price type or handle
     this.m_param[class="num">3].type=TYPE_UINT;
     this.m_param[class="num">3].integer_value=applied_price;
    }
  else
     ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
  class=class="str">"cmt">//--- Create description of parameters

class=class="str">"cmt">//--- Set drawing style for buffers class="num">0, class="num">1, class="num">2 and the numbers of calculation part data buffers
this.SetBufferDrawType(class="num">0,DRAW_LINE,BASE_LINE);
this.SetBufferDrawType(class="num">1,DRAW_LINE,UPPER_BAND);
this.SetBufferDrawType(class="num">2,DRAW_LINE,LOWER_BAND);

class=class="str">"cmt">//--- Set class="kw">default colors for buffers class="num">0, class="num">1 and class="num">2
this.SetBufferColorToIndex(BASE_LINE,class="num">0,clrMediumSeaGreen);
this.SetBufferColorToIndex(UPPER_BAND,class="num">0,clrMediumSeaGreen);
this.SetBufferColorToIndex(LOWER_BAND,class="num">0,clrMediumSeaGreen);

class=class="str">"cmt">//--- Set drawing style for buffers class="num">0, class="num">1, class="num">2 and the numbers of calculation part data buffers
this.SetBufferDrawType(class="num">0,DRAW_LINE,BASE_LINE);
this.SetBufferDrawType(class="num">1,DRAW_LINE,UPPER_BAND);
this.SetBufferDrawType(class="num">2,DRAW_LINE,LOWER_BAND);

class=class="str">"cmt">//--- Set class="kw">default colors for buffers class="num">0, class="num">1 and class="num">2
this.SetBufferColorToIndex(BASE_LINE,class="num">0,clrMediumSeaGreen);
this.SetBufferColorToIndex(UPPER_BAND,class="num">0,clrMediumSeaGreen);
this.SetBufferColorToIndex(LOWER_BAND,class="num">0,clrMediumSeaGreen);

const class="type">int ma_period,                    class=class="str">"cmt">// averaging period
      const ENUM_APPLIED_PRICE applied_price  class=class="str">"cmt">// price type or handle
      ) : CIndMSTF(IND_CCI,class="num">1,symbol,timeframe)
  {
  class=class="str">"cmt">//--- Set the size of the parameter array and fill it
  ::ResetLastError();
  if(::ArrayResize(this.m_param,class="num">2)==class="num">2)
    {
     ::ZeroMemory(this.m_param);
     class=class="str">"cmt">//--- averaging period
     this.m_param[class="num">0].type=TYPE_UINT;
     this.m_param[class="num">0].integer_value=(ma_period<class="num">1 ? class="num">14 : ma_period<class="num">2 ? class="num">2 : ma_period);
     class=class="str">"cmt">//--- price type or handle
     this.m_param[class="num">1].type=TYPE_UINT;
     this.m_param[class="num">1].integer_value=applied_price;
    }
  else
     ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
  class=class="str">"cmt">//--- Create description of parameters
  class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
  class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
  class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
  class="type">class="kw">string param=StringFormat("(%s%s%lu)",symbol_period,(current ? "" : ":"),ma_period);
  class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
  this.SetParameters(param);
  this.SetName("CCI");
  this.SetDescription("Commodity Channel Index");
  this.m_title=this.Name()+this.Parameters();
  this.m_category=IND_CATEGORY_OSCILLATOR;
  this.m_digits=class="num">2;
  class=class="str">"cmt">//--- Write description of line buffers
  this.SetBufferDescription(class="num">0,this.m_title);
  
  class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
  this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
  class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
  this.SetBufferColorToIndex(class="num">0,class="num">0,clrLightSeaGreen);
  }
};

class=class="str">"cmt">//| Chaikin Oscillator indicator class                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CIndCHO : class="kw">public CIndMSTF
  {
class="kw">public:
class=class="str">"cmt">//--- Constructor
   CIndCHO(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
           const class="type">int fast_ma_period,                class=class="str">"cmt">// fast period
           const class="type">int slow_ma_period,                class=class="str">"cmt">// slow period
           const ENUM_MA_METHOD ma_method,          class=class="str">"cmt">// smoothing type
           const ENUM_APPLIED_VOLUME applied_volume class=class="str">"cmt">// used volume
           ) : CIndMSTF(IND_CHAIKIN,class="num">1,symbol,timeframe)
     {
     class=class="str">"cmt">//--- Set the size of the parameter array and fill it
     ::ResetLastError();
     if(::ArrayResize(this.m_param,class="num">4)==class="num">4)
       {
        ::ZeroMemory(this.m_param);
        class=class="str">"cmt">//--- fast period
        this.m_param[class="num">0].type=TYPE_UINT;
        this.m_param[class="num">0].integer_value=(fast_ma_period<class="num">1 ? class="num">3 : fast_ma_period);
        class=class="str">"cmt">//--- slow period
        this.m_param[class="num">1].type=TYPE_UINT;
        this.m_param[class="num">1].integer_value=(slow_ma_period<class="num">1 ? class="num">10 : slow_ma_period);
        class=class="str">"cmt">//--- smoothing type
        this.m_param[class="num">2].type=TYPE_UINT;
        this.m_param[class="num">2].integer_value=ma_method;
        class=class="str">"cmt">//--- used volume
        this.m_param[class="num">3].type=TYPE_UINT;
        this.m_param[class="num">3].integer_value=applied_volume;
       }
     else
        ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
     class=class="str">"cmt">//--- Create description of parameters
     class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
     class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
     class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
     class="type">class="kw">string param=StringFormat("(%s%s%lu,%lu)",symbol_period,(current ? "" : ":"),slow_ma_period,fast_ma_period);

class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
   this.SetParameters(param);
   this.SetName("CHO");
   this.SetDescription("Chaikin Oscillator");
   this.m_title=this.Name()+this.Parameters();
   this.m_category=IND_CATEGORY_OSCILLATOR;
   this.m_digits=class="num">0;
class=class="str">"cmt">//--- Write description of line buffers
   this.SetBufferDescription(class="num">0,this.m_title);

class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
   this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
   this.SetBufferColorToIndex(class="num">0,class="num">0,clrLightSeaGreen);

class CIndDEMA : class="kw">public CIndMSTF
  {
class="kw">public:
class=class="str">"cmt">//--- Constructor
   CIndDEMA(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
            const class="type">int ma_period,              class=class="str">"cmt">// averaging period
            const class="type">int ma_shift,               class=class="str">"cmt">// horizontal indicator shift
            const ENUM_APPLIED_PRICE applied_price class=class="str">"cmt">// price type or handle
            ) : CIndMSTF(IND_DEMA,class="num">1,symbol,timeframe)
     {
class=class="str">"cmt">//--- Set the size of the parameter array and fill it
     ::ResetLastError();
     if(::ArrayResize(this.m_param,class="num">3)==class="num">3)
       {
        ::ZeroMemory(this.m_param);
        class=class="str">"cmt">//--- averaging period
        this.m_param[class="num">0].type=TYPE_UINT;
        this.m_param[class="num">0].integer_value=(ma_period<class="num">1 ? class="num">14 : ma_period);
        class=class="str">"cmt">//--- horizontal shift of the indicator
        this.m_param[class="num">1].type=TYPE_INT;
        this.m_param[class="num">1].integer_value=ma_shift;
        class=class="str">"cmt">//--- price type or handle
        this.m_param[class="num">2].type=TYPE_UINT;
        this.m_param[class="num">2].integer_value=applied_price;
       }
     else

      class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
      this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
      class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
      this.SetBufferColorToIndex(class="num">0,class="num">0,clrRed);

this.m_param[class="num">0].integer_value=(ma_period<class="num">1 ? class="num">14 : ma_period);
}
else
  ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
class=class="str">"cmt">//--- Create description of parameters
class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
class="type">class="kw">string param=StringFormat("(%s%s%lu)",symbol_period,(current ? "" : ":"),ma_period);
class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
this.SetParameters(param);
this.SetName("DeM");
this.SetDescription("DeMarker");
this.m_title=this.Name()+this.Parameters();
this.m_category=IND_CATEGORY_OSCILLATOR;
this.m_digits=class="num">3;
class=class="str">"cmt">//--- Write description of line buffers
this.SetBufferDescription(class="num">0,this.m_title);
class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
this.SetBufferColorToIndex(class="num">0,class="num">0,clrLightSeaGreen);

const class="type">class="kw">double deviation                      class=class="str">"cmt">// deviation of envelope borders from the middle line
) : CIndMSTF(IND_ENVELOPES,class="num">2,symbol,timeframe)
 {
 class=class="str">"cmt">// Buffer indexes: class="num">0 - UPPER_LINE, class="num">1 - LOWER_LINE
 class=class="str">"cmt">//--- Set the size of the parameter array and fill it
 ::ResetLastError();
 if(::ArrayResize(this.m_param,class="num">5)==class="num">5)
   {
    ::ZeroMemory(this.m_param);
    class=class="str">"cmt">//--- central line calculation period
    this.m_param[class="num">0].type=TYPE_UINT;
    this.m_param[class="num">0].integer_value=(ma_period<class="num">1 ? class="num">14 : ma_period);
    class=class="str">"cmt">//--- horizontal shift of the indicator
    this.m_param[class="num">1].type=TYPE_INT;
    this.m_param[class="num">1].integer_value=ma_shift;
    class=class="str">"cmt">//--- smoothing type
    this.m_param[class="num">2].type=TYPE_UINT;
    this.m_param[class="num">2].integer_value=ma_method;
    class=class="str">"cmt">//--- price type or handle
    this.m_param[class="num">3].type=TYPE_UINT;
    this.m_param[class="num">3].integer_value=applied_price;
    class=class="str">"cmt">//--- deviation of envelope borders from the muddle line
    this.m_param[class="num">4].type=TYPE_DOUBLE;
    this.m_param[class="num">4].double_value=deviation;
    }
 else
   ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
 class=class="str">"cmt">//--- Create description of parameters
 class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
 class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
 class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
 class="type">class="kw">string param=StringFormat("(%s%s%lu)",symbol_period,(current ? "" : ":"),ma_period);
 class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
 this.SetParameters(param);
 this.SetName("Envelopes");
 this.SetDescription("Envelopes");
 this.m_title=this.Name()+this.Parameters();
 this.m_category=IND_CATEGORY_TREND;
 this.m_digits=::Digits()+class="num">1;

class=class="str">"cmt">//--- Description of UPPER_LINE and LOWER_LINE line buffers
this.SetBufferDescription(UPPER_LINE,this.m_title+" Upper");
this.SetBufferDescription(LOWER_LINE,this.m_title+" Lower");
class=class="str">"cmt">//--- Write shift to buffers
this.SetBufferShift(class="num">0,ma_shift);
this.SetBufferShift(class="num">1,ma_shift);

class=class="str">"cmt">//--- Set drawing style for buffers class="num">0 and class="num">1 and the numbers of calculation part data buffers
this.SetBufferDrawType(class="num">0,DRAW_LINE,UPPER_LINE);
this.SetBufferDrawType(class="num">1,DRAW_LINE,LOWER_LINE);

class=class="str">"cmt">//--- Set class="kw">default colors for buffers class="num">0 and class="num">1
this.SetBufferColorToIndex(UPPER_LINE,class="num">0,clrBlue);
this.SetBufferColorToIndex(LOWER_LINE,class="num">0,clrRed);

else
  ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
class=class="str">"cmt">//--- Create description of parameters
class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
class="type">class="kw">string param=StringFormat("(%s%s%lu)",symbol_period,(current ? "" : ":"),ma_period);
class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
this.SetParameters(param);
this.SetName("Force");
this.SetDescription("Force Index");
this.m_title=this.Name()+this.Parameters();
this.m_category=IND_CATEGORY_OSCILLATOR;
this.m_digits=::Digits()+class="num">1;
class=class="str">"cmt">//--- Write description of line buffers
this.SetBufferDescription(class="num">0,this.m_title);

class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
this.SetBufferColorToIndex(class="num">0,class="num">0,clrLightSeaGreen);
}
};
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Fractals indicator class                                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CIndFractals : class="kw">public CIndMSTF
{
class="kw">public:
class=class="str">"cmt">//--- Constructor
 CIndFractals(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe) : CIndMSTF(IND_FRACTALS,class="num">2,symbol,timeframe)
  {
  class=class="str">"cmt">// Buffer indexes: class="num">0 - UPPER_LINE, class="num">1 - LOWER_LINE
  class=class="str">"cmt">//--- Create description of parameters
  class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
  class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
  class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
  class="type">class="kw">string param=(current ? "" : StringFormat("(%s)",symbol_period));
  class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title and category
  this.SetParameters(param);

this.SetName("Fractals");
this.SetDescription("Fractals");
this.m_title=this.Name()+this.Parameters();
this.m_category=IND_CATEGORY_WILLIAMS;
class=class="str">"cmt">//--- Description of UPPER_LINE and LOWER_LINE line buffers
this.SetBufferDescription(UPPER_LINE,this.m_title+" Up");
this.SetBufferDescription(LOWER_LINE,this.m_title+" Down");

class=class="str">"cmt">//--- Set drawing style for buffers class="num">0 and class="num">1 and the numbers of calculation part data buffers
this.SetBufferDrawType(class="num">0,DRAW_ARROW,UPPER_LINE);
this.SetBufferDrawType(class="num">1,DRAW_ARROW,LOWER_LINE);

class=class="str">"cmt">//--- Set class="kw">default colors for buffers class="num">0 and class="num">1
this.SetBufferColorToIndex(UPPER_LINE,class="num">0,clrGray);
this.SetBufferColorToIndex(LOWER_LINE,class="num">0,clrGray);

class CIndFrAMA : class="kw">public CIndMSTF
{
class="kw">public:
 CIndFrAMA(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
           const class="type">int ma_period,              class=class="str">"cmt">// averaging period
           const class="type">int ma_shift,               class=class="str">"cmt">// horizontal shift of the indicator
           const ENUM_APPLIED_PRICE applied_price class=class="str">"cmt">// price type or handle
           ) : CIndMSTF(IND_FRAMA,class="num">1,symbol,timeframe)
 {
 class=class="str">"cmt">//--- Set the size of the parameter array and fill it
 ::ResetLastError();
 if(::ArrayResize(this.m_param,class="num">3)==class="num">3)
   {
    ::ZeroMemory(this.m_param);
    class=class="str">"cmt">//--- averaging period
    this.m_param[class="num">0].type=TYPE_UINT;
    this.m_param[class="num">0].integer_value=(ma_period<class="num">1 ? class="num">14 : ma_period);
    class=class="str">"cmt">//--- horizontal shift of the indicator
    this.m_param[class="num">1].type=TYPE_INT;
    this.m_param[class="num">1].integer_value=ma_shift;
    class=class="str">"cmt">//--- price type or handle
    this.m_param[class="num">2].type=TYPE_UINT;

 this.m_param[class="num">2].integer_value=applied_price;
   }
   else
     ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
   class=class="str">"cmt">//--- Create description of parameters
   class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
   class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
   class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
   class="type">class="kw">string param=StringFormat("(%s%s%lu)",symbol_period,(current ? "" : ":"),ma_period);
   class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
   this.SetParameters(param);
   this.SetName("FRAMA");
   this.SetDescription("Fractal Adaptive Moving Average");
   this.m_title=this.Name()+this.Parameters();
   this.m_category=IND_CATEGORY_TREND;
   this.m_digits=::Digits()+class="num">1;
   class=class="str">"cmt">//--- Write description of line buffers
   this.SetBufferDescription(class="num">0,this.m_title);
   class=class="str">"cmt">//--- Write shift to buffer class="num">0
   this.SetBufferShift(class="num">0,ma_shift);
   class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
   this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
   class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
   this.SetBufferColorToIndex(class="num">0,class="num">0,clrBlue);

const class="type">int teeth_shift,                 class=class="str">"cmt">// horizontal shift of teeth line
const class="type">int lips_period,                 class=class="str">"cmt">// period for calculating lip line
const class="type">int lips_shift,                  class=class="str">"cmt">// horizontal shift of lip line
const ENUM_MA_METHOD ma_method,        class=class="str">"cmt">// smoothing type
const ENUM_APPLIED_PRICE applied_price class=class="str">"cmt">// price type or handle
) : CIndMSTF(IND_GATOR,class="num">2,symbol,timeframe)
{
class=class="str">"cmt">// Buffer indexes: class="num">0 - UPPER_HISTOGRAM, class="num">1 - class="type">color buffer of the upper histogram, class="num">2 - LOWER_HISTOGRAM, class="num">3 - class="type">color buffer of the lower histogram
class=class="str">"cmt">//--- Set the size of the parameter array and fill it
::ResetLastError();
if(::ArrayResize(this.m_param,class="num">8)==class="num">8)
  {
   ::ZeroMemory(this.m_param);
   class=class="str">"cmt">//--- period for jaw line calculation
   this.m_param[class="num">0].type=TYPE_UINT;
   this.m_param[class="num">0].integer_value=(jaw_period<class="num">1 ? class="num">13 : jaw_period);
   class=class="str">"cmt">//--- horizontal shift of the jaw line
   this.m_param[class="num">1].type=TYPE_INT;
   this.m_param[class="num">1].integer_value=jaw_shift;
   class=class="str">"cmt">//--- period for teeth line calculation
   this.m_param[class="num">2].type=TYPE_UINT;
   this.m_param[class="num">2].integer_value=(teeth_period<class="num">1 ? class="num">8 : teeth_period);
   class=class="str">"cmt">//--- horizontal shift of teeth line
   this.m_param[class="num">3].type=TYPE_INT;
   this.m_param[class="num">3].integer_value=teeth_shift;
   class=class="str">"cmt">//--- period for lip line calculation
   this.m_param[class="num">4].type=TYPE_UINT;
   this.m_param[class="num">4].integer_value=(lips_period<class="num">1 ? class="num">5 : lips_period);
   class=class="str">"cmt">//--- horizontal shift of lips line
   this.m_param[class="num">5].type=TYPE_INT;
   this.m_param[class="num">5].integer_value=lips_shift;
   class=class="str">"cmt">//--- smoothing type
   this.m_param[class="num">6].type=TYPE_UINT;
   this.m_param[class="num">6].integer_value=ma_method;
   class=class="str">"cmt">//--- price type or handle
   this.m_param[class="num">7].type=TYPE_UINT;

this.SetBufferDrawType(class="num">0,DRAW_COLOR_HISTOGRAM,UPPER_HISTOGRAM);
this.SetBufferDrawType(class="num">1,DRAW_COLOR_HISTOGRAM,LOWER_HISTOGRAM);

class=class="str">"cmt">//--- Set class="kw">default colors for class="type">color buffers
this.SetBufferColorToIndex(class="num">0,class="num">0,clrGreen);
this.SetBufferColorToIndex(class="num">0,class="num">1,clrRed);
this.SetBufferColorToIndex(class="num">1,class="num">0,clrGreen);
this.SetBufferColorToIndex(class="num">1,class="num">1,clrRed);
class=class="str">"cmt">//--- Set the class="kw">default initializing class="type">color index
this.SetBufferInitColorIndex(class="num">0,class="num">0);
this.SetBufferInitColorIndex(class="num">1,class="num">0);

class CIndIchimoku : class="kw">public CIndMSTF
  {
class="kw">public:
class=class="str">"cmt">//--- Constructor
   CIndIchimoku(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
               const class="type">int tenkan_sen,                 class=class="str">"cmt">// period of Tenkan-sen
               const class="type">int kijun_sen,                  class=class="str">"cmt">// period of Kijun-sen
               const class="type">int senkou_span_b               class=class="str">"cmt">// period of Senkou Span B
               ) : CIndMSTF(IND_ICHIMOKU,class="num">5,symbol,timeframe)
     {
     class=class="str">"cmt">// Buffer indexes: class="num">0 - TENKANSEN_LINE, class="num">1 - KIJUNSEN_LINE, class="num">2 - SENKOUSPANA_LINE, class="num">3 - SENKOUSPANB_LINE, class="num">4 - CHIKOUSPAN_LINE
     class=class="str">"cmt">//--- Set the size of the parameter array and fill it
     ::ResetLastError();
     if(::ArrayResize(this.m_param,class="num">3)==class="num">3)
       {
       ::ZeroMemory(this.m_param);
       class=class="str">"cmt">//--- period of Tenkan-sen
       this.m_param[class="num">0].type=TYPE_UINT;
       this.m_param[class="num">0].integer_value=(tenkan_sen<class="num">1 ? class="num">9 : tenkan_sen);
       class=class="str">"cmt">//--- period of Kijun-sen
       this.m_param[class="num">1].type=TYPE_UINT;
       this.m_param[class="num">1].integer_value=(kijun_sen<class="num">1 ? class="num">26 : kijun_sen);
       class=class="str">"cmt">//--- period of Senkou Span B
       this.m_param[class="num">2].type=TYPE_UINT;
       this.m_param[class="num">2].integer_value=(senkou_span_b<class="num">1 ? class="num">52 : senkou_span_b);
       }
     else
       ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
     class=class="str">"cmt">//--- Create description of parameters
     class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
     class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
     class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
     class="type">class="kw">string param=StringFormat("(%s%s%lu,%lu,%lu)",symbol_period,(current ? "" : ":"),tenkan_sen,kijun_sen,senkou_span_b);
     class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits

this.SetParameters(param);
this.SetName("Ichimoku");
this.SetDescription("Ichimoku Kinko Hyo");
this.m_title=this.Name()+this.Parameters();
this.m_category=IND_CATEGORY_TREND;
this.m_digits=::Digits()+class="num">1;
class=class="str">"cmt">//--- Description of line buffers TENKANSEN_LINE, KIJUNSEN_LINE, SENKOUSPANA_LINE, SENKOUSPANB_LINE and CHIKOUSPAN_LINE
this.SetBufferDescription(TENKANSEN_LINE,::StringFormat("Tenkan-sen(%lu)",tenkan_sen));
this.SetBufferDescription(KIJUNSEN_LINE,::StringFormat("Kijun-sen(%lu)",kijun_sen));
this.SetBufferDescription(SENKOUSPANA_LINE,"Senkou Span A");
this.SetBufferDescription(SENKOUSPANB_LINE,::StringFormat("Senkou Span B(%lu)",senkou_span_b));
this.SetBufferDescription(CHIKOUSPAN_LINE,"Chikou Span");
class=class="str">"cmt">//--- Write shifts to buffers SENKOUSPANA_LINE, SENKOUSPANB_LINE and CHIKOUSPAN_LINE
class=class="str">"cmt">//this.SetBufferShift(SENKOUSPANA_LINE,kijun_sen);
class=class="str">"cmt">//this.SetBufferShift(SENKOUSPANB_LINE,kijun_sen);
class=class="str">"cmt">//this.SetBufferShift(CHIKOUSPAN_LINE,kijun_sen-senkou_span_b);
}
};
class CIndBWMFI : class="kw">public CIndMSTF
{
class="kw">public:
 CIndBWMFI(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
            const ENUM_APPLIED_VOLUME applied_volume
            ) : CIndMSTF(IND_BWMFI,class="num">1,symbol,timeframe)
  {
  ::ResetLastError();
  if(::ArrayResize(this.m_param,class="num">1)==class="num">1)
    {
     ::ZeroMemory(this.m_param);
     this.m_param[class="num">0].type=TYPE_UINT;
     this.m_param[class="num">0].integer_value=applied_volume;
    }
  else
     ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
  class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());

class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
class="type">class="kw">string param=(current ? "" : StringFormat("(%s)",symbol_period));
class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title and category
this.SetParameters(param);
this.SetName("BW MFI");
this.SetDescription("Market Facilitation Index");
this.m_title=this.Name()+this.Parameters();
this.m_category=IND_CATEGORY_WILLIAMS;
class=class="str">"cmt">//--- Write description of line buffers
this.SetBufferDescription(class="num">0,this.m_title);

class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
this.SetBufferDrawType(class="num">0,DRAW_COLOR_HISTOGRAM,class="num">0);

class=class="str">"cmt">//--- Set four class="kw">default colors for the class="type">color buffer class="num">0
this.SetBufferColorToIndex(class="num">0,class="num">0,clrLime);
this.SetBufferColorToIndex(class="num">0,class="num">1,clrSaddleBrown);
this.SetBufferColorToIndex(class="num">0,class="num">2,clrBlue);
this.SetBufferColorToIndex(class="num">0,class="num">3,clrPink);
class=class="str">"cmt">//--- Set the class="kw">default initializing class="type">color index
this.SetBufferInitColorIndex(class="num">0,class="num">0);

this.m_param[class="num">0].integer_value=(mom_period<class="num">1 ? class="num">14 : mom_period);
class=class="str">"cmt">//--- price type or handle
this.m_param[class="num">1].type=TYPE_UINT;
this.m_param[class="num">1].integer_value=applied_price;
}
else
 ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
class=class="str">"cmt">//--- Create description of parameters
class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
class="type">class="kw">string param=StringFormat("(%s%s%lu)",symbol_period,(current ? "" : ":"),mom_period);
class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
this.SetParameters(param);
this.SetName("Momentum");
this.SetDescription("Momentum");
this.m_title=this.Name()+this.Parameters();
this.m_category=IND_CATEGORY_OSCILLATOR;
this.m_digits=class="num">2;
class=class="str">"cmt">//--- Write description of line buffers
this.SetBufferDescription(class="num">0,this.m_title);

class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
this.SetBufferColorToIndex(class="num">0,class="num">0,clrDodgerBlue);
 }
};
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Money Flow Index indicator class                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CIndMFI : class="kw">public CIndMSTF
 {
class="kw">public:
class=class="str">"cmt">//--- Constructor
 CIndMFI(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
        const class="type">int                ma_period,      class=class="str">"cmt">// averaging period
        const ENUM_APPLIED_VOLUME applied_volume  class=class="str">"cmt">// volume type for calculation
        ) : CIndMSTF(IND_MFI,class="num">1,symbol,timeframe)
  {
  class=class="str">"cmt">//--- Set the size of the parameter array and fill it
  ::ResetLastError();

if(::ArrayResize(this.m_param,class="num">2)==class="num">2)
  {
   ::ZeroMemory(this.m_param);
   class=class="str">"cmt">//--- averaging period
   this.m_param[class="num">0].type=TYPE_UINT;
   this.m_param[class="num">0].integer_value=(ma_period<class="num">1 ? class="num">14 : ma_period);
   class=class="str">"cmt">//--- volume type for calculation
   this.m_param[class="num">1].type=TYPE_UINT;
   this.m_param[class="num">1].integer_value=applied_volume;
  }
 else
   ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
 class=class="str">"cmt">//--- Create description of parameters
 class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
 class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
 class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
 class="type">class="kw">string param=StringFormat("(%s%s%lu)",symbol_period,(current ? "" : ":"),ma_period);
 class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title and category
 this.SetParameters(param);
 this.SetName("MFI");
 this.SetDescription("Money Flow Index");
 this.m_title=this.Name()+this.Parameters();
 this.m_category=IND_CATEGORY_VOLUME;
 class=class="str">"cmt">//--- Write description of line buffers
 this.SetBufferDescription(class="num">0,this.m_title);
 class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
 this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
 class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
 this.SetBufferColorToIndex(class="num">0,class="num">0,clrDodgerBlue);

const class="type">int                ma_shift,       class=class="str">"cmt">// horizontal shift of the indicator
const ENUM_MA_METHOD      ma_method,       class=class="str">"cmt">// smoothing type
const ENUM_APPLIED_PRICE  applied_price    class=class="str">"cmt">// price type or handle
   ) : CIndMSTF(IND_MA,class="num">1,symbol,timeframe)
   {
   class=class="str">"cmt">//--- Set the size of the parameter array and fill it
   ::ResetLastError();
   if(::ArrayResize(this.m_param,class="num">4)==class="num">4)
     {
      ::ZeroMemory(this.m_param);
      class=class="str">"cmt">//--- averaging period
      this.m_param[class="num">0].type=TYPE_UINT;
      this.m_param[class="num">0].integer_value=(ma_period<class="num">1 ? class="num">10 : ma_period);
      class=class="str">"cmt">//--- horizontal shift of the indicator
      this.m_param[class="num">1].type=TYPE_INT;
      this.m_param[class="num">1].integer_value=ma_shift;
      class=class="str">"cmt">//--- smoothing type
      this.m_param[class="num">2].type=TYPE_UINT;
      this.m_param[class="num">2].integer_value=ma_method;
      class=class="str">"cmt">//--- price type or handle
      this.m_param[class="num">3].type=TYPE_UINT;
      this.m_param[class="num">3].integer_value=applied_price;
     }
   else
      ::PrintFormat("%s: ArrayResize failed. Error %ld",__FUNCTION__,::GetLastError());
   class=class="str">"cmt">//--- Create description of parameters
   class=class="str">"cmt">//--- If non-current chart symbol or period, their descriptions are added to parameters
   class="type">bool current=(this.Symbol()==::Symbol() && this.Timeframe()==::Period());
   class="type">class="kw">string symbol_period=(current ? "" : ::StringFormat("%s,%s",this.Symbol(),this.TimeframeDescription()));
   class="type">class="kw">string param=StringFormat("(%s%s%lu)",symbol_period,(current ? "" : ":"),ma_period);
   class=class="str">"cmt">//--- Write description of parameters, indicator name, its description, title, category and Digits
   this.SetParameters(param);
   this.SetName("MA");
   this.SetDescription("Moving Average");
   this.m_title=this.Name()+this.Parameters();
   this.m_category=IND_CATEGORY_TREND;
   this.m_digits=::Digits()+class="num">1;
   class=class="str">"cmt">//--- Write description of line buffers

this.SetBufferDescription(class="num">0,this.m_title);
class=class="str">"cmt">//--- Write shift to buffer class="num">0
this.SetBufferShift(class="num">0,ma_shift);

class=class="str">"cmt">//--- Set drawing style for buffer class="num">0 and the data buffer number of the calculation part
this.SetBufferDrawType(class="num">0,DRAW_LINE,class="num">0);
class=class="str">"cmt">//--- Set the class="kw">default class="type">color for buffer class="num">0
this.SetBufferColorToIndex(class="num">0,class="num">0,clrRed);
  }
};
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Moving Average of Oscillator indicator class                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CIndOsMA : class="kw">public CIndMSTF
{
class="kw">public:
class=class="str">"cmt">//--- Constructor
  CIndOsMA(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
           const class="type">int      fast_ema_period, class=class="str">"cmt">// fast MA period
           const class="type">int      slow_ema_period, class=class="str">"cmt">// slow MA period
           const class="type">int      signal_period,   class=class="str">"cmt">// difference averaging period
           const ENUM_APPLIED_PRICE applied_price   class=class="str">"cmt">// price type or handle
           ) : CIndMSTF(IND_OSMA,class="num">1,symbol,timeframe)
  {
  class=class="str">"cmt">//--- Set the size of the parameter array and fill it
  ::ResetLastError();
  if(::ArrayResize(this.m_param,class="num">4)==class="num">4)
    {
     ::ZeroMemory(this.m_param);
     class=class="str">"cmt">//--- fast MA period
     this.m_param[class="num">0].type=TYPE_UINT;
     this.m_param[class="num">0].integer_value=(fast_ema_period<class="num">1 ? class="num">12 : fast_ema_period);
     class=class="str">"cmt">//--- slow MA period
     this.m_param[class="num">1].type=TYPE_UINT;
     this.m_param[class="num">1].integer_value=(slow_ema_period<class="num">1 ? class="num">26 : slow_ema_period);
     class=class="str">"cmt">//--- difference averaging period
     this.m_param[class="num">2].type=TYPE_UINT;
     this.m_param[class="num">2].integer_value=(signal_period<class="num">1 ? class="num">9 : signal_period<class="num">2 ? class="num">2 : signal_period);
     class=class="str">"cmt">//--- price type or handle
     this.m_param[class="num">3].type=TYPE_UINT;
     this.m_param[class="num">3].integer_value=applied_price;
    }
  else