//+------------------------------------------------------------------+ //| WPR_Histogram_Vol.mq5 | //| Copyright © 2018, Nikolay Kositsin | //| Khabarovsk, farria@mail.redcom.ru | //+------------------------------------------------------------------+ #property copyright "Copyright © 2018, Nikolay Kositsin" #property link "farria@mail.redcom.ru" //---- номер версии индикатора #property version "1.00" //---- отрисовка индикатора в отдельном окне #property indicator_separate_window //---- количество индикаторных буферов 6 #property indicator_buffers 6 //---- использовано пять графических построений #property indicator_plots 5 //+-----------------------------------------+ //| объявление констант | //+-----------------------------------------+ #define RESET 0 // Константа для возврата терминалу команды на пересчёт индикатора //+-----------------------------------------+ //| Параметры отрисовки максимума | //+-----------------------------------------+ //---- отрисовка индикатора в виде линии #property indicator_type1 DRAW_LINE //---- в качестве цвета линии индикатора использован DeepSkyBlue цвет #property indicator_color1 clrDeepSkyBlue //---- линия индикатора - штрих-пунктир #property indicator_style1 STYLE_DASHDOTDOT //---- толщина линии индикатора равна 1 #property indicator_width1 1 //---- отображение метки индикатора #property indicator_label1 "WPR_Histogram_Vol Max" //+-----------------------------------------+ //| Параметры отрисовки уровня Res | //+-----------------------------------------+ //---- отрисовка индикатора в виде линии #property indicator_type2 DRAW_LINE //---- в качестве цвета линии индикатора использован Blue цвет #property indicator_color2 clrBlue //---- линия индикатора - штрих-пунктир #property indicator_style2 STYLE_DASHDOTDOT //---- толщина линии индикатора равна 1 #property indicator_width2 1 //---- отображение метки индикатора #property indicator_label2 "WPR_Histogram_Vol Res" //+-----------------------------------------+ //| Параметры отрисовки индикатора WPR | //+-----------------------------------------+ //---- отрисовка индикатора в виде гистограммы #property indicator_type3 DRAW_COLOR_HISTOGRAM //---- в качестве цветов индикатора использованы #property indicator_color3 clrLime,clrTeal,clrMediumPurple,clrBrown,clrOrange //---- линия индикатора - сплошная #property indicator_style3 STYLE_SOLID //---- толщина линии индикатора равна 2 #property indicator_width3 2 //---- отображение метки индикатора #property indicator_label3 "WPR_Histogram_Vol" //+-----------------------------------------+ //| Параметры отрисовки уровня Supr | //+-----------------------------------------+ //---- отрисовка индикатора в виде линии #property indicator_type4 DRAW_LINE //---- в качестве цвета линии индикатора использован Blue цвет #property indicator_color4 clrBlue //---- линия индикатора - штрих-пунктир #property indicator_style4 STYLE_DASHDOTDOT //---- толщина линии индикатора равна 1 #property indicator_width4 1 //---- отображение метки индикатора #property indicator_label4 "WPR_Histogram_Vol Supr" //+-----------------------------------------+ //| Параметры отрисовки минимума | //+-----------------------------------------+ //---- отрисовка индикатора в виде линии #property indicator_type5 DRAW_LINE //---- в качестве цвета линии индикатора использован DeepSkyBlue цвет #property indicator_color5 clrDeepSkyBlue //---- линия индикатора - штрих-пунктир #property indicator_style5 STYLE_DASHDOTDOT //---- толщина линии индикатора равна 1 #property indicator_width5 1 //---- отображение метки индикатора #property indicator_label5 "WPR_Histogram_Vol Min" //+-----------------------------------------+ //| ВХОДНЫЕ ПАРАМЕТРЫ ИНДИКАТОРА | //+-----------------------------------------+ input uint WPRPeriod=14; // период индикатора input ENUM_APPLIED_VOLUME VolumeType=VOLUME_TICK; // объём input int HighLevel2=+20; // уровень перекупленности 2 input int HighLevel1=+15; // уровень перекупленности 1 input int LowLevel1=-15; // уровень перепроданности 1 input int LowLevel2=-20; // уровень перепроданности 2 input int Shift=0; // Сдвиг индикатора по горизонтали в барах //+-----------------------------------------+ //---- Объявление целых переменных начала отсчёта данных int min_rates_total; //---- объявление динамических массивов, которые будут в дальнейшем использованы в качестве индикаторных буферов double IndBuffer[],ColorIndBuffer[]; double UpIndBuffer[],DnIndBuffer[]; double MaxIndBuffer[],MinIndBuffer[]; //---- Объявление целых переменных для хендлов индикаторов int WPR_Handle; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int OnInit() { //---- Инициализация переменных начала отсчёта данных min_rates_total=int(WPRPeriod); //---- получение хендла индикатора iWPR WPR_Handle=iWPR(NULL,0,WPRPeriod); if(WPR_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора iWPR"); return(INIT_FAILED); } //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(0,MaxIndBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчёта отрисовки индикатора PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- осуществление сдвига индикатора по горизонтали PlotIndexSetInteger(0,PLOT_SHIFT,Shift); //---- запрет на отображение значений индикатора в левом верхнем углу окна индикатора PlotIndexSetInteger(0,PLOT_SHOW_DATA,false); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(MaxIndBuffer,true); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(1,UpIndBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчёта отрисовки индикатора PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- осуществление сдвига индикатора по горизонтали PlotIndexSetInteger(1,PLOT_SHIFT,Shift); //---- запрет на отображение значений индикатора в левом верхнем углу окна индикатора PlotIndexSetInteger(1,PLOT_SHOW_DATA,false); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(UpIndBuffer,true); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(2,IndBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчёта отрисовки индикатора PlotIndexSetInteger(2,PLOT_DRAW_BEGIN,min_rates_total); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(2,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- осуществление сдвига индикатора по горизонтали PlotIndexSetInteger(2,PLOT_SHIFT,Shift); //---- запрет на отображение значений индикатора в левом верхнем углу окна индикатора PlotIndexSetInteger(2,PLOT_SHOW_DATA,false); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(IndBuffer,true); //---- превращение динамического массива в цветовой, индексный буфер SetIndexBuffer(3,ColorIndBuffer,INDICATOR_COLOR_INDEX); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(ColorIndBuffer,true); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(4,DnIndBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчёта отрисовки индикатора PlotIndexSetInteger(3,PLOT_DRAW_BEGIN,min_rates_total); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(3,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- осуществление сдвига индикатора по горизонтали PlotIndexSetInteger(3,PLOT_SHIFT,Shift); //---- запрет на отображение значений индикатора в левом верхнем углу окна индикатора PlotIndexSetInteger(3,PLOT_SHOW_DATA,false); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(DnIndBuffer,true); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(5,MinIndBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчёта отрисовки индикатора PlotIndexSetInteger(4,PLOT_DRAW_BEGIN,min_rates_total); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(4,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- осуществление сдвига индикатора по горизонтали PlotIndexSetInteger(4,PLOT_SHIFT,Shift); //---- запрет на отображение значений индикатора в левом верхнем углу окна индикатора PlotIndexSetInteger(4,PLOT_SHOW_DATA,false); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(MinIndBuffer,true); //--- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,"WPR_Histogram_Vol("+string(WPRPeriod)+")"); //--- определение точности отображения значений индикатора IndicatorSetInteger(INDICATOR_DIGITS,0); //---- завершение инициализации 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[] ) { //---- проверка количества баров на достаточность для расчёта if(BarsCalculated(WPR_Handle)rates_total || prev_calculated<=0)// проверка на первый старт расчета индикатора { limit=rates_total-min_rates_total-1; // стартовый номер для расчета всех баров } else limit=rates_total-prev_calculated; // стартовый номер для расчета новых баров to_copy=limit+1; //---- индексация элементов в массивах как в таймсериях if(VolumeType==VOLUME_TICK) ArraySetAsSeries(Tick_Volume,true); else ArraySetAsSeries(Volume,true); //---- копируем вновь появившиеся данные в массивы if(CopyBuffer(WPR_Handle,0,0,to_copy,IndBuffer)<=0) return(RESET); //---- основной цикл раскраски индикатора for(bar=limit; bar>=0 && !IsStopped(); bar--) { IndBuffer[bar]+=50; //сдвигаем значение WPR на 50 вверх (делаем индикатор симметричным относительно оси времени) if(VolumeType==VOLUME_TICK) vol=double(Tick_Volume[bar]); else vol=double(Volume[bar]); IndBuffer[bar]*=vol; //домножаем значение WPR на объём MaxIndBuffer[bar]=HighLevel2*vol; UpIndBuffer[bar]=HighLevel1*vol; DnIndBuffer[bar]=LowLevel1*vol; MinIndBuffer[bar]=LowLevel2*vol; int clr=2.0; if(IndBuffer[bar]>MaxIndBuffer[bar]) clr=0.0; else if(IndBuffer[bar]>UpIndBuffer[bar]) clr=1.0; else if(IndBuffer[bar]