wajdyss_Ichimoku_Candle_HTF

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

//|                                     wajdyss_Ichimoku_Candle_HTF.mq5 | 

//|                                  Copyright © 2018, Nikolay Kositsin | 

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

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

//| ;O @01>BK  8=48:0B>@0  A;54C5B  ?>;>68BL D09; SmoothAlgorithms.mqh |

//| 2 ?0?:C (48@5:B>@8N): :0B0;>3_40==KE_B5@<8=0;0\MQL5\Include         |

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

#property copyright "Copyright © 2018, Nikolay Kositsin"

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

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

#property version   "1.60"

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

#property indicator_chart_window

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

#property indicator_buffers 5

//---- 8A?>;L7>20=> 2A53> >4=> 3@0D8G5A:>5 ?>AB@>5=85

#property indicator_plots   1

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

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

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

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

#define INDICATOR_NAME "wajdyss_Ichimoku_Candle"        // >=AB0=B0 4;O 8<5=8 8=48:0B>@0

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

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

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

//---- 2 :0G5AB25 8=48:0B>@0 8A?>;L7>20=K F25B=K5 A25G8

#property indicator_type1   DRAW_COLOR_CANDLES

#property indicator_color1  clrMagenta,clrBrown,clrBlue,clrAqua

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

#property indicator_label1  "wajdyss_Ichimoku Open;wajdyss_Ichimoku High;wajdyss_Ichimoku Low;wajdyss_Ichimoku Close"

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

//|  %+  " + "                 |

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

input ENUM_TIMEFRAMES TimeFrame=PERIOD_H4;//5@8>4 3@0D8:0

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

//|  %+  " + "                 |

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

input uint Kijun=26;

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

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

double ExtHighBuffer[];

double ExtLowBuffer[];

double ExtCloseBuffer[];

double ExtColorBuffer[];

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

int min_rates_total;

//---- 1JO2;5=85 F5;KE ?5@5<5==KE 4;O E5=4;>2 8=48:0B>@>2

int Ind_Handle;

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

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

  {

//---- ?@>25@:0 ?5@8>4>2 3@0D8:>2 =0 :>@@5:B=>ABL

   if(TimeFrame<Period() && TimeFrame!=PERIOD_CURRENT)

     {

      Print("5@8>4 3@0D8:0 4;O 8=48:0B>@0 ColorBears =5 <>65B 1KBL <5=LH5 ?5@8>40 B5:CI53> 3@0D8:0");

      return(INIT_FAILED);

     }



//---- =8F80;870F8O ?5@5<5==KE 

   min_rates_total=2;

   string short_name=INDICATOR_NAME+" "+Symbol()+"("+GetStringTimeframe(_Period)+")";



//---- ?>;CG5=85 E5=4;0 8=48:0B>@0 wajdyss_Ichimoku_Candle

   Ind_Handle=iCustom(Symbol(),TimeFrame,"wajdyss_Ichimoku_Candle",Kijun);

   if(Ind_Handle==INVALID_HANDLE)

     {

      Print(" 5 C40;>AL ?>;CG8BL E5=4; 8=48:0B>@0 wajdyss_Ichimoku_Candle");

      return(INIT_FAILED);

     }



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

   SetIndexBuffer(0,ExtOpenBuffer,INDICATOR_DATA);

   SetIndexBuffer(1,ExtHighBuffer,INDICATOR_DATA);

   SetIndexBuffer(2,ExtLowBuffer,INDICATOR_DATA);

   SetIndexBuffer(3,ExtCloseBuffer,INDICATOR_DATA);



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

   SetIndexBuffer(4,ExtColorBuffer,INDICATOR_COLOR_INDEX);



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

   ArraySetAsSeries(ExtOpenBuffer,true);

   ArraySetAsSeries(ExtHighBuffer,true);

   ArraySetAsSeries(ExtLowBuffer,true);

   ArraySetAsSeries(ExtCloseBuffer,true);

   ArraySetAsSeries(ExtColorBuffer,true);



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

   PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total);



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

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

   IndicatorSetInteger(INDICATOR_DIGITS,_Digits);

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

   return(INIT_SUCCEEDED);

  }

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

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

                const double &low[],

                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 @0AG5B0

   if(rates_total<min_rates_total) return(RESET);

   if(BarsCalculated(Ind_Handle)<Bars(Symbol(),TimeFrame)) return(prev_calculated);

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

   ArraySetAsSeries(time,true);

   ArraySetAsSeries(open,true);

   ArraySetAsSeries(low,true);

   ArraySetAsSeries(high,true);

   ArraySetAsSeries(close,true);

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

   if(!CountIndicatorBar(NULL,TimeFrame,Ind_Handle,time,open,high,low,close,rates_total,prev_calculated,min_rates_total)) return(RESET);

