//+------------------------------------------------------------------+ //| FisherCyberCycle_HTF.mq5 | //| Copyright © 2013, Nikolay Kositsin | //| Khabarovsk, farria@mail.redcom.ru | //+------------------------------------------------------------------+ #property copyright "Copyright © 2013, Nikolay Kositsin" #property link "arria@mail.redcom.ru" //--- indicator version #property version "1.00" #property description "FisherCyberCycle with the timeframe selection option available in input parameters" //--- drawing the indicator in a separate window #property indicator_separate_window //--- number of indicator buffers 4 #property indicator_buffers 4 //--- two plots are used #property indicator_plots 2 //+----------------------------------------------+ //| declaring constants | //+----------------------------------------------+ #define RESET 0 // A constant for returning the indicator recalculation command to the terminal #define INDICATOR_NAME "FisherCyberCycle" // A constant for the indicator name #define SIZE 1 // A constant for the number of calls of the CountIndicator function in the code //+----------------------------------------------+ //| Indicator 1 drawing parameters | //+----------------------------------------------+ //--- drawing the indicator as a colored cloud #property indicator_type1 DRAW_FILLING //--- the following colors are used as the indicator colors #property indicator_color1 clrLime,clrRed //--- displaying the indicator label #property indicator_label1 "Signal HTF" //+----------------------------------------------+ //| Indicator 2 drawing parameters | //+----------------------------------------------+ //--- drawing the indicator as a four-color histogram #property indicator_type2 DRAW_COLOR_HISTOGRAM //--- colors of the five-color histogram are as follows #property indicator_color2 clrMagenta,clrPink,clrGray,clrDeepSkyBlue,clrBlue //--- Indicator line is a solid one #property indicator_style2 STYLE_SOLID //--- indicator line width is 5 #property indicator_width2 5 //--- displaying the indicator label #property indicator_label2 "FisherCyberCycle HTF" //+----------------------------------------------+ //| Parameters of displaying horizontal levels | //+----------------------------------------------+ #property indicator_level1 +0.7 #property indicator_level2 0.0 #property indicator_level3 -0.7 #property indicator_levelcolor clrGray #property indicator_levelstyle STYLE_DASHDOTDOT //+----------------------------------------------+ //| Indicator input parameters | //+----------------------------------------------+ input ENUM_TIMEFRAMES TimeFrame=PERIOD_H4; // Indicator chart period (timeframe) input double Alpha=0.07; // Indicator ratio input uint Length=8; // Indicator period input int Shift=0; // Horizontal shift of the indicator in bars //+----------------------------------------------+ //--- declaration of dynamic arrays that will be used as indicator buffers double IndBuffer[]; double ColorIndBuffer[]; double UpIndBuffer[]; double DnIndBuffer[]; //--- declaration of integer variables of data starting point int min_rates_total; //--- declaration of integer variables for the indicators handles int Ind_Handle; //+------------------------------------------------------------------+ //| Getting a timeframe as a string | //+------------------------------------------------------------------+ string GetStringTimeframe(ENUM_TIMEFRAMES timeframe) {return(StringSubstr(EnumToString(timeframe),7,-1));} //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int OnInit() { //--- checking correctness of the chart periods if(!TimeFramesCheck(INDICATOR_NAME,TimeFrame)) return(INIT_FAILED); //--- initialization of variables min_rates_total=2; //--- getting the handle of the FisherCyberCycle indicator Ind_Handle=iCustom(Symbol(),TimeFrame,"FisherCyberCycle",Alpha,Length,0); if(Ind_Handle==INVALID_HANDLE) { Print(" Failed to get the handle of the FisherCyberCycle indicator"); return(INIT_FAILED); } //--- initialize indicator buffers IndInit(0,UpIndBuffer,INDICATOR_DATA); IndInit(1,DnIndBuffer,INDICATOR_DATA); IndInit(2,IndBuffer,INDICATOR_DATA); IndInit(3,ColorIndBuffer,INDICATOR_COLOR_INDEX); //--- initialization of indicators PlotInit(0,0.0,0,Shift); PlotInit(1,0.0,0,Shift); //--- creation of the name to be displayed in a separate sub-window and in a pop up help string shortname; StringConcatenate(shortname,INDICATOR_NAME,"(",GetStringTimeframe(TimeFrame),")"); IndicatorSetString(INDICATOR_SHORTNAME,shortname); //--- determining the accuracy of the indicator values IndicatorSetInteger(INDICATOR_DIGITS,0); //--- initialization end return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Custom iteration function | //+------------------------------------------------------------------+ int OnCalculate(const int rates_total, // number of bars in history at the current tick const int prev_calculated,// amount of history in bars at the previous tick 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[]) { //--- checking if the number of bars is enough for the calculation if(rates_totalRates_Total || Prev_Calculated<=0)// checking for the first start of the indicator calculation { limit=Rates_Total-Min_Rates_Total-1; // starting index for the calculation of all bars LastCountBar[Numb]=limit; } else limit=LastCountBar[Numb]+Rates_Total-Prev_Calculated; // starting index for calculation of new bars //--- main calculation loop of the indicator for(int bar=limit; bar>=0 && !IsStopped(); bar--) { //--- Copy new data to the IndTime array if(CopyTime(Symbol(),TFrame,iTime[bar],1,IndTime)<=0) return(RESET); if(iTime[bar]>=IndTime[0] && iTime[bar+1]0) { if(IndBuf[bar]>IndBuf[bar+1]) clr=4; if(IndBuf[bar]IndBuf[bar+1]) clr=1; } ColorIndBuf[bar]=clr; } else { IndBuf[bar]=IndBuf[bar+1]; ColorIndBuf[bar]=ColorIndBuf[bar+1]; UpIndBuf[bar]=UpIndBuf[bar+1]; DnIndBuf[bar]=DnIndBuf[bar+1]; } } //--- return(true); } //+------------------------------------------------------------------+ //| TimeFramesCheck() | //+------------------------------------------------------------------+ bool TimeFramesCheck(string IndName, ENUM_TIMEFRAMES TFrame) //Indicator chart period (timeframe) { //--- checking correctness of the chart periods if(TFrame