CandlesAutoFibo

ÿþ//+------------------------------------------------------------------+

//|                                              CandlesAutoFibo.mq5 |

//|                               Copyright © 2018, Nikolay Kositsin | 

//|                              Khabarovsk,   farria@mail.redcom.ru | 

//+------------------------------------------------------------------+

//---- 02B>@AB2> 8=48:0B>@0

#property copyright "Copyright © 2018, Nikolay Kositsin"

//---- AAK;:0 =0 A09B 02B>@0

#property link      "farria@mail.redcom.ru"

//---- =><5@ 25@A88 8=48:0B>@0

#property version   "1.00"

//---- >B@8A>2:0 8=48:0B>@0 2 3;02=>< >:=5

#property indicator_chart_window 

//---- 4;O @0AGQB0 8 >B@8A>2:8 8=48:0B>@0 =5 8A?>;L7>20=> =8 >4=>3> 1CD5@0

#property indicator_buffers 0

//---- 8A?>;L7>20=> =>;L 3@0D8G5A:8E ?>AB@>5=89

#property indicator_plots   0

//+----------------------------------------------+ 

//|  >1JO2;5=85 :>=AB0=B                         |

//+----------------------------------------------+

#define RESET     0            // >=AB0=B0 4;O 2>72@0B0 B5@<8=0;C :><0=4K =0 ?5@5AG5B 8=48:0B>@0

#define FIBO "FIBO"            // >=AB0=B0 8<5=8 4;O $81>

#define FIBO_LINES_TONAL 11    // >=AB0=B0 4;O :>;8G5AB20 C@>2=59 D81>

//+----------------------------------------------+

//| E>4=K5 ?0@0<5B@K 8=48:0B>@0                 |

//+----------------------------------------------+

input ENUM_TIMEFRAMES Timeframe=PERIOD_D1;  //"09<D@59< 8=48:0B>@0 4;O @0AG5B0 C@>2=59 $81>=0G8

input uint   NumberofBar=1;                 //><5@ 10@0 4;O @0AG5B0 C@>2=59 $81>=0G8

input color   FiboColor=clrGray;            //&25B $81>

input double  FiboLevel1 = 0.0;             //7=0G5=85 D81>C@>2=O 1

input color  Color_Level1 = clrRed;         //F25B D81>C@>2=O 1

input double  FiboLevel2 = 0.236;           //7=0G5=85 D81>C@>2=O 2

input color  Color_Level2 = clrDarkViolet;  //F25B D81>C@>2=O 2

input double  FiboLevel3 = 0.382;           //7=0G5=85 D81>C@>2=O 3

input color  Color_Level3 = clrOrange;      //F25B D81>C@>2=O 3

input double  FiboLevel4 = 0.500;           //7=0G5=85 D81>C@>2=O 4

input color  Color_Level4 = clrMagenta;     //F25B D81>C@>2=O 4

input double  FiboLevel5 = 0.618;           //7=0G5=85 D81>C@>2=O 5

input color  Color_Level5 = clrBlue;        //F25B D81>C@>2=O 5

input double  FiboLevel6 = 1.000;           //7=0G5=85 D81>C@>2=O 6

input color  Color_Level6 = clrRed;         //F25B D81>C@>2=O 6

input double  FiboLevel7 = 1.236;           //7=0G5=85 D81>C@>2=O 7

input color  Color_Level7 = clrDarkViolet;  //F25B D81>C@>2=O 7

input double  FiboLevel8 = 1.382;           //7=0G5=85 D81>C@>2=O 8

input color  Color_Level8 = clrOrange;      //F25B D81>C@>2=O 8

input double  FiboLevel9 = 1.500;           //7=0G5=85 D81>C@>2=O 9

input color  Color_Level9 = clrMagenta;     //F25B D81>C@>2=O 9

input double  FiboLevel10 = 1.618;          //7=0G5=85 D81>C@>2=O 10

input color  Color_Level10 = clrBlue;       //F25B D81>C@>2=O 10

input double  FiboLevel11 = 2.000;          //7=0G5=85 D81>C@>2=O 11

input color  Color_Level11 = clrRed;        //F25B D81>C@>2=O 11

//+----------------------------------------------+

//---- <0AA82K ?5@5<5==KE 4;O ;8=89 $81>

double Values[FIBO_LINES_TONAL];

