//+------------------------------------------------------------------+
//|                                                      Kvartal.mq4 |
//|                                              Copyright 2019, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
/*
http://zakaz.opentraders.ru/49318.html

готово: www.opentraders.ru/downloads/2203/
*/
#property copyright "Copyright 2019, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict
#property indicator_chart_window

input int count=5;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
  {
//--- indicator buffers mapping
   ObjectsDeleteAll();
   Comment("");
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
   Comment("");
   ObjectsDeleteAll();
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Kvart(int month)
  {
   int kv=0;
   if(month<4) kv=1; // 1 2 3
   if(month>3 && month<7) kv=2; // 4 5 6
   if(month>6 && month<10) kv=3; // 7 8 9
   if(month>9) kv=4; // 10 11 12
   return(kv);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Shift(int month) // 1-rv = 1 2 3
  {
   int shift=0;

   if(Kvart(Month())==1 && Month()==1) shift=1;
   if(Kvart(Month())==1 && Month()==2) shift=2;
   if(Kvart(Month())==1 && Month()==3) shift=3;

   if(Kvart(Month())==2 && Month()==4) shift=1;
   if(Kvart(Month())==2 && Month()==5) shift=2;
   if(Kvart(Month())==2 && Month()==6) shift=3;

   if(Kvart(Month())==3 && Month()==7) shift=1;
   if(Kvart(Month())==3 && Month()==8) shift=2;
   if(Kvart(Month())==3 && Month()==8) shift=3;

   if(Kvart(Month())==4 && Month()==10) shift=1;
   if(Kvart(Month())==4 && Month()==11) shift=2;
   if(Kvart(Month())==4 && Month()==12) shift=3;

   return(shift);
  }
//+------------------------------------------------------------------+
//| Put Text Function                                                |
//+------------------------------------------------------------------+
void Text(string name,const string text,double price,datetime time,const color clr)
  {
   ObjectDelete(0,name);
//--- create a "Text" object 
   ObjectCreate(0,name,OBJ_TEXT,0,time,price);
//--- set the text
   ObjectSetString(0,name,OBJPROP_TEXT,text);
//--- set the font of the text
   ObjectSetString(0,name,OBJPROP_FONT,"Arial");
//--- set the font size
   ObjectSetInteger(0,name,OBJPROP_FONTSIZE,14);
//--- set the method binding
   ObjectSetInteger(0,name,OBJPROP_ANCHOR,ANCHOR_UPPER);
//--- set the color
   ObjectSetInteger(0,name,OBJPROP_COLOR,clr);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutTrendLine(string name,datetime time1,double price1,datetime time2,double price2,color clr)
  {
   ObjectDelete(0,name);
   ObjectCreate(0,name,OBJ_TREND,0,time1,price1,time2,price2);
//--- установим цвет линии 
   ObjectSetInteger(0,name,OBJPROP_COLOR,clr);
//--- установим стиль отображения линии 
   ObjectSetInteger(0,name,OBJPROP_STYLE,0);
//--- установим толщину линии 
   ObjectSetInteger(0,name,OBJPROP_WIDTH,2);
//--- включим (true) или отключим (false) режим продолжения отображения линии вправо 
   ObjectSetInteger(0,name,OBJPROP_RAY_RIGHT,false);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
  {
//---
   int sum=0;
   double hi=0,lo=0;
   datetime t1=0,t2=0;

   for(int i=0;i<count;i++)
     {
      lo=iLow(NULL,PERIOD_MN1,iLowest(NULL,PERIOD_MN1,MODE_LOW,3,Shift(Month())+i*3));
      hi=iHigh(NULL,PERIOD_MN1,iHighest(NULL,PERIOD_MN1,MODE_HIGH,3,Shift(Month())+i*3));
      int po=(int)((hi-lo)/_Point);

      t1=iTime(NULL,PERIOD_MN1,Shift(Month())-1+3*i);
      t2=iTime(NULL,PERIOD_MN1,Shift(Month())-1+3*(i+1));

      PutTrendLine((string)i+"lo",t1,lo,t2,lo,Aqua);
      PutTrendLine((string)i+"hi",t1,hi,t2,hi,Aqua);
      Text(string(i),(string)po,lo,(t1+t2)/2,Red);
      sum+=po;
     }

   t1=iTime(NULL,PERIOD_MN1,Shift(Month())-1);
   t2=t1+60*60*24*90;

   lo=iLow(NULL,PERIOD_MN1,iLowest(NULL,PERIOD_MN1,MODE_LOW,Shift(Month()),0));
   hi=iHigh(NULL,PERIOD_MN1,iHighest(NULL,PERIOD_MN1,MODE_HIGH,Shift(Month()),0));

   PutTrendLine("lo",t1,lo,t2,lo,Aqua);
   PutTrendLine("hi",t1,hi,t2,hi,Aqua);

   Comment("\n Kvartal: ",Kvart(Month()),
           "\n Month: ",Month(),
           "\n Summ: ",sum,
           "\n ATR за   " +count+ " квартолов: ",sum/count,
           "\n Shift: ",Shift(Month()));

//--- return value of prev_calculated for next call
   return(rates_total);
  }
//+------------------------------------------------------------------+

Технический индикатор Средний Истинный Диапазон (Average True Range, ATR) — это показатель волатильности рынка. Его ввел Уэллс Уайлдер в книге «Новые концепции технических торговых систем» и с тех пор индикатор применяется как составляющая многих других индикаторов и торговых систем.
Индикатор Average True Range часто достигает высоких значений в основаниях рынка после стремительного падения цен, вызванного паническими продажами. Низкие значения индикатора часто соответствуют продолжительным периодам горизонтального движения, которые наблюдаются на вершинах рынка и во время консолидации. Его можно интерпретировать по тем же правилам, что и другие индикаторы волатильности. Принцип прогнозирования с помощью Average True Range формулируется так: чем выше значение индикатора, тем выше вероятность смены тренда; чем ниже его значение, тем слабее направленность тренда.

Расчет
Истинный диапазон (True Range) есть наибольшая из следующих трех величин:

разность между текущими максимумом и минимумом;

разность между предыдущей ценой закрытия и текущим максимумом;

разность между предыдущей ценой закрытия и текущим минимумом.

Индикатор Среднего Истинного Диапазона (Average True Range, ATR) представляет собой скользящее среднее значений истинного диапазона.

известно только текущий атр за последние 5 кварталов

Теперь же прошу Андрея, дописать его, дабы было известно и последних 5 кварталов

мне нужно знать среднее значение, среднее значение выводится за 5(например) последних кварталов) потом делится на 5 и получается для последнего квартала среднее значение.

"\n ATR за   " +count+ " кварталов: ",sum/count,
"\n ATR lafler356 : ",(sum/count)/count,

   for(int ip=1;ip<=5;ip++)
     {
      datetime t1=iTime(NULL,PERIOD_MN1,ip-1);
      datetime t2=iTime(NULL,PERIOD_MN1,ip);
      double HiMN1=iHigh(NULL,PERIOD_MN1,ip);
      double LoMN1=iLow(NULL,PERIOD_MN1,ip);
      double ATRMN1=(NormalizeDouble(iATR(NULL,PERIOD_MN1,5,ip)/_Point,0));

         if (sparam == "Button") {
               PutRect("MN1H"+(string)ip,t1,LoMN1+ATRMN1*_Point,t2,LoMN1+(ATRMN1*_Point)/100*90,Green);
               PutRect("MN1L"+(string)ip,t1,HiMN1-ATRMN1*_Point,t2,HiMN1-(ATRMN1*_Point)/100*90,Green);
            }
            else
            {
               DeleteByPrefix("MN1H");
               DeleteByPrefix("MN1L");
            }
     }

<code>
//+------------------------------------------------------------------+
//|                            MTF_Average True Range  lafler356.mq4 |
//|                        Copyright 2013, MetaQuotes Software Corp. |
//|                                          http://www.mункцql5.com |
//+------------------------------------------------------------------+

/*
  полный вызов индикатора нулевого (единственного) буфера на нулевом баре:
  double ind_ATR = iCustom(NULL,PERIOD_MN1,"MTF_Average True Range  lafler356",TimeFrame,per,MAType,0,0);
*/
#property copyright "Copyright 2013, MetaQuotes Software Corp."
#property link      "http://www.mункцql5.com"
#property version   "1.00"
#property strict
#property indicator_separate_window
#property indicator_buffers 1
#property indicator_color1 clrLime

extern ENUM_TIMEFRAMES TimeFrame= PERIOD_MN1;
extern int per=10;
extern int MAType=0;

double ExtMapBuffer1[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
  {
//--- indicator buffers mapping
   SetIndexStyle(0,DRAW_HISTOGRAM, 0, 1);
   SetIndexBuffer(0, ExtMapBuffer1);
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
  {
//---
    datetime TimeArray[];
   int    i,limit,y=0,counted_bars=IndicatorCounted();
   double PeriodHigh, PeriodLow;

   ArrayCopySeries(TimeArray,MODE_TIME,NULL,TimeFrame); 
   
   limit=Bars-counted_bars;
   for(i=0,i<limit;i++)
   {
      PeriodHigh = iMA(NULL,TimeFrame,per,0,MAType,PRICE_HIGH,i);
      PeriodLow = iMA(NULL,TimeFrame,per,0,MAType,PRICE_LOW,i);
      ExtMapBuffer1[i]= (PeriodHigh - PeriodLow)/_Point;
   } 
   return(rates_total);
  }
//+------------------------------------------------------------------+

</code>

<code>
значение атр текущего месяца:
double ind_ATR = iCustom(NULL,PERIOD_MN1,"MTF_Average True Range  lafler356",TimeFrame,1,MAType,0,0);
значение атр текущего квартала:
double ind_ATR = iCustom(NULL,PERIOD_MN1,"MTF_Average True Range  lafler356",TimeFrame,3,MAType,0,0);

</code>