Miscellaneous
0
Views
0
Downloads
0
Favorites
patterns_on_chart
//+------------------------------------------------------------------+
//| Patterns on Chart |
//| Modifier:Ronnie Mansolillo |
//| https://login.mql5.com/en/users/rosiman |
//| Based on MT4 indicator by: Carl Sanders |
//+------------------------------------------------------------------+
#property copyright "Ronnie Mansolillo"
#property link "https://login.mql5.com/en/users/rosiman"
#property version "1.01"
#property description "Recognizes Japanese candlestick patterns."
#property indicator_chart_window
#property indicator_buffers 2
#property indicator_plots 2
#property indicator_color1 DarkTurquoise
#property indicator_type1 DRAW_ARROW
#property indicator_style1 STYLE_SOLID
#property indicator_width1 1
#property indicator_color2 Orange
#property indicator_type2 DRAW_ARROW
#property indicator_style2 STYLE_SOLID
#property indicator_width2 1
//Change it to true if you broker uses extra digit in quotes
input bool UseExtraDigit=false;
input bool Show_Alert=true;
input bool Display_ShootStar_2=true;
input bool Show_ShootStar_Alert_2=true;
input bool Display_ShootStar_3=true;
input bool Show_ShootStar_Alert_3=true;
input bool Display_ShootStar_4=true;
input bool Show_ShootStar_Alert_4=true;
input color Color_ShootStar=DeepPink;
int Text_ShootStar=10;
input bool Display_Hammer_2=true;
input bool Show_Hammer_Alert_2=true;
input bool Display_Hammer_3=true;
input bool Show_Hammer_Alert_3=true;
input bool Display_Hammer_4=true;
input bool Show_Hammer_Alert_4=true;
input color Color_Hammer=Blue;
int Text_Hammer=10;
input bool Display_Doji=true;
input bool Show_Doji_Alert=true;
input color Color_Doji=SpringGreen;
int Text_Doji=10;
input bool Display_Stars=true;
input bool Show_Stars_Alert = true;
input int Star_Body_Length = 5;
input color Color_Star=Aqua;
int Text_Star=10;
input bool Display_Dark_Cloud_Cover=true;
input bool Show_DarkCC_Alert=true;
input color Color_DarkCC=Brown;
int Text_DarkCC=10;
input bool Display_Piercing_Line=true;
input bool Show_Piercing_Line_Alert=true;
input color Color_Piercing_Line=Blue;
int Text_Piercing_Line=10;
input bool Display_Bearish_Engulfing=true;
input bool Show_Bearish_Engulfing_Alert=true;
input color Color_Bearish_Engulfing=Red;
int Text_Bearish_Engulfing=8;
input bool Display_Bullish_Engulfing=false;
input bool Show_Bullish_Engulfing_Alert=false;
input color Color_Bullish_Engulfing=Blue;
int Text_Bullish_Engulfing=8;
//---- buffers
double upArrow[];
double downArrow[];
string period;
double Doji_Star_Ratio= 0;
double Doji_MinLength = 0;
double Star_MinLength = 0;
int Pointer_Offset = 0; // The offset value for the arrow to be located off the candle high or low point.
int High_Offset = 0; // The offset value added to the high arrow pointer for correct plotting of the pattern label.
int Offset_ShootStar = 0; // The offset value of the shooting star above or below the pointer arrow.
int Offset_Hammer = 0; // The offset value of the hammer above or below the pointer arrow.
int Offset_Doji = 0; // The offset value of the doji above or below the pointer arrow.
int Offset_Star = 0; // The offset value of the star above or below the pointer arrow.
int Offset_Piercing_Line = 0; // The offset value of the piercing line above or below the pointer arrow.
int Offset_DarkCC = 0; // The offset value of the dark cloud cover above or below the pointer arrow.
int Offset_Bullish_Engulfing = 0;
int Offset_Bearish_Engulfing = 0;
int IncOffset=0; // The offset value that is added to a cummaltive offset value for each pass through the routine so any
// additional candle patterns that are also met, the label will print above the previous label.
double Piercing_Line_Ratio = 0;
int Piercing_Candle_Length = 0;
int Engulfing_Length=0;
double Candle_WickBody_Percent=0;
int CandleLength=0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
void OnInit()
{
IndicatorSetString(INDICATOR_SHORTNAME,"PRM");
PlotIndexSetInteger(0,PLOT_ARROW,71);
PlotIndexSetInteger(1,PLOT_ARROW,72);
SetIndexBuffer(0,upArrow);
SetIndexBuffer(1,downArrow);
ArraySetAsSeries(upArrow,true);
ArraySetAsSeries(downArrow,true);
Comment("\n","\n","Bearish",
"\n","SS 2,3,4 - Shooting Star",
"\n","E_Star - Evening Star",
"\n","E_Doji - Evening Doji Star",
"\n","DCC - Dark Cloud Pattern",
"\n","S_E - Bearish Engulfing Pattern",
"\n","\n","Bullish",
"\n","HMR 2,3,4 - Bullish Hammer",
"\n","M_Star - Morning Star",
"\n","M_Doji - Morning Doji Star",
"\n","P_L - Piercing Line Pattern",
"\n","L_E - Bullish Engulfing Pattern");
//Defining the pip and ratio dependencies based on the timeframe
switch(_Period)
{
case PERIOD_M1:
period="M1";
Doji_Star_Ratio=0;
Piercing_Line_Ratio=0.5;
Piercing_Candle_Length=10;
Engulfing_Length=10;
Candle_WickBody_Percent=0.9;
CandleLength=12;
Pointer_Offset=9;
High_Offset=15;
Offset_Hammer=5;
Offset_ShootStar=5;
Offset_Doji = 5;
Offset_Star = 5;
Offset_Piercing_Line=5;
Offset_DarkCC=5;
Offset_Bearish_Engulfing = 5;
Offset_Bullish_Engulfing = 5;
Text_ShootStar=8;
Text_Hammer=8;
Text_Star=8;
Text_DarkCC=8;
Text_Piercing_Line=8;
Text_Bearish_Engulfing = 8;
Text_Bullish_Engulfing = 8;
IncOffset=16;
break;
case PERIOD_M5:
period="M5";
Doji_Star_Ratio=0;
Piercing_Line_Ratio=0.5;
Piercing_Candle_Length=10;
Engulfing_Length=10;
Candle_WickBody_Percent=0.9;
CandleLength=12;
Pointer_Offset=9;
High_Offset=15;
Offset_Hammer=5;
Offset_ShootStar=5;
Offset_Doji = 5;
Offset_Star = 5;
Offset_Piercing_Line=5;
Offset_DarkCC=5;
Offset_Bearish_Engulfing = 5;
Offset_Bullish_Engulfing = 5;
Text_ShootStar=8;
Text_Hammer=8;
Text_Star=8;
Text_DarkCC=8;
Text_Piercing_Line=8;
Text_Bearish_Engulfing = 8;
Text_Bullish_Engulfing = 8;
IncOffset=16;
break;
case PERIOD_M15:
period="M15";
Doji_Star_Ratio=0;
Piercing_Line_Ratio=0.5;
Piercing_Candle_Length=10;
Engulfing_Length=0;
Candle_WickBody_Percent=0.9;
CandleLength=12;
Pointer_Offset=9;
High_Offset=15;
Offset_Hammer=5;
Offset_ShootStar=5;
Offset_Doji = 5;
Offset_Star = 5;
Offset_Piercing_Line=5;
Offset_DarkCC=5;
Offset_Bearish_Engulfing = 5;
Offset_Bullish_Engulfing = 5;
Text_ShootStar=8;
Text_Hammer=8;
Text_Star=8;
Text_DarkCC=8;
Text_Piercing_Line=8;
Text_Bearish_Engulfing = 8;
Text_Bullish_Engulfing = 8;
IncOffset=16;
break;
case PERIOD_M30:
period="M30";
Doji_Star_Ratio=0;
Piercing_Line_Ratio=0.5;
Piercing_Candle_Length=10;
Engulfing_Length=15;
Candle_WickBody_Percent=0.9;
CandleLength=12;
Pointer_Offset=9;
High_Offset=15;
Offset_Hammer=5;
Offset_ShootStar=5;
Offset_Doji = 5;
Offset_Star = 5;
Offset_Piercing_Line=5;
Offset_DarkCC=5;
Offset_Bearish_Engulfing = 5;
Offset_Bullish_Engulfing = 5;
Text_ShootStar=8;
Text_Hammer=8;
Text_Star=8;
Text_DarkCC=8;
Text_Piercing_Line=8;
Text_Bearish_Engulfing = 8;
Text_Bullish_Engulfing = 8;
IncOffset=16;
break;
case PERIOD_H1:
period="H1";
Doji_Star_Ratio=0;
Piercing_Line_Ratio=0.5;
Piercing_Candle_Length=10;
Engulfing_Length=25;
Candle_WickBody_Percent=0.9;
CandleLength=12;
Pointer_Offset=9;
High_Offset=20;
Offset_Hammer=8;
Offset_ShootStar=8;
Offset_Doji = 8;
Offset_Star = 8;
Offset_Piercing_Line=8;
Offset_DarkCC=8;
Offset_Bearish_Engulfing = 8;
Offset_Bullish_Engulfing = 8;
Text_ShootStar=8;
Text_Hammer=8;
Text_Star=8;
Text_DarkCC=8;
Text_Piercing_Line=8;
Text_Bearish_Engulfing = 8;
Text_Bullish_Engulfing = 8;
IncOffset=18;
break;
case PERIOD_H4:
period="H4";
Doji_Star_Ratio=0;
Piercing_Line_Ratio=0.5;
Piercing_Candle_Length=10;
Engulfing_Length=20;
Candle_WickBody_Percent=0.9;
CandleLength=12;
Pointer_Offset=20;
High_Offset=40;
Offset_Hammer=10;
Offset_ShootStar=10;
Offset_Doji = 10;
Offset_Star = 10;
Offset_Piercing_Line=10;
Offset_DarkCC=10;
Offset_Bearish_Engulfing = 10;
Offset_Bullish_Engulfing = 10;
Text_ShootStar=8;
Text_Hammer=8;
Text_Star=8;
Text_DarkCC=8;
Text_Piercing_Line=8;
Text_Bearish_Engulfing = 8;
Text_Bullish_Engulfing = 8;
IncOffset=25;
break;
case PERIOD_D1:
period="D1";
Doji_Star_Ratio=0;
Piercing_Line_Ratio=0.5;
Piercing_Candle_Length=10;
Engulfing_Length=30;
Candle_WickBody_Percent=0.9;
CandleLength=12;
Pointer_Offset=9;
High_Offset=80;
Offset_Hammer=15;
Offset_ShootStar=15;
Offset_Doji = 15;
Offset_Star = 15;
Offset_Piercing_Line=15;
Offset_DarkCC=15;
Offset_Bearish_Engulfing = 15;
Offset_Bullish_Engulfing = 15;
Text_ShootStar=8;
Text_Hammer=8;
Text_Star=8;
Text_DarkCC=8;
Text_Piercing_Line=8;
Text_Bearish_Engulfing = 8;
Text_Bullish_Engulfing = 8;
IncOffset=60;
break;
case PERIOD_W1:
period="W1";
Doji_Star_Ratio=0;
Piercing_Line_Ratio=0.5;
Piercing_Candle_Length=10;
Engulfing_Length=40;
Candle_WickBody_Percent=0.9;
CandleLength=12;
Pointer_Offset=9;
High_Offset=35;
Offset_Hammer=20;
Offset_ShootStar=20;
Offset_Doji = 20;
Offset_Star = 20;
Offset_Piercing_Line=20;
Offset_DarkCC=20;
Offset_Bearish_Engulfing = 20;
Offset_Bullish_Engulfing = 20;
Text_ShootStar=8;
Text_Hammer=8;
Text_Star=8;
Text_DarkCC=8;
Text_Piercing_Line=8;
Text_Bearish_Engulfing = 8;
Text_Bullish_Engulfing = 8;
IncOffset=35;
break;
case PERIOD_MN1:
period="MN";
Doji_Star_Ratio=0;
Piercing_Line_Ratio=0.5;
Piercing_Candle_Length=10;
Engulfing_Length=50;
Candle_WickBody_Percent=0.9;
CandleLength=12;
Pointer_Offset=9;
High_Offset=45;
Offset_Hammer=30;
Offset_ShootStar=30;
Offset_Doji = 30;
Offset_Star = 30;
Offset_Piercing_Line=30;
Offset_DarkCC=30;
Offset_Bearish_Engulfing = 30;
Offset_Bullish_Engulfing = 30;
Text_ShootStar=8;
Text_Hammer=8;
Text_Star=8;
Text_DarkCC=8;
Text_Piercing_Line=8;
Text_Bearish_Engulfing = 8;
Text_Bullish_Engulfing = 8;
IncOffset=45;
break;
}
if(UseExtraDigit)
{
Piercing_Candle_Length*=10;
Engulfing_Length*=10;
Candle_WickBody_Percent*=10;
CandleLength*=10;
Pointer_Offset*=10;
High_Offset*=10;
Offset_Hammer*=10;
Offset_ShootStar*=10;
Offset_Doji *= 10;
Offset_Star *= 10;
Offset_Piercing_Line*=10;
Offset_DarkCC=10;
Offset_Bearish_Engulfing *= 10;
Offset_Bullish_Engulfing *= 10;
IncOffset*=10;
}
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
ObjectsDeleteAll(0,0,OBJ_TEXT);
Comment("");
}
//+------------------------------------------------------------------+
//| 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[])
{
ArraySetAsSeries(Time,true);
ArraySetAsSeries(High,true);
ArraySetAsSeries(Low,true);
ArraySetAsSeries(Close,true);
ArraySetAsSeries(Open,true);
double Range,AvgRange;
static datetime prevtime=0;
int counter,setalert;
int shift;
int shift1;
int shift2;
int shift3;
int shift4;
string pattern;
int setPattern=0;
int alert=0;
double O,O1,O2,C,C1,C2,C3,L,L1,L2,L3,H,H1,H2,H3;
double CL,CL1,CL2,BL,BLa,BL90,UW,LW,BodyHigh,BodyLow;
BodyHigh= 0;
BodyLow = 0;
int CumOffset;
if(prevtime==Time[0])
{
return(rates_total);
}
prevtime=Time[0];
for(shift=0; shift<rates_total-9; shift++)
{
CumOffset= 0;
setalert = 0;
counter=shift;
Range=0;
AvgRange=0;
for(counter = shift; counter <= shift + 9; counter++)
AvgRange = AvgRange + MathAbs(High[counter] - Low[counter]);
Range=AvgRange/10;
shift1 = shift + 1;
shift2 = shift + 2;
shift3 = shift + 3;
shift4 = shift + 4;
O=Open[shift1];
O1 = Open[shift2];
O2 = Open[shift3];
H=High[shift1];
H1 = High[shift2];
H2 = High[shift3];
H3 = High[shift4];
L=Low[shift1];
L1 = Low[shift2];
L2 = Low[shift3];
L3 = Low[shift4];
C=Close[shift1];
C1 = Close[shift2];
C2 = Close[shift3];
C3 = Close[shift4];
if(O>C)
{
BodyHigh= O;
BodyLow = C;
}
else
{
BodyHigh= C;
BodyLow = O;
}
CL=High[shift1]-Low[shift1];
CL1 = High[shift2] - Low[shift2];
CL2 = High[shift3] - Low[shift3];
BL = Open[shift1] - Close[shift1];
UW = High[shift1] - BodyHigh;
LW = BodyLow - Low[shift1];
BLa= MathAbs(BL);
BL90=BLa*Candle_WickBody_Percent;
// Bearish Patterns
// Check for Bearish Shooting ShootStar
if((H>=H1) && (H>H2) && (H>H3))
{
if(((UW/2)>LW) && (UW>(2*BL90)) && (CL>=(CandleLength*_Point)) && (O!=C) && ((UW/3)<=LW) && ((UW/4)<=LW))
{
if(Display_ShootStar_2)
{
MarkPattern(GetName("SS 2",Time[shift]),Time[shift1],High[shift1]+(Pointer_Offset+Offset_ShootStar+High_Offset+CumOffset)*_Point,"SS 2",Text_ShootStar,Color_ShootStar);
CumOffset=CumOffset+IncOffset;
downArrow[shift1]=High[shift1]+(Pointer_Offset*_Point);
}
if(Show_ShootStar_Alert_2)
{
if((setalert==0) && (Show_Alert))
{
pattern="Shooting ShootStar 2";
setalert=1;
}
}
}
}
// Check for Bearish Shooting ShootStar
if((H>=H1) && (H>H2) && (H>H3))
{
if(((UW/3)>LW) && (UW>(2*BL90)) && (CL>=(CandleLength*_Point)) && (O!=C) && ((UW/4)<=LW))
{
if(Display_ShootStar_3)
{
MarkPattern(GetName("SS 3",Time[shift]),Time[shift1],High[shift1]+(Pointer_Offset+Offset_ShootStar+High_Offset+CumOffset)*_Point,"SS 3",Text_ShootStar,Color_ShootStar);
CumOffset=CumOffset+IncOffset;
downArrow[shift1]=High[shift1]+(Pointer_Offset*_Point);
}
if(Show_ShootStar_Alert_3)
{
if((setalert==0) && (Show_Alert))
{
pattern="Shooting ShootStar 3";
setalert=1;
}
}
}
}
// Check for Bearish Shooting ShootStar
if((H>=H1) && (H>H2) && (H>H3))
{
if(((UW/4)>LW) && (UW>(2*BL90)) && (CL>=(CandleLength*_Point)) && (O!=C))
{
if(Display_ShootStar_4)
{
MarkPattern(GetName("SS 4",Time[shift]),Time[shift1],High[shift1]+(Pointer_Offset+Offset_ShootStar+High_Offset+CumOffset)*_Point,"SS 4",Text_ShootStar,Color_ShootStar);
CumOffset=CumOffset+IncOffset;
downArrow[shift1]=High[shift1]+(Pointer_Offset*_Point);
}
if(Show_ShootStar_Alert_4)
{
if((setalert==0) && (Show_Alert))
{
pattern="Shooting ShootStar 4";
setalert=1;
}
}
}
}
// Check for Evening Star pattern
if((H>=H1) && (H1>H2) && (H1>H3))
{
if((BLa<(Star_Body_Length*_Point)) && (C2>O2) && (!O==C) && ((C2-O2)/(H2-L2)>Doji_Star_Ratio) && (C1>O1) && (O>C) && (CL>=(Star_MinLength*_Point)))
{
if(Display_Stars)
{
MarkPattern(GetName("Star",Time[shift]),Time[shift1],High[shift1]+(Pointer_Offset+Offset_Star+High_Offset+CumOffset)*_Point,"E_Star",Text_Star,Color_Star);
CumOffset=CumOffset+IncOffset;
downArrow[shift1]=High[shift1]+(Pointer_Offset*_Point);
}
if(Show_Stars_Alert)
{
if((setalert==0) && (Show_Alert))
{
pattern="Evening Star Pattern";
setalert=1;
}
}
}
}
// Check for Evening Doji Star pattern
if((H>=H1) && (H1>H2) && (H1>H3))
{
if((O==C) && ((C2>O2) && (C2-O2)/(H2-L2)>Doji_Star_Ratio) && (C1>O1) && (CL>=(Doji_MinLength*_Point)))
{
if(Display_Doji)
{
MarkPattern(GetName("Doji",Time[shift]),Time[shift1],High[shift1]+(Pointer_Offset+Offset_Doji+High_Offset+CumOffset)*_Point,"E_Doji",Text_Doji,Color_Doji);
CumOffset=CumOffset+IncOffset;
downArrow[shift1]=High[shift1]+(Pointer_Offset*_Point);
}
if(Show_Doji_Alert)
{
if((setalert==0) && (Show_Alert))
{
pattern="Evening Doji Star Pattern";
setalert=1;
}
}
}
}
// Check for a Dark Cloud Cover pattern
if((C1>O1) && (((C1+O1)/2)>C) && (O>C) && (C>O1) && ((O-C)/((H-L))>Piercing_Line_Ratio) && ((CL>=Piercing_Candle_Length*_Point)))
{
if(Display_Dark_Cloud_Cover)
{
MarkPattern(GetName("DCC",Time[shift]),Time[shift1],High[shift1]+(Pointer_Offset+Offset_DarkCC+High_Offset+CumOffset)*_Point,"DCC",Text_DarkCC,Color_DarkCC);
CumOffset=CumOffset+IncOffset;
downArrow[shift1]=High[shift1]+(Pointer_Offset*_Point);
}
if(Show_DarkCC_Alert)
{
if((setalert==0) && (Show_Alert))
{
pattern = "Dark Cloud Cover Pattern";
setalert = 1;
}
}
}
// Check for Bearish Engulfing pattern
if((C1>O1) && (O>C) && (O>=C1) && (O1>=C) && ((O-C)>(C1-O1)) && (CL>=(Engulfing_Length*_Point)))
{
if(Display_Bearish_Engulfing)
{
MarkPattern(GetName("S_E",Time[shift]),Time[shift1],High[shift1]+(Pointer_Offset+Offset_Bearish_Engulfing+High_Offset+CumOffset)*_Point,"S_E",Text_Bearish_Engulfing,Color_Bearish_Engulfing);
CumOffset=CumOffset+IncOffset;
downArrow[shift1]=High[shift1]+(Pointer_Offset*_Point);
}
if(Show_Bearish_Engulfing_Alert)
{
if((setalert==0) && (Show_Alert))
{
pattern="Bearish Engulfing Pattern";
setalert=1;
}
}
}
// End of Bearish Patterns
// Bullish Patterns
// Check for Bullish Hammer
if((L<=L1) && (L<L2) && (L<L3))
{
if(((LW/2)>UW) && (LW>BL90) && (CL>=(CandleLength*_Point)) && (O!=C) && ((LW/3)<=UW) && ((LW/4)<=UW))
{
if(Display_Hammer_2)
{
MarkPattern(GetName("HMR 2",Time[shift]),Time[shift1],Low[shift1]-(Pointer_Offset+Offset_Hammer+CumOffset)*_Point,"HMR 2",Text_Hammer,Color_Hammer);
CumOffset=CumOffset+IncOffset;
upArrow[shift1]=Low[shift1]-(Pointer_Offset*_Point);
}
if(Show_Hammer_Alert_2)
{
if((setalert==0) && (Show_Alert))
{
pattern="Bullish Hammer 2";
setalert=1;
}
}
}
}
// Check for Bullish Hammer
if((L<=L1) && (L<L2) && (L<L3))
{
if(((LW/3)>UW) && (LW>BL90) && (CL>=(CandleLength*_Point)) && (O!=C) && ((LW/4)<=UW))
{
if(Display_Hammer_3)
{
MarkPattern(GetName("HMR 3",Time[shift]),Time[shift1],Low[shift1]-(Pointer_Offset+Offset_Hammer+CumOffset)*_Point,"HMR 3",Text_Hammer,Color_Hammer);
CumOffset=CumOffset+IncOffset;
upArrow[shift1]=Low[shift1]-(Pointer_Offset*_Point);
}
if(Show_Hammer_Alert_3)
{
if((setalert==0) && (Show_Alert))
{
pattern="Bullish Hammer 3";
setalert=1;
}
}
}
}
// Check for Bullish Hammer
if((L<=L1) && (L<L2) && (L<L3))
{
if(((LW/4)>UW) && (LW>BL90) && (CL>=(CandleLength*_Point)) && (O!=C))
{
if(Display_Hammer_4)
{
MarkPattern(GetName("HMR 4",Time[shift]),Time[shift1],Low[shift1]-(Pointer_Offset+Offset_Hammer+CumOffset)*_Point,"HMR 4",Text_Hammer,Color_Hammer);
CumOffset=CumOffset+IncOffset;
upArrow[shift1]=Low[shift1]-(Pointer_Offset*_Point);
}
if(Show_Hammer_Alert_4)
{
if((setalert==0) && (Show_Alert))
{
pattern="Bullish Hammer 4";
setalert=1;
}
}
}
}
// Check for Morning Star
if((L<=L1) && (L1<L2) && (L1<L3))
{
if((BLa<(Star_Body_Length*_Point)) && (!O==C) && ((O2>C2) && ((O2-C2)/(H2-L2)>Doji_Star_Ratio)) && (O1>C1) && (C>O) && (CL>=(Star_MinLength*_Point)))
{
if(Display_Stars)
{
MarkPattern(GetName("Star",Time[shift]),Time[shift1],Low[shift1]-(Pointer_Offset+Offset_Star+CumOffset)*_Point,"Star",Text_Star,Color_Hammer);
CumOffset=CumOffset+IncOffset;
upArrow[shift1]=Low[shift1]-(Pointer_Offset*_Point);
}
if(Show_Stars_Alert)
{
if((setalert==0) && (Show_Alert))
{
pattern="Morning Star Pattern";
setalert=1;
}
}
}
}
// Check for Morning Doji Star
if((L<=L1) && (L1<L2) && (L1<L3))
{
if((O==C) && ((O2>C2) && ((O2-C2)/(H2-L2)>Doji_Star_Ratio)) && (O1>C1) && (CL>=(Doji_MinLength*_Point)))
{
if(Display_Doji)
{
MarkPattern(GetName("Doji",Time[shift]),Time[shift1],Low[shift1]-(Pointer_Offset+Offset_Doji+CumOffset)*_Point,"Doji",Text_Doji,Color_Doji);
CumOffset=CumOffset+IncOffset;
upArrow[shift1]=Low[shift1]-(Pointer_Offset*_Point);
}
if(Show_Doji_Alert)
{
if((shift==0) && (Show_Alert))
{
pattern="Morning Doji Pattern";
setalert=1;
}
}
}
}
// Check for Piercing Line pattern
if((C1<O1) && (((O1+C1)/2)<C) && (O<C) && ((C-O)/((H-L))>Piercing_Line_Ratio) && (CL>=(Piercing_Candle_Length*_Point)))
{
if(Display_Piercing_Line)
{
MarkPattern(GetName("PrcLn",Time[shift]),Time[shift1],Low[shift1]-(Pointer_Offset+Offset_Piercing_Line+CumOffset)*_Point,"PrcLn",Text_Piercing_Line,Color_Piercing_Line);
CumOffset=CumOffset+IncOffset;
upArrow[shift1]=Low[shift1]-(Pointer_Offset*_Point);
}
if(Show_Piercing_Line_Alert)
{
if((shift==0) && (Show_Alert))
{
pattern="Piercing Line Pattern";
setalert=1;
}
}
}
// Check for Bullish Engulfing pattern
if((O1>C1) && (C>O) && (C>=O1) && (C1>=O) && ((C-O)>(O1-C1)) && (CL>=(Engulfing_Length*_Point)))
{
if(Display_Bullish_Engulfing)
{
MarkPattern(GetName("L_E",Time[shift]),Time[shift1],Low[shift1]-(Pointer_Offset+Offset_Bullish_Engulfing+CumOffset)*_Point,"L_E",Text_Bullish_Engulfing,Color_Bullish_Engulfing);
CumOffset=CumOffset+IncOffset;
upArrow[shift1]=Low[shift1]-(Pointer_Offset*_Point);
}
if(Show_Bullish_Engulfing_Alert)
{
if((shift==0) && (Show_Alert))
{
pattern="Bullish Engulfing Pattern";
setalert=1;
}
}
}
// End of Bullish Patterns
if((setalert==1) && (shift==0))
{
Alert(Symbol()," ",period," ",pattern);
setalert=0;
}
CumOffset=0;
} // End of for loop
return(rates_total);
}
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//| Concatenates string and time for a name. |
//+------------------------------------------------------------------+
string GetName(string aName,datetime timeshift)
{
return(aName + DoubleToString(timeshift, 0));
}
//+------------------------------------------------------------------+
//| Creates an object to mark the pattern on the chart. |
//+------------------------------------------------------------------+
void MarkPattern(const string name,const datetime time,const double price,const string shortname,const int fontsize,const color patterncolor)
{
ObjectCreate(0,name,OBJ_TEXT,0,time,price);
ObjectSetString(0,name,OBJPROP_TEXT,shortname);
ObjectSetString(0,name,OBJPROP_FONT,"Times New Roman");
ObjectSetInteger(0,name,OBJPROP_FONTSIZE,fontsize);
ObjectSetInteger(0,name,OBJPROP_COLOR,patterncolor);
}
//+------------------------------------------------------------------+
Comments