color Colors[FIBO_LINES_TONAL];

ENUM_LINE_STYLE Styles[FIBO_LINES_TONAL];

int Widths[FIBO_LINES_TONAL];

//+------------------------------------------------------------------+ 

//| C>7405B "#@>2=8 $81>=0GG8" ?> 7040==K< :>>@48=0B0<               | 

//+------------------------------------------------------------------+ 

bool FiboLevelsCreate(const long            chart_ID=0,        // ID 3@0D8:0 

                      const string          name="FiboLevels", // 8<O >1J5:B0 

                      const int             sub_window=0,      // =><5@ ?>4>:=0  

                      datetime              time1=0,           // 2@5<O ?5@2>9 B>G:8 

                      double                price1=0,          // F5=0 ?5@2>9 B>G:8 

                      datetime              time2=0,           // 2@5<O 2B>@>9 B>G:8 

                      double                price2=0,          // F5=0 2B>@>9 B>G:8 

                      const color           clr=clrRed,        // F25B >1J5:B0 

                      const ENUM_LINE_STYLE style=STYLE_SOLID, // AB8;L ;8=88 >1J5:B0 

                      const int             width=1,           // B>;I8=0 ;8=88 >1J5:B0 

                      const bool            back=false,        // =0 704=5< ?;0=5 

                      const bool            selection=true,    // 2K45;8BL 4;O ?5@5<5I5=89 

                      const bool            ray_left=false,    // ?@>4>;65=85 >1J5:B0 2;52> 

                      const bool            ray_right=false,   // ?@>4>;65=85 >1J5:B0 2?@02> 

                      const bool            hidden=true,       // A:@KB 2 A?8A:5 >1J5:B>2 

                      const long            z_order=0)         // ?@8>@8B5B =0 =060B85 <KHLN 

  { 

//--- CAB0=>28< :>>@48=0BK B>G5: ?@82O7:8, 5A;8 >=8 =5 7040=K 

   ChangeFiboLevelsEmptyPoints(time1,price1,time2,price2); 

//--- A1@>A8< 7=0G5=85 >H81:8 

   ResetLastError(); 

//--- A>74048< "#@>2=8 $81>=0GG8" ?> 7040==K< :>>@48=0B0< 

   if(!ObjectCreate(chart_ID,name,OBJ_FIBO,sub_window,time1,price1,time2,price2)) 

     { 

      Print(__FUNCTION__, 

            ": =5 C40;>AL A>740BL \"#@>2=8 $81>=0GG8\"! >4 >H81:8 = ",GetLastError()); 

      return(false); 

     } 

//--- CAB0=>28< F25B 

   ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr); 

//--- CAB0=>28< AB8;L ;8=88 

   ObjectSetInteger(chart_ID,name,OBJPROP_STYLE,style); 

//--- CAB0=>28< B>;I8=C ;8=88 

   ObjectSetInteger(chart_ID,name,OBJPROP_WIDTH,width); 

//--- >B>1@078< =0 ?5@54=5< (false) 8;8 704=5< (true) ?;0=5 

   ObjectSetInteger(chart_ID,name,OBJPROP_BACK,back); 

//--- 2:;NG8< (true) 8;8 >B:;NG8< (false) @568< 2K45;5=8O >1J5:B0 4;O ?5@5<5I5=89 

//--- ?@8 A>740=88 3@0D8G5A:>3> >1J5:B0 DC=:F859 ObjectCreate, ?> C<>;G0=8N >1J5:B 

//--- =5;L7O 2K45;8BL 8 ?5@5<5I0BL. =CB@8 65 MB>3> <5B>40 ?0@0<5B@ selection 

//--- ?> C<>;G0=8N @025= true, GB> ?>72>;O5B 2K45;OBL 8 ?5@5<5I0BL MB>B >1J5:B 

   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,selection); 

   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,selection); 

//--- 2:;NG8< (true) 8;8 >B:;NG8< (false) @568< ?@>4>;65=8O >B>1@065=8O >1J5:B0 2;52> 

   ObjectSetInteger(chart_ID,name,OBJPROP_RAY_LEFT,ray_left); 

//--- 2:;NG8< (true) 8;8 >B:;NG8< (false) @568< ?@>4>;65=8O >B>1@065=8O >1J5:B0 2?@02> 

   ObjectSetInteger(chart_ID,name,OBJPROP_RAY_RIGHT,ray_right); 