//---     

   return(rates_total);

  }

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

//| CountIndicatorBar                                                |

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

bool CountIndicatorBar(string   Symb,            // !8<2>; 3@0D8:0

                       ENUM_TIMEFRAMES TFrame,   // 5@8>4 3@0D8:0

                       int      IndHandle,       // %5=4; >1@010BK205<>3> 8=48:0B>@0                                                                                 

                       const datetime &Time[],   // "09<A5@8O 2@5<5=8

                       const double &Open[],     // "09<A5@8O iOpen

                       const double &High[],     // "09<A5@8O iHigh

                       const double &Low[],      // "09<A5@8O iLow

                       const double &Close[],    // "09<A5@8O iClose

                       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 int Min_Rates_Total)// <8=8<0;L=>5 :>;8G5AB2> 8AB>@88 2 10@0E 4;O @0AG5B0

  {

//---

   static int LastCountBar;

   datetime IndTime[1];

   int limit;

//--- @0AG5BK =5>1E>48<>3> :>;8G5AB20 :>?8@C5<KE 40==KE

//--- 8 AB0@B>2>3> =><5@0 limit 4;O F8:;0 ?5@5AG5B0 10@>2

   if(Prev_Calculated>Rates_Total || Prev_Calculated<=0)// ?@>25@:0 =0 ?5@2K9 AB0@B @0AG5B0 8=48:0B>@0

     {

      limit=Rates_Total-Min_Rates_Total-1; // AB0@B>2K9 =><5@ 4;O @0AG5B0 2A5E 10@>2

      LastCountBar=limit;

     }

   else limit=LastCountBar+Rates_Total-Prev_Calculated; // AB0@B>2K9 =><5@ 4;O @0AG5B0 =>2KE 10@>2 

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

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

     {

      //--- :>?8@C5< 2=>2L ?>O282H85AO 40==K5 2 <0AA82 IndTime

      if(CopyTime(Symbol(),TimeFrame,Time[bar],1,IndTime)<=0) return(RESET);

      //---

      if(Time[bar]>=IndTime[0] && Time[bar+1]<IndTime[0])

        {

         LastCountBar=bar;

         double Col[1];

         //--- :>?8@C5< 2=>2L ?>O282H85AO 40==K5 2 <0AA82K

         if(CopyBuffer(IndHandle,4,Time[bar],1,Col)<=0) return(RESET);

         ExtOpenBuffer[bar]=Open[bar];

         ExtLowBuffer[bar]=Low[bar];

         ExtHighBuffer[bar]=High[bar];

         ExtCloseBuffer[bar]=Close[bar];

         if(Col[0]>1)

           {

            if(Open[bar]<=Close[bar]) ExtColorBuffer[bar]=3;

            else ExtColorBuffer[bar]=2;

           }

         else

           {

            if(Open[bar]>=Close[bar]) ExtColorBuffer[bar]=0;

            else ExtColorBuffer[bar]=1;

           }

        }

      else

        {

         ExtOpenBuffer[bar]=Open[bar];

         ExtLowBuffer[bar]=Low[bar];

         ExtHighBuffer[bar]=High[bar];

         ExtCloseBuffer[bar]=Close[bar];

         

         if(ExtColorBuffer[bar+1]>1)

           {

            if(Open[bar]<=Close[bar]) ExtColorBuffer[bar]=3;

            else ExtColorBuffer[bar]=2;

           }

         else

           {

            if(Open[bar]>=Close[bar]) ExtColorBuffer[bar]=0;

            else ExtColorBuffer[bar]=1;

           }

        }

     }

//---     

   return(true);

  }

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