//+------------------------------------------------------------------+ //| LaguerreFilterSign.mq5 | //| | //| Laguerre Filter | //| | //| Algorithm taken from book | //| "Cybernetics Analysis for Stock and Futures" | //| by John F. Ehlers | //| | //| contact@mqlsoft.com | //| http://www.mqlsoft.com/ | //+------------------------------------------------------------------+ //---- авторство индикатора #property copyright "Coded by Witold Wozniak" //---- авторство индикатора #property link "www.mqlsoft.com" //---- номер версии индикатора #property version "1.00" //---- отрисовка индикатора в главном окне #property indicator_chart_window //---- для расчёта и отрисовки индикатора использовано два буфера #property indicator_buffers 2 //---- использовано всего два графических построения #property indicator_plots 2 //+----------------------------------------------+ //| Параметры отрисовки медвежьего индикатора | //+----------------------------------------------+ //--- отрисовка индикатора 1 в виде символа #property indicator_type1 DRAW_ARROW //--- в качестве цвета медвежьего индикатора использован розовый цвет #property indicator_color1 clrMagenta //--- толщина линии индикатора 1 равна 4 #property indicator_width1 4 //--- отображение бычей метки индикатора #property indicator_label1 "LaguerreFilter Sell" //+----------------------------------------------+ //| Параметры отрисовки бычьго индикатора | //+----------------------------------------------+ //--- отрисовка индикатора 2 в виде символа #property indicator_type2 DRAW_ARROW //--- в качестве цвета бычего индикатора использован синий цвет #property indicator_color2 clrBlue //--- толщина линии индикатора 2 равна 4 #property indicator_width2 4 //--- отображение медвежьей метки индикатора #property indicator_label2 "LaguerreFilter Buy" //+----------------------------------------------+ //| объявление констант | //+----------------------------------------------+ #define RESET 0 // Константа для возврата терминалу команды на пересчёт индикатора //+----------------------------------------------+ //| Входные параметры индикатора | //+----------------------------------------------+ input double Gamma=0.7;// коэффициент индикатора input int Shift=0; // сдвиг индикатора по горизонтали в барах //+----------------------------------------------+ //---- Объявление целых переменных начала отсчёта данных int min_rates_total; //---- объявление динамических массивов, которые будут в // дальнейшем использованы в качестве индикаторных буферов double SellBuffer[],BuyBuffer[]; //---- объявление целочисленных переменных для хендлов индикаторов int ATR_Handle; //+------------------------------------------------------------------+ //| получение среднего от ценовых таймсерий | //+------------------------------------------------------------------+ double Get_Price(const double &High[],const double &Low[],int bar) // Get_Price(high, low, bar) //+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -+ { //---- return((High[bar]+Low[bar])/2); } //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int OnInit() { //---- Инициализация переменных начала отсчёта данных int ATR_Period=15; min_rates_total=int(MathMax(ATR_Period,4)); //---- получение хендла индикатора ATR ATR_Handle=iATR(NULL,0,ATR_Period); if(ATR_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора ATR"); return(INIT_FAILED); } //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(0,SellBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчёта отрисовки индикатора 1 PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total); //---- символ для индикатора PlotIndexSetInteger(0,PLOT_ARROW,172); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0.0); //---- осуществление сдвига индикатора 1 по горизонтали на Shift PlotIndexSetInteger(0,PLOT_SHIFT,Shift); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(1,BuyBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчёта отрисовки индикатора 2 PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total); //---- символ для индикатора PlotIndexSetInteger(1,PLOT_ARROW,172); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,0.0); //---- осуществление сдвига индикатора 2 по горизонтали на Shift PlotIndexSetInteger(1,PLOT_SHIFT,Shift); //---- инициализации переменной для короткого имени индикатора string shortname; StringConcatenate(shortname,"Laguerre Filter(",DoubleToString(Gamma,4),", ",Shift,")"); //--- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,shortname); //--- определение точности отображения значений индикатора IndicatorSetInteger(INDICATOR_DIGITS,_Digits); //--- завершение инициализации 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(ATR_Handle)rates_total || prev_calculated<=0) // проверка на первый старт расчёта индикатора first=0; // стартовый номер для расчёта всех баров else first=prev_calculated-1; // стартовый номер для расчёта новых баров //---- восстанавливаем значения переменных L0 = L0_; L1 = L1_; L2 = L2_; L3 = L3_; L0A = L0A_; L1A = L1A_; L2A = L2A_; L3A = L3A_; //---- основной цикл расчёта индикатора for(bar=first; barmin_rates_total) { Laguerre=(L0+2.0*L1+2.0*L2+L3)/6.0; Fir= ( 1.0*Get_Price(high,low,bar-0) +2.0*Get_Price(high,low,bar-1) +2.0*Get_Price(high,low,bar-2) +1.0*Get_Price(high,low,bar-3) ) /6.0; } else { L0_=Get_Price(high,low,bar); L1_ = L0_; L2_ = L0_; L3_ = L0_; Laguerre=Fir=L0_; } SellBuffer[bar]=0.0; BuyBuffer[bar]=0.0; if(Fir_<=Laguerre_ && Fir>Laguerre) { if(CopyBuffer(ATR_Handle,0,time[bar],1,ATR)<=0) return(RESET); BuyBuffer[bar]=low[bar]-ATR[0]*3/8; } if(Fir_>=Laguerre_ && Fir