//+------------------------------------------------------------------+ //| OscSAR_Histogram.mq5 | //| Copyright © 2010, LeMan | //| | //+------------------------------------------------------------------+ #property copyright "Copyright © 2010, LeMan" #property link "" //---- номер версии индикатора #property version "1.01" //---- отрисовка индикатора в отдельном окне #property indicator_separate_window //---- количество индикаторных буферов #property indicator_buffers 2 //---- использовано всего одно графическое построение #property indicator_plots 1 //+----------------------------------------------+ //| Параметры отрисовки индикатора 1 | //+----------------------------------------------+ //---- отрисовка индикатора в виде гистограммы #property indicator_type1 DRAW_COLOR_HISTOGRAM //---- в качестве цветов индикатора использованы #property indicator_color1 clrTeal,clrGray,clrMagenta //---- толщина линии индикатора равна 2 #property indicator_width1 2 //---- отображение метки индикатора #property indicator_label1 "OscSAR_Histogram" //+----------------------------------------------+ //| объявление констант | //+----------------------------------------------+ #define RESET 0 // Константа для возврата терминалу команды на пересчет индикатора //+----------------------------------------------+ //| ВХОДНЫЕ ПАРАМЕТРЫ ИНДИКАТОРА | //+----------------------------------------------+ input double Step=0.02; // Шаг iSAR input double Maximum=0.2; // Максимум iSAR input int Shift=0; // Сдвиг индикатора по горизонтали в барах //+----------------------------------------------+ //---- объявление динамических массивов, которые будут в дальнейшем использованы в качестве индикаторных буферов double IndBuffer[],ColorIndBuffer[]; //---- Объявление целых переменных для хранения хендлов индикаторов int SAR_Handle; //---- Объявление целых переменных начала отсчёта данных int min_rates_total; //+------------------------------------------------------------------+ //| RBVI indicator initialization function | //+------------------------------------------------------------------+ int OnInit() { //---- Инициализация переменных начала отсчёта данных min_rates_total=2; //---- получение хендла индикатора SAR SAR_Handle=iSAR(NULL,0,Step,Maximum); if(SAR_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора SAR"); return(INIT_FAILED); } //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(0,IndBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчёта отрисовки индикатора PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- осуществление сдвига индикатора по горизонтали на InpKijun PlotIndexSetInteger(0,PLOT_SHIFT,Shift); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(IndBuffer,true); //---- превращение динамического массива в цветовой, индексный буфер SetIndexBuffer(1,ColorIndBuffer,INDICATOR_COLOR_INDEX); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(ColorIndBuffer,true); //---- инициализации переменной для короткого имени индикатора string shortname; StringConcatenate(shortname,"OscSAR_Histogram(",DoubleToString(Step,3),",",DoubleToString(Maximum,3),",",Shift,")"); //---- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,shortname); //--- завершение инициализации return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| RBVI 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(SAR_Handle)rates_total || prev_calculated<=0)// проверка на первый старт расчёта индикатора { limit=rates_total-min_rates_total-1; // стартовый номер для расчёта всех баров } else limit=rates_total-prev_calculated; // стартовый номер для расчёта новых баров to_copy=limit+1; //---- копируем вновь появившиеся данные в массив if(CopyBuffer(SAR_Handle,0,0,to_copy,IndBuffer)<=0) return(RESET); //---- индексация элементов в массивах как в таймсериях ArraySetAsSeries(close,true); //---- Основной цикл расчёта индикатора for(bar=limit; bar>=0 && !IsStopped(); bar--) { IndBuffer[bar]=(close[bar]-IndBuffer[bar])/_Point; int clr=1.0; if(IndBuffer[bar]>0) clr=0.0; else if(IndBuffer[bar]<0) clr=2.0; ColorIndBuffer[bar]=clr; } //---- return(rates_total); } //+------------------------------------------------------------------+