SupremAutoFibo_Grand_Full_Arr

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

//|                                SupremAutoFibo_Grand_Full_Arr.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"

//---- >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 8A?>;L7>20=> 19 1CD5@>2

#property indicator_buffers 19

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

#property indicator_plots   19

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

//|  >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

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

//|  0@0<5B@K >B@8A>2:8 8=48:0B>@>2  |

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

//--- plot buffer 1

#property indicator_label1  "FiboLevel 1"

#property indicator_type1   DRAW_ARROW

//--- plot buffer 2

#property indicator_label2  "FiboLevel 2"

#property indicator_type2   DRAW_ARROW

//--- plot buffer 3

#property indicator_label3  "FiboLevel 3"

#property indicator_type3   DRAW_ARROW

//--- plot buffer 4

#property indicator_label4  "FiboLevel 4"

#property indicator_type4   DRAW_ARROW

//--- plot buffer 5

#property indicator_label5  "FiboLevel 5"

#property indicator_type5   DRAW_ARROW

//--- plot buffer 6

#property indicator_label6  "FiboLevel 6"

#property indicator_type6   DRAW_ARROW

//--- plot buffer 7

#property indicator_label7  "FiboLevel 7"

#property indicator_type7   DRAW_ARROW

//--- plot buffer 8

#property indicator_label8  "FiboLevel 8"

#property indicator_type8   DRAW_ARROW

//--- plot buffer 9

#property indicator_label9  "FiboLevel 9"

#property indicator_type9   DRAW_ARROW

//--- plot buffer 10

#property indicator_label10  "FiboLevel 10"

#property indicator_type10   DRAW_ARROW

//--- plot buffer 11

#property indicator_label11  "FiboLevel 11"

#property indicator_type11   DRAW_ARROW

//--- plot buffer 12

#property indicator_label12  "FiboLevel 12"

#property indicator_type12   DRAW_ARROW

//--- plot buffer 13

#property indicator_label13  "FiboLevel 13"

#property indicator_type13   DRAW_ARROW

//--- plot buffer 13

#property indicator_label14  "FiboLevel 14"

#property indicator_type14   DRAW_ARROW

//--- plot buffer 15

#property indicator_label15  "FiboLevel 15"

#property indicator_type15   DRAW_ARROW

//--- plot buffer 16

#property indicator_label16  "FiboLevel 16"

#property indicator_type16   DRAW_ARROW

//--- plot buffer 17

#property indicator_label17  "FiboLevel 17"

#property indicator_type17   DRAW_ARROW

//--- plot buffer 18

#property indicator_label18  "FiboLevel 18"

#property indicator_type18   DRAW_ARROW

//--- plot buffer 19

#property indicator_label19  "FiboLevel 19"

#property indicator_type19   DRAW_ARROW

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

//|  %+  " + "      |

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

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

input double  FiboRatio =1.000;                     //>MDD8F85=B 4><=>65=8O 2A5E D81>C@>2=59

input double  FiboLevelsShift=0.000;                //!4283 ?> 25@B8:0;8 2A5E D81>C@>2=59 2 $810E >B =C;52>3> C@>2=O

input uint   nPeriod=30;                            //>;8G5AB2> 10@>2 4;O ?>8A:0 M:AB@5<C<>2

//----

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

input uint   WidthLevel1=3;                         //B>;I8=0 ;8=88 D81>C@>2=O 1

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

//----

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

input uint    WidthLevel2=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 2

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

//----

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

input uint    WidthLevel3=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 3

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

//----

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

input uint    WidthLevel4=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 4

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

//----  

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

input uint    WidthLevel5=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 5

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

//----

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

input uint    WidthLevel6=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 6

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

//----

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

input uint    WidthLevel7=3;                        //B>;I8=0 ;8=88 D81>C@>2=O 7

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

//----

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

input uint    WidthLevel8=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 8

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

//----

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

input uint    WidthLevel9=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 9

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

//---- 

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

input uint    WidthLevel10=2;                       //B>;I8=0 ;8=88 D81>C@>2=O 10

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

//----

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

input uint    WidthLevel11=2;                       //B>;I8=0 ;8=88 D81>C@>2=O 11

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

//----

input double  FiboLevel12=0.764;                    //7=0G5=85 D81>C@>2=O 12

input uint    WidthLevel12=2;                       //B>;I8=0 ;8=88 D81>C@>2=O 12

input color   Color_Level12 = clrGray;              //F25B D81>C@>2=O 12

