//+------------------------------------------------------------------+ //| SpearmanRankCorrelation_3HTF.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.70" #property description "Три осциллятора SpearmanRankCorrelation с разных таймфреймов с одинаковыми параметрами на одном графике." //--- отрисовка индикатора в отдельном окне #property indicator_separate_window //--- количество индикаторных буферов 3 #property indicator_buffers 3 //--- использовано всего три графических построения #property indicator_plots 3 //+----------------------------------------------+ //| объявление констант | //+----------------------------------------------+ #define RESET 0 // Константа для возврата терминалу команды на пересчет индикатора #define INDICATOR_NAME "SpearmanRankCorrelation" // Константа для имени индикатора #define SIZE 3 // Константа для количества вызовов функции CountIndicator коде //+----------------------------------------------+ //| Параметры отрисовки индикатора 1 | //+----------------------------------------------+ //--- отрисовка индикатора 1 в виде линии #property indicator_type1 DRAW_LINE //--- в качестве цвета индикатора использован #property indicator_color1 clrDodgerBlue //--- толщина линии индикатора 1 равна 2 #property indicator_width1 2 //--- отображение метки индикатора #property indicator_label1 INDICATOR_NAME+"1" //+----------------------------------------------+ //| Параметры отрисовки индикатора 2 | //+----------------------------------------------+ //--- отрисовка индикатора 2 в виде линии #property indicator_type2 DRAW_LINE //--- в качестве цвета индикатора использован #property indicator_color2 clrMediumOrchid //--- толщина линии индикатора 2 равна 3 #property indicator_width2 3 //--- отображение метки индикатора #property indicator_label2 INDICATOR_NAME+"2" //+----------------------------------------------+ //| Параметры отрисовки индикатора 3 | //+----------------------------------------------+ //--- отрисовка индикатора 3 в виде линии #property indicator_type3 DRAW_LINE //--- в качестве цвета индикатора использован #property indicator_color3 clrRed //--- толщина линии индикатора 3 равна 5 #property indicator_width3 5 //--- отображение метки индикатора #property indicator_label3 INDICATOR_NAME+"3" //+----------------------------------------------+ //---- параметры минимального и максимального значений индикатора #property indicator_minimum -1 #property indicator_maximum +1 //+----------------------------------------------+ //| Входные параметры индикатора | //+----------------------------------------------+ input ENUM_TIMEFRAMES TimeFrame1=PERIOD_M30; // Период графика индикатора 1 (младший таймфрейм) input ENUM_TIMEFRAMES TimeFrame2=PERIOD_H1; // Период графика индикатора 2 (средний таймфрейм) input ENUM_TIMEFRAMES TimeFrame3=PERIOD_H4; // Период графика индикатора 3 (старший таймфрейм) input uint rangeN=14; input uint CalculatedBars=0; input uint Maxrange=30; input bool direction=true; input int Shift=0; // Сдвиг индикатора по горизонтали в барах //+-------------------------------------+ //--- объявление динамических массивов, которые в дальнейшем //--- будут использованы в качестве индикаторных буферов double Ind1Buffer[]; double Ind2Buffer[]; double Ind3Buffer[]; //--- объявление целочисленных переменных начала отсчета данных int min_rates_total; //--- объявление целочисленных переменных для хендлов индикаторов int Ind1_Handle,Ind2_Handle,Ind3_Handle; //+------------------------------------------------------------------+ //| Получение таймфрейма в виде строки | //+------------------------------------------------------------------+ string GetStringTimeframe(ENUM_TIMEFRAMES timeframe) {return(StringSubstr(EnumToString(timeframe),7,-1));} //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int OnInit() { //--- инициализация переменных min_rates_total=2; //--- получение хендла индикатора SpearmanRankCorrelation 1 Ind1_Handle=iCustom(Symbol(),TimeFrame1,"SpearmanRankCorrelation",rangeN,CalculatedBars,Maxrange,direction); if(Ind1_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора SpearmanRankCorrelation 1"); return(INIT_FAILED); } //--- получение хендла индикатора SpearmanRankCorrelation 2 Ind2_Handle=iCustom(Symbol(),TimeFrame2,"SpearmanRankCorrelation",rangeN,CalculatedBars,Maxrange,direction); if(Ind2_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора SpearmanRankCorrelation 2"); return(INIT_FAILED); } //--- получение хендла индикатора SpearmanRankCorrelation 3 Ind3_Handle=iCustom(Symbol(),TimeFrame3,"SpearmanRankCorrelation",rangeN,CalculatedBars,Maxrange,direction); if(Ind3_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора SpearmanRankCorrelation 3"); return(INIT_FAILED); } //--- инициализация индикаторных буферов IndInit(0,Ind1Buffer,EMPTY_VALUE,min_rates_total,Shift); IndInit(1,Ind2Buffer,EMPTY_VALUE,min_rates_total,Shift); IndInit(2,Ind3Buffer,EMPTY_VALUE,min_rates_total,Shift); //--- создание имени для отображения в отдельном подокне и во всплывающей подсказке string shortname; StringConcatenate(shortname,INDICATOR_NAME,"(", GetStringTimeframe(TimeFrame1)," ,",GetStringTimeframe(TimeFrame2)," ,",GetStringTimeframe(TimeFrame3),")"); //--- IndicatorSetString(INDICATOR_SHORTNAME,shortname); //--- определение точности отображения значений индикатора IndicatorSetInteger(INDICATOR_DIGITS,4); //---- количество горизонтальных уровней индикатора IndicatorSetInteger(INDICATOR_LEVELS,3); //---- значения горизонтальных уровней индикатора IndicatorSetDouble(INDICATOR_LEVELVALUE,0,+0.50); IndicatorSetDouble(INDICATOR_LEVELVALUE,1,0); IndicatorSetDouble(INDICATOR_LEVELVALUE,2,-0.50); //---- в качестве цветов линий горизонтальных уровней использованы IndicatorSetInteger(INDICATOR_LEVELCOLOR,0,clrMediumSeaGreen); IndicatorSetInteger(INDICATOR_LEVELCOLOR,1,clrGray); IndicatorSetInteger(INDICATOR_LEVELCOLOR,2,clrMagenta); //---- в линии горизонтального уровня использован короткий штрих-пунктир IndicatorSetInteger(INDICATOR_LEVELSTYLE,0,STYLE_DASHDOTDOT); IndicatorSetInteger(INDICATOR_LEVELSTYLE,1,STYLE_DASH); IndicatorSetInteger(INDICATOR_LEVELSTYLE,2,STYLE_DASHDOTDOT); //--- завершение инициализации return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Custom 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(!TimeFramesCheck(INDICATOR_NAME,TimeFrame1,TimeFrame2,TimeFrame3)) return(RESET); //--- проверка количества баров на достаточность для расчета if(rates_totalRates_Total || Prev_Calculated<=0)// проверка на первый старт расчета индикатора { limit=Rates_Total-Min_Rates_Total-1; // стартовый номер для расчета всех баров LastCountBar[Numb]=limit; } else limit=LastCountBar[Numb]+Rates_Total-Prev_Calculated; // стартовый номер для расчета новых баров //--- основной цикл расчета индикатора for(int bar=limit; bar>=0 && !IsStopped(); bar--) { //--- обнулим содержимое индикаторных буферов до расчета IndBuf[bar]=0.0; //--- копируем вновь появившиеся данные в массив IndTime if(CopyTime(Symbol(),TFrame,iTime[bar],1,IndTime)<=0) return(RESET); if(iTime[bar]>=IndTime[0] && iTime[bar+1]