#define OP_BUY 0 #define OP_SELL 1 #define OP_BUYLIMIT 2 #define OP_SELLLIMIT 3 #define OP_BUYSTOP 4 #define OP_SELLSTOP 5 #define MODE_OPEN 0 #define MODE_LOW 1 #define MODE_HIGH 2 #define MODE_CLOSE 3 #define MODE_VOLUME 4 #define MODE_TIME 5 #define MODE_TRADES 0 #define MODE_HISTORY 1 #define SELECT_BY_POS 0 #define SELECT_BY_TICKET 1 #define LONG_VALUE 4 #define FLOAT_VALUE 4 #define DOUBLE_VALUE 8 #define CHART_BAR 0 #define CHART_CANDLE 1 #define MODE_ASCEND 1 #define MODE_DESCEND 2 #define MODE_BID 9 #define MODE_ASK 10 #define MODE_POINT 11 #define MODE_DIGITS 12 #define MODE_SPREAD 13 #define MODE_STOPLEVEL 14 #define MODE_LOTSIZE 15 #define MODE_TICKVALUE 16 #define MODE_TICKSIZE 17 #define MODE_SWAPLONG 18 #define MODE_SWAPSHORT 19 #define MODE_STARTING 20 #define MODE_EXPIRATION 21 #define MODE_TRADEALLOWED 22 #define MODE_MINLOT 23 #define MODE_LOTSTEP 24 #define MODE_MAXLOT 25 #define MODE_SWAPTYPE 26 #define MODE_PROFITCALCMODE 27 #define MODE_MARGINCALCMODE 28 #define MODE_MARGININIT 29 #define MODE_MARGINMAINTENANCE 30 #define MODE_MARGINHEDGED 31 #define MODE_MARGINREQUIRED 32 #define MODE_FREEZELEVEL 33 #define MODE_CLOSEBY_ALLOWED 34 #define EMPTY -1 #define MODE_MAIN 0 #define MODE_SIGNAL 1 #define MODE_PLUSDI 1 #define MODE_MINUSDI 2 #define MODE_UPPER 1 #define MODE_LOWER 2 #define MODE_GATORJAW 1 #define MODE_GATORTEETH 2 #define MODE_GATORLIPS 3 #define MODE_TENKANSEN 1 #define MODE_KIJUNSEN 2 #define MODE_SENKOUSPANA 3 #define MODE_SENKOUSPANB 4 #define MODE_CHIKOUSPAN 5 #define MODE_CHINKOUSPAN 5 #define OBJPROP_TIME1 2000 #define OBJPROP_PRICE1 2001 #define OBJPROP_TIME2 2002 #define OBJPROP_PRICE2 2003 #define OBJPROP_TIME3 2004 #define OBJPROP_PRICE3 2005 #define OBJPROP_FIBOLEVELS 2006 //+------------------------------------------------------------------------------------+ //| 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. | //+------------------------------------------------------------------------------------+ //| | //| 1st May 2013 | //| Pattern_Recognition_Master_v8r.mq4 | //| | //| Modified by RaptorUK to add Engulfing option, bear and bull, all mods | //| marked RaptorUK | //| | //+------------------------------------------------------------------------------------+ #property copyright "Copyright © 2007, Carl Sanders (traden4x)." #property link "traden4x@gmail.com" #property indicator_chart_window #property indicator_buffers 2 #property indicator_plots 2 #property indicator_color1 Yellow #property indicator_color2 Yellow 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 = Red; int Text_ShootStar = 8; 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 = Aqua; int Text_Hammer = 8; input bool Display_Doji = true; input bool Show_Doji_Alert = true; input color Color_Doji = Red; int Text_Doji = 8; 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 = 8; input bool Display_Dark_Cloud_Cover = true; input bool Show_DarkCC_Alert = true; input color Color_DarkCC = Red; int Text_DarkCC = 8; input bool Display_Piercing_Line = true; input bool Show_Piercing_Line_Alert = true; input color Color_Piercing_Line = Aqua; int Text_Piercing_Line = 8; 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 = true; input bool Show_Bullish_Engulfing_Alert = true; input color Color_Bullish_Engulfing = Aqua; int Text_Bullish_Engulfing = 8; // added by RaptorUK input bool Display_Engulfing = true; input bool Show_Engulfing_Alert = true; input color Color_Engulfing = Aqua; int Text_Engulfing = 8; // end of added by RaptorUK double Pip; int RoundTo; //---- buffers double upArrow[]; double downArrow[]; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { double Point = _Point; //---- indicators SetIndexStyle(0,DRAW_ARROW,EMPTY); SetIndexArrow(0,72); SetIndexBuffer(0,downArrow,INDICATOR_DATA,true); SetIndexStyle(1,DRAW_ARROW,EMPTY); SetIndexArrow(1,71); SetIndexBuffer(1,upArrow,INDICATOR_DATA,true); //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; } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ void OnDeinit() { ObjectsDeleteAll(0,OBJ_TEXT); return; } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int OnCalculate(const int _rates_total, // size of input time series const int _prev_calculated, // bars handled in previous call const datetime& _time[], // Time const double& _open[], // Open const double& _high[], // High const double& _low[], // Low const double& _close[], // Close const long& _tick_volume[], // Tick Volume const long& _volume[], // Real Volume const int& _spread[] // Spread ){ FXD_ONCALCULATE_FAIL = false; // will be set to true if some indicator won't load int Bars = _rates_total; 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","\n","\n","Other","\n","Eng - 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; int arrowShift; int textShift; double O, O1, O2, C, C1, C2, C3, L, L1, L2, L3, H, H1, H2, H3; double CL, CLmin, CL1, CL2, BL, BLa, BL90, BL1, BL2, UW, UWa, UW1, UW2, LW, LWa, LW1, LW2, 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_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 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 == iTime(_Symbol,_Period,0)) { return(0); } prevtime = iTime(_Symbol,_Period,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_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 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_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 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_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 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_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 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_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 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_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 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_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 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_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 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_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; } 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(iHigh(_Symbol,_Period,counter),RoundTo)-NormalizeDouble(iLow(_Symbol,_Period,counter),RoundTo)); } Range=AvgRange/10; shift1 = shift + 1; shift2 = shift + 2; shift3 = shift + 3; shift4 = shift + 4; O = NormalizeDouble(iOpen(_Symbol,_Period,shift1),RoundTo); O1 = NormalizeDouble(iOpen(_Symbol,_Period,shift2),RoundTo); O2 = NormalizeDouble(iOpen(_Symbol,_Period,shift3),RoundTo); H = NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo); H1 = NormalizeDouble(iHigh(_Symbol,_Period,shift2),RoundTo); H2 = NormalizeDouble(iHigh(_Symbol,_Period,shift3),RoundTo); H3 = NormalizeDouble(iHigh(_Symbol,_Period,shift4),RoundTo); L = NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo); L1 = NormalizeDouble(iLow(_Symbol,_Period,shift2),RoundTo); L2 = NormalizeDouble(iLow(_Symbol,_Period,shift3),RoundTo); L3 = NormalizeDouble(iLow(_Symbol,_Period,shift4),RoundTo); C = NormalizeDouble(iClose(_Symbol,_Period,shift1),RoundTo); C1 = NormalizeDouble(iClose(_Symbol,_Period,shift2),RoundTo); C2 = NormalizeDouble(iClose(_Symbol,_Period,shift3),RoundTo); C3 = NormalizeDouble(iClose(_Symbol,_Period,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(iHigh(_Symbol,_Period,shift1),RoundTo)-NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo); CL1 = NormalizeDouble(iHigh(_Symbol,_Period,shift2),RoundTo)-NormalizeDouble(iLow(_Symbol,_Period,shift2),RoundTo); CL2 = NormalizeDouble(iHigh(_Symbol,_Period,shift3),RoundTo)-NormalizeDouble(iLow(_Symbol,_Period,shift3),RoundTo); BL = NormalizeDouble(iOpen(_Symbol,_Period,shift1),RoundTo)-NormalizeDouble(iClose(_Symbol,_Period,shift1),RoundTo); UW = NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo)-BodyHigh; LW = BodyLow-NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo); 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*Pip))&&(O!=C)&&((UW/3)<=LW)&&((UW/4)<=LW)/*&&(L>L1)&&(L>L2)*/) { if (Display_ShootStar_2 == true) { ObjectCreate(GetName("SS 2",shift),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset+Offset_ShootStar+High_Offset+CumOffset)*Pip); ObjectSetText(GetName("SS 2",shift),"SS 2",Text_ShootStar,"Times New Roman",Color_ShootStar); CumOffset = CumOffset+IncOffset; downArrow[shift1] = NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset*Pip); } if (Show_ShootStar_Alert_2) { if (setalert == 0 && Show_Alert == true) { 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*Pip))&&(O!=C)&&((UW/4)<=LW)/*&&(L>L1)&&(L>L2)*/) { if (Display_ShootStar_3 == true) { ObjectCreate(GetName("SS 3",shift),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset+Offset_ShootStar+High_Offset+CumOffset)*Pip); ObjectSetText(GetName("SS 3",shift),"SS 3",Text_ShootStar,"Times New Roman",Color_ShootStar); CumOffset = CumOffset+IncOffset; downArrow[shift1] = NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset*Pip); } if (Show_ShootStar_Alert_3) { if (setalert == 0 && Show_Alert == true) { 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*Pip))&&(O!=C)/*&&(L>L1)&&(L>L2)*/) { if (Display_ShootStar_4 == true) { ObjectCreate(GetName("SS 4",shift),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset+Offset_ShootStar+High_Offset+CumOffset)*Pip); ObjectSetText(GetName("SS 4",shift),"SS 4",Text_ShootStar,"Times New Roman",Color_ShootStar); CumOffset = CumOffset+IncOffset; downArrow[shift1] = NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset*Pip); } if (Show_ShootStar_Alert_4) { if (setalert == 0 && Show_Alert == true) { pattern = "Shooting ShootStar 4"; setalert = 1; } } } } // Check for Evening Star pattern if ((H>=H1)&&(H1>H2)&&(H1>H3)) { if (/*(L>O1)&&*/(BLa<(Star_Body_Length*Pip))&&(C2>O2)&&(!O==C)&&((C2-O2)/(/*0.001+*/H2-L2)>Doji_Star_Ratio)/*&&(C2O1)/*&&((H1-L1)>(3*(C1-O1)))*/&&(O>C)&&(CL>=(Star_MinLength*Pip))){ if (Display_Stars == true) { ObjectCreate(GetName("Star",shift),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset+Offset_Star+High_Offset+CumOffset)*Pip); ObjectSetText(GetName("Star",shift),"E_Star",Text_Star,"Times New Roman",Color_Star); CumOffset = CumOffset+IncOffset; downArrow[shift1] = NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset*Pip); } if (Show_Stars_Alert) { if (setalert == 0 && Show_Alert == true) { pattern="Evening Star Pattern"; setalert = 1; } } } } // Check for Evening Doji Star pattern if ((H>=H1)&&(H1>H2)&&(H1>H3)) { if (/*(L>O1)&&*/(O==C)&&((C2>O2)&&(C2-O2)/(/*0.001+*/H2-L2)>Doji_Star_Ratio)/*&&(C2O1)/*&&((H1-L1)>(3*(C1-O1)))*/&&(CL>=(Doji_MinLength*Pip))) { if (Display_Doji == true) { ObjectCreate(GetName("Doji",shift),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset+Offset_Doji+High_Offset+CumOffset)*Pip); ObjectSetText(GetName("Doji",shift),"E_Doji",Text_Doji,"Times New Roman",Color_Doji); CumOffset = CumOffset+IncOffset; downArrow[shift1] = NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset*Pip); } if (Show_Doji_Alert) { if (setalert == 0 && Show_Alert == true) { pattern="Evening Doji Star Pattern"; setalert = 1; } } } } // Check for a Dark Cloud Cover pattern if ((C1>O1)&&(((C1+O1)/2)>C)&&(O>C)/*&&(O>C1)*/&&(C>O1)&&((O-C)/(/*0.001+*/(H-L))>Piercing_Line_Ratio)&&((CL>=Piercing_Candle_Length*Pip))) { if (Display_Dark_Cloud_Cover == true) { ObjectCreate(GetName("DCC",shift),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset+Offset_DarkCC+High_Offset+CumOffset)*Pip); ObjectSetText(GetName("DCC",shift),"DCC",Text_DarkCC,"Times New Roman",Color_DarkCC); CumOffset = CumOffset+IncOffset; downArrow[shift1] = NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset*Pip); } if (Show_DarkCC_Alert) { if (setalert == 0 && Show_Alert == true) { 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*Pip))) { if (Display_Bearish_Engulfing == true) { ObjectCreate(GetName("S_E",shift),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset+Offset_Bearish_Engulfing+High_Offset+CumOffset)*Pip); ObjectSetText(GetName("S_E",shift),"S_E",Text_Bearish_Engulfing,"Times New Roman",Color_Bearish_Engulfing); CumOffset = CumOffset+IncOffset; downArrow[shift1] = NormalizeDouble(iHigh(_Symbol,_Period,shift1),RoundTo) + (Pointer_Offset*Pip); } if (Show_Bearish_Engulfing_Alert) { if (setalert == 0 && Show_Alert == true) { pattern = "Bearish Engulfing Pattern"; setalert = 1; } } } // End of Bearish Patterns // 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),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo) - (Pointer_Offset+Offset_Star+CumOffset)*Pip); ObjectSetText(GetName("Star",shift),"M_Star",Text_Star,"Times New Roman",Color_Star); CumOffset = CumOffset+IncOffset; upArrow[shift1] = NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo) - (Pointer_Offset*Pip); } if (Show_Stars_Alert) { if (shift == 0 && Show_Alert == true) { pattern="Morning Star Pattern"; setalert = 1; } } } } // Check for Morning Doji Star if ((L<=L1)&&(L1C2)&&((O2-C2)/(/*0.001+*/H2-L2)>Doji_Star_Ratio))/*&&(C2>O1)*/&&(O1>C1)/*&&((H1-L1)>(3*(C1-O1)))*/&&(CL>=(Doji_MinLength*Pip))) { if (Display_Doji == true) { ObjectCreate(GetName("Doji",shift),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo) - (Pointer_Offset+Offset_Doji+CumOffset)*Pip); ObjectSetText(GetName("Doji",shift),"M_Doji",Text_Doji,"Times New Roman",Color_Doji); CumOffset = CumOffset+IncOffset; upArrow[shift1] = NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo) - (Pointer_Offset*Pip); } if (Show_Doji_Alert) { if (shift == 0 && Show_Alert == true) { pattern="Morning Doji Pattern"; setalert = 1; } } } } // Check for Piercing Line pattern if ((C1Piercing_Line_Ratio)&&(CL>=(Piercing_Candle_Length*Pip))) { if (Display_Piercing_Line == true) { ObjectCreate(GetName("PrcLn",shift),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo) - (Pointer_Offset+Offset_Piercing_Line+CumOffset)*Pip); ObjectSetText(GetName("PrcLn",shift),"P_L",Text_Piercing_Line,"Times New Roman",Color_Piercing_Line); CumOffset = CumOffset+IncOffset; upArrow[shift1] = NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo) - (Pointer_Offset*Pip); } if (Show_Piercing_Line_Alert) { if (shift == 0 && Show_Alert == true) { 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*Pip))) { if (Display_Bullish_Engulfing) { ObjectCreate(GetName("L_E",shift),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo) - (Pointer_Offset+Offset_Bullish_Engulfing+CumOffset)*Pip); ObjectSetText(GetName("L_E",shift),"L_E",Text_Bullish_Engulfing,"Times New Roman",Color_Bullish_Engulfing); CumOffset = CumOffset+IncOffset; upArrow[shift1] = NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo) - (Pointer_Offset*Pip); } if (Show_Bullish_Engulfing_Alert) { if (shift == 0 && Show_Alert == true) { pattern="Bullish Engulfing Pattern"; setalert = 1; } } } // Check for Engulfing pattern - added by RaptorUK if ( ( ( C > MathMax(O1,C1) && O < MathMin(O1,C1) ) || ( O > MathMax(O1,C1) && C < MathMin(O1,C1) ) ) && ( CL >= (Engulfing_Length*Pip) ) ) { if (Display_Engulfing) { ObjectCreate(GetName("Eng",shift),(ENUM_OBJECT)OBJ_TEXT,0,iTime(_Symbol,_Period,shift1),NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo) - (Pointer_Offset+Offset_Bullish_Engulfing+CumOffset)*Pip); ObjectSetText(GetName("Eng",shift),"Eng",Text_Bullish_Engulfing,"Times New Roman",Color_Bullish_Engulfing); CumOffset = CumOffset+IncOffset; upArrow[shift1] = NormalizeDouble(iLow(_Symbol,_Period,shift1),RoundTo) - (Pointer_Offset*Pip); } if (Show_Engulfing_Alert) { if (shift == 0 && Show_Alert == true) { pattern="Engulfing Pattern"; setalert = 1; } } } // End - Check for Engulfing pattern - added by RaptorUK // End of Bullish Patterns if (setalert == 1 && shift == 0) { Alert(Symbol()," ",period," ",pattern); setalert = 0; } CumOffset = 0; } // End of for loop if (FXD_ONCALCULATE_FAIL) {return -1;} return _rates_total; return(0); } //+------------------------------------------------------------------+ string GetName(string aName,int shift) { return(aName+DoubleToStr(iTime(_Symbol,_Period,shift),0)); } //== fxDreema MQL4 to MQL5 Converter ==// //-- Global Variables int FXD_SELECTED_TYPE = 0; // Indicates what is selected by OrderSelect(), 1 for trade, 2 for pending order, 3 for history trade ulong FXD_SELECTED_TICKET = 0; // The ticket number selected by OrderSelect() bool FXD_ONCALCULATE_FAIL = false; // Flag that causes OnCalculate() to return nothing if some indicator is used and failed to load, which means that indicator calculations must be repeated //-- Functions string DoubleToStr(double value, int digits=8) { return DoubleToString(value, digits); } bool ObjectCreate(string name, ENUM_OBJECT type, int window, datetime time1, double price1, datetime time2=0, double price2=0, datetime time3=0, double price3=0) { return(ObjectCreate(0,name,type,window,time1,price1,time2,price2,time3,price3)); } bool ObjectSetText(string name, string text, int font_size, string font="", color text_color=CLR_NONE) { int tmpObjType = (int)ObjectGetInteger(0,name,OBJPROP_TYPE); if (tmpObjType!=OBJ_LABEL && tmpObjType!=OBJ_TEXT) return(false); if (StringLen(text)>0 && font_size>0) { if (ObjectSetString(0,name,OBJPROP_TEXT,text)==true && ObjectSetInteger(0,name,OBJPROP_FONTSIZE,font_size)==true) { if(StringLen(font)>0 && ObjectSetString(0,name,OBJPROP_FONT,font)==false) return(false); if(text_color>-1 && ObjectSetInteger(0,name,OBJPROP_COLOR,text_color)==false) return(false); return(true); } return(false); } return(false); } int ObjectsDeleteAll(int window=EMPTY, int type=EMPTY) { return ObjectsDeleteAll(0, window, type); } void SetIndexStyle( int index, int type, int style=EMPTY, int width=EMPTY, color clr=clrNONE) { if(width>-1) PlotIndexSetInteger(index,PLOT_LINE_WIDTH,width); if(clr!=CLR_NONE) PlotIndexSetInteger(index,PLOT_LINE_COLOR,clr); switch(type) { case 0: PlotIndexSetInteger(index,PLOT_DRAW_TYPE,DRAW_LINE); break; case 1: PlotIndexSetInteger(index,PLOT_DRAW_TYPE,DRAW_SECTION); break; case 2: PlotIndexSetInteger(index,PLOT_DRAW_TYPE,DRAW_HISTOGRAM); break; case 3: PlotIndexSetInteger(index,PLOT_DRAW_TYPE,DRAW_ARROW); break; case 4: PlotIndexSetInteger(index,PLOT_DRAW_TYPE,DRAW_ZIGZAG); break; case 12: PlotIndexSetInteger(index,PLOT_DRAW_TYPE,DRAW_NONE); break; default: PlotIndexSetInteger(index,PLOT_DRAW_TYPE,DRAW_LINE); } switch(style) { case 0: PlotIndexSetInteger(index,PLOT_LINE_STYLE,STYLE_SOLID); break; case 1: PlotIndexSetInteger(index,PLOT_LINE_STYLE,STYLE_DASH); break; case 2: PlotIndexSetInteger(index,PLOT_LINE_STYLE,STYLE_DOT); break; case 3: PlotIndexSetInteger(index,PLOT_LINE_STYLE,STYLE_DASHDOT); break; case 4: PlotIndexSetInteger(index,PLOT_LINE_STYLE,STYLE_DASHDOTDOT); break; default: return; } } void SetIndexArrow(int index, int code) { PlotIndexSetInteger(index, PLOT_ARROW, code); } bool SetIndexBuffer( int index, double &buffer[], ENUM_INDEXBUFFER_TYPE data_type, bool set_as_series ) { bool ret = SetIndexBuffer(index, buffer, data_type); if (ret) { ArraySetAsSeries(buffer, true); } return ret; } //== fxDreema MQL4 to MQL5 Converter ==//