//----

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

input uint   WidthLevel13=3;                         //B>;I8=0 ;8=88 D81>C@>2=O 13

input color  Color_Level13 = clrOrange;              //F25B D81>C@>2=O 13

//----

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

input uint    WidthLevel14=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 14

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

//----

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

input uint    WidthLevel15=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 15

input color   Color_Level15 = clrMagenta;            //F25B D81>C@>2=O 15

//----

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

input uint    WidthLevel16=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 16

input color   Color_Level16 = clrMediumSeaGreen;     //F25B D81>C@>2=O 16

//----  

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

input uint    WidthLevel17=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 17

input color   Color_Level17 = clrBlue;               //F25B D81>C@>2=O 17

//----

input double  FiboLevel18=1.764;                     //7=0G5=85 D81>C@>2=O 18

input uint    WidthLevel18=2;                        //B>;I8=0 ;8=88 D81>C@>2=O 18

input color   Color_Level18 = clrGray;               //F25B D81>C@>2=O 18

//----

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

input uint    WidthLevel19=3;                        //B>;I8=0 ;8=88 D81>C@>2=O 19

input color   Color_Level19 = clrOrange;             //F25B D81>C@>2=O 19

//----

input int Shift=0;                                   //!4283 8=48:0B>@0 ?> 3>@87>=B0;8 2 10@0E

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

//--- indicator buffers

double Buffer1[];

double Buffer2[];

double Buffer3[];

double Buffer4[];

double Buffer5[];

double Buffer6[];

double Buffer7[];

double Buffer8[];

double Buffer9[];

double Buffer10[];

double Buffer11[];

double Buffer12[];

double Buffer13[];

double Buffer14[];

double Buffer15[];

double Buffer16[];

double Buffer17[];

double Buffer18[];

double Buffer19[];

//---- 1JO2;5=85 F5;KE ?5@5<5==KE =0G0;0 >BAGQB0 40==KE

int min_rates_total;

double nHigh[],nLow[];

datetime nTime[1];

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

//| >;CG5=85 B09<D@59<0 2 2845 AB@>:8                               |

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

string GetStringTimeframe(ENUM_TIMEFRAMES timeframe)

  {return(StringSubstr(EnumToString(timeframe),7,-1));}

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

//| Custom indicator initialization function                         |

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