//--- A:@>5< (true) 8;8 >B>1@078< (false) 8<O 3@0D8G5A:>3> >1J5:B0 2 A?8A:5 >1J5:B>2 

   ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,hidden); 

//--- CAB0=>28 ?@8>@8B5B =0 ?>;CG5=85 A>1KB8O =060B8O <KH8 =0 3@0D8:5 

   ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER,z_order); 

//--- CA?5H=>5 2K?>;=5=85 

   return(true); 

  } 

//+------------------------------------------------------------------+ 

//| 0405B :>;8G5AB2> C@>2=59 8 8E ?0@0<5B@K                         | 

//+------------------------------------------------------------------+ 

bool FiboLevelsSet(int             levels,            // :>;8G5AB2> ;8=89 C@>2=O 

                   double          &values[],         // 7=0G5=8O ;8=89 C@>2=O 

                   color           &colors[],         // F25B ;8=89 C@>2=O 

                   ENUM_LINE_STYLE &styles[],         // AB8;L ;8=89 C@>2=O 

                   int             &widths[],         // B>;I8=0 ;8=89 C@>2=O 

                   const long      chart_ID=0,        // ID 3@0D8:0 

                   const string    name="FiboLevels") // 8<O >1J5:B0 

  { 

//--- ?@>25@8< @07<5@K <0AA82>2 

   if(levels!=ArraySize(colors) || levels!=ArraySize(styles) || 

      levels!=ArraySize(widths) || levels!=ArraySize(widths)) 

     { 

      Print(__FUNCTION__,": 4;8=0 <0AA820 =5 A>>B25BAB2C5B :>;8G5AB2C C@>2=59, >H81:0!"); 

      return(false); 

     } 

//--- CAB0=>28< :>;8G5AB2> C@>2=59 

   ObjectSetInteger(chart_ID,name,OBJPROP_LEVELS,levels); 

//--- CAB0=>28< A2>9AB20 C@>2=59 2 F8:;5 

   for(int i=0;i<levels;i++) 

     { 

      //--- 7=0G5=85 C@>2=O 

      ObjectSetDouble(chart_ID,name,OBJPROP_LEVELVALUE,i,values[i]); 

      //--- F25B C@>2=O 

      ObjectSetInteger(chart_ID,name,OBJPROP_LEVELCOLOR,i,colors[i]); 

      //--- AB8;L C@>2=O 

      ObjectSetInteger(chart_ID,name,OBJPROP_LEVELSTYLE,i,styles[i]); 

      //--- B>;I8=0 C@>2=O 

      ObjectSetInteger(chart_ID,name,OBJPROP_LEVELWIDTH,i,widths[i]); 

      //--- >?8A0=85 C@>2=O 

      ObjectSetString(chart_ID,name,OBJPROP_LEVELTEXT,i,DoubleToString(100*values[i],1)); 

     } 

//--- CA?5H=>5 2K?>;=5=85 

   return(true); 

  } 

//+------------------------------------------------------------------+ 

//| 5@5<5I05B B>G:C ?@82O7:8 "#@>2=59 $81>=0GG8"                    | 

//+------------------------------------------------------------------+ 

bool FiboLevelsPointChange(const long   chart_ID=0,        // ID 3@0D8:0 

                           const string name="FiboLevels", // 8<O >1J5:B0 

                           const int    point_index=0,     // =><5@ B>G:8 ?@82O7:8 

                           datetime     time=0,            // :>>@48=0B0 2@5<5=8 B>G:8 ?@82O7:8 

                           double       price=0)           // :>>@48=0B0 F5=K B>G:8 ?@82O7:8 

  { 

//--- 5A;8 :>>@48=0BK B>G:8 =5 7040=K, B> ?5@5<5I05< 55 =0 B5:CI89 10@ A F5=>9 Bid 

   if(!time) 

      time=TimeCurrent(); 

   if(!price) 

      price=SymbolInfoDouble(Symbol(),SYMBOL_BID); 

//--- A1@>A8< 7=0G5=85 >H81:8 

   ResetLastError(); 

//--- ?5@5<5AB8< B>G:C ?@82O7:8 

   if(!ObjectMove(chart_ID,name,point_index,time,price)) 

     { 

      Print(__FUNCTION__, 

            ": =5 C40;>AL ?5@5<5AB8BL B>G:C ?@82O7:8! >4 >H81:8 = ",GetLastError()); 

      return(false); 

     } 

//--- CA?5H=>5 2K?>;=5=85 

   return(true); 

  } 

