//+------------------------------------------------------------------+ //| ProjectName | //| Copyright 2018, CompanyName | //| http://www.companyname.net | //+------------------------------------------------------------------+ #include <stdlib.mqh> #include <stderror.mqh> //+------------------------------------------------------------------+ //| Configuration | //+------------------------------------------------------------------+ extern bool EnableAlert = true; extern bool EnableNotification = true; input int LeftBars = 5; input int WickLongMin = 33; input int WickShortMax = 18; input int WickShortMin = 3; input color NormalColour = clrWhite; input color ShortColour = LightGreen; input color LongColour = LightBlue; double CloseOld; // Used to identify a new bar in the code. double BodySize, WickLong, WickShort, BuyShort, BuyLong; double EMA50, EMA200; int Body, PinbarShort, PinbarLong; //+------------------------------------------------------------------+ //| Init | //+------------------------------------------------------------------+ int OnInit() { return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Start | //+------------------------------------------------------------------+ int start() { int d = TimeDayOfWeek(TimeCurrent()); // Sunday is 0 int h = TimeHour(TimeCurrent()); int m = TimeMinute(TimeCurrent()); BuyLong = 0; BuyShort = 0; //+------------------------------------------------------------------+ //| Pattern section | //+------------------------------------------------------------------+ EMA50 = iMA(NULL, 0, 50, 0, MODE_EMA, PRICE_CLOSE, 1); EMA200 = iMA(NULL, 0, 200, 0, MODE_EMA, PRICE_CLOSE, 1); // BodySize BodySize = Close[1] - Open[1]; if(BodySize >= 0) Body = 1; // Blue if(BodySize <= 0) { BodySize = Open[1] - Close[1]; Body = -1; // Red } // **************************************** //PinBar validation PinbarLong = 0; PinbarShort = 0; if(Body == 1) // Blue bar { WickLong = Open[1] - Low[1]; WickShort = High[1] - Close[1]; if(WickLong >= (BodySize / 100 * WickLongMin * Point()) && BodySize / 100 * WickShortMin * Point() >= WickShort <= (BodySize / 100 * WickShortMax * Point())) { PinbarLong = 1; } WickLong = High[1] - Close[1]; WickShort = Open[1] - Low[1]; if(EMA50 <= EMA200 && WickLong >= (BodySize / 100 * WickLongMin * Point()) && BodySize / 100 * WickShortMin * Point() >= WickShort <= (BodySize / 100 * WickShortMax * Point())) { PinbarShort = 1; } } if(Body == -1) // Red bar { WickLong = Close[1] - Low[1]; WickShort = High[1] - Open[1]; if(WickLong >= (BodySize / 100 * WickLongMin) && BodySize / 100 * WickShortMin >= WickShort <= (BodySize / 100 * WickShortMax)) { PinbarLong = 1; } WickLong = High[1] - Open[1]; WickShort = Close[1] - Low[1]; if(WickLong >= (BodySize / 100 * WickLongMin) && BodySize / 100 * WickShortMin >= WickShort <= (BodySize / 100 * WickShortMax)) { PinbarShort = 1; } } if(PinbarLong == 1 && Low[1] <= EMA50 && Close[1] >= EMA50 && Open[1] >= EMA50 && Open[2] >= EMA50 && Close[2] >= EMA50 && EMA50 >= EMA200) BuyLong = 1; if(PinbarLong == 1 && High[1] >= EMA50 && Close[1] <= EMA50 && Open[1] <= EMA50 && Open[2] <= EMA50 && Close[2] <= EMA50 && EMA50 <= EMA200) BuyShort = 1; if(PinbarShort == 1 && Low[1] <= EMA50 && Close[1] >= EMA50 && Open[2] >= EMA50 && Close[2] >= EMA50 && EMA50 >= EMA200) BuyLong = 1; if(PinbarShort == 1 && High[1] >= EMA50 && Open[1] <= EMA50 && Close[1] <= EMA50 && Open[2] <= EMA50 && Close[2] <= EMA50 && EMA50 <= EMA200) BuyShort = 1; //Looking left. 50EMA must not be exceeded. for(int i=1; i<= LeftBars; i++) { if(EMA50 <= EMA200) { if(Open[i] >= EMA50 || Close[i] >= EMA50) { BuyLong = 0; BuyShort = 0; } } if(EMA50 >= EMA200) { if(Open[i] <= EMA50 || Close[i] <= EMA50) { BuyLong = 0; BuyShort = 0; } } } // ******************************************************************************************************************************* // From here the code is visited only at every new bar. if(Close[1] != CloseOld)// Derved kører scriptet kun én gang per brick { CloseOld = Close[1]; //En ny bar forekommer. // Alarms: if(BuyLong == 1) { ChartSetInteger(ChartID(), CHART_COLOR_BACKGROUND, LongColour); // Owned Long. if(EnableAlert == true) Alert(Symbol(), "Pinbar Long signal"); if(EnableNotification == true) SendNotification("Pinbar Long signal. "+ Symbol() + " TimeFrame " + ChartPeriod(0)); } if(BuyShort == 1) { ChartSetInteger(ChartID(), CHART_COLOR_BACKGROUND, ShortColour); // Owned Long. if(EnableAlert == true) Alert(Symbol(), "Pinbar Short signal"); if(EnableNotification == true) SendNotification("Pinbar Short signal. "+ Symbol()+ " TimeFrame "+ ChartPeriod(0)); } if(BuyShort == 0 && BuyLong == 0) { ChartSetInteger(ChartID(), CHART_COLOR_BACKGROUND, NormalColour); // Owned Long. } } //if(Close[1] != CloseOld) // ******************************************************************************************************************************* //+------------------------------------------------------------------+ //| Show split on screen | //+------------------------------------------------------------------+ string Split, Split2; Split = "Splitt"; Split2 = "Splitt2"; double SplitValue = NormalizeDouble((Ask - Bid) / Point / 10, 2); ObjectDelete("Splitt"); ObjectCreate("Splitt", OBJ_LABEL, 0, 0, 0); ObjectSetText("Splitt","Split", 12, "Verdana", White); ObjectSet("Splitt", OBJPROP_CORNER, CORNER_RIGHT_UPPER); ObjectSet("Splitt", OBJPROP_XDISTANCE,100); ObjectSet("Splitt", OBJPROP_YDISTANCE,20); //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ ObjectDelete("Splitt2"); ObjectCreate("Splitt2", OBJ_LABEL, 0, 0, 0); ObjectSetText("Splitt2",SplitValue,12, "Verdana", Red); ObjectSet("Splitt2", OBJPROP_CORNER, CORNER_RIGHT_UPPER); ObjectSet("Splitt2", OBJPROP_XDISTANCE,25); ObjectSet("Splitt2", OBJPROP_YDISTANCE,20); //+------------------------------------------------------------------+ //| Skriv på skærmen | //+------------------------------------------------------------------+ Comment( // Just programming aids: "Symbol = ", Symbol() + "\n", "Level = ", AccountInfoInteger(ACCOUNT_LEVERAGE) + "\n", "BuyLong = ", BuyLong + "\n", "BuyShort = ", BuyShort + "\n", "BodySize = ", BodySize + "\n", "Body = ", Body + "\n", "WickLong = ", WickLong + "\n", "WickShort = ", WickShort + "\n", "h = ", h + "\n" ); } //+------------------------------------------------------------------+