int OnInit()

  {

//--- =8F80;870F8O ?5@5<5==KE =0G0;0 >BAGQB0 40==KE

   min_rates_total=int(3+nPeriod*PeriodSeconds(Timeframe)/PeriodSeconds(PERIOD_CURRENT))+1;

//--- @0A?@545;5=85 ?0<OB8 ?>4 <0AA82K ?5@5<5==KE   

   ArrayResize(nHigh,nPeriod);

   ArrayResize(nLow,nPeriod);

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

   ArraySetAsSeries(nHigh,true);

   ArraySetAsSeries(nLow,true);

//---- ?@52@0I5=85 48=0<8G5A:8E <0AA82>2 2 8=48:0B>@=K5 1CD5@K

   SetIndexBuffer(0,Buffer1,INDICATOR_DATA);

   SetIndexBuffer(1,Buffer2,INDICATOR_DATA);

   SetIndexBuffer(2,Buffer3,INDICATOR_DATA);

   SetIndexBuffer(3,Buffer4,INDICATOR_DATA);

   SetIndexBuffer(4,Buffer5,INDICATOR_DATA);

   SetIndexBuffer(5,Buffer6,INDICATOR_DATA);

   SetIndexBuffer(6,Buffer7,INDICATOR_DATA);

   SetIndexBuffer(7,Buffer8,INDICATOR_DATA);

   SetIndexBuffer(8,Buffer9,INDICATOR_DATA);

   SetIndexBuffer(9,Buffer10,INDICATOR_DATA);

   SetIndexBuffer(10,Buffer11,INDICATOR_DATA);

   SetIndexBuffer(11,Buffer12,INDICATOR_DATA);

   SetIndexBuffer(12,Buffer13,INDICATOR_DATA);

   SetIndexBuffer(13,Buffer14,INDICATOR_DATA);

   SetIndexBuffer(14,Buffer15,INDICATOR_DATA);

   SetIndexBuffer(15,Buffer16,INDICATOR_DATA);

   SetIndexBuffer(16,Buffer17,INDICATOR_DATA);

   SetIndexBuffer(17,Buffer18,INDICATOR_DATA);

   SetIndexBuffer(18,Buffer19,INDICATOR_DATA);

//--- ">;I8=0 ;8=89

   PlotIndexSetInteger(0,PLOT_LINE_WIDTH,WidthLevel1);

   PlotIndexSetInteger(1,PLOT_LINE_WIDTH,WidthLevel2);

   PlotIndexSetInteger(2,PLOT_LINE_WIDTH,WidthLevel3);

   PlotIndexSetInteger(3,PLOT_LINE_WIDTH,WidthLevel4);

   PlotIndexSetInteger(4,PLOT_LINE_WIDTH,WidthLevel5);

   PlotIndexSetInteger(5,PLOT_LINE_WIDTH,WidthLevel6);

   PlotIndexSetInteger(6,PLOT_LINE_WIDTH,WidthLevel7);

   PlotIndexSetInteger(7,PLOT_LINE_WIDTH,WidthLevel8);

   PlotIndexSetInteger(8,PLOT_LINE_WIDTH,WidthLevel9);

   PlotIndexSetInteger(9,PLOT_LINE_WIDTH,WidthLevel10);

   PlotIndexSetInteger(10,PLOT_LINE_WIDTH,WidthLevel11);

   PlotIndexSetInteger(11,PLOT_LINE_WIDTH,WidthLevel12);

   PlotIndexSetInteger(12,PLOT_LINE_WIDTH,WidthLevel13);

   PlotIndexSetInteger(13,PLOT_LINE_WIDTH,WidthLevel14);

   PlotIndexSetInteger(14,PLOT_LINE_WIDTH,WidthLevel15);

   PlotIndexSetInteger(15,PLOT_LINE_WIDTH,WidthLevel16);

   PlotIndexSetInteger(16,PLOT_LINE_WIDTH,WidthLevel17);

   PlotIndexSetInteger(17,PLOT_LINE_WIDTH,WidthLevel18);

   PlotIndexSetInteger(18,PLOT_LINE_WIDTH,WidthLevel19);

//--- ">;I8=0 ;8=89

   PlotIndexSetInteger(0,PLOT_LINE_COLOR,Color_Level1);

   PlotIndexSetInteger(1,PLOT_LINE_COLOR,Color_Level2);

   PlotIndexSetInteger(2,PLOT_LINE_COLOR,Color_Level3);

   PlotIndexSetInteger(3,PLOT_LINE_COLOR,Color_Level4);

   PlotIndexSetInteger(4,PLOT_LINE_COLOR,Color_Level5);

   PlotIndexSetInteger(5,PLOT_LINE_COLOR,Color_Level6);

   PlotIndexSetInteger(6,PLOT_LINE_COLOR,Color_Level7);

   PlotIndexSetInteger(7,PLOT_LINE_COLOR,Color_Level8);

   PlotIndexSetInteger(8,PLOT_LINE_COLOR,Color_Level9);

   PlotIndexSetInteger(9,PLOT_LINE_COLOR,Color_Level10);

   PlotIndexSetInteger(10,PLOT_LINE_COLOR,Color_Level11);

   PlotIndexSetInteger(11,PLOT_LINE_COLOR,Color_Level12);

   PlotIndexSetInteger(12,PLOT_LINE_COLOR,Color_Level13);

   PlotIndexSetInteger(13,PLOT_LINE_COLOR,Color_Level14);

   PlotIndexSetInteger(14,PLOT_LINE_COLOR,Color_Level15);

   PlotIndexSetInteger(15,PLOT_LINE_COLOR,Color_Level16);

   PlotIndexSetInteger(16,PLOT_LINE_COLOR,Color_Level17);

   PlotIndexSetInteger(17,PLOT_LINE_COLOR,Color_Level18);

   PlotIndexSetInteger(18,PLOT_LINE_COLOR,Color_Level19);

//--- !4283 ;8=89 ?> >A8 2@5<5=8

   PlotIndexSetInteger(0,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(1,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(2,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(3,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(4,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(5,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(6,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(7,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(8,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(9,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(10,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(11,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(12,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(13,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(14,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(15,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(16,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(17,PLOT_SHIFT,Shift);

   PlotIndexSetInteger(18,PLOT_SHIFT,Shift);

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

   PlotIndexSetString(0,PLOT_LABEL,"Level1 "+DoubleToString(FiboLevel1,3));

   PlotIndexSetString(1,PLOT_LABEL,"Level2 "+DoubleToString(FiboLevel2,3));

   PlotIndexSetString(2,PLOT_LABEL,"Level3 "+DoubleToString(FiboLevel3,3));

   PlotIndexSetString(3,PLOT_LABEL,"Level4 "+DoubleToString(FiboLevel4,3));

   PlotIndexSetString(4,PLOT_LABEL,"Level5 "+DoubleToString(FiboLevel5,3));

   PlotIndexSetString(5,PLOT_LABEL,"Level6 "+DoubleToString(FiboLevel6,3));

   PlotIndexSetString(6,PLOT_LABEL,"Level7 "+DoubleToString(FiboLevel7,3));

   PlotIndexSetString(7,PLOT_LABEL,"Level8 "+DoubleToString(FiboLevel8,3));

   PlotIndexSetString(8,PLOT_LABEL,"Level9 "+DoubleToString(FiboLevel9,3));

   PlotIndexSetString(9,PLOT_LABEL,"Level10 "+DoubleToString(FiboLevel10,3));

   PlotIndexSetString(10,PLOT_LABEL,"Level11 "+DoubleToString(FiboLevel11,3));

   PlotIndexSetString(11,PLOT_LABEL,"Level12 "+DoubleToString(FiboLevel12,3));

   PlotIndexSetString(12,PLOT_LABEL,"Level13 "+DoubleToString(FiboLevel13,3));

   PlotIndexSetString(13,PLOT_LABEL,"Level14 "+DoubleToString(FiboLevel14,3));

   PlotIndexSetString(14,PLOT_LABEL,"Level15 "+DoubleToString(FiboLevel15,3));

   PlotIndexSetString(15,PLOT_LABEL,"Level16 "+DoubleToString(FiboLevel16,3));

   PlotIndexSetString(16,PLOT_LABEL,"Level17 "+DoubleToString(FiboLevel17,3));

   PlotIndexSetString(17,PLOT_LABEL,"Level18 "+DoubleToString(FiboLevel18,3));

   PlotIndexSetString(18,PLOT_LABEL,"Level19 "+DoubleToString(FiboLevel19,3));

//---- A8<2>; 4;O 8=48:0B>@0

   PlotIndexSetInteger(0,PLOT_ARROW,167);

   PlotIndexSetInteger(1,PLOT_ARROW,160);

   PlotIndexSetInteger(2,PLOT_ARROW,160);

   PlotIndexSetInteger(3,PLOT_ARROW,167);

   PlotIndexSetInteger(4,PLOT_ARROW,160);

   PlotIndexSetInteger(5,PLOT_ARROW,160);

   PlotIndexSetInteger(6,PLOT_ARROW,167);

   PlotIndexSetInteger(7,PLOT_ARROW,160);

   PlotIndexSetInteger(9,PLOT_ARROW,167);

   PlotIndexSetInteger(10,PLOT_ARROW,160);

   PlotIndexSetInteger(11,PLOT_ARROW,160);

   PlotIndexSetInteger(12,PLOT_ARROW,167);

   PlotIndexSetInteger(13,PLOT_ARROW,160);

   PlotIndexSetInteger(14,PLOT_ARROW,160);

   PlotIndexSetInteger(15,PLOT_ARROW,167);

   PlotIndexSetInteger(16,PLOT_ARROW,160);

   PlotIndexSetInteger(17,PLOT_ARROW,160);

   PlotIndexSetInteger(18,PLOT_ARROW,167);

//---   

   IndicatorSetInteger(INDICATOR_DIGITS,_Digits);

   IndicatorSetString(INDICATOR_SHORTNAME,"SupremAutoFibo_Grand_Full_Arr("+GetStringTimeframe(Timeframe)+")");

//---

   return(0);

  }

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

//| 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[])

  {

//--- check for data

   if(rates_total<min_rates_total) return(0);

   if(prev_calculated==rates_total) return(rates_total);



//---- >1JO2;5=8O ;>:0;L=KE ?5@5<5==KE 

   int first,bar;

   double P1,P2;

   static datetime nTime_prev;



//---- @0AGQB AB0@B>2>3> =><5@0 first 4;O F8:;0 ?5@5AGQB0 10@>2

   if(prev_calculated>rates_total || prev_calculated<=0) // ?@>25@:0 =0 ?5@2K9 AB0@B @0AGQB0 8=48:0B>@0

     {

      first=min_rates_total-1; // AB0@B>2K9 =><5@ 4;O @0AGQB0 2A5E 10@>2

      nTime_prev=NULL;

      for(int index=0; index<=min_rates_total; index++)

        {

         Buffer1[index]=EMPTY_VALUE;

         Buffer2[index]=EMPTY_VALUE;

         Buffer3[index]=EMPTY_VALUE;

         Buffer4[index]=EMPTY_VALUE;

         Buffer5[index]=EMPTY_VALUE;

         Buffer6[index]=EMPTY_VALUE;

         Buffer7[index]=EMPTY_VALUE;

         Buffer8[index]=EMPTY_VALUE;

         Buffer9[index]=EMPTY_VALUE;

         Buffer10[index]=EMPTY_VALUE;

         Buffer11[index]=EMPTY_VALUE;

         Buffer12[index]=EMPTY_VALUE;

         Buffer13[index]=EMPTY_VALUE;

         Buffer14[index]=EMPTY_VALUE;

         Buffer15[index]=EMPTY_VALUE;

         Buffer16[index]=EMPTY_VALUE;

         Buffer17[index]=EMPTY_VALUE;

         Buffer18[index]=EMPTY_VALUE;

         Buffer19[index]=EMPTY_VALUE;

        }

     }

   else first=prev_calculated-1; // AB0@B>2K9 =><5@ 4;O @0AGQB0 =>2KE 10@>2



//---- >A=>2=>9 F8:; @0AGQB0 8=48:0B>@0

   for(bar=first; bar<rates_total && !IsStopped(); bar++)

     {

      //----

      int to_copy=1;

      if(CopyTime(NULL,Timeframe,time[bar],to_copy,nTime)<to_copy)return(RESET);

      

      to_copy=int(nPeriod);

      if(nTime[0]!=nTime_prev)

        {

         if(CopyHigh(NULL,Timeframe,time[bar],to_copy,nHigh)<to_copy)return(RESET);

         if(CopyLow(NULL,Timeframe,time[bar],to_copy,nLow)<to_copy)return(RESET);

         nTime_prev=nTime[0];

        }

      //----

      int hbar=ArrayMaximum(nHigh,0,nPeriod);

      int lbar=ArrayMinimum(nLow,0,nPeriod);

      //----  

      int trend=+1; 

      if(lbar<=hbar)

        {

         P1=nHigh[hbar];

         P2=nLow[lbar];

         trend=-1;

        }

      else

        {

         P1=nLow[lbar];

         P2=nHigh[hbar];

         trend=+1;

        }

      //----      

      double range=nHigh[hbar]-nLow[lbar];

      if(trend>0) P2=nHigh[hbar];

      else P2=nLow[lbar];

      //---- 

      double vertSfift=range*FiboLevelsShift;

      P2+=vertSfift;

      //----

      Buffer1[bar]=P2-range*FiboLevel1*FiboRatio*trend;

      Buffer2[bar]=P2-range*FiboLevel2*FiboRatio*trend;

      Buffer3[bar]=P2-range*FiboLevel3*FiboRatio*trend;

      Buffer4[bar]=P2-range*FiboLevel4*FiboRatio*trend;

      Buffer5[bar]=P2-range*FiboLevel5*FiboRatio*trend;

      Buffer6[bar]=P2-range*FiboLevel6*FiboRatio*trend;

      Buffer7[bar]=P2-range*FiboLevel7*FiboRatio*trend;

      Buffer8[bar]=P2-range*FiboLevel8*FiboRatio*trend;

      Buffer9[bar]=P2-range*FiboLevel9*FiboRatio*trend;

      Buffer10[bar]=P2-range*FiboLevel10*FiboRatio*trend;

      Buffer11[bar]=P2-range*FiboLevel11*FiboRatio*trend;

      Buffer12[bar]=P2-range*FiboLevel12*FiboRatio*trend;

      Buffer13[bar]=P2-range*FiboLevel13*FiboRatio*trend;

      Buffer14[bar]=P2-range*FiboLevel14*FiboRatio*trend;

      Buffer15[bar]=P2-range*FiboLevel15*FiboRatio*trend;

      Buffer16[bar]=P2-range*FiboLevel16*FiboRatio*trend;

      Buffer17[bar]=P2-range*FiboLevel17*FiboRatio*trend;

      Buffer18[bar]=P2-range*FiboLevel18*FiboRatio*trend;

      Buffer19[bar]=P2-range*FiboLevel19*FiboRatio*trend;

     }

//---

   return(rates_total);

  }

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