//+------------------------------------------------------------------------------------+ //| Pattern Recognition Hammer & Shooting ShootStar v1.0 | //| | //| Original logic taken from Jason Robinson's | //| Pattern recognition indicator | //| Updated pattern formulas by Carl Sanders to match | //| candle formulas used by RET, | //| Refined Elliottician Trader | //| Alert logic fixed by Hartono Setiono groups@mitrakom.com | //| Zero Divide Error fixed by sangmane@forexfactory.com | //| 03-03-2011 Don Isbell (aka disbellj - Forex Factory) received v3 from trade4fun, | //| saw variable UseExtraDigit (don't know where it came from), but consider my fix | //| to be what's needed, so added I removed external variable UseExtraDigit and | //| associated code. I added variables Pip and RoundTo. Everywhere Point was used, I | //| replaced with Pip. Everywhere Open, High, Low, or Close was seen, I used | //| NormalizeDouble and used RoundTo to round these values to either 4 or 2 (for JPY | //| pairs) decimals. This is the correct way to fix this 5 digit broker problem IMHO.| //| Instead of making inputs to be x10, it's better to leave inputs unchanged (easy | //| for users), and code to limit output by 5-digit brokers to 4 digits, so that 5 | //| digit brokers act like 4 digit brokers. | //+------------------------------------------------------------------------------------+ //mjs 0714 slimmed down for Mexcel output: BEARISH SIGNALS ONLY. no alerts. #property copyright "Copyright © 2007, Carl Sanders (traden4x)." #property link "traden4x@gmail.com" #property indicator_chart_window #property indicator_buffers 1 #property indicator_color1 Yellow extern bool Display_Hammer_2 = true; extern bool Display_Hammer_3 = true; extern bool Display_Hammer_4 = true; extern color Color_Hammer = Aqua; int Text_Hammer = 8; extern bool Display_Stars = true; extern int Star_Body_Length = 5; extern color Color_Star = Aqua; int Text_Star = 8; extern bool Display_Piercing_Line = true; extern color Color_Piercing_Line = Aqua; int Text_Piercing_Line = 8; extern bool Display_Bullish_Engulfing = true; extern color Color_Bullish_Engulfing = Aqua; int Text_Bullish_Engulfing = 8; double Pip; int RoundTo; //---- buffers double upArrow[]; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //---- indicators SetIndexBuffer(0, upArrow); //Figure out what a pip and its value is on this broker if(Point == 0.01 || Point == 0.0001) { Pip = Point; } else if(Point == 0.001 || Point == 0.00001) { Pip = Point*10; } if(Point == 0.01 || Point == 0.001) { RoundTo = 2; } else if(Point == 0.0001 || Point == 0.00001) { RoundTo = 4; } return(0); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { ObjectsDeleteAll(0, OBJ_TEXT); return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start(){ 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"); double Range, AvgRange; int counter, setalert; static datetime prevtime = 0; int shift; int shift1; int shift2; int shift3; int shift4; string pattern, period; 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; 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_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_Bullish_Engulfing = 0; int CumOffset = 0; // The counter value to be added to as more candle types are met. 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; if(prevtime == Time[0]) { return(0); } prevtime = Time[0]; switch (Period()) { case 1: 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_Doji = 5; Offset_Star = 5; Offset_Piercing_Line = 5; Offset_Bullish_Engulfing = 5; Text_Hammer = 8; Text_Piercing_Line = 8; Text_Bullish_Engulfing = 8; IncOffset = 16; break; case 5: 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_Doji = 5; Offset_Star = 5; Offset_Piercing_Line = 5; Offset_Bullish_Engulfing = 5; Text_Hammer = 8; Text_Piercing_Line = 8; Text_Bullish_Engulfing = 8; IncOffset = 16; break; case 15: 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_Doji = 5; Offset_Star = 5; Offset_Piercing_Line = 5; Offset_Bullish_Engulfing = 5; Text_Hammer = 8; Text_Piercing_Line = 8; Text_Bullish_Engulfing = 8; IncOffset = 16; break; case 30: 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_Doji = 5; Offset_Star = 5; Offset_Piercing_Line = 5; Offset_Bullish_Engulfing = 5; Text_Hammer = 8; Text_Piercing_Line = 8; Text_Bullish_Engulfing = 8; IncOffset = 16; break; case 60: 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_Doji = 8; Offset_Star = 8; Offset_Piercing_Line = 8; Offset_Bullish_Engulfing = 8; Text_Hammer = 8; Text_Piercing_Line = 8; Text_Bullish_Engulfing = 8; IncOffset = 18; break; case 240: 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_Doji = 10; Offset_Star = 10; Offset_Piercing_Line = 10; Offset_Bullish_Engulfing = 10; Text_Hammer = 8; Text_Piercing_Line = 8; Text_Bullish_Engulfing = 8; IncOffset = 25; break; case 1440: 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_Doji = 15; Offset_Star = 15; Offset_Piercing_Line = 15; Offset_Bullish_Engulfing = 15; Text_Hammer = 8; Text_Piercing_Line = 8; Text_Bullish_Engulfing = 8; IncOffset = 60; break; case 10080: 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_Doji = 20; Offset_Star = 20; Offset_Piercing_Line = 20; Offset_Bullish_Engulfing = 20; Text_Hammer = 8; Text_Piercing_Line = 8; Text_Bullish_Engulfing = 8; IncOffset = 35; break; case 43200: 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_Doji = 30; Offset_Star = 30; Offset_Piercing_Line = 30; Offset_Bullish_Engulfing = 30; Text_Hammer = 8; Text_Piercing_Line = 8; Text_Bullish_Engulfing = 8; IncOffset = 45; break; } for (shift = 0; shift < Bars; shift++) { CumOffset = 0; setalert = 0; counter=shift; Range=0; AvgRange=0; for (counter=shift ;counter<=shift+9;counter++) { AvgRange=AvgRange+MathAbs(NormalizeDouble(High[counter],RoundTo)-NormalizeDouble(Low[counter],RoundTo)); } Range=AvgRange/10; shift1 = shift + 1; shift2 = shift + 2; shift3 = shift + 3; shift4 = shift + 4; O = NormalizeDouble(Open[shift1],RoundTo); O1 = NormalizeDouble(Open[shift2],RoundTo); O2 = NormalizeDouble(Open[shift3],RoundTo); H = NormalizeDouble(High[shift1],RoundTo); H1 = NormalizeDouble(High[shift2],RoundTo); H2 = NormalizeDouble(High[shift3],RoundTo); H3 = NormalizeDouble(High[shift4],RoundTo); L = NormalizeDouble(Low[shift1],RoundTo); L1 = NormalizeDouble(Low[shift2],RoundTo); L2 = NormalizeDouble(Low[shift3],RoundTo); L3 = NormalizeDouble(Low[shift4],RoundTo); C = NormalizeDouble(Close[shift1],RoundTo); C1 = NormalizeDouble(Close[shift2],RoundTo); C2 = NormalizeDouble(Close[shift3],RoundTo); C3 = NormalizeDouble(Close[shift4],RoundTo); if(MathAbs(H-L)<1*Pip) continue; if(MathAbs(H1-L1)<1*Pip) continue; if(MathAbs(H2-L2)<1*Pip) continue; if(MathAbs(H3-L3)<1*Pip) continue; if (O>C) { BodyHigh = O; BodyLow = C; } else { BodyHigh = C; BodyLow = O; } CL = NormalizeDouble(High[shift1],RoundTo)-NormalizeDouble(Low[shift1],RoundTo); CL1 = NormalizeDouble(High[shift2],RoundTo)-NormalizeDouble(Low[shift2],RoundTo); CL2 = NormalizeDouble(High[shift3],RoundTo)-NormalizeDouble(Low[shift3],RoundTo); BL = NormalizeDouble(Open[shift1],RoundTo)-NormalizeDouble(Close[shift1],RoundTo); UW = NormalizeDouble(High[shift1],RoundTo)-BodyHigh; LW = BodyLow-NormalizeDouble(Low[shift1],RoundTo); BLa = MathAbs(BL); BL90 = BLa*Candle_WickBody_Percent; // bearish patterns mjs // Bullish Patterns // Check for Bullish Hammer if ((L<=L1)&&(LUW)&&(LW>BL90)&&(CL>=(CandleLength*Pip))&&(O!=C)&&((LW/3)<=UW)&&((LW/4)<=UW)/*&&(HUW)&&(LW>BL90)&&(CL>=(CandleLength*Pip))&&(O!=C)&&((LW/4)<=UW)/*&&(HUW)&&(LW>BL90)&&(CL>=(CandleLength*Pip))&&(O!=C)/*&&(HC2)&&((O2-C2)/(/*0.001+*/H2-L2)>Doji_Star_Ratio))/*&&(C2>O1)*/&&(O1>C1)/*&&((H1-L1)>(3*(C1-O1)))*/&&(C>O)&&(CL>=(Star_MinLength*Pip))) { if (Display_Stars == true) { ObjectCreate(GetName("Star",shift), OBJ_TEXT, 0, Time[shift1], NormalizeDouble(Low[shift1],RoundTo) - (Pointer_Offset+Offset_Star+CumOffset)*Pip); ObjectSetText(GetName("Star",shift), "M_Star", Text_Star, "Arial", Color_Star); CumOffset = CumOffset+IncOffset; upArrow[shift1] = NormalizeDouble(Low[shift1],RoundTo) - (Pointer_Offset*Pip); } } } // Check for Piercing Line pattern if ((C1Piercing_Line_Ratio)&&(CL>=(Piercing_Candle_Length*Pip))) { if (Display_Piercing_Line == true) { ObjectCreate(GetName("PrcLn",shift), OBJ_TEXT, 0, Time[shift1], NormalizeDouble(Low[shift1],RoundTo) - (Pointer_Offset+Offset_Piercing_Line+CumOffset)*Pip); ObjectSetText(GetName("PrcLn",shift), "P_L", Text_Piercing_Line, "Arial", Color_Piercing_Line); CumOffset = CumOffset+IncOffset; upArrow[shift1] = NormalizeDouble(Low[shift1],RoundTo) - (Pointer_Offset*Pip); } } // Check for Bullish Engulfing pattern if ((O1>C1)&&(C>O)&&(C>=O1)&&(C1>=O)&&((C-O)>(O1-C1))&&(CL>=(Engulfing_Length*Pip))) { if (Display_Bullish_Engulfing) { ObjectCreate(GetName("L_E",shift), OBJ_TEXT, 0, Time[shift1], NormalizeDouble(Low[shift1],RoundTo) - (Pointer_Offset+Offset_Bullish_Engulfing+CumOffset)*Pip); ObjectSetText(GetName("L_E",shift), "L_E", Text_Bullish_Engulfing, "Arial", Color_Bullish_Engulfing); CumOffset = CumOffset+IncOffset; upArrow[shift1] = NormalizeDouble(Low[shift1],RoundTo) - (Pointer_Offset*Pip); } } // End of Bullish Patterns if (setalert == 1 && shift == 0) { Alert(Symbol(), " ", period, " ", pattern); setalert = 0; } CumOffset = 0; } // End of for loop return(0); } //+------------------------------------------------------------------+ string GetName(string aName,int shift) { return(aName+DoubleToStr(Time[shift],0)); }