//+------------------------------------------------------------------+ //| Fibonacci Channel.mq5 | //| Copyright 2009-2025, MetaQuotes Ltd | //| https://www.mql5.com | //+------------------------------------------------------------------+ #property copyright "2009-2025, MetaQuotes Ltd" #property link "http://www.mql5.com" #property description "Fibonacci Daily Channels" //--- #property indicator_chart_window #property indicator_buffers 9 #property indicator_plots 9 #property indicator_type1 DRAW_LINE #property indicator_color1 clrBlue #property indicator_type2 DRAW_LINE #property indicator_color2 clrOrange #property indicator_type3 DRAW_LINE #property indicator_color3 clrRed #property indicator_type4 DRAW_LINE #property indicator_color4 clrTeal #property indicator_type5 DRAW_LINE #property indicator_color5 clrGreen //--- labels #property indicator_label1 "PP" #property indicator_label2 "R1" #property indicator_label3 "R2" #property indicator_label4 "S1" #property indicator_label5 "S2" #property indicator_label6 "R3" #property indicator_label7 "R4" #property indicator_label8 "S3" #property indicator_label9 "S4" //--- input parameter input bool InpShowAllLevels=false; // show all levels input bool InpShowLabel =true; // show price of level //--- indicator buffers double ExtPPBuffer[]; double ExtR1Buffer[]; double ExtR2Buffer[]; double ExtR3Buffer[]; double ExtR4Buffer[]; double ExtS1Buffer[]; double ExtS2Buffer[]; double ExtS3Buffer[]; double ExtS4Buffer[]; //--- unique prefix to identify indicator objects string ExtPrefixUniq; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int OnInit() { //--- check current timeframe if(PeriodSeconds()>PeriodSeconds(PERIOD_D1)) { Alert("Timeframe of chart must be D1 or lower. Exit"); return(INIT_FAILED); } //--- define buffers SetIndexBuffer(0, ExtPPBuffer); SetIndexBuffer(1, ExtR1Buffer); SetIndexBuffer(2, ExtR2Buffer); SetIndexBuffer(3, ExtS1Buffer); SetIndexBuffer(4, ExtS2Buffer); if(InpShowAllLevels) { SetIndexBuffer(5, ExtR3Buffer, INDICATOR_DATA); SetIndexBuffer(6, ExtR4Buffer, INDICATOR_DATA); SetIndexBuffer(7, ExtS3Buffer, INDICATOR_DATA); SetIndexBuffer(8, ExtS4Buffer, INDICATOR_DATA); //--- set plot type PlotIndexSetInteger(5, PLOT_DRAW_TYPE, DRAW_LINE); PlotIndexSetInteger(6, PLOT_DRAW_TYPE, DRAW_LINE); PlotIndexSetInteger(7, PLOT_DRAW_TYPE, DRAW_LINE); PlotIndexSetInteger(8, PLOT_DRAW_TYPE, DRAW_LINE); //--- set line style PlotIndexSetInteger(5, PLOT_LINE_STYLE, STYLE_DASH); PlotIndexSetInteger(6, PLOT_LINE_STYLE, STYLE_SOLID); PlotIndexSetInteger(7, PLOT_LINE_STYLE, STYLE_DASH); PlotIndexSetInteger(8, PLOT_LINE_STYLE, STYLE_SOLID); //--- set line color PlotIndexSetInteger(5, PLOT_LINE_COLOR, clrGold); PlotIndexSetInteger(6, PLOT_LINE_COLOR, clrGold); PlotIndexSetInteger(7, PLOT_LINE_COLOR, clrGold); PlotIndexSetInteger(8, PLOT_LINE_COLOR, clrGold); } else { SetIndexBuffer(5, ExtR3Buffer, INDICATOR_CALCULATIONS); SetIndexBuffer(6, ExtR4Buffer, INDICATOR_CALCULATIONS); SetIndexBuffer(7, ExtS3Buffer, INDICATOR_CALCULATIONS); SetIndexBuffer(8, ExtS4Buffer, INDICATOR_CALCULATIONS); } //--- indicator name IndicatorSetString(INDICATOR_SHORTNAME, "Fibonacci Daily Channels"); //--- number of digits of indicator value IndicatorSetInteger(INDICATOR_DIGITS, _Digits); //--- prepare prefix for objects string number=StringFormat("%I64d", GetTickCount64()); ExtPrefixUniq=StringSubstr(number, StringLen(number)-4); ExtPrefixUniq=ExtPrefixUniq+"_FB"; Print("Indicator \"Fibonacci Channels\" started, prefix=", ExtPrefixUniq); 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[]) { static MqlRates LAST_DAY[]; // previous day static datetime last_time=0; // reference time static datetime error_time=0; // error output time //--- if the indicator has previously been calculated, start from the bar preceding the last one int start=prev_calculated-1; //--- if this is the first calculation of the indicator, start from the first bar on the chart if(prev_calculated==0) start=0; //--- calculate levels for all bars in a loop for(int i=start; i=error_time) { error_time=TimeCurrent()+60; Print("Failed to get previous day by CopyRates(Symbol(), PERIOD_D1, error ", GetLastError()); } return(prev_calculated); } } //--- calculate Pivot levels double range=LAST_DAY[0].high-LAST_DAY[0].low; double pivot_point=(LAST_DAY[0].high+LAST_DAY[0].low+LAST_DAY[0].close)/3; double r1=pivot_point+0.382*range; double r2=pivot_point+0.618*range; double s1=pivot_point-0.382*range; double s2=pivot_point-0.618*range; //--- write values into buffers ExtPPBuffer[i]=pivot_point; ExtR1Buffer[i]=r1; ExtR2Buffer[i]=r2; ExtS1Buffer[i]=s1; ExtS2Buffer[i]=s2; //--- additional levels double r3=pivot_point+range; double r4=pivot_point+1.618*range; double s3=pivot_point-range; double s4=pivot_point-1.618*range; ExtR3Buffer[i]=r3; ExtR4Buffer[i]=r4; ExtS3Buffer[i]=s3; ExtS4Buffer[i]=s4; } //--- draw labels on levels if(InpShowLabel) { ShowPriceLevels(time[rates_total-1], rates_total-1); ChartRedraw(); } //--- succesfully calculated return(rates_total); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ void OnDeinit(const int reason) { //--- delete all our graphical objects after use Print("Indicator \"Fibonacci Channels\" stopped, delete all objects with prefix=", ExtPrefixUniq); ObjectsDeleteAll(0, ExtPrefixUniq, 0, OBJ_ARROW_RIGHT_PRICE); ChartRedraw(0); } //+------------------------------------------------------------------+ //| Show prices' levels | //+------------------------------------------------------------------+ void ShowPriceLevels(datetime time, int last_index) { ShowRightPrice(ExtPrefixUniq+"_PP", time, ExtPPBuffer[last_index], clrBlue); ShowRightPrice(ExtPrefixUniq+"_R1", time, ExtR1Buffer[last_index], clrOrange); ShowRightPrice(ExtPrefixUniq+"_R2", time, ExtR2Buffer[last_index], clrRed); ShowRightPrice(ExtPrefixUniq+"_S1", time, ExtS1Buffer[last_index], clrTeal); ShowRightPrice(ExtPrefixUniq+"_S2", time, ExtS2Buffer[last_index], clrGreen); if(InpShowAllLevels) { ShowRightPrice(ExtPrefixUniq+"_R3", time, ExtR3Buffer[last_index], clrGold); ShowRightPrice(ExtPrefixUniq+"_R4", time, ExtR4Buffer[last_index], clrGold); ShowRightPrice(ExtPrefixUniq+"_S3", time, ExtS3Buffer[last_index], clrGold); ShowRightPrice(ExtPrefixUniq+"_S4", time, ExtS4Buffer[last_index], clrGold); } } //+------------------------------------------------------------------+ //| Create or Update "Right Price Label" object | //+------------------------------------------------------------------+ bool ShowRightPrice(const string name, datetime time, double price, color clr) { if(!ObjectCreate(0, name, OBJ_ARROW_RIGHT_PRICE, 0, time, price)) { ObjectMove(0, name, 0, time, price); return(false); } //--- make the label size adaptive long scale=2; if(!ChartGetInteger(0, CHART_SCALE, 0, scale)) { //--- output an error message to the Experts journal Print(__FUNCTION__+", ChartGetInteger(CHART_SCALE) failed, error = ", GetLastError()); } int width=scale>1 ? 2:1; // if chart scale > 1, then label size = 2 ObjectSetInteger(0, name, OBJPROP_COLOR, clr); ObjectSetInteger(0, name, OBJPROP_STYLE, STYLE_SOLID); ObjectSetInteger(0, name, OBJPROP_WIDTH, width); ObjectSetInteger(0, name, OBJPROP_BACK, false); ObjectSetInteger(0, name, OBJPROP_SELECTABLE, false); ObjectSetInteger(0, name, OBJPROP_SELECTED, false); ObjectSetInteger(0, name, OBJPROP_HIDDEN, true); ObjectSetInteger(0, name, OBJPROP_ZORDER, 0); return(true); } //+------------------------------------------------------------------+