GannZIGZAG_Fibo_Grand_x3_Stat_Full_Arr

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

//|                       GannZIGZAG_Fibo_Grand_x3_Stat_Full_Arr.mq5 |

//|                                        Copyright © 2005, Profi_R |

//|                                        http://www.metaquotes.net |

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

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

#property copyright "Copyright © 2005, Profi_R"

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

#property link "http://www.metaquotes.net"

#property description ""

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

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

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

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

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

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

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

#property indicator_buffers 21

//---- 8A?>;L7>20=> 2A53> 4204F0BL 3@0D8G5A:8E ?>AB@>5=89

#property indicator_plots   20

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

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

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

//---- 2 :0G5AB25 8=48:0B>@0 8A?>;L7>20= ZIGZAG

#property indicator_type20   DRAW_ZIGZAG

//---- 2 :0G5AB25 F25B0 8=48:0B>@0 8A?>;L7>20= A5@>-3>;C1>9 F25B

#property indicator_color20  clrMediumSlateBlue

//---- B>;I8=0 ;8=88 8=48:0B>@0 1 @02=0 4

#property indicator_width20  4

//---- >B>1@065=85 1KG59 <5B:8 8=48:0B>@0

#property indicator_label20  "GannZIGZAG"

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

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

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

input uint GSv_range=2;

input int Shift=0;                                  // A4283 7837030 ?> 3>@87>=B0;8 2 10@0E

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

uint    FiboTotal=1;                          //>;8G5AB2> 4>?>;=8B5;L=KE A5:B>@>2 $81> A25@EC 8;8 A=87C

//----

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

                                                   //input ENUM_LINE_STYLE StyleLevel1=STYLE_SOLID;      //AB8;L ;8=88 D81>C@>2=O 1

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

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

//----

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

                                                    //input ENUM_LINE_STYLE StyleLevel2=STYLE_SOLID;      //AB8;L ;8=88 D81>C@>2=O 2

input uint    WidthLevel2=1;                        //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.382;                    //7=0G5=85 D81>C@>2=O 3

                                                   //input ENUM_LINE_STYLE StyleLevel3=STYLE_DASH;       //AB8;L ;8=88 D81>C@>2=O 3

input uint    WidthLevel3=1;                        //B>;I8=0 ;8=88 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 ENUM_LINE_STYLE StyleLevel4=STYLE_SOLID;      //AB8;L ;8=88 D81>C@>2=O 4

input uint    WidthLevel4=2;                        //B>;I8=0 ;8=88 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 ENUM_LINE_STYLE StyleLevel5=STYLE_DASH;       //AB8;L ;8=88 D81>C@>2=O 5

input uint    WidthLevel5=1;                        //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.764;                     //7=0G5=85 D81>C@>2=O 6

                                                    //input ENUM_LINE_STYLE StyleLevel6=STYLE_SOLID;      //AB8;L ;8=88 D81>C@>2=O 6

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

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

//----

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

                                                  //input ENUM_LINE_STYLE StyleLevel7=STYLE_SOLID;      //AB8;L ;8=88 D81>C@>2=O 7

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

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

//----

input bool Fibo_AsRay=true;                         //>B@8A>2:0 ;CG0

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

#define FIBO_LINES_TOTAL_XN_FULL FIBO_LINES_TOTAL*(1+FiboTotal*2)-FiboTotal*2    // >=AB0=B0 4;O :>;8G5AB20 C@>2=59 D81>

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

double Values[];

color Colors[];

//ENUM_LINE_STYLE Styles[];

uint Widths[];

string FiboLineNames[];

//---- >1JO2;5=85 48=0<8G5A:8E <0AA82>2, :>B>@K5 1C4CB 2 40;L=59H5< 8A?>;L7>20=K 2 :0G5AB25 8=48:0B>@=KE 1CD5@>2

double HighestBuffer[];

double LowestBuffer[];

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

int min_rates_total;

//----

double h,l;

bool cur_h,cur_l;

bool draw_up,draw_dn,initfl;

int  fPoint_i,sPoint_i,s_up,s_dn,drawf,lb;

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

//|  0AA82K ?5@5<5==KE 4;O A>740=8O 8=48:0B>@=KE 1CD5@>2            |

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

class CIndicatorsBuffers

  {

public: double    ArrIndBuffer[];

  };

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

//| !>740=85 8=48:0B>@=KE 1CD5@>2                                    |

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

CIndicatorsBuffers Ind[];

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

//| Custom indicator initialization function                         |

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

int OnInit()

  {

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

   min_rates_total=10;

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

   SetIndexBuffer(19,LowestBuffer,INDICATOR_DATA);

   SetIndexBuffer(20,HighestBuffer,INDICATOR_DATA);

//---- 70?@5B =0 >B@8A>2:C 8=48:0B>@>< ?CABKE 7=0G5=89

   PlotIndexSetDouble(19,PLOT_EMPTY_VALUE,NULL);

//---- CAB0=>2:0 ?>78F88, A :>B>@>9 =0G8=05BAO >B@8A>2:0

   PlotIndexSetInteger(19,PLOT_DRAW_BEGIN,min_rates_total);

//---- >ACI5AB2;5=85 A42830 8=48:0B>@0 ?> 3>@87>=B0;8 =0 Shift

   PlotIndexSetInteger(19,PLOT_SHIFT,Shift);

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

   ArraySetAsSeries(LowestBuffer,true);

   ArraySetAsSeries(HighestBuffer,true);

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

   IndicatorSetString(INDICATOR_SHORTNAME,"GannZIGZAG_Fibo_Grand_x3_Stat_Full_Arr");

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

   IndicatorSetInteger(INDICATOR_DIGITS,_Digits);

//----

   ArrayResize(Values,FIBO_LINES_TOTAL_XN_FULL);

   ArrayResize(Colors,FIBO_LINES_TOTAL_XN_FULL);

   //ArrayResize(Styles,FIBO_LINES_TOTAL_XN_FULL);

   ArrayResize(Widths,FIBO_LINES_TOTAL_XN_FULL);

   ArrayResize(FiboLineNames,FIBO_LINES_TOTAL_XN_FULL);

   ArrayResize(Ind,FIBO_LINES_TOTAL_XN_FULL);

//----  

   Values[0]=FiboLevel1*FiboRatio;

   Values[1]=FiboLevel2*FiboRatio;

   Values[2]=FiboLevel3*FiboRatio;

   Values[3]=FiboLevel4*FiboRatio;

   Values[4]=FiboLevel5*FiboRatio;

   Values[5]=FiboLevel6*FiboRatio;

   Values[6]=FiboLevel7*FiboRatio;

//----  

   FiboLineNames[0]="FiboLevel "+DoubleToString(100*Values[0],1);

   FiboLineNames[1]="FiboLevel "+DoubleToString(100*Values[1],1);

   FiboLineNames[2]="FiboLevel "+DoubleToString(100*Values[2],1);

   FiboLineNames[3]="FiboLevel "+DoubleToString(100*Values[3],1);

   FiboLineNames[4]="FiboLevel "+DoubleToString(100*Values[4],1);

   FiboLineNames[5]="FiboLevel "+DoubleToString(100*Values[5],1);

   FiboLineNames[6]="FiboLevel "+DoubleToString(100*Values[6],1);

//----   

   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;

//----  

/* 

   Styles[0]=StyleLevel1;

   Styles[1]=StyleLevel2;

   Styles[2]=StyleLevel3;

   Styles[3]=StyleLevel4;

   Styles[4]=StyleLevel5;

   Styles[5]=StyleLevel6;

   Styles[6]=StyleLevel7;

*/

//----   

   Widths[0]=WidthLevel1;

   Widths[1]=WidthLevel2;

   Widths[2]=WidthLevel3;

   Widths[3]=WidthLevel4;

   Widths[4]=WidthLevel5;

   Widths[5]=WidthLevel6;

   Widths[6]=WidthLevel7;



   for(int count=1; count<=int(FiboTotal); count++)

      for(int lev=1; lev<7; lev++)

        {

         int kkk=lev+6*(2*count-1);

         Values[kkk]=Values[lev]+count;

         Colors[kkk]=Colors[lev];

         FiboLineNames[kkk]=FiboLineNames[lev];

         //Styles[kkk]=Styles[lev];

         Widths[kkk]=Widths[lev];

         //----

         kkk=lev+6*(2*count);

         Values[kkk]=-Values[7-lev]-count+1;

         FiboLineNames[kkk]="FiboLevel "+DoubleToString(100*Values[kkk],1);

         

         //Colors[kkk]=Colors[lev-1];

         Colors[kkk]=Colors[7-lev];

         //Styles[kkk]=Styles[lev-1];

         Widths[kkk]=Widths[lev-1];

        }

//---- 

   for(int numb=0; numb<int(FIBO_LINES_TOTAL_XN_FULL); numb++)

     {

      string shortname=FiboLineNames[numb];

      //--- 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(numb,PLOT_LABEL,shortname);

      //---- CAB0=>2:0 7=0G5=89 8=48:0B>@0, :>B>@K5 =5 1C4CB 2848<K =0 3@0D8:5

      PlotIndexSetDouble(numb,PLOT_EMPTY_VALUE,EMPTY_VALUE);

      //---- >ACI5AB2;5=85 A42830 =0G0;0 >BAGQB0 >B@8A>2:8 8=48:0B>@0

      PlotIndexSetInteger(numb,PLOT_DRAW_BEGIN,min_rates_total);

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

      SetIndexBuffer(numb,Ind[numb].ArrIndBuffer,INDICATOR_DATA);

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

      ArraySetAsSeries(Ind[numb].ArrIndBuffer,true);

      //---- :>?8@>20=85 A2>9AB2 ?5@2>9 ;8=88 8=48:0B>@0 4;O 2A5E >AB0;L=KE

      PlotIndexSetInteger(numb,PLOT_DRAW_TYPE,DRAW_ARROW);

      PlotIndexSetInteger(numb,PLOT_LINE_WIDTH,Widths[numb]);

      PlotIndexSetInteger(numb,PLOT_COLOR_INDEXES,1);

      PlotIndexSetInteger(numb,PLOT_LINE_COLOR,0,Colors[numb]);

      //---- 70?@5B =0 >B>1@065=85 7=0G5=89 8=48:0B>@0 2 ;52>< 25@E=5< C3;C >:=0 8=48:0B>@0

      PlotIndexSetInteger(numb,PLOT_SHOW_DATA,false);

     }

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

   return(INIT_SUCCEEDED);

  }

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

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

                )

  {

//---- ?@>25@:0 :>;8G5AB20 10@>2 =0 4>AB0B>G=>ABL 4;O @0AGQB0

   if(rates_total<min_rates_total) return(0);

//---- ?5@5@8A>2K205< $81> B>;L:> ?@8 A<5=5 10@0   

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



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

   ArraySetAsSeries(open,true);

   ArraySetAsSeries(high,true);

   ArraySetAsSeries(low,true);

   ArraySetAsSeries(close,true);

   ArraySetAsSeries(time,true);



//---- 1JO2;5=85 F5;KE ?5@5<5==KE

   int i,bar,bar1,limit,count;



//---- @0AGQBK AB0@B>2>3> =><5@0 limit 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

     {

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

      initfl=0;

      draw_up=0;

      draw_dn=0;

      cur_h=0;

      cur_l=0;

     }

   else

     {

      limit=rates_total-prev_calculated; // AB0@B>2K9 =><5@ 4;O @0AGQB0 =>2KE 10@>2

     }



//---- ?5@2>=0G0;L=0O 8=8F80;870F8O

   if(initfl!=1) myInit(rates_total,open,high,low,close);

   int bars2=rates_total-2;

   int bars1=rates_total-1;



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

   for(bar=limit; bar>=0 && !IsStopped(); bar--)

     {

      bar1=bar+1;

      count=bars1-bar;

      HighestBuffer[bar]=NULL;

      LowestBuffer[bar]=NULL;

      //---- 5A;8 =0 ?@54K4CI5< 10@5 1K; >B@8A>20= M:AB@5<C<

      if((HighestBuffer[bar1]>0 || LowestBuffer[bar1]>0) && lb!=count)

        {

         if(draw_up) s_dn=0;

         else if(draw_dn) s_up=0;

        }

      if(lb!=count)

        {

         cur_h=0;

         cur_l=0;

        }

      if(bar>bars2-drawf || (high[bar]<=high[bar1] && low[bar]>=low[bar1])) continue;

      if(draw_up)

        {

         //---- 5A;8 ;8=8O =0?@02;5=0 225@E

         if(high[bar]>h)

           {

            //---- 5A;8 4>AB83=CB =>2K9 <0:A8<C<

            h=high[bar];

            cur_h=1;

           }

         if(low[bar]<l)

           {

            //---- 5A;8 4>AB83=CB =>2K9 <8=8<C<

            l=low[bar];

            //---- 5A;8 MB> =5 B>B 65 A0<K9 10@

            if(lb!=count || cur_l!=1)s_dn++;

            cur_l=1;

           }

         //---- 5A;8 AG5BG8:8 @02=K

         if(s_up==s_dn)

           {

            //---- 5A;8 ?>A;54=89 10@ >4=>2@5<5==> =>2K9 <0:A8<C< 8 <8=8<C<

            if(cur_h==cur_l && cur_l==1)

              {

               //---- 5A;8 A25G0 <54256LO

               if(close[bar]<=open[bar])

                 {

                  draw_up=0;

                  draw_dn=1;

                  fPoint_i=sPoint_i;

                  sPoint_i=count;

                  LowestBuffer[bar]=l;

                  for(i=bars2-fPoint_i; i>bar; i--)

                    {

                     HighestBuffer[i]=NULL;

                     LowestBuffer[i]=NULL;

                    }

                 }

               else

                 {

                  //---- 5A;8 A25G0 1KGLO

                  sPoint_i=count;

                  HighestBuffer[bar]=h;

                  for(i=bars2-fPoint_i; i>bar; i--)

                    {

                     HighestBuffer[i]=NULL;

                     LowestBuffer[i]=NULL;

                    }

                 }

              }

            else

              {

               //---- 5A;8 ?>A;54=89 10@ B>;L:> =>2K9 <0:A8<C<

               if(cur_h==1)

                 {

                  sPoint_i=count;

                  HighestBuffer[bar]=h;

                  l=low[bar];

                  for(i=bars2-fPoint_i; i>bar; i--)

                    {

                     HighestBuffer[i]=NULL;

                     LowestBuffer[i]=NULL;

                    }

                 }

               else

                 {

                  if(cur_l==1)

                    {

                     //---- 5A;8 ?>A;54=89 10@ B>;L:> =>2K9 <8=8<C<

                     draw_up=0;

                     draw_dn=1;

                     fPoint_i=sPoint_i;

                     sPoint_i=count;

                     LowestBuffer[bar]=l;

                     h=high[bar];

                     for(i=bars2-fPoint_i; i>bar; i--)

                       {

                        HighestBuffer[i]=NULL;

                        LowestBuffer[i]=NULL;

                       }

                    }

                 }

              }

           }

         else

           {

            //---- 8=0G5 5A;8 A<5=K =0?@02;5=8O =5B O2=> (AG5BG8: Dn A25G59 =5 @025= GSv_range)

            //---- 5A;8 4>AB83=CB =>2K9 <0:A8<C<

            if(cur_h==1)

              {

               sPoint_i=count;

               HighestBuffer[bar]=h;

               for(i=bars2-fPoint_i; i>bar; i--)

                 {

                  HighestBuffer[i]=NULL;

                  LowestBuffer[i]=NULL;

                 }

               l=low[bar];

              }

           }

        }

      else

        {

         //---- 5A;8 ;8=8O =0?@02;5=0 2=87

         if(high[bar]>h)

           {

            //---- 5A;8 4>AB83=CB =>2K9 <0:A8<C<

            h=high[bar];

            if(lb!=count || cur_h!=1) s_up++;

            cur_h=1;

            //---- 5A;8 MB> =5 B>B 65 A0<K9 10@

           }

         if(low[bar]<l)

           {

            //---- 5A;8 4>AB83=CB =>2K9 <8=8<C<

            l=low[bar];

            cur_l=1;

           }

         //---- 5A;8 AG5BG8:8 @02=K 

         if(s_up==s_dn)

           {

            //---- 5A;8 ?>A;54=89 10@ >4=>2@5<5==> =>2K9 <0:A8<C< 8 <8=8<C<

            if(cur_h==cur_l && cur_l==1)

              {

               //---- 5A;8 A25G0 <54256LO

               if(close[bar]<=open[bar])

                 {

                  sPoint_i=count;

                  LowestBuffer[bar]=l;

                  for(i=bars2-fPoint_i; i>bar; i--)

                    {

                     HighestBuffer[i]=NULL;

                     LowestBuffer[i]=NULL;

                    }

                 }

               else

                 {

                  //---- 5A;8 A25G0 1KGLO

                  draw_up=1;

                  draw_dn=0;

                  fPoint_i=sPoint_i;

                  sPoint_i=count;

                  HighestBuffer[bar]=h;

                  for(i=bars2-fPoint_i; i>bar; i--)

                    {

                     HighestBuffer[i]=NULL;

                     LowestBuffer[i]=NULL;

                    }

                 }

              }

            else

              {

               //---- 5A;8 ?>A;54=89 10@ B>;L:> =>2K9 <0:A8<C<

               if(cur_h==1)

                 {

                  draw_up=1;

                  draw_dn=0;

                  fPoint_i=sPoint_i;

                  sPoint_i=count;

                  HighestBuffer[bar]=h;

                  l=low[bar];

                  for(i=bars2-fPoint_i; i>bar; i--)

                    {

                     HighestBuffer[i]=NULL;

                     LowestBuffer[i]=NULL;

                    }

                 }

               else

                 {

                  if(cur_l==1)

                    {

                     //---- 5A;8 ?>A;54=89 10@ B>;L:> =>2K9 <8=8<C<

                     sPoint_i=count;

                     LowestBuffer[bar]=l;

                     h=high[bar];

                     for(i=bars2-fPoint_i; i>bar; i--)

                       {

                        HighestBuffer[i]=NULL;

                        LowestBuffer[i]=NULL;

                       }

                    }

                 }

              }

           }

         else

           {

            //---- 8=0G5 5A;8 A<5=K =0?@02;5=8O =5B O2=> (AG5BG8: Up A25G59 =5 @025= GSv_range)

            //---- 5A;8 4>AB83=CB =>2K9 <8=8<C<

            if(cur_l==1)

              {

               sPoint_i=count;

               LowestBuffer[bar]=l;

               for(i=bars2-fPoint_i; i>bar; i--)

                 {

                  HighestBuffer[i]=NULL;

                  LowestBuffer[i]=NULL;

                 }

               h=high[bar];

              }

           }

        }

      if(lb!=count) lb=count;

     }



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

   for(bar=limit; bar>=0 && !IsStopped(); bar--)

     {

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

      int bar2,sign;

      double price1,price2;

      //---- >AB@>5=85 $81>

      bar1=FindFirstExtremum(bar,rates_total,HighestBuffer,LowestBuffer,sign,price1);

      bar1=FindSecondExtremum(sign,bar1,rates_total,HighestBuffer,LowestBuffer,sign,price1);

      bar2=FindSecondExtremum(sign,bar1,rates_total,HighestBuffer,LowestBuffer,sign,price2);      

      double range=price1-price2;

      

      for(int numb=0; numb<int(FIBO_LINES_TOTAL_XN_FULL); numb++)

       for(int index=bar1; index>=bar && !IsStopped(); index--) Ind[numb].ArrIndBuffer[index]=price2+range*Values[numb];

       Print(Ind[0].ArrIndBuffer[0]);

     }

//----    

   return(rates_total);

  }

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

// $C=:F8O =0G0;L=>9 8=8F80;870F88 8=48:0B>@0                        |

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

void myInit(

            const int bars,

            const double &Open[],

            const double &High[],

            const double &Low[],

            const double &Close[])

  {

//---- 

   int index,index1;

   int bars1=bars-1;

   fPoint_i=0;

   h=High[bars1];

   l=Low[bars1];

   for(index=bars-2; index>=0; index--)

     {

      index1=index+1;

      if(High[index]>High[index1] || Low[index]<Low[index1])

        {

         if(High[index]>h && High[index]>High[index1]) s_up++;

         if(Low[index]<l && Low[index]<Low[index1]) s_dn++;

        }

      else continue;

      if(s_up==s_dn && s_up==GSv_range)

        {

         h=High[index];

         l=Low[index];

         sPoint_i=bars1-index;

         if(Close[index]>=Open[index])

           {

            s_dn=0;

            LowestBuffer[bars1]=Low[bars1];

            HighestBuffer[index]=High[index];

            draw_up=1;

            break;

           }

         else

           {

            s_up=0;

            HighestBuffer[bars1]=High[bars1];

            LowestBuffer[index]=Low[index];

            draw_dn=1;

            break;

           }

        }

      else

        {

         h=High[index];

         l=Low[index];

         sPoint_i=bars1-index;

         if(s_up==GSv_range)

           {

            s_dn=0;

            LowestBuffer[bars1]=Low[bars1];

            HighestBuffer[index]=High[index];

            draw_up=1;

            break;

           }

         else

           {

            if(s_dn==GSv_range)

              {

               s_up=0;

               HighestBuffer[bars1]=High[bars1];

               LowestBuffer[index]=Low[index];

               draw_dn=1;

               break;

              }

           }

        }

     }

   initfl=1;

   drawf=sPoint_i;

//----

  }

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

//| >8A: A0<>9 ?5@2>9 25@H8=K 837030 2 1CD5@0E B09<A5@8OE          |

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

int FindFirstExtremum(int &StartPos,int Rates_total,double &UpArray[],double &DnArray[],int &Sign,double &Extremum)

  {

//----

   if(StartPos>=Rates_total)StartPos=Rates_total-1;



   for(int bar=StartPos; bar<Rates_total; bar++)

     {

      if(UpArray[bar]!=0.0 && UpArray[bar]!=EMPTY_VALUE)

        {

         Sign=+1;

         Extremum=UpArray[bar];

         return(bar);

         break;

        }



      if(DnArray[bar]!=0.0 && DnArray[bar]!=EMPTY_VALUE)

        {

         Sign=-1;

         Extremum=DnArray[bar];

         return(bar);

         break;

        }

     }

//----

   return(-1);

  }

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

//| >8A: 2B>@>9 25@H8=K 837030 2 1CD5@0E B09<A5@8OE                |

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

int FindSecondExtremum(int Direct,int &StartPos,int Rates_total,double &UpArray[],double &DnArray[],int &Sign,double &Extremum)

  {

//----

   if(StartPos>=Rates_total) StartPos=Rates_total-1;



   if(Direct==-1)

      for(int bar=StartPos; bar<Rates_total; bar++)

        {

         if(UpArray[bar]!=0.0 && UpArray[bar]!=EMPTY_VALUE)

           {

            Sign=+1;

            Extremum=UpArray[bar];

            return(bar);

            break;

           }



        }



   if(Direct==+1)

      for(int bar=StartPos; bar<Rates_total; bar++)

        {

         if(DnArray[bar]!=0.0 && DnArray[bar]!=EMPTY_VALUE)

           {

            Sign=-1;

            Extremum=DnArray[bar];

            return(bar);

            break;

           }

        }

//----

   return(-1);

  }

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