//+------------------------------------------------------------------+ //| HLR_Histogram.mq5 | //| Copyright © 2007, Alexandre | //| http://www.kroufr.ru/content/view/1184/124/ | //+------------------------------------------------------------------+ #property copyright "Copyright © 2006, Alexandre" #property link "http://www.kroufr.ru/content/view/1184/124/" #property description "Hi-Lo Range Oscillator" //---- номер версии индикатора #property version "1.00" //---- отрисовка индикатора в отдельном окне #property indicator_separate_window //---- количество индикаторных буферов 3 #property indicator_buffers 3 //---- использовано одно графическое построение #property indicator_plots 1 //+----------------------------------------------+ //| Параметры отрисовки индикатора | //+----------------------------------------------+ //---- отрисовка индикатора в виде гистограммы #property indicator_type1 DRAW_COLOR_HISTOGRAM2 //---- в качестве цветов индикатора использованы #property indicator_color1 clrLime,clrDarkTurquoise,clrMediumPurple,clrDarkOrange,clrMagenta //---- линия индикатора - сплошная #property indicator_style1 STYLE_SOLID //---- толщина линии индикатора равна 2 #property indicator_width1 2 //---- отображение метки индикатора #property indicator_label1 "Hi-Lo Range Oscillator" //+----------------------------------------------+ //| объявление констант | //+----------------------------------------------+ #define RESET 0 // Константа для возврата терминалу команды на пересчет индикатора #define MIDLLE 50 // Константа серидины диапозона индикатора индикатора //+----------------------------------------------+ //| Входные параметры индикатора | //+----------------------------------------------+ input uint HLR_Range=40; // Период усреднения индикатора input uint HighLevel=80; // Уровень перекупленности input uint LowLevel=20; // Уровень перепроданности input int Shift=0; // Сдвиг индикатора по горизонтали в барах //+----------------------------------------------+ //---- объявление динамических массивов, которые будут в // дальнейшем использованы в качестве индикаторных буферов double UpBuffer[],DnBuffer[],ColorBuffer[]; //---- Объявление целочисленных переменных начала отсчета данных int min_rates_total; //+------------------------------------------------------------------+ //| HLR indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { //---- Инициализация переменных начала отсчета данных min_rates_total=int(HLR_Range+1); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(0,UpBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчета отрисовки индикатора PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- осуществление сдвига индикатора по горизонтали на InpKijun PlotIndexSetInteger(0,PLOT_SHIFT,Shift); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(UpBuffer,true); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(1,DnBuffer,INDICATOR_DATA); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(DnBuffer,true); //---- превращение динамического массива в цветовой, индексный буфер SetIndexBuffer(2,ColorBuffer,INDICATOR_COLOR_INDEX); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(ColorBuffer,true); //---- инициализации переменной для короткого имени индикатора string shortname; StringConcatenate(shortname,"Hi-Lo Range Oscillator Histogram(",HLR_Range,", ",Shift,")"); //--- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,shortname); //--- определение точности отображения значений индикатора IndicatorSetInteger(INDICATOR_DIGITS,0); //---- количество горизонтальных уровней индикатора 3 IndicatorSetInteger(INDICATOR_LEVELS,3); //---- значения горизонтальных уровней индикатора IndicatorSetDouble(INDICATOR_LEVELVALUE,0,HighLevel); IndicatorSetDouble(INDICATOR_LEVELVALUE,1,MIDLLE); IndicatorSetDouble(INDICATOR_LEVELVALUE,2,LowLevel); //---- в качестве цветов линий горизонтальных уровней использованы IndicatorSetInteger(INDICATOR_LEVELCOLOR,0,clrBlue); IndicatorSetInteger(INDICATOR_LEVELCOLOR,1,clrGray); IndicatorSetInteger(INDICATOR_LEVELCOLOR,2,clrMagenta); //---- в линии горизонтального уровня использован короткий штрих-пунктир IndicatorSetInteger(INDICATOR_LEVELSTYLE,0,STYLE_DASHDOTDOT); IndicatorSetInteger(INDICATOR_LEVELSTYLE,1,STYLE_DASHDOTDOT); IndicatorSetInteger(INDICATOR_LEVELSTYLE,2,STYLE_DASHDOTDOT); //---- завершение инициализации } //+------------------------------------------------------------------+ //| HLR 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(rates_totalrates_total || prev_calculated<=0)// проверка на первый старт расчета индикатора { limit=rates_total-min_rates_total-1; // стартовый номер для расчета всех баров trend_prev=0; } else limit=rates_total-prev_calculated; // стартовый номер для расчета новых баров //---- индексация элементов в массивах, как в таймсериях ArraySetAsSeries(high,true); ArraySetAsSeries(low,true); //---- пересчет значений индикаторов for(bar=limit; bar>=0 && !IsStopped(); bar--) { HH=high[ArrayMaximum(high,bar,HLR_Range)]; LL=low [ArrayMinimum(low, bar,HLR_Range)]; m_pr=(high[bar]+low[bar])/2.0; HL=HH-LL; if(HL) res=100.0*(m_pr-LL)/(HL); else res=MIDLLE; UpBuffer[bar]=res; DnBuffer[bar]=MIDLLE; int clr=2; trend=trend_prev; if(res>HighLevel) { if(trend_prev<0) clr=0; else clr=1; trend=+1; } else if(res0) clr=4; else clr=3; trend=-1; } ColorBuffer[bar]=clr; if(bar && trend) trend_prev=trend; } //---- return(rates_total); } //+------------------------------------------------------------------+