PA_Colored_Candle

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

//|                                            PA_Colored_Candle.mq5 |

//|                        Copyright 2018, MetaQuotes Software Corp. |

//|                                                 https://mql5.com |

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

#property copyright "Copyright 2018, MetaQuotes Software Corp."

#property link      "https://mql5.com"

#property version   "1.00"

#property description "Price Action Colored Candle indicator"

#property description "Bullish Change: Current Close > Previous Low"

#property description "Bearish Change: Current Close < Previous High"

#property indicator_chart_window

#property indicator_buffers 7

#property indicator_plots   3

//--- plot PABullish

#property indicator_label1  "PA Bullish"

#property indicator_type1   DRAW_ARROW

#property indicator_color1  clrBlue

#property indicator_style1  STYLE_SOLID

#property indicator_width1  1

//--- plot PABearish

#property indicator_label2  "PA Bearish"

#property indicator_type2   DRAW_ARROW

#property indicator_color2  clrRed

#property indicator_style2  STYLE_SOLID

#property indicator_width2  1

//--- plot Candle

#property indicator_label3  "Open;High;Low;Close"

#property indicator_type3   DRAW_COLOR_CANDLES

#property indicator_color3  clrLimeGreen,clrDarkSeaGreen,clrGreen,clrOrangeRed,clrBurlyWood,clrFireBrick,clrDarkGray

#property indicator_style3  STYLE_SOLID

#property indicator_width3  8

//--- indicator buffers

double         BufferPABullish[];

double         BufferPABearish[];

double         BufferCandleO[];

double         BufferCandleH[];

double         BufferCandleL[];

double         BufferCandleC[];

double         BufferColors[];

//--- global variables

string         prefix;

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

//| Custom indicator initialization function                         |

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

int OnInit()

  {

//--- set global variables

   prefix=MQLInfoString(MQL_PROGRAM_NAME)+"_";

//--- indicator buffers mapping

   SetIndexBuffer(0,BufferPABullish,INDICATOR_DATA);

   SetIndexBuffer(1,BufferPABearish,INDICATOR_DATA);

   SetIndexBuffer(2,BufferCandleO,INDICATOR_DATA);

   SetIndexBuffer(3,BufferCandleH,INDICATOR_DATA);

   SetIndexBuffer(4,BufferCandleL,INDICATOR_DATA);

   SetIndexBuffer(5,BufferCandleC,INDICATOR_DATA);

   SetIndexBuffer(6,BufferColors,INDICATOR_COLOR_INDEX);

//--- setting a code from the Wingdings charset as the property of PLOT_ARROW

   PlotIndexSetInteger(0,PLOT_ARROW,158);

   PlotIndexSetInteger(1,PLOT_ARROW,158);

//--- setting indicator parameters

   IndicatorSetString(INDICATOR_SHORTNAME,"PA Colored Candle");

   IndicatorSetInteger(INDICATOR_DIGITS,Digits());

//--- setting plot buffer parameters

   PlotIndexSetInteger(2,PLOT_SHOW_DATA,false);

//--- setting buffer arrays as timeseries

   ArraySetAsSeries(BufferPABullish,true);

   ArraySetAsSeries(BufferPABearish,true);

   ArraySetAsSeries(BufferCandleO,true);

   ArraySetAsSeries(BufferCandleH,true);

   ArraySetAsSeries(BufferCandleL,true);

   ArraySetAsSeries(BufferCandleC,true);

   ArraySetAsSeries(BufferColors,true);

//---

   return(INIT_SUCCEEDED);

  }

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

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

  {

//--- #AB0=>2:0 <0AA82>2 1CD5@>2 :0: B09<A5@89

   ArraySetAsSeries(open,true);

   ArraySetAsSeries(high,true);

   ArraySetAsSeries(low,true);

   ArraySetAsSeries(close,true);

   ArraySetAsSeries(time,true);

//--- @>25@:0 8 @0AGQB :>;8G5AB20 ?@>AG8BK205<KE 10@>2

   if(rates_total<4) return 0;

//--- @>25@:0 8 @0AGQB :>;8G5AB20 ?@>AG8BK205<KE 10@>2

   int limit=rates_total-prev_calculated;

   if(limit>1)

     {

      limit=rates_total-3;

      ArrayInitialize(BufferPABullish,EMPTY_VALUE);

      ArrayInitialize(BufferPABearish,EMPTY_VALUE);

      ArrayInitialize(BufferCandleO,EMPTY_VALUE);

      ArrayInitialize(BufferCandleH,EMPTY_VALUE);

      ArrayInitialize(BufferCandleL,EMPTY_VALUE);

      ArrayInitialize(BufferCandleC,EMPTY_VALUE);

      ArrayInitialize(BufferColors,6);

     }



//---  0AGQB 8=48:0B>@0

   static int last_direction=0;

   int previous_change=0;

   double H=0,L=0;

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

     {

      BufferCandleO[i]=open[i];

      BufferCandleH[i]=high[i];

      BufferCandleL[i]=low[i];

      BufferCandleC[i]=close[i];

      BufferColors[i]=(close[i]>open[i] ? 2 : close[i]<open[i] ? 5 : 6);

      BufferPABearish[i]=BufferPABullish[i]=EMPTY_VALUE;

      if(close[i]>=low[i+1] && close[i]<=high[i+1])

        {

         BufferPABearish[i]=BufferPABullish[i]=EMPTY_VALUE;

         BufferColors[i]=(close[i]>open[i] ? 1 : close[i]<open[i] ? 4 : 6);

        }

      else

        {

         //--- PA Bullish

         if(close[i]>low[i+1] && close[i+1]>low[i+2])

           {

            BufferColors[i]=(close[i]>open[i] ? 0 : close[i]<open[i] ? 1 : 2);

            BufferPABullish[i]=open[i];

            BufferPABearish[i]=EMPTY_VALUE;

           }

         //--- PA Bearich

         if(close[i]<high[i+1] && close[i+1]<high[i+2])

           {

            BufferColors[i]=(close[i]<open[i] ? 3 : close[i]>open[i] ? 4 : 5);

            BufferPABearish[i]=open[i];

            BufferPABullish[i]=EMPTY_VALUE;

           }

        }

     }

   

//--- return value of prev_calculated for next call

   return(rates_total);

  }

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