//+------------------------------------------------------------------+ //| BackgroundCandle_ColorLaguerre_HTF.mq5 | //| Copyright © 2014, Nikolay Kositsin | //| Khabarovsk, farria@mail.redcom.ru | //+------------------------------------------------------------------+ #property copyright "Copyright © 2014, Nikolay Kositsin" #property link "farria@mail.redcom.ru" //--- indicator version #property version "1.60" #property description "A candlestick indicator colored based on the ColorLaguerre indicator with timeframe selection option available in input parameters" //--- drawing the indicator in the main window #property indicator_chart_window //--- number of indicator buffers is 12 #property indicator_buffers 12 //--- 6 graphical plots are used #property indicator_plots 6 //+----------------------------------------------+ //| declaring constants | //+----------------------------------------------+ #define RESET 0 // A constant for returning the indicator recalculation command to the terminal #define INDICATOR_NAME "BackgroundCandle_ColorLaguerre" // A constant for the indicator name #define SIZE 1 // A constant for the number of calls of the CountIndicator function in the code #define EMPTYVALUE 0 // A constant for undisplayed indicator values //+----------------------------------------------+ //| Indicator 1 drawing parameters | //+----------------------------------------------+ //--- drawing the indicator as a colored cloud #property indicator_type1 DRAW_FILLING //--- the color of the indicator #property indicator_color1 clrLime,clrPlum //--- the indicator line is a continuous curve #property indicator_style1 STYLE_SOLID //--- displaying the indicator label #property indicator_label1 "Upper Shade" //+----------------------------------------------+ //| Indicator 2 drawing parameters | //+----------------------------------------------+ //--- drawing the indicator as a colored cloud #property indicator_type2 DRAW_FILLING //--- the color of the indicator #property indicator_color2 clrLightSeaGreen,clrRed //--- the indicator line is a continuous curve #property indicator_style2 STYLE_SOLID //--- displaying the indicator label #property indicator_label2 "Body" //+----------------------------------------------+ //| Indicator 3 drawing parameters | //+----------------------------------------------+ //--- drawing the indicator as a colored cloud #property indicator_type3 DRAW_FILLING //--- the color of the indicator #property indicator_color3 clrLime,clrPlum //--- the indicator line is a continuous curve #property indicator_style3 STYLE_SOLID //--- displaying the indicator label #property indicator_label3 "Lower Shade" //+----------------------------------------------+ //| Indicator 4 drawing parameters | //+----------------------------------------------+ //--- drawing the indicator as a colored cloud #property indicator_type4 DRAW_FILLING //--- the color of the indicator #property indicator_color4 clrLime,clrPlum //--- the indicator line is a continuous curve #property indicator_style4 STYLE_SOLID //--- displaying the indicator label #property indicator_label4 "Upper Shade" //+----------------------------------------------+ //| Indicator 5 drawing parameters | //+----------------------------------------------+ //--- drawing the indicator as a colored cloud #property indicator_type5 DRAW_FILLING //--- the color of the indicator #property indicator_color5 clrLightSeaGreen,clrRed //--- the indicator line is a continuous curve #property indicator_style5 STYLE_SOLID //--- displaying the indicator label #property indicator_label5 "Body" //+----------------------------------------------+ //| Indicator 6 drawing parameters | //+----------------------------------------------+ //--- drawing the indicator as a colored cloud #property indicator_type6 DRAW_FILLING //--- the color of the indicator #property indicator_color6 clrLime,clrPlum //--- the indicator line is a continuous curve #property indicator_style6 STYLE_SOLID //--- displaying the indicator label #property indicator_label6 "Lower Shade" //+----------------------------------------------+ //| Indicator input parameters | //+----------------------------------------------+ input ENUM_TIMEFRAMES TimeFrame=PERIOD_H4; // Indicator chart period input double gamma=0.7; input uint inHighLevel=85; input uint inMiddleLevel=50; input uint inLowLevel=15; input int Shift=0; // Horizontal shift of the indicator in bars //+----------------------------------------------+ //--- declaration of dynamic arrays that will be used as indicator buffers double ExtA1Buffer[]; double ExtB1Buffer[]; double ExtA2Buffer[]; double ExtB2Buffer[]; double ExtA3Buffer[]; double ExtB3Buffer[]; double ExtA4Buffer[]; double ExtB4Buffer[]; double ExtA5Buffer[]; double ExtB5Buffer[]; double ExtA6Buffer[]; double ExtB6Buffer[]; //--- declaration of integer variables of data starting point int min_rates_total; //--- declaration of integer variables for the indicators handles int Ind_Handle; //+------------------------------------------------------------------+ //| 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 ColorLaguerre indicator Ind_Handle=iCustom(Symbol(),TimeFrame,"ColorLaguerre",gamma,inHighLevel,inMiddleLevel,inLowLevel); if(Ind_Handle==INVALID_HANDLE) { Print(" Failed to get the handle of the ColorLaguerre indicator"); return(INIT_FAILED); } //--- set dynamic arrays as indicator buffers ArrayInit(0,ExtA1Buffer); ArrayInit(1,ExtB1Buffer); ArrayInit(2,ExtA2Buffer); ArrayInit(3,ExtB2Buffer); ArrayInit(4,ExtA3Buffer); ArrayInit(5,ExtB3Buffer); ArrayInit(6,ExtA4Buffer); ArrayInit(7,ExtB4Buffer); ArrayInit(8,ExtA5Buffer); ArrayInit(9,ExtB5Buffer); ArrayInit(10,ExtA6Buffer); ArrayInit(11,ExtB6Buffer); //--- initialization of indicators PlotInit(0,2,Shift); PlotInit(1,2,Shift); PlotInit(2,2,Shift); PlotInit(3,2,Shift); PlotInit(4,2,Shift); PlotInit(5,2,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,"(",EnumToString(TimeFrame),")"); IndicatorSetString(INDICATOR_SHORTNAME,shortname); //--- determining the accuracy of the indicator values IndicatorSetInteger(INDICATOR_DIGITS,_Digits); //--- 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; LastTime=0; Sign=1; } 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,Time[bar],1,iTime)<=0) return(RESET); //--- if(Time[bar]>=iTime[0] && Time[bar+1]0) { if(iCol[0]==1) { ExtA1Buff[bar]=iHigh[0]; ExtB1Buff[bar]=mathmax; ExtA2Buff[bar]=mathmax; ExtB2Buff[bar]=mathmin; ExtA3Buff[bar]=mathmin; ExtB3Buff[bar]=iLow[0]; } if(iCol[0]==2) { ExtB1Buff[bar]=iHigh[0]; ExtA1Buff[bar]=mathmax; ExtB2Buff[bar]=mathmax; ExtA2Buff[bar]=mathmin; ExtB3Buff[bar]=mathmin; ExtA3Buff[bar]=iLow[0]; } if(iCol[0]==0) { ExtB1Buff[bar]=EMPTYVALUE; ExtA1Buff[bar]=EMPTYVALUE; ExtA2Buff[bar]=EMPTYVALUE; ExtB2Buff[bar]=EMPTYVALUE; ExtB3Buff[bar]=EMPTYVALUE; ExtA3Buff[bar]=EMPTYVALUE; } ExtA4Buff[bar]=EMPTYVALUE; ExtB4Buff[bar]=EMPTYVALUE; ExtA5Buff[bar]=EMPTYVALUE; ExtB5Buff[bar]=EMPTYVALUE; ExtA6Buff[bar]=EMPTYVALUE; ExtB6Buff[bar]=EMPTYVALUE; } else { if(iCol[0]==1) { ExtA4Buff[bar]=iHigh[0]; ExtB4Buff[bar]=mathmax; ExtA5Buff[bar]=mathmax; ExtB5Buff[bar]=mathmin; ExtA6Buff[bar]=mathmin; ExtB6Buff[bar]=iLow[0]; } if(iCol[0]==2) { ExtB4Buff[bar]=iHigh[0]; ExtA4Buff[bar]=mathmax; ExtB5Buff[bar]=mathmax; ExtA5Buff[bar]=mathmin; ExtB6Buff[bar]=mathmin; ExtA6Buff[bar]=iLow[0]; } if(iCol[0]==0) { ExtB4Buff[bar]=EMPTYVALUE; ExtA4Buff[bar]=EMPTYVALUE; ExtA5Buff[bar]=EMPTYVALUE; ExtB5Buff[bar]=EMPTYVALUE; ExtB6Buff[bar]=EMPTYVALUE; ExtA6Buff[bar]=EMPTYVALUE; } ExtA1Buff[bar]=EMPTYVALUE; ExtB1Buff[bar]=EMPTYVALUE; ExtA2Buff[bar]=EMPTYVALUE; ExtB2Buff[bar]=EMPTYVALUE; ExtA3Buff[bar]=EMPTYVALUE; ExtB3Buff[bar]=EMPTYVALUE; } } else { int bar1=bar+1; ExtA1Buff[bar]=ExtA1Buff[bar1]; ExtB1Buff[bar]=ExtB1Buff[bar1]; ExtA2Buff[bar]=ExtA2Buff[bar1]; ExtB2Buff[bar]=ExtB2Buff[bar1]; ExtA3Buff[bar]=ExtA3Buff[bar1]; ExtB3Buff[bar]=ExtB3Buff[bar1]; ExtA4Buff[bar]=ExtA4Buff[bar1]; ExtB4Buff[bar]=ExtB4Buff[bar1]; ExtA5Buff[bar]=ExtA5Buff[bar1]; ExtB5Buff[bar]=ExtB5Buff[bar1]; ExtA6Buff[bar]=ExtA6Buff[bar1]; ExtB6Buff[bar]=ExtB6Buff[bar1]; } } //--- return(true); } //+------------------------------------------------------------------+ //| PlotInit() | //+------------------------------------------------------------------+ void PlotInit(uint PlotNumber, int DrawBegin, int PlotShift) { //--- shift the beginning of indicator drawing PlotIndexSetInteger(PlotNumber,PLOT_DRAW_BEGIN,DrawBegin); //--- shifting the indicator 1 horizontally by Shift PlotIndexSetInteger(PlotNumber,PLOT_SHIFT,PlotShift); //--- } //+------------------------------------------------------------------+ //| ArrayInit() | //+------------------------------------------------------------------+ void ArrayInit(uint ArrNumber, double &Array[]) { //--- set dynamic array as an indicator buffer SetIndexBuffer(ArrNumber,Array,INDICATOR_DATA); //--- indexing elements in the buffer as in timeseries ArraySetAsSeries(Array,true); //--- } //+------------------------------------------------------------------+ //| TimeFramesCheck() | //+------------------------------------------------------------------+ bool TimeFramesCheck(string IndName, ENUM_TIMEFRAMES TFrame) //Indicator 1 chart period (smallest timeframe) { //--- checking correctness of the chart periods if(TFrame