//+------------------------------------------------------------------+ 

//| #40;O5B "#@>2=8 $81>=0GG8"                                       | 

//+------------------------------------------------------------------+ 

bool FiboLevelsDelete(const long   chart_ID=0,        // ID 3@0D8:0 

                      const string name="FiboLevels") // 8<O >1J5:B0 

  { 

//--- A1@>A8< 7=0G5=85 >H81:8 

   ResetLastError(); 

//--- C40;8< >1J5:B 

   if(!ObjectDelete(chart_ID,name)) 

     { 

      Print(__FUNCTION__, 

            ": =5 C40;>AL C40;8BL \"#@>2=8 $81>=0GG8\"! >4 >H81:8 = ",GetLastError()); 

      return(false); 

     } 

//--- CA?5H=>5 2K?>;=5=85 

   return(true); 

  } 

//+------------------------------------------------------------------+ 

//| @>25@O5B 7=0G5=8O B>G5: ?@82O7:8 "#@>2=59 $81>=0GG8" 8 4;O      | 

//| ?CABKE 7=0G5=89 CAB0=02;8205B 7=0G5=8O ?> C<>;G0=8N              | 

//+------------------------------------------------------------------+ 

void ChangeFiboLevelsEmptyPoints(datetime &time1,double &price1, 

                                 datetime &time2,double &price2) 

  { 

//--- 5A;8 2@5<O 2B>@>9 B>G:8 =5 7040=>, B> >=0 1C45B =0 B5:CI5< 10@5 

   if(!time2) 

      time2=TimeCurrent(); 

//--- 5A;8 F5=0 2B>@>9 B>G:8 =5 7040=0, B> >=0 1C45B 8<5BL 7=0G5=85 Bid 

   if(!price2) 

      price2=SymbolInfoDouble(Symbol(),SYMBOL_BID); 

//--- 5A;8 2@5<O ?5@2>9 B>G:8 =5 7040=>, B> >=0 ;568B =0 9 10@>2 ;5255 2B>@>9 

   if(!time1) 

     { 

      //--- <0AA82 4;O ?@85<0 2@5<5=8 >B:@KB8O 10 ?>A;54=8E 10@>2 

      datetime temp[10]; 

      CopyTime(Symbol(),Period(),time2,10,temp); 

      //--- CAB0=>28< ?5@2CN B>G:C =0 9 10@>2 ;5255 2B>@>9 

      time1=temp[0]; 

     } 

//--- 5A;8 F5=0 ?5@2>9 B>G:8 =5 7040=0, B> A428=5< 55 =0 200 ?C=:B>2 =865 2B>@>9 

   if(!price1) 

      price1=price2-200*SymbolInfoDouble(Symbol(),SYMBOL_POINT); 

  } 

//+------------------------------------------------------------------+

//| Custom indicator initialization function                         |

//+------------------------------------------------------------------+  

int OnInit()

  {

//----

   Values[0]=FiboLevel1;

   Values[1]=FiboLevel2;

   Values[2]=FiboLevel3;

   Values[3]=FiboLevel4;

   Values[4]=FiboLevel5;

   Values[5]=FiboLevel6;

   Values[6]=FiboLevel7;

   Values[7]=FiboLevel8;

   Values[8]=FiboLevel9;

   Values[9]=FiboLevel10;

   Values[10]=FiboLevel11;

//----   

   Colors[0]=Color_Level1;

   Colors[1]=Color_Level2;

   Colors[2]=Color_Level3;

   Colors[3]=Color_Level4;

   Colors[4]=Color_Level5;

   Colors[5]=Color_Level6;

   Colors[6]=Color_Level7;

   Colors[7]=Color_Level8;

   Colors[8]=Color_Level9;

   Colors[9]=Color_Level10;

   Colors[10]=Color_Level11;

//----   

   Styles[0]=STYLE_SOLID;

   Styles[1]=STYLE_DASHDOTDOT;

   Styles[2]=STYLE_DASHDOTDOT;

   Styles[3]=STYLE_DASH;

   Styles[4]=STYLE_DASHDOTDOT;

   Styles[5]=STYLE_SOLID;

   Styles[6]=STYLE_DASHDOTDOT;

   Styles[7]=STYLE_DASHDOTDOT;

   Styles[8]=STYLE_DASH;

   Styles[9]=STYLE_DASHDOTDOT;

   Styles[10]=STYLE_SOLID;

//----

   ArrayInitialize(Widths,NULL);

   //--- A>74048< >1J5:B 

   if(!FiboLevelsCreate(0,FIBO,0,0,0,0,0,FiboColor,STYLE_SOLID,0,true,false,false,true,false,0)) 

     { 

      Print("5 C40;>AL A>740BL $81>!");

      return(INIT_FAILED);

     } 

   if(!FiboLevelsSet(FIBO_LINES_TONAL,Values,Colors,Styles,Widths,0,FIBO)) 

     { 

      Print("5 C40;>AL =0AB@>8BL $81>!");

      return(INIT_FAILED);

     } 

//---- >?@545;5=85 B>G=>AB8 >B>1@065=8O 7=0G5=89 8=48:0B>@0

   IndicatorSetInteger(INDICATOR_DIGITS,_Digits);

//---- A>740=85 <5B>: 4;O >B>1@065=8O 2 DataWindow 8 8<5=8 4;O >B>1@065=8O 2 >B45;L=>< ?>4>:=5 8 2> 2A?;K20NI59 ?>4A:07:5

   IndicatorSetString(INDICATOR_SHORTNAME,"CandlesAutoFibo");

//---- 7025@H5=85 8=8F80;870F88

   return(INIT_SUCCEEDED);

  }

//+------------------------------------------------------------------+

//| Custom indicator deinitialization function                       |

//+------------------------------------------------------------------+    

void OnDeinit(const int reason)

  {

//----

   FiboLevelsDelete(0,FIBO);

//----

   ChartRedraw(0);

  }

//+------------------------------------------------------------------+

//| Custom indicator iteration function                              |

//+------------------------------------------------------------------+

int OnCalculate(

                const int rates_total,    // :>;8G5AB2> 8AB>@88 2 10@0E =0 B5:CI5< B8:5

                const int prev_calculated,// :>;8G5AB2> 8AB>@88 2 10@0E =0 ?@54K4CI5< B8:5

                const datetime &time[],

                const double &open[],

                const double& high[],     // F5=>2>9 <0AA82 <0:A8<C<>2 F5=K 4;O @0AGQB0 8=48:0B>@0

                const double& low[],      // F5=>2>9 <0AA82 <8=8<C<>2 F5=K  4;O @0AGQB0 8=48:0B>@0

                const double &close[],

                const long &tick_volume[],

                const long &volume[],

                const int &spread[]

                )

  {

//---- 

   //if(prev_calculated==rates_total && NumberofBar) return(rates_total);

//----

   double nOpen[1],nClose[1],nHigh[1],nLow[1],P1,P2;

   datetime nTime[1];

   int to_copy;

   datetime D1,D2;



//---- 8=45:A0F8O M;5<5=B>2 2 <0AA820E :0: 2 B09<A5@8OE  

   ArraySetAsSeries(time,true);

//----

   to_copy=1;

//----

   if(CopyTime(NULL,Timeframe,NumberofBar,to_copy,nTime)<to_copy)return(RESET);

   if(CopyOpen(NULL,Timeframe,NumberofBar,to_copy,nOpen)<to_copy)return(RESET);

   if(CopyHigh(NULL,Timeframe,NumberofBar,to_copy,nHigh)<to_copy)return(RESET);

   if(CopyLow(NULL,Timeframe,NumberofBar,to_copy,nLow)<to_copy)return(RESET);

   if(CopyClose(NULL,Timeframe,NumberofBar,to_copy,nClose)<to_copy)return(RESET);

//----   

   if(nOpen[0]>nClose[0])

     {

      P1=nHigh[0];

      P2=nLow[0];

     }

   else

     {

      P1=nLow[0];      

      P2=nHigh[0];

     }

   D1=nTime[0];

   D2=TimeCurrent();

//----

   if(!FiboLevelsPointChange(0,FIBO,0,D1,P1)) return(rates_total);

   if(!FiboLevelsPointChange(0,FIBO,1,D2,P2)) return(rates_total);    

//----

   ChartRedraw(0);

   return(rates_total);

  }

//+------------------------------------------------------------------+