//+------------------------------------------------------------------+ //| ColorZerolagHLR.mq5 | //| Copyright © 2015, Nikolay Kositsin | //| Khabarovsk, farria@mail.redcom.ru | //+------------------------------------------------------------------+ //---- авторство индикатора #property copyright "Copyright © 2015, Nikolay Kositsin" //---- ссылка на сайт автора #property link "farria@mail.redcom.ru" //---- номер версии индикатора #property version "1.02" //---- отрисовка индикатора в отдельном окне #property indicator_separate_window //---- количество индикаторных буферов 2 #property indicator_buffers 4 //---- использовано три графических построения #property indicator_plots 3 //+----------------------------------------------+ //| Параметры отрисовки индикатора | //+----------------------------------------------+ //---- отрисовка индикатора в виде линии #property indicator_type1 DRAW_LINE //---- в качестве цвета линии индикатора использован сине-фиолетовый цвет #property indicator_color1 clrBlueViolet //---- линия индикатора - непрерывная кривая #property indicator_style1 STYLE_SOLID //---- толщина линии индикатора равна 1 #property indicator_width1 1 //---- отображение метки индикатора #property indicator_label1 "FastTrendLine" //---- отрисовка индикатора в виде линии #property indicator_type2 DRAW_LINE //---- в качестве цвета линии индикатора использован сине-фиолетовый цвет #property indicator_color2 clrBlueViolet //---- линия индикатора - непрерывная кривая #property indicator_style2 STYLE_SOLID //---- толщина линии индикатора равна 1 #property indicator_width2 1 //---- отображение метки индикатора #property indicator_label2 "SlowTrendLine" //+----------------------------------------------+ //| Параметры отрисовки заливки | //+----------------------------------------------+ //---- отрисовка индикатора в виде заливки между двумя линиями #property indicator_type3 DRAW_FILLING //---- в качестве цветов заливки индикатора использованы Teal и DeepPink цвета #property indicator_color3 clrTeal,clrDeepPink //---- отображение метки индикатора #property indicator_label3 "ZerolagHLR" //+----------------------------------------------+ //| Параметры отображения горизонтальных уровней | //+----------------------------------------------+ #property indicator_level1 80 #property indicator_level2 50 #property indicator_level3 20 #property indicator_levelcolor clrBlue #property indicator_levelstyle STYLE_DASHDOTDOT //+----------------------------------------------+ //| Входные параметры индикатора | //+----------------------------------------------+ input uint smoothing=15; //---- input double Factor1=0.05; input uint HLR_period1=8; //---- input double Factor2=0.10; input uint HLR_period2=21; //---- input double Factor3=0.16; input uint HLR_period3=34; //---- input double Factor4=0.26; input int HLR_period4=55; //---- input double Factor5=0.43; input uint HLR_period5=89; //+----------------------------------------------+ //---- объявление целочисленных переменных начала отсчета данных int StartBar; //---- объявление переменных с плавающей точкой double smoothConst; //---- индикаторные буферы double FastBuffer[]; double SlowBuffer[]; double FastBuffer_[]; double SlowBuffer_[]; //---- объявление переменных для хранения хендлов индикаторов int HLR1_Handle,HLR2_Handle,HLR3_Handle,HLR4_Handle,HLR5_Handle; //+------------------------------------------------------------------+ //| ZerolagHLR indicator initialization function | //+------------------------------------------------------------------+ int OnInit() { //---- инициализация констант smoothConst=(smoothing-1.0)/smoothing; //---- uint PeriodBuffer[5]; //---- расчет стартового бара PeriodBuffer[0] = HLR_period1; PeriodBuffer[1] = HLR_period2; PeriodBuffer[2] = HLR_period3; PeriodBuffer[3] = HLR_period4; PeriodBuffer[4] = HLR_period5; //---- StartBar=int(3*PeriodBuffer[ArrayMaximum(PeriodBuffer,0,WHOLE_ARRAY)])+2+1; //---- получение хендла индикатора HLR 1 HLR1_Handle=iCustom(NULL,0,"HLR",HLR_period1,0); if(HLR1_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора HLR 1"); return(INIT_FAILED); } //---- получение хендла индикатора HLR 2 HLR2_Handle=iCustom(NULL,0,"HLR",HLR_period2,0); if(HLR2_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора HLR 2"); return(INIT_FAILED); } //---- получение хендла индикатора HLR 3 HLR3_Handle=iCustom(NULL,0,"HLR",HLR_period3,0); if(HLR3_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора HLR 3"); return(INIT_FAILED); } //---- получение хендла индикатора HLR 4 HLR4_Handle=iCustom(NULL,0,"HLR",HLR_period4,0); if(HLR4_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора HLR 4"); return(INIT_FAILED); } //---- получение хендла индикатора HLR 5 HLR5_Handle=iCustom(NULL,0,"HLR",HLR_period5,0); if(HLR5_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора HLR 5"); return(INIT_FAILED); } //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(0,FastBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчета отрисовки индикатора 1 PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,StartBar); //--- создание метки для отображения в DataWindow PlotIndexSetString(0,PLOT_LABEL,"FastTrendLine"); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(FastBuffer,true); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(1,SlowBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчета отрисовки индикатора 2 PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,StartBar); //--- создание метки для отображения в DataWindow PlotIndexSetString(1,PLOT_LABEL,"SlowTrendLine"); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(SlowBuffer,true); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(2,FastBuffer_,INDICATOR_DATA); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(FastBuffer_,true); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(3,SlowBuffer_,INDICATOR_DATA); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(SlowBuffer_,true); //---- осуществление сдвига начала отсчета отрисовки индикатора 1 PlotIndexSetInteger(2,PLOT_DRAW_BEGIN,StartBar); //--- создание метки для отображения в DataWindow PlotIndexSetString(2,PLOT_LABEL,"FastTrendLine"); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(2,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- инициализация переменной для короткого имени индикатора string shortname="ZerolagHLR"; //--- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,shortname); //--- определение точности отображения значений индикатора IndicatorSetInteger(INDICATOR_DIGITS,0); //--- завершение инициализации return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| ZerolagHLR 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[]) { //---- проверка количества баров на достаточность для расчета if(BarsCalculated(HLR1_Handle)rates_total || prev_calculated<=0)// проверка на первый старт расчета индикатора { limit=rates_total-StartBar-2; // стартовый номер для расчета всех баров to_copy=limit+2; } else // стартовый номер для расчета новых баров { limit=rates_total-prev_calculated; // стартовый номер для расчета только новых баров to_copy=limit+1; } //---- индексация элементов в массивах как в таймсериях ArraySetAsSeries(HLR1,true); ArraySetAsSeries(HLR2,true); ArraySetAsSeries(HLR3,true); ArraySetAsSeries(HLR4,true); ArraySetAsSeries(HLR5,true); //---- копируем вновь появившиеся данные в массивы if(CopyBuffer(HLR1_Handle,0,0,to_copy,HLR1)<=0) return(0); if(CopyBuffer(HLR2_Handle,0,0,to_copy,HLR2)<=0) return(0); if(CopyBuffer(HLR3_Handle,0,0,to_copy,HLR3)<=0) return(0); if(CopyBuffer(HLR4_Handle,0,0,to_copy,HLR4)<=0) return(0); if(CopyBuffer(HLR5_Handle,0,0,to_copy,HLR5)<=0) return(0); //---- расчет стартового номера limit для цикла пересчета баров и стартовая инициализация переменных if(prev_calculated>rates_total || prev_calculated<=0)// проверка на первый старт расчета индикатора { bar=limit+1; Osc1 = Factor1 * HLR1[bar]; Osc2 = Factor2 * HLR2[bar]; Osc3 = Factor2 * HLR3[bar]; Osc4 = Factor4 * HLR4[bar]; Osc5 = Factor5 * HLR5[bar]; //---- FastTrend=Osc1+Osc2+Osc3+Osc4+Osc5; FastBuffer[bar]=FastBuffer_[bar]=FastTrend; SlowBuffer[bar]=SlowBuffer_[bar]=FastTrend/smoothing; } //---- основной цикл расчета индикатора for(bar=limit; bar>=0 && !IsStopped(); bar--) { Osc1 = Factor1 * HLR1[bar]; Osc2 = Factor2 * HLR2[bar]; Osc3 = Factor2 * HLR3[bar]; Osc4 = Factor4 * HLR4[bar]; Osc5 = Factor5 * HLR5[bar]; //---- FastTrend = Osc1 + Osc2 + Osc3 + Osc4 + Osc5; SlowTrend = FastTrend / smoothing + SlowBuffer[bar + 1] * smoothConst; //---- SlowBuffer[bar]=SlowTrend; FastBuffer[bar]=FastTrend; //---- SlowBuffer_[bar]=SlowTrend; FastBuffer_[bar]=FastTrend; } //---- return(rates_total); } //+------------------------------------------------------------------+