//+------------------------------------------------------------------+ //| WPRCandleKeltner.mq5 | //| Copyright © 2005, Dark Han | //| http://www.metaquotes.net/ | //+------------------------------------------------------------------+ //---- авторство индикатора #property copyright "Copyright © 2005, Dark Han" //---- ссылка на сайт автора #property link "http://www.metaquotes.net/" #property description "Williams’ Percent Range" //---- номер версии индикатора #property version "1.00" //---- отрисовка индикатора в отдельном окне #property indicator_separate_window //---- для расчета и отрисовки индикатора использовано семь буферов #property indicator_buffers 7 //---- использовано всего два графических построения #property indicator_plots 2 //+----------------------------------------------+ //| Параметры отрисовки индикатора | //+----------------------------------------------+ //---- в качестве индикатора использованы цветные свечи #property indicator_type1 DRAW_COLOR_CANDLES #property indicator_color1 clrDeepPink,clrBlue,clrTeal //---- отображение метки индикатора #property indicator_label1 "WPRCandle Open;WPRCandle High;WPRCandle Low;WPRCandle Close" //+----------------------------------------------+ //| Параметры отрисовки индикатора уровней | //+----------------------------------------------+ //---- отрисовка канала в виде облака #property indicator_type2 DRAW_FILLING //---- выбор цвета облака #property indicator_color2 clrLavender //---- отображение метки индикатора #property indicator_label2 "Channels" //+----------------------------------------------+ //| Параметры отображения горизонтальных уровней | //+----------------------------------------------+ #property indicator_level1 -70 #property indicator_level2 -50 #property indicator_level3 -30 #property indicator_levelcolor clrBlueViolet #property indicator_levelstyle STYLE_DASHDOTDOT //+----------------------------------------------+ //| объявление констант | //+----------------------------------------------+ #define RESET 0 // Константа для возврата терминалу команды на пересчёт индикатора //+----------------------------------------------+ //| Входные параметры индикатора | //+----------------------------------------------+ input uint ExtWPRPeriod=11; input uint KeltnerPeriod=20; //период усреднения Кёлтнера input double Ratio=1.50; //девиация канала input int Shift=0; //сдвиг канала по горизонтали в барах //+----------------------------------------------+ //---- объявление динамических массивов, которые будут в дальнейшем использованы в качестве индикаторных буферов double ExtOpenBuffer[]; double ExtHighBuffer[]; double ExtLowBuffer[]; double ExtCloseBuffer[]; double ExtColorBuffer[]; //---- объявление динамических массивов, которые будут в дальнейшем использованы в качестве индикаторных буферов double BorderTopBuffer[],BorderBotBuffer[]; //---- Объявление целых переменных начала отсчёта данных int min_rates_total,min_rates_1; //---- Объявление целых переменных для хендлов индикаторов int WPR_Handle,MA_Handle; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int OnInit() { //---- Инициализация переменных начала отсчёта данных min_rates_1=int(ExtWPRPeriod); min_rates_total=min_rates_1+int(KeltnerPeriod); //---- получение хендла индикатора iWPR WPR_Handle=iWPR(NULL,0,ExtWPRPeriod); if(WPR_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора iWPR!"); return(INIT_FAILED); } //---- получение хендла индикатора iMA MA_Handle=iMA(NULL,0,KeltnerPeriod,0,MODE_SMA,WPR_Handle); if(MA_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора iMA"); return(INIT_FAILED); } //---- инициализации переменной для короткого имени индикатора string shortname; StringConcatenate(shortname,"WPRCandleKeltner(",ExtWPRPeriod,")"); //---- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,shortname); //---- превращение динамических массивов в индикаторные буферы SetIndexBuffer(0,ExtOpenBuffer,INDICATOR_DATA); SetIndexBuffer(1,ExtHighBuffer,INDICATOR_DATA); SetIndexBuffer(2,ExtLowBuffer,INDICATOR_DATA); SetIndexBuffer(3,ExtCloseBuffer,INDICATOR_DATA); //---- превращение динамического массива в цветовой, индексный буфер SetIndexBuffer(4,ExtColorBuffer,INDICATOR_COLOR_INDEX); //---- превращение динамических массивов в индикаторные буферы SetIndexBuffer(5,BorderTopBuffer,INDICATOR_DATA); SetIndexBuffer(6,BorderBotBuffer,INDICATOR_DATA); //---- индексация элементов в буферах как в таймсериях ArraySetAsSeries(ExtOpenBuffer,true); ArraySetAsSeries(ExtHighBuffer,true); ArraySetAsSeries(ExtLowBuffer,true); ArraySetAsSeries(ExtCloseBuffer,true); ArraySetAsSeries(ExtColorBuffer,true); ArraySetAsSeries(BorderTopBuffer,true); ArraySetAsSeries(BorderBotBuffer,true); //---- запрет на отображение значений индикатора в левом верхнем углу окна индикатора PlotIndexSetInteger(0,PLOT_SHOW_DATA,false); PlotIndexSetInteger(1,PLOT_SHOW_DATA,false); //---- осуществление сдвига начала отсчета отрисовки индикатора PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total); PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total); //---- осуществление сдвига индикатора 1 по горизонтали на Shift PlotIndexSetInteger(1,PLOT_SHIFT,Shift); //---- определение точности отображения значений индикатора 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; //---- индексация элементов в массивах как в таймсериях ArraySetAsSeries(open,true); ArraySetAsSeries(high,true); ArraySetAsSeries(low,true); ArraySetAsSeries(close,true); ArraySetAsSeries(MA,true); //---- копируем вновь появившиеся данные в массивы if(CopyBuffer(MA_Handle,0,0,to_copy,MA)<=0) return(RESET); //---- основной цикл расчёта индикатора for(bar=limit; bar>=0 && !IsStopped(); bar--) { ExtOpenBuffer[bar]=ExtHighBuffer[bar]=ExtLowBuffer[bar]=ExtCloseBuffer[bar]=50; HH=high[ArrayMaximum(high,bar,ExtWPRPeriod)]; LL=low[ArrayMinimum(low,bar,ExtWPRPeriod)]; range=HH-LL; if(!CompareDouble(range,0.0)) { ExtOpenBuffer[bar]=-100*(HH-open[bar])/range; ExtCloseBuffer[bar]=-100*(HH-close[bar])/range; ExtHighBuffer[bar]=-100*(HH-high[bar])/range; ExtLowBuffer[bar]=-100*(HH-low[bar])/range; } double Keltner=Ratio*GetKeltner(KeltnerPeriod,bar,ExtHighBuffer,ExtLowBuffer); BorderTopBuffer[bar]=MA[bar]+Keltner; BorderBotBuffer[bar]=MA[bar]-Keltner; if(ExtOpenBuffer[bar]ExtCloseBuffer[bar]) ExtColorBuffer[bar]=0.0; else ExtColorBuffer[bar]=1.0; } //---- return(rates_total); } //+------------------------------------------------------------------+ //| Функция сравнения двух вещественных чисел. | //+------------------------------------------------------------------+ bool CompareDouble(double Number1,double Number2) { //---- bool Compare=NormalizeDouble(Number1-Number2,8)==0; //---- return(Compare); } //+------------------------------------------------------------------+ // вычисление половины ширины канала Кёлтнера | //+------------------------------------------------------------------+ double GetKeltner(int period,int bar,const double &High[],const double &Low[]) { //---- double Resalt,sum=0; for(int iii=0; iii