KiS_max_min_Avg

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

//|                                              KiS_max_min_Avg.mq5 | 

//|                                           Copyright © 2009, KCBT | 

//|                                                                  | 

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

#property copyright "Copyright © 2009, KCBT"

#property link ""

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

#property version   "1.10"

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

#property indicator_chart_window 

//---- :>;8G5AB2> 8=48:0B>@=KE 1CD5@>2 9

#property indicator_buffers 9 

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

#property indicator_plots   5

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

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

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

//---- >B@8A>2:0 8=48:0B>@0 2 2845 F25B=>3> >1;0:0

#property indicator_type1   DRAW_FILLING

//---- 2 :0G5AB25 F25B0 >1;0:0 8A?>;L7>20=

#property indicator_color1  clrTurquoise

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

#property indicator_label1  "Upper Cloud"

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

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

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

//---- >B@8A>2:0 8=48:0B>@0 2 2845 F25B=>3> >1;0:0

#property indicator_type2   DRAW_FILLING

//---- 2 :0G5AB25 F25B0 >1;0:0 8A?>;L7>20=

#property indicator_color2  clrOrchid

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

#property indicator_label2  "Lower Cloud"

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

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

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

//---- >B@8A>2:0 8=48:0B>@0 2 2845 ;8=88

#property indicator_type3   DRAW_LINE

//---- 2 :0G5AB25 F25B0 ;8=88 8=48:0B>@0 8A?>;L7>20= 75;Q=K9 F25B

#property indicator_color3 clrGreen

//---- ;8=8O 8=48:0B>@0 - =5?@5@K2=0O :@820O

#property indicator_style3  STYLE_SOLID

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

#property indicator_width3  1

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

#property indicator_label3  "Upper PC Channel"

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

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

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

//---- >B@8A>2:0 8=48:0B>@0 2 2845 ;8=88

#property indicator_type4   DRAW_COLOR_LINE

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

#property indicator_color4 clrBlue,clrRed

//---- ;8=8O 8=48:0B>@0 - =5?@5@K2=0O :@820O

#property indicator_style4  STYLE_SOLID

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

#property indicator_width4  3

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

#property indicator_label4  "Middle PC Channel"

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

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

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

//---- >B@8A>2:0 8=48:0B>@0 2 2845 ;8=88

#property indicator_type5   DRAW_LINE

//---- 2 :0G5AB25 F25B0 ;8=88 8=48:0B>@0 8A?>;L7>20= @>7>2K9 F25B

#property indicator_color5 clrMagenta

//---- ;8=8O 8=48:0B>@0 - =5?@5@K2=0O :@820O

#property indicator_style5  STYLE_SOLID

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

#property indicator_width5  1

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

#property indicator_label5  "Lower PC Channel"

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

//|  %+  " + "      |

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

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

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

//---- >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 UpperBuffer[],MiddleBuffer[],ColorMiddleBuffer[],LowerBuffer[];

double UpBuffer1[],UpBuffer2[],DnBuffer1[],DnBuffer2[];

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

int min_rates_total;

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

//| Custom indicator indicator initialization function               | 

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

void OnInit()

  {

//---- =8F80;870F8O :>=AB0=B

   min_rates_total=2;



//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 8=48:0B>@=K9 1CD5@

   SetIndexBuffer(0,UpBuffer2,INDICATOR_DATA);

//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 8=48:0B>@=K9 1CD5@

   SetIndexBuffer(1,UpBuffer1,INDICATOR_DATA);

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

   PlotIndexSetInteger(0,PLOT_SHIFT,Shift);

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

   PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total);

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

   PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,EMPTY_VALUE);



//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 8=48:0B>@=K9 1CD5@

   SetIndexBuffer(2,DnBuffer1,INDICATOR_DATA);

//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 8=48:0B>@=K9 1CD5@

   SetIndexBuffer(3,DnBuffer2,INDICATOR_DATA);

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

   PlotIndexSetInteger(1,PLOT_SHIFT,Shift);

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

   PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total);

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

   PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,EMPTY_VALUE);



//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 8=48:0B>@=K9 1CD5@

   SetIndexBuffer(4,UpperBuffer,INDICATOR_DATA);

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

   PlotIndexSetInteger(2,PLOT_SHIFT,Shift);

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

   PlotIndexSetInteger(2,PLOT_DRAW_BEGIN,min_rates_total);

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

   PlotIndexSetDouble(2,PLOT_EMPTY_VALUE,EMPTY_VALUE);



//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 8=48:0B>@=K9 1CD5@

   SetIndexBuffer(5,MiddleBuffer,INDICATOR_DATA);

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

   PlotIndexSetInteger(3,PLOT_SHIFT,Shift);

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

   PlotIndexSetInteger(3,PLOT_DRAW_BEGIN,min_rates_total);

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

   PlotIndexSetDouble(3,PLOT_EMPTY_VALUE,EMPTY_VALUE);



//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 8=48:0B>@=K9 1CD5@

   SetIndexBuffer(6,ColorMiddleBuffer,INDICATOR_COLOR_INDEX);



//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 F25B>2>9 1CD5@

   SetIndexBuffer(7,LowerBuffer,INDICATOR_DATA);

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

   PlotIndexSetInteger(4,PLOT_SHIFT,Shift);

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

   PlotIndexSetInteger(4,PLOT_DRAW_BEGIN,min_rates_total);

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

   PlotIndexSetDouble(4,PLOT_EMPTY_VALUE,EMPTY_VALUE);



//---- 8=8F80;870F88 ?5@5<5==>9 4;O :>@>B:>3> 8<5=8 8=48:0B>@0

   string shortname="KiS_max_min_Avg";

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

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

   IndicatorSetInteger(INDICATOR_DIGITS,_Digits+1);

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

  }

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

//| 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 &TickVolume[],

                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);



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

   int first,bar,CurDay=0,Color=0,BarCount=0;

   static int BarCount_prev,Color_prev,CurDay_prev,lastbar;

   double DayMax,DayMin,DayOpen;

   static double DayMax_prev,DayMin_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=1;

      BarCount_prev=0;

      DayMax_prev=0.0;

      DayMin_prev=999999999.0;

      Color=0;

      Color_prev=0;

      CurDay_prev=0;

      CurDay=0;

     }

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

     {

      first=prev_calculated-1;

     }



   DayMin=DayMin_prev;

   DayMax=DayMax_prev;

   BarCount=BarCount_prev;

   CurDay=CurDay_prev;

   Color=Color_prev;



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

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

     {

      MqlDateTime str;

      TimeToStruct(Time[bar],str);

      if(CurDay!=str.day)

        {

         for(int iii=BarCount; iii>=0; iii--)

           {

            int barx=bar-iii;

            UpBuffer2[barx]=UpperBuffer[barx]=DayMax_prev;

            UpBuffer1[barx]=DnBuffer1[barx]=MiddleBuffer[barx]=(DayMax_prev+DayMin_prev)/2;

            DnBuffer2[barx]=LowerBuffer[barx]=DayMin_prev;

            if(iii==BarCount)

              {

               if(MiddleBuffer[barx-1]<MiddleBuffer[barx]) Color=0;

               else if(MiddleBuffer[barx-1]>MiddleBuffer[barx]) Color=1;

              }

            ColorMiddleBuffer[barx]=Color;

            lastbar=bar;

           }

         CurDay=str.day;

         BarCount=0;

         DayMax=0.0;

         DayMin=999999999.0;

         DayOpen=Open[bar];

        }

      else

        {

         int barx=bar-1;

         UpBuffer2[bar]=UpperBuffer[bar]=UpBuffer2[barx];

         UpBuffer1[bar]=DnBuffer1[bar]=MiddleBuffer[bar]=UpBuffer1[barx];

         DnBuffer2[bar]=LowerBuffer[bar]=DnBuffer2[barx];

         ColorMiddleBuffer[bar]=ColorMiddleBuffer[barx];

        }

      if(DayMax<High[bar]) DayMax=High[bar];

      if(DayMin>Low[bar]) DayMin=Low[bar];



      BarCount++;

      BarCount=MathMin(rates_total-1,BarCount);



      if(bar<rates_total-1)

        {

         BarCount_prev=BarCount;

         DayMax_prev=DayMax;

         DayMin_prev=DayMin;

         Color_prev=Color;

         CurDay_prev=CurDay;

        }

     }

//----    

   for(bar=rates_total-BarCount-1; bar<rates_total && !IsStopped(); bar++)

     {

      UpBuffer2[bar]=UpperBuffer[bar]=DayMax;

      UpBuffer1[bar]=DnBuffer1[bar]=MiddleBuffer[bar]=(DayMax+DayMin)/2;

      DnBuffer2[bar]=LowerBuffer[bar]=DayMin;

      if(bar==rates_total-BarCount-1)

        {

         if(MiddleBuffer[bar-1]<MiddleBuffer[bar]) Color=0;

         else if(MiddleBuffer[bar-1]>MiddleBuffer[bar]) Color=1;

        }

      else Color=int(ColorMiddleBuffer[bar-1]);

      ColorMiddleBuffer[bar]=Color;

     }

//----    

   return(rates_total);

  }

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