//+------------------------------------------------------------------+ //| Nanningbob V5 auto trading robot.mq4 | //| Copyright © 2009, Steve Hopwood | //| http://www.hopwood3.freeserve.co.uk | //+------------------------------------------------------------------+ #property copyright "Copyright © 2009, Steve Hopwood" #property link "http://www.hopwood3.freeserve.co.uk" #include #include #define NL "\n" #define up "Up" #define down "Down" #define buy "Buy" #define sell "Sell" #define none "None" #define ranging "Ranging" #define confused "Confused, and so cannot trade" #define trending "Trending" #define irrelevant "Irrelevant - there is no trade direction yet" #define mode0 "Not looking for a trade trigger" #define mode1buy "#1 Buy" #define mode1sell "#1 Sell" #define mode2buy "#2 Buy" #define mode2sell "#2 Sell" #define mode3buy "#3 Buy BUlge" #define mode3sell "#3 Sell Bulge" #define mode4buy "#4 Buy" #define mode4sell "#4 Sell" #define mode7buy "#7 Buy divergence" #define mode7sell "#7 Sell divergence" #define opentrade "There is a trade open" #define stopped "Trading is stopped" #define reentrylinename "Re entry line" //From iExposure #define SYMBOLS_MAX 1024 #define DEALS 0 #define BUY_LOTS 1 #define BUY_PRICE 2 #define SELL_LOTS 3 #define SELL_PRICE 4 #define NET_LOTS 5 #define PROFIT 6 /* LAST CHANGED: 29.8.2010 10.45 PM Trading modes: - 0: not in trading zone - 1: #1 buy - 11: #1 sell - 2: #2 buy - 22: #2 sell - 3: #3 buy bulge - 33: #3 - 4: #4 buy - 44: #4 sell - 7; #7 buy (divergence) - 7; #77 sell (divergence) ----Trading---- bool SendSingleTrade(int type, string comment, double lotsize, double price, double stop, double take) void AddReEntryLine(int type) bool DoesTradeExist() Not used but left in place in case I change my mind double SetTarget(string tradedirection) void Buy(string comment) void Sell(string comment) ----Trading modes---- void Mode1Buy() void Mode1Sell() void Mode2Buy() void Mode2Sell() void Mode3Buy() void Mode3Sell() void Mode4Buy() void Mode4Sell() void Mode7Buy() void Mode7Sell() ----Trade direction module---- void GetTradeDirection() void IsDirectionStillValid() Not used but left in place in case I change my mind void ReadIndicatorValues() void GetBB() void GetSixths() void GetStoch() double GetStochMACD(int fast_ema_period, int slow_ema_period, int signal_period, int StochasticPeriod, int shift) ----Trade closure module---- void TradeClosureModule() bool WhiteLineClose(int type) bool CloseTrade() TREND DETECTION MODULE ----Trend direction---- void GetTheTrend() void GetRsiTrend() void GetAtrTrend() void GetAdxTrend() string GetLsmaTrend(int tf, int shift) ----Trade management module---- void TradeManagementModule() void BreakEvenStopLoss() bool CheckForHiddenStopLossHit(int type, int iPipsAboveVisual, double stop ) void JumpingStopLoss() void HiddenTakeProfit() void HiddenStopLoss() void TrailingStopLoss() ----1.1.3.3 recovery module---- void RecoveryModule() void CountOpenTrades() void CheckRecoveryTakeProfit() int Analyze() int SymbolsIndex(string SymbolName) void ModifyTakeProfit(double NewTake) */ extern string gen="----General inputs----"; extern double Lot=1; extern bool CriminalIsECN=false; extern int ReEntryLinePips=200; extern color ReEntryLineColour=Turquoise; extern bool StopTrading=false; //extern int MagicNumber=0; //extern bool UseZeroMagicNumber=false; extern bool Use1.1.3.3Recovery=false; extern bool Use2.4.2Recovery=false; extern bool Use1.2.4Recovery=true; extern string bl15="-------------------------------------------------------------"; extern string atms="----Trading methods----"; extern bool Allow1=true; extern bool Allow2=true; extern bool Allow3=true; extern bool Allow4=true; extern bool Allow7=true; extern string bl14="-------------------------------------------------------------"; extern string tpi="----Take profit and stop loss inputs----"; extern int TakeProfit=0; extern bool UseSixthsTp = false; extern bool UseBollingerTp = false; extern bool UseAtrTp=true; extern int AtrTpPeriod=14; extern int AtrTpTimeFrame=0; extern double AtrTpMultiplier=3; extern int MinimumTargetinPips = 50; extern string htp="Hidden take profit settings"; extern bool HideTakeProfitEnabled=false; extern int HiddenTakeProfitPips=20; extern string sli="Stop loss for catastrophic events"; extern int EmergencyStopLoss=999; extern string six="----Sixths inputs----"; extern int BarCount=120; extern bool TradeZoneA=false; extern bool TradeZoneB=true; extern string bl3="-------------------------------------------------------------"; extern string tcm="----Trade closure module----"; extern string wlc="White line closure"; extern bool UseWhiteLineClosure=true; extern int MinSeparationFromBlue=15; extern string bl4="-------------------------------------------------------------"; extern string tmm="----Trade management module----"; extern bool DoNotOverload5DigitCriminals=true; extern string BE="Break even settings"; extern bool BreakEven=true; extern int BreakEvenPips=25; extern int BreakEvenProfit=10; extern bool HideBreakEvenStop=false; extern int PipsAwayFromVisualBE=5; extern string JSL="Jumping stop loss settings"; extern bool JumpingStop=true; extern int JumpingStopPips=50; extern bool AddBEP=true; extern bool JumpAfterBreakevenOnly=false; extern bool HideJumpingStop=false; extern int PipsAwayFromVisualJS=10; extern string TSL="Trailing stop loss settings"; extern bool TrailingStop=false; extern int TrailingStopPips=50; extern bool HideTrailingStop=false; extern int PipsAwayFromVisualTS=10; extern bool TrailAfterBreakevenOnly=false; extern bool StopTrailAtPipsProfit=false; extern int StopTrailPips=0; extern string hsl1="Hidden stop loss settings"; extern bool HideStopLossEnabled=false; extern int HiddenStopLossPips=20; extern string bl1="-------------------------------------------------------------"; extern string tm="----Trend detection module for #4----"; extern string rsin="----Rsi----"; extern bool UseRsi=true; extern int RsiTf=0; extern int RsiPeriod=21; extern string atri="----Atr----"; extern bool UseAtr=false; extern int AtrTf=0; extern int AtrPeriod=21; extern int DaysToLookBack=10; extern string adxin="----Adx----"; extern bool UseAdx=false; extern int AdxTf=0; extern int AdxPeriod=21; extern string ls="----LSMA----"; extern bool UseLSMA=false; extern int LSMAPeriod=21; extern int LSMATf=0; extern string Smacd="----Stochs----"; extern bool UseStochMacd=false; extern string bl2="-------------------------------------------------------------"; extern string smacd="----StochasticMacdSqualou inputs----"; extern int FastEMA =12; extern int SlowEMA =26; extern int SignalSMA =9; extern int StochasticPeriod =120; //4 weeks of H4 bars = 4*5*24/4 = 120 extern int OverBought=75; extern int OverSold=25; extern string mas="----MA inputs----"; extern double MinSepFromBB=0.1; extern string mis="----Odds and ends----"; extern int DisplayGapSize=30; extern bool ShowAlerts=true; //-- info trade orders //Corresponding trade comments string no1_Buy25 = "#1 BUY_25"; string no1_Sel25 = "#1 SELL_25"; string no2_Buy1MA = "#2 BUY_1MA"; string no2_Sel1MA = "#2 SELL_1MA"; string no3_BuyBulge = "#3 BUY_Bulge"; string no3_SelBulge = "#3 SELL_Bulge"; string no4_BuyBB13 = "#4 BUY_BB13"; string no4_SelBB13 = "#4 SELL_BB13"; string no7_BuyDivergence = "#7 BUY_Div"; string no7_SelDivergence = "#7 SELL_Div"; //Trading variables int TicketNo, OpenTrades; //int SendMagicNumber; double SendLots; //BB variables double BbUpper, BbLower; //6ths variable. double BottomGoldLine;//Bottom, gold line double BottomGreenLine;//Bottom, green line double MiddleWhiteLine;//Middle, white line double TopGreenLine;//Top, green line double TopGoldLine;//Top, gold line //Stoch variables double StochWhite; double StochBlue; //Macd double MacdVal; //MA double Ma1; //Trade direction string TradeDirection=none, TradingStatus=none; int OldBars; //Trend double TrendRsiVal, TrendAtrVal; double AdxVal, AdxPlusDI, AdxMinusDI; string RsiTrend, AtrTrend, AdxTrend, LsmaTrend, trend; //1.1.3.3 recover bool RecoveryInProgress, TpMoved; string ExtSymbols[SYMBOLS_MAX]; int ExtSymbolsTotal=0; double ExtSymbolsSummaries[SYMBOLS_MAX][7]; int ExtLines=-1; string ExtCols[8]={"Symbol", "Deals", "Buy lots", "Buy price", "Sell lots", "Sell price", "Net lots", "Profit"}; int ExtShifts[8]={ 10, 80, 130, 180, 260, 310, 390, 460 }; int ExtVertShift=14; double buy_price=0.0; double sell_price=0.0; //Misc string Gap, ScreenMessage, GvName; //OOOOOOOOOOOOOOOOOOOOOOOOOOO Maxou Modif double DailyATR=0; int multiplier; void DisplayUserFeedback() { if (IsTesting() && !IsVisualMode()) return; ScreenMessage = ""; ScreenMessage = StringConcatenate(ScreenMessage,Gap, NL); //Code for time to bar-end display from Candle Time by Nick Bilak double i; int m,s,k; m=Time[0]+Period()*60-CurTime(); i=m/60.0; s=m%60; m=(m-m%60)/60; ScreenMessage = StringConcatenate(ScreenMessage,Gap, m + " minutes " + s + " seconds left to bar end", NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "BB Upper line: ", DoubleToStr(BbUpper, Digits), NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "BB Lower line: ", DoubleToStr(BbLower, Digits), NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Sixths: ", NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, " Top, gold line: ", DoubleToStr(TopGoldLine, Digits), NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, " Top, green line: ", DoubleToStr(TopGreenLine, Digits), NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, " Middle, white line: ", DoubleToStr(MiddleWhiteLine, Digits), NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, " Bottom, gold line: ", DoubleToStr(BottomGoldLine, Digits), NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, " Bottom, green line: ", DoubleToStr(BottomGreenLine, Digits), NL); if (TradeZoneA) ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Trading zone A (above top gold line and below bottom gold line)", NL); if (TradeZoneB) ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Trading zone B (above top green line and below bottom green line)", NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Stochastic white line: ", StochWhite, NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Stochastic blue line: ", StochBlue, NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Macd red line: ", DoubleToStr(MacdVal, 4), NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "MA: ", DoubleToStr(Ma1, Digits), NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Trade direction: ", TradeDirection, NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Trading status: ", TradingStatus, NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "#4 trend: ", trend, NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Lot size: ", Lot, NL); //ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Magic number: ", MagicNumber, NL); /* ScreenMessage = StringConcatenate(ScreenMessage,Gap, NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Lot size: ", Lot, NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Take profit: ", TakeProfit, " pips", NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Emergency stop loss: ", FontSize, " pips", NL); //ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Magic number: ", MagicNumber, NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Trade comment: ", TradeComment, NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Tolerance: ", Tolerance, NL); if (CriminalIsECN) ScreenMessage = StringConcatenate(ScreenMessage,Gap, "CriminalIsECN = true", NL); else ScreenMessage = StringConcatenate(ScreenMessage,Gap, "CriminalIsECN = false", NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Criminal's minimum lot size: ", MarketInfo(Symbol(), MODE_MINLOT), NL, NL ); if (CriminalAllowsHedging) { ScreenMessage = StringConcatenate(ScreenMessage,Gap, "Hedging inputs:", NL); ScreenMessage = StringConcatenate(ScreenMessage,Gap, " HedgeAtLossPips: ", HedgeAtLossPips, " pips", NL); //ScreenMessage = StringConcatenate(ScreenMessage,Gap, " HedgeProfitTarget: ", HedgeProfitTarget, " pips", NL); }//if (CriminalAllowsHedging) */ Comment(ScreenMessage); }//void DisplayUserFeedback() //+------------------------------------------------------------------+ //| expert initialization function | //+------------------------------------------------------------------+ int init() { //---- //---- if (StringSubstr(Symbol(), 0, 6) == "AUDCAD") { ReEntryLinePips =150;} if (StringSubstr(Symbol(), 0, 6) == "AUDCHF") { ReEntryLinePips =180;} if (StringSubstr(Symbol(), 0, 6) == "AUDJPY") { ReEntryLinePips =180;} if (StringSubstr(Symbol(), 0, 6) == "AUDNZD") { ReEntryLinePips =150;} if (StringSubstr(Symbol(), 0, 6) == "AUDUSD") { ReEntryLinePips =150;} if (StringSubstr(Symbol(), 0, 6) == "CADCHF") { ReEntryLinePips =180;} if (StringSubstr(Symbol(), 0, 6) == "CADJPY") { ReEntryLinePips =200;} if (StringSubstr(Symbol(), 0, 6) == "CHFJPY") { ReEntryLinePips =150;} if (StringSubstr(Symbol(), 0, 6) == "EURAUD") { ReEntryLinePips =200;} if (StringSubstr(Symbol(), 0, 6) == "EURCAD") { ReEntryLinePips =200;} if (StringSubstr(Symbol(), 0, 6) == "EURCHF") { ReEntryLinePips =150;} if (StringSubstr(Symbol(), 0, 6) == "EURGBP") { ReEntryLinePips =150;} if (StringSubstr(Symbol(), 0, 6) == "EURJPY") { ReEntryLinePips =200;} if (StringSubstr(Symbol(), 0, 6) == "EURNZD") { ReEntryLinePips =250;} if (StringSubstr(Symbol(), 0, 6) == "EURUSD") { ReEntryLinePips =180;} if (StringSubstr(Symbol(), 0, 6) == "GBPCHF") { ReEntryLinePips =200;} if (StringSubstr(Symbol(), 0, 6) == "GBPJPY") { ReEntryLinePips =250;} if (StringSubstr(Symbol(), 0, 6) == "GBPUSD") { ReEntryLinePips =200;} if (StringSubstr(Symbol(), 0, 6) == "NZDJPY") { ReEntryLinePips =180;} if (StringSubstr(Symbol(), 0, 6) == "NZDUSD") { ReEntryLinePips =150;} if (StringSubstr(Symbol(), 0, 6) == "SGDJPY") { ReEntryLinePips =150;} if (StringSubstr(Symbol(), 0, 6) == "USDCHF") { ReEntryLinePips =180;} if (StringSubstr(Symbol(), 0, 6) == "USDCAD") { ReEntryLinePips =150;} if (StringSubstr(Symbol(), 0, 6) == "USDJPY") { ReEntryLinePips =180;} if (StringSubstr(Symbol(), 0, 6) == "USDNOK") { ReEntryLinePips =1500;} if (StringSubstr(Symbol(), 0, 6) == "USDSEK") { ReEntryLinePips =1500;} //if (MagicNumber == 0) { MagicNumber = 227998; }*/ Lot=1; DisplayGapSize =00; BreakEvenPips =25; //for H1=20 (H4=25) for M15=20 BreakEvenProfit =10; //for H1=7 (H4=10) for M15=5 JumpingStopPips =50; //for H1=35 (H4=50) for M15=25 MinimumTargetinPips = 50; //for H1=30 (H4=50) for M15=30 AtrTpMultiplier =3; //for H1=2 (H4=3) for M15=1 TrailingStop =true; // (false) TrailingStopPips =50; //for H1=30 (H4=50) for M15=20 Gap=""; if (DisplayGapSize >0) { for (int cc=0; cc< DisplayGapSize; cc++) { Gap = StringConcatenate(Gap, " "); } }//if (DisplayGapSize >0) int multiplier; if(Digits == 2 || Digits == 4) multiplier = 1; if(Digits == 3 || Digits == 5) multiplier = 10; if(Digits == 6) multiplier = 100; if(Digits == 7) multiplier = 1000; TakeProfit*= multiplier; EmergencyStopLoss*= multiplier; ReEntryLinePips*= multiplier; BreakEvenPips*= multiplier; BreakEvenProfit*= multiplier; PipsAwayFromVisualBE*= multiplier; JumpingStopPips*= multiplier; PipsAwayFromVisualJS*= multiplier; MinimumTargetinPips*= multiplier; TrailingStopPips*= multiplier; PipsAwayFromVisualTS*= multiplier; StopTrailPips*= multiplier; HiddenStopLossPips*= multiplier; HiddenTakeProfitPips*= multiplier; GvName = "Nanningbob V5 " + Symbol(); //Pick up looking for trade setups after a crash if (GlobalVariableCheck(GvName) ) int dir = GlobalVariableGet(GvName); TradeDirection = none; TradingStatus = mode0; //Market needs to touch the band from within if (dir == 1) { TradeDirection = up; TradingStatus = mode1buy; }//if (dir == 1) if (dir == 11) { TradeDirection = down; TradingStatus = mode1sell; }//if (dir == 1) //Market needs to sink back within the bands if (dir == 2) { TradeDirection = up; TradingStatus = mode2buy; }//if (dir == 2) if (dir == 22) { TradeDirection = down; TradingStatus = mode2sell; }//if (dir == 22) //Bulge if (dir == 3) { TradeDirection = up; TradingStatus = mode3buy; }//if (dir == 3) if (dir == 33) { TradeDirection = down; TradingStatus = mode3sell; }//if (dir == 33) //1.1.3.3 recovery CountOpenTrades(); OrderSelect(TicketNo, SELECT_BY_TICKET); if (OpenTrades > 1) { RecoveryInProgress = true; TpMoved = false; }//if (OpenTrades > 1) SendLots = Lot; /* if (!UseZeroMagicNumber) { //Thanks to Max for this if (StringSubstr(Symbol(), 0, 6) == "AUDCAD") { MagicNumber = MagicNumber+1 ; } if (StringSubstr(Symbol(), 0, 6) == "AUDCHF") { MagicNumber = MagicNumber+2 ; } if (StringSubstr(Symbol(), 0, 6) == "AUDJPY") { MagicNumber = MagicNumber+3 ; } if (StringSubstr(Symbol(), 0, 6) == "AUDNZD") { MagicNumber = MagicNumber+4 ; } if (StringSubstr(Symbol(), 0, 6) == "AUDUSD") { MagicNumber = MagicNumber+5 ; } if (StringSubstr(Symbol(), 0, 6) == "CADCHF") { MagicNumber = MagicNumber+6 ; } if (StringSubstr(Symbol(), 0, 6) == "CADJPY") { MagicNumber = MagicNumber+7 ; } if (StringSubstr(Symbol(), 0, 6) == "CHFJPY") { MagicNumber = MagicNumber+8 ; } if (StringSubstr(Symbol(), 0, 6) == "EURAUD") { MagicNumber = MagicNumber+9 ; } if (StringSubstr(Symbol(), 0, 6) == "EURCAD") { MagicNumber = MagicNumber+10; } if (StringSubstr(Symbol(), 0, 6) == "EURCHF") { MagicNumber = MagicNumber+11; } if (StringSubstr(Symbol(), 0, 6) == "EURGBP") { MagicNumber = MagicNumber+12; } if (StringSubstr(Symbol(), 0, 6) == "EURJPY") { MagicNumber = MagicNumber+13; } if (StringSubstr(Symbol(), 0, 6) == "EURNZD") { MagicNumber = MagicNumber+14; } if (StringSubstr(Symbol(), 0, 6) == "EURUSD") { MagicNumber = MagicNumber+15; } if (StringSubstr(Symbol(), 0, 6) == "GBPCHF") { MagicNumber = MagicNumber+16; } if (StringSubstr(Symbol(), 0, 6) == "GBPJPY") { MagicNumber = MagicNumber+17; } if (StringSubstr(Symbol(), 0, 6) == "GBPUSD") { MagicNumber = MagicNumber+18; } if (StringSubstr(Symbol(), 0, 6) == "NZDJPY") { MagicNumber = MagicNumber+19; } if (StringSubstr(Symbol(), 0, 6) == "NZDUSD") { MagicNumber = MagicNumber+20; } if (StringSubstr(Symbol(), 0, 6) == "SGDJPY") { MagicNumber = MagicNumber+21; } if (StringSubstr(Symbol(), 0, 6) == "USDCHF") { MagicNumber = MagicNumber+22; } if (StringSubstr(Symbol(), 0, 6) == "USDCAD") { MagicNumber = MagicNumber+23; } if (StringSubstr(Symbol(), 0, 6) == "USDJPY") { MagicNumber = MagicNumber+24; } if (StringSubstr(Symbol(), 0, 6) == "USDNOK") { MagicNumber = MagicNumber+25; } if (StringSubstr(Symbol(), 0, 6) == "USDSEK") { MagicNumber = MagicNumber+26; } }//if (!UseZeroMagicNumber) SendMagicNumber = MagicNumber; */ //start(); //---- return(0); } //+------------------------------------------------------------------+ //| expert deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- Comment(""); //---- return(0); } /////////////////////////////////////////////////////////////////////////////////////////// //TREND DETECTION MODULE void GetRsiTrend() { //TrendRsiVal = GetRsi(0); trend = ranging; double tf = RsiTf; if (tf == 0) tf = Period(); TrendRsiVal = iRSI(NULL, tf, RsiPeriod, PRICE_CLOSE, 0); if (TrendRsiVal > 55) RsiTrend = up; if (TrendRsiVal < 45) RsiTrend = down; }//End void GetRsiTrend() void GetAtrTrend() { double PriceNow = Bid; double tf = AtrTf; if (AtrTf == 0) tf = Period(); double ComparePrice = iOpen(NULL, tf, DaysToLookBack); TrendAtrVal = iATR(NULL, tf, AtrPeriod, 0); double x2TrendAtrVal = TrendAtrVal * 2; AtrTrend = ranging; if (PriceNow > ComparePrice) { double TrendLevel = NormalizeDouble(ComparePrice + x2TrendAtrVal, Digits); if (Ask > TrendLevel) AtrTrend = up; }//if (PriceNow > ComparePrice) if (PriceNow < ComparePrice) { TrendLevel = NormalizeDouble(ComparePrice - x2TrendAtrVal, Digits); if (Bid < TrendLevel) AtrTrend = down; }//if (PriceNow > ComparePrice) }//End void GetAtrTrend() void GetAdxTrend() { AdxTrend = ranging; double tf = AdxTf; if (AdxTf == 0) tf = Period(); double PreviousAdxVal = iADX(NULL, tf, AdxPeriod, PRICE_CLOSE, MODE_MAIN, 1); AdxVal = iADX(NULL, tf, AdxPeriod, PRICE_CLOSE, MODE_MAIN, 0); AdxPlusDI = iADX(NULL, tf, AdxPeriod, PRICE_CLOSE, MODE_PLUSDI, 0); AdxMinusDI = iADX(NULL, tf, AdxPeriod, PRICE_CLOSE, MODE_MINUSDI, 0); if (AdxVal < PreviousAdxVal) return;//No trend so nothing to do if (AdxPlusDI > AdxMinusDI)//trend is up { AdxTrend = up; return; }//if (AdxPlusDI > AdxMinusDI) //Trend is neither up nor ranging AdxTrend = down; }//End void GetAdxTrend() double iLsma(int tf,int shift) { //Code to calculate LSMA value. Copied from MrPip's work. Many thanks, MrPip double wt; double ma1=iMA(NULL,LSMATf,LSMAPeriod,0,MODE_SMA ,PRICE_CLOSE,shift); double ma2=iMA(NULL,LSMATf,LSMAPeriod,0,MODE_LWMA,PRICE_CLOSE,shift); wt = MathFloor((3.0*ma2-2.0*ma1)/Point) * Point; return(wt); }//double iLsma(int LSMAPeriod,int shift) string GetLsmaTrend(int tf, int shift) { LsmaTrend = ranging; double lsma_cur, lsma_prev; lsma_cur = iLsma(tf, shift); lsma_prev = iLsma(tf, shift + 1); if (lsma_cur > lsma_prev) LsmaTrend = up; if (lsma_cur < lsma_prev) LsmaTrend = down; return(LsmaTrend); }//End string GetLsmaTrend() void GetTheTrend() { trend = ""; string oldtrend = ""; //Rsi if (UseRsi) { GetRsiTrend(); trend = RsiTrend; oldtrend = trend; }//if (UseRsi) //Rsi if (UseAtr) { GetAtrTrend(); trend = AtrTrend; if (trend != oldtrend && oldtrend != "") { trend = confused; return; }//if (trend != oldtrend) oldtrend = trend; }//if (UseRsi) //Axx if (UseAdx) { GetAdxTrend(); trend = AdxTrend; if (trend != oldtrend && oldtrend != "") { trend = confused; return; }//if (trend != oldtrend) oldtrend = trend; }//if (UseRsi) //LSMA - MrPips if (UseLSMA) { string PrevTrend = GetLsmaTrend(LSMATf, 1); LsmaTrend = GetLsmaTrend(LSMATf, 0); if (LsmaTrend == up && (PrevTrend == ranging || PrevTrend == down) ) trend = up; if (LsmaTrend == down && (PrevTrend == ranging || PrevTrend == up) ) trend = down; trend = LsmaTrend; if (trend != oldtrend && oldtrend != "") { trend = confused; return; }//if (trend != oldtrend) oldtrend = trend; }//if (UseLSMA) //Alert(LsmaTrend); if (UseStochMacd) { GetStoch(); MacdVal = GetStochMACD(FastEMA, SlowEMA, SignalSMA, StochasticPeriod , 0); if (StochBlue > MacdVal) { trend = up; } if (StochBlue < MacdVal) { trend = down; } oldtrend = trend; }//if (UseStochMacd) }//End void GetTheTrend() //END TREND DETECTION MODULE /////////////////////////////////////////////////////////////////////////////////////////// void GetBB() { //Reads BB figures into BbUpper, BbLower BbUpper = iBands(NULL, 0, 25, 2, 0, PRICE_OPEN, MODE_UPPER, 0); BbLower = iBands(NULL, 0, 25, 2, 0, PRICE_OPEN, MODE_LOWER, 0); }//void GetBb() bool SendSingleTrade(int type, string comment, double lotsize, double price, double stop, double take, int magic) { //if (StopTrading) return(true); /* if (!IsTesting()) { if (!IsTradeAllowed() ) return(false); if (!IsConnected() ) return(false); if (!IsExpertEnabled() ) return(false); if (!IsTradeContextBusy() ) return(false); }//if (!IsTesting) */ int slippage = 10; if (Digits == 3 || Digits == 5) slippage = 100; color col = Red; if (type == OP_BUY || type == OP_BUYSTOP) col = Green; int expiry = 0; //if (SendPendingTrades) expiry = TimeCurrent() + (PendingExpiryMinutes * 60); if (!CriminalIsECN) int ticket = OrderSend(Symbol(),type, lotsize, price, slippage, stop, take, comment, magic, expiry, col); //Is a 2 stage criminal if (CriminalIsECN) { ticket = OrderSend(Symbol(),type, lotsize, price, slippage, 0, 0, comment, magic, expiry, col); if (stop != 0) { if (ticket > 0) bool result = OrderModify(ticket, OrderOpenPrice(), stop, take, 0, CLR_NONE); if (!result) { int err=GetLastError(); Print(Symbol(), " ", type," SL order modify failed with error(",err,"): ",ErrorDescription(err)); }//if (!result) }//if (Sl != 0) }//if (CriminalIsECN) //Error trapping for both if (ticket < 0) { string stype; if (type == OP_BUY) stype = "OP_BUY"; if (type == OP_BUYSTOP) stype = "OP_BUYSTOP"; if (type == OP_SELL) stype = "OP_SELL"; if (type == OP_SELLSTOP) stype = "OP_SELLSTOP"; err=GetLastError(); Alert(Symbol(), " ", stype," Nanningbob order send failed with error(",err,"): ",ErrorDescription(err)); Print(Symbol(), " ", stype," Nanningbob order send failed with error(",err,"): ",ErrorDescription(err)); return(false); }//if (ticket < 0) //Got this far, so trade send succeeded Sleep(5000); //Recovery OpenTrades++; if (OpenTrades > 1) { TpMoved = false; RecoveryInProgress = true; }//if (OpenTrades > 1) return(true); }//End bool SendSingleTrade(int type, string comment, double lotsize, double price, double stop, double take) /* bool DoesTradeExist() { TicketNo = 0; if (OrdersTotal() == 0) { OpenTrades = 0; return(false); }//if (OrdersTotal() == 0) for (int cc = OrdersTotal() - 1; cc >= 0 ; cc--) { if (!OrderSelect(cc,SELECT_BY_POS)) continue; //if ( OrderMagicNumber() == SendMagicNumber && OrderSymbol() == Symbol() ) if (OrderSymbol() == Symbol() ) { TicketNo = OrderTicket(); return(true); }//if (OrderMagicNumber()==MagicNumber && OrderSymbol() == Symbol() ) }//for (int cc = OrdersTotal() - 1; cc >= 0 ; cc--) return(false); }//End bool DoesTradeExist() */ bool CloseTrade() { bool result = OrderClose(TicketNo, OrderLots(), OrderClosePrice(), 1000, CLR_NONE); if (!result) { string stype; if (OrderType() == OP_BUY) stype = "OP_BUY"; if (OrderType() == OP_BUYSTOP) stype = "OP_BUYSTOP"; if (OrderType() == OP_SELL) stype = "OP_SELL"; if (OrderType() == OP_SELLSTOP) stype = "OP_SELLSTOP"; int err=GetLastError(); Alert(Symbol(), " ", stype," Nanningbob order send failed with error(",err,"): ",ErrorDescription(err)); Print(Symbol(), " ", stype," Nanningbob order send failed with error(",err,"): ",ErrorDescription(err)); return(false); }//if (!result) return(true); }//End bool CloseTrade() double SetTarget(string tradedirection) { double target = 0; if (tradedirection == sell) // SELL { if (UseSixthsTp) // use Sixths { if ( MathAbs(Bid-TopGreenLine) < (Point*MinimumTargetinPips) ) { target = BottomGreenLine; } else { target = TopGreenLine; } } else if (UseAtrTp) // use Atr { double AtrVal = iATR(Symbol(), AtrTpTimeFrame, AtrTpPeriod, 0) * AtrTpMultiplier; target = NormalizeDouble(Bid - AtrVal,Digits); } else if (UseBollingerTp) // use BollingerBands middle band { double MiddleBB = iBands(NULL, 0, 25, 2, 0, PRICE_CLOSE, MODE_MAIN, 0); if ( MathAbs(Bid-MiddleBB) < (Point*MinimumTargetinPips) ) { target = Bid - (MinimumTargetinPips * Point); } else { target = MiddleBB; } } } else if (tradedirection == buy) // BUY { if (UseSixthsTp) // use Sixths { if ( MathAbs(Ask-TopGreenLine) < (Point*MinimumTargetinPips) ) { target = TopGreenLine; } else { target = TopGreenLine; } } else if (UseAtrTp) // use Atr { AtrVal = iATR(Symbol(), AtrTpTimeFrame, AtrTpPeriod, 0) * AtrTpMultiplier; target = NormalizeDouble(Ask + AtrVal,Digits); } else if (UseBollingerTp) // use BollingerBands middle band { MiddleBB = iBands(NULL, 0, 25, 2, 0, PRICE_CLOSE, MODE_MAIN, 0); if ( MathAbs(Ask-MiddleBB) < (Point*MinimumTargetinPips) ) { target = Ask + (MinimumTargetinPips * Point); } else { target = MiddleBB; } } } return (NormalizeDouble(target,Digits)); }//End double SetTarget(string tradedirection) void Buy(string comment) { /* if ( DoesTrendTradeExist() ) { CloseTrendTrade(99); } */ //if (DoesTradeExist()) return; double stop = NormalizeDouble(Ask - (EmergencyStopLoss * Point),Digits); if (EmergencyStopLoss == 0) stop = 0; double take = NormalizeDouble(Ask + (TakeProfit * Point),Digits); if (TakeProfit == 0) take = 0; if (take == 0) // if no fixed take profit, check use options for calculating take profit { take = SetTarget(buy); } //bool result = SendSingleTrade(OP_BUY, comment, SendLots, Ask, stop, take, SendMagicNumber); bool result = SendSingleTrade(OP_BUY, comment, SendLots, Ask, stop, take, 0); if (result) { GlobalVariableSet(GvName, 0); TradingStatus = opentrade; AddReEntryLine(OP_BUY); }//if (result) }//End void Buy(string comment) void Sell(string comment) { /* if ( DoesTrendTradeExist() ) { CloseTrendTrade(9); } */ //if (DoesTradeExist()) return; double stop = NormalizeDouble(Bid + (EmergencyStopLoss * Point),Digits); if (EmergencyStopLoss == 0) stop = 0; double take = NormalizeDouble(Bid - (TakeProfit * Point),Digits); if (TakeProfit == 0) take = 0; if (take == 0) // if no fixed take profit, check use options for calculating take profit { take = SetTarget(sell); } //bool result = SendSingleTrade(OP_SELL, comment, SendLots, Bid, stop, take, SendMagicNumber); bool result = SendSingleTrade(OP_SELL, comment, SendLots, Bid, stop, take, 0); if (result) { GlobalVariableSet(GvName, 0); TradingStatus = opentrade; AddReEntryLine(OP_SELL); }//if (result) }//End void Sell(string comment) void GetSixths() { /* These are declared in the general section and count the lines from the bottom upwards double BottomGoldLine;//Bottom, gold line double BottomGreenLine;//Bottom, green line double MiddleWhiteLine;//Middle, white line double TopGreenLine;//Top, green line double TopGoldLine;//Top, gold line */ //double value = WindowPriceMax(0)-WindowPriceMin(0); //value top of the chart - value buttem double value = High[iHighest(NULL,0,MODE_HIGH,BarCount,1)] - Low[iLowest(NULL,0,MODE_LOW,BarCount,1)]; //value top of the chart - value bottom double sixth = value/6; double valueS = (value*(MathPow(10,Digits))); double sixthS = (sixth*(MathPow(10,Digits))); BottomGoldLine = NormalizeDouble(Low[iLowest(NULL,0,MODE_LOW,BarCount,1)]+sixth, Digits); BottomGreenLine = NormalizeDouble(Low[iLowest(NULL,0,MODE_LOW,BarCount,1)]+sixth+sixth, Digits); MiddleWhiteLine = NormalizeDouble(Low[iLowest(NULL,0,MODE_LOW,BarCount,1)]+sixth+sixth+sixth, Digits); TopGreenLine = NormalizeDouble(Low[iLowest(NULL,0,MODE_LOW,BarCount,1)]+sixth+sixth+sixth+sixth, Digits); TopGoldLine = NormalizeDouble(Low[iLowest(NULL,0,MODE_LOW,BarCount,1)]+sixth+sixth+sixth+sixth+sixth, Digits); }//End void GetSixths() void GetStoch() { //double StochWhite; //double StochRed; StochWhite = iStochastic(NULL, 0, 7, 3, 3, MODE_LWMA, 1, MODE_MAIN, 0); StochBlue = iStochastic(NULL, 0, 14, 3, 5, MODE_LWMA, 1, MODE_MAIN, 0); }//void GetStoch(); double GetStochMACD(int fast_ema_period, int slow_ema_period, int signal_period, int StochasticPeriod, int shift) { // get macd signal line double macdSignal; int j; // get highest/lowest of macdSignal over StochasticPeriod double ll = 100000, hh = -100000, dif; for(j=shift; j= BottomGreenLine && Bid <= TopGreenLine && Bid >= BottomGreenLine) { TradeDirection = none; TradingStatus = none; GlobalVariableDel(GvName); return; }//if (Ask <= TopGreenLine && Ask >= BottomGreenLine Bid <= TopGreenLine && Bid >= BottomGreenLine) if (TradeZoneA) double target = TopGoldLine; if (TradeZoneB) target = TopGreenLine; /* Bollinger Bands %b measures the market distance from BB Upperline, so a value of 1 means the market is equal the top line; 0 = bottom line; 0.5 = middle line etc. This indi can be used to show if there is a decent separation between BB and market */ double BbSeparation = iCustom(NULL, 0, "Bollinger Bands %b", 25, 2, 0, 0, 0); double BbBandwidth = iCustom(NULL, 0, "Bandwidth Indicator", 0, 25, 2, 0, 0, 0, 0); //Check for short direction trade setup if (Ask > target) { TradeDirection = down; if (StochBlue < 85) TradeDirection = none; if (MacdVal < OverBought) TradeDirection = none; if (BbUpper < TopGreenLine) TradeDirection = none; //if (MathAbs(BbUpper - Ma1) < MinSepFromBB * Point) TradeDirection = none; if ((1-BbSeparation) < MinSepFromBB) TradeDirection = none; if (TradeDirection == down) { //#1 if (Ask < BbUpper) { TradingStatus = mode1sell; GlobalVariableSet(GvName, 11); }//if (Ask >= BbUpper) //#2 if (Ask >= BbUpper) { TradingStatus = mode2sell; GlobalVariableSet(GvName, 22); }//if (Ask >= BbUpper) //#3 double screentop = WindowPriceMax(0); if (BbUpper >= screentop) { TradingStatus = mode3sell; GlobalVariableSet(GvName, 33); }//if (BbUpper >= screentop)) // alternatively, if this misses valid bulge buys and sell because of screen refresh, could use this code /* double value = screentop - screenbottom //value top of the chart - value bottom double sixth = value/6; double valueS = (value*(MathPow(10,Digits))); double sixthS = (sixth*(MathPow(10,Digits))); double BulgeBottom = NormalizeDouble(screenbottom+sixth/2, Digits); double BulgeTop = NormalizeDouble(screentop-sixth/2, Digits); if ( (BbUpper >= BulgeTop) || (BbLower <= BulgeBottom) ) */ //#4 GetTheTrend(); if (trend == ranging) { TradingStatus = mode4sell; GlobalVariableSet(GvName, 44); }//if (trend == ranging) //#7 if (Ask > target && OldBars != Bars) { OldBars = Bars; double BearVal = iCustom(NULL, 0, "FX5 MACD DIVERGENCE V1.0", " ", 12, 26, 9, " ", false, false, false, 1, 1); if (BearVal != EMPTY_VALUE) { TradingStatus = mode7sell; GlobalVariableSet(GvName, 77); }//if (BearVal != EMPTY_VALUE) }//if (Ask > Target) }//if (TradeDirection == down) }//if (Ask > target) if (TradeZoneA) target = BottomGoldLine; if (TradeZoneB) target = BottomGreenLine; //Check for long direction trade setup if (Bid < target) { TradeDirection = up; if (StochBlue > 15 ) TradeDirection = none; if (MacdVal > OverSold) TradeDirection = none; if (BbLower > BottomGreenLine) TradeDirection = none; //if (MathAbs(BbLower - Ma1) < MinSepFromBB * Point) TradeDirection = none; if (BbSeparation < MinSepFromBB) TradeDirection = none; if (TradeDirection == up) { //#1 if (Bid > BbLower) { TradingStatus = mode1buy; GlobalVariableSet(GvName, 1); }//if (Ask >= BbUpper) //#2 if (Bid <= BbLower) { TradingStatus = mode2buy; GlobalVariableSet(GvName, 2); }//if (Bid <= BbLower) //#3 double screenbottom = WindowPriceMin(0); if (BbLower <= screenbottom) { TradingStatus = mode3buy; GlobalVariableSet(GvName, 3); }//if (BbLower <= screenbottom) //#4 GetTheTrend(); if (trend == ranging) { TradingStatus = mode4buy; GlobalVariableSet(GvName, 4); }//if (trend == ranging) //#7 if (Bid < target && OldBars != Bars) { OldBars = Bars; double BullVal = iCustom(NULL, 0, "FX5 MACD DIVERGENCE V1.0", " ", 12, 26, 9, " ", false, false, false, 0, 1); if (BullVal != EMPTY_VALUE) { TradingStatus = mode7buy; GlobalVariableSet(GvName, 7); }//if (BearVal != EMPTY_VALUE) }//if (Ask > Target) }//if (TradeDirection == up) }//if (Bid < target) }//End void GetTradeDirection() /* void IsDirectionStillValid() { if (Ask <= TopGreenLine && Ask >= BottomGreenLine && Bid <= TopGreenLine && Bid >= BottomGreenLine) { TradeDirection = none; TradingStatus = none; GlobalVariableSet(GvName, 0); }//if (Ask <= TopGreenLine && Ask >= BottomGreenLine Bid <= TopGreenLine && Bid >= BottomGreenLine) }//void IsDirectionStillValid() */ void AddReEntryLine(int type) { if (ObjectFind(reentrylinename) > -1) ObjectDelete(reentrylinename); RefreshRates(); if (type == OP_BUY) { double LinePrice = NormalizeDouble(Ask - (ReEntryLinePips * Point), Digits); ObjectCreate(reentrylinename,OBJ_HLINE,0,TimeCurrent(),LinePrice); ObjectSet(reentrylinename,OBJPROP_COLOR,ReEntryLineColour); ObjectSet(reentrylinename,OBJPROP_STYLE,STYLE_SOLID); ObjectSet(reentrylinename,OBJPROP_WIDTH,2); }//if (type == OP_BUY) if (type == OP_SELL) { LinePrice = NormalizeDouble(Bid + (ReEntryLinePips * Point), Digits); ObjectCreate(reentrylinename,OBJ_HLINE,0,TimeCurrent(),LinePrice); ObjectSet(reentrylinename,OBJPROP_COLOR,ReEntryLineColour); ObjectSet(reentrylinename,OBJPROP_STYLE,STYLE_SOLID); ObjectSet(reentrylinename,OBJPROP_WIDTH,2); }//if (type == OP_SELL) }//void AddReEntryLine(int type) bool WhiteLineClose(int type) { //extern bool UseWhiteLineClosure=true; //extern int MinSeperationFromBlue=15; if (OrderProfit() < 0) return(false); if (type == OP_BUY) { if (StochWhite > 85 && StochWhite - StochBlue > MinSeparationFromBlue) return(true); }//if (type == OP_BUY) if (type == OP_SELL) { if (StochWhite < 15 && StochBlue - StochWhite > MinSeparationFromBlue) return(true); }//if (type == OP_BUY) return(false); }//bool WhiteLineClose(int type) //////////////////////////////////////////////////////////////////////////////////////////////// //TRADE CLOSURE MODULE void TradeClosureModule() { bool CloseRequired = false; //White line closure if (!CloseRequired) { if (UseWhiteLineClosure) { CloseRequired = WhiteLineClose(OrderType() ); }//if (UseWhiteLineClosure) }//if (!CloseRequired) if (CloseRequired) CloseTrade(); }//void TradeClosureModule() //END TRADE CLOSURE MODULE //////////////////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////////////// //TRADE MANAGEMENT MODULE bool CheckForHiddenStopLossHit(int type, int iPipsAboveVisual, double stop ) { //Reusable code that can be called by any of the stop loss manipulation routines except HiddenStopLoss(). //Checks to see if the market has hit the hidden sl and attempts to close the trade if so. //Returns true if trade closure is successful, else returns false //Check buy trade if (type == OP_BUY) { double sl = NormalizeDouble(stop + (iPipsAboveVisual * Point), Digits); if (Bid <= sl) { bool result = OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 5, CLR_NONE); if (result) { if (ShowAlerts==true) Alert("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()); }//if (result) else { int err=GetLastError(); if (ShowAlerts==true) Alert("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); Print("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); }//else }//if (Bid <= sl) }//if (type = OP_BUY) //Check buy trade if (type == OP_SELL) { sl = NormalizeDouble(stop - (iPipsAboveVisual * Point), Digits); if (Ask >= sl) { result = OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 5, CLR_NONE); if (result) { if (ShowAlerts==true) Alert("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()); }//if (result) else { err=GetLastError(); if (ShowAlerts==true) Alert("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); Print("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); }//else }//if (Ask >= sl) }//if (type = OP_SELL) }//End bool CheckForHiddenStopLossHit(int type, int iPipsAboveVisual, double stop ) void BreakEvenStopLoss() // Move stop loss to breakeven { //Check hidden BE for trade closure if (HideBreakEvenStop) { bool TradeClosed = CheckForHiddenStopLossHit(OrderType(), PipsAwayFromVisualBE, OrderStopLoss() ); if (TradeClosed) return;//Trade has closed, so nothing else to do }//if (HideBreakEvenStop) bool result; if (OrderType()==OP_BUY) { if (Bid >= OrderOpenPrice () + (Point*BreakEvenPips) && OrderStopLoss() Preserve_Lots)// Only try to do this if the jump stop worked //{ // bool PartCloseSuccess = PartCloseTradeFunction(); // if (!PartCloseSuccess) SetAGlobalTicketVariable(); //}//if (PartCloseEnabled && OrderLots() > Preserve_Lots) } } if (OrderType()==OP_SELL) { if (Ask <= OrderOpenPrice() - (Point*BreakEvenPips) && (OrderStopLoss()>OrderOpenPrice()|| OrderStopLoss()==0)) { result = OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()-(BreakEvenProfit*Point),OrderTakeProfit(),0,CLR_NONE); if (result && ShowAlerts==true) Alert("Breakeven set on ", OrderSymbol(), " ticket no ", OrderTicket()); Print("Breakeven set on ", OrderSymbol(), " ticket no ", OrderTicket()); if (!result && ShowAlerts) { err=GetLastError(); if (ShowAlerts==true) Alert("Setting of breakeven SL ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); Print("Setting of breakeven SL ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); }//if !result && ShowAlerts) //if (PartCloseEnabled && OrderLots() > Preserve_Lots)// Only try to do this if the jump stop worked // { // PartCloseSuccess = PartCloseTradeFunction(); // if (!PartCloseSuccess) SetAGlobalTicketVariable(); // }//if (PartCloseEnabled && OrderLots() > Preserve_Lots) } } } // End BreakevenStopLoss sub void JumpingStopLoss() { // Jump sl by pips and at intervals chosen by user . // Also carry out partial closure if the user requires this // Abort the routine if JumpAfterBreakevenOnly is set to true and be sl is not yet set if (JumpAfterBreakevenOnly && OrderType()==OP_BUY) { if(OrderStopLoss()OrderOpenPrice()) return(0); } double sl=OrderStopLoss(); //Stop loss if (OrderType()==OP_BUY) { //Check hidden js for trade closure if (HideJumpingStop) { bool TradeClosed = CheckForHiddenStopLossHit(OP_BUY, PipsAwayFromVisualJS, OrderStopLoss() ); if (TradeClosed) return;//Trade has closed, so nothing else to do }//if (HideJumpingStop) // First check if sl needs setting to breakeven if (sl==0 || sl= OrderOpenPrice() + (JumpingStopPips*Point)) { sl=OrderOpenPrice(); if (AddBEP==true) sl=sl+(BreakEvenProfit*Point); // If user wants to add a profit to the break even bool result = OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,CLR_NONE); if (result) { if (ShowAlerts==true) Alert("Jumping stop set at breakeven ",sl, " ", OrderSymbol(), " ticket no ", OrderTicket()); Print("Jumping stop set at breakeven: ", OrderSymbol(), ": SL ", sl, ": Ask ", Bid); //if (PartCloseEnabled && OrderLots() > Preserve_Lots)// Only try to do this if the jump stop worked //{ //bool PartCloseSuccess = PartCloseTradeFunction(); //if (!PartCloseSuccess) SetAGlobalTicketVariable(); //}//if (PartCloseEnabled && OrderLots() > Preserve_Lots) }//if (result) if (!result) { int err=GetLastError(); if (ShowAlerts) Alert(OrderSymbol(), "Ticket ", OrderTicket(), " buy trade. Jumping stop function failed to set SL at breakeven, with error(",err,"): ",ErrorDescription(err)); Print(OrderSymbol(), " buy trade. Jumping stop function failed to set SL at breakeven, with error(",err,"): ",ErrorDescription(err)); }//if (!result) return(0); }//if (Ask >= OrderOpenPrice() + (JumpingStopPips*Point)) } //close if (sl==0 || sl= (sl + JumpingStopPips) if (Bid>= sl + ((JumpingStopPips*2)*Point) && sl>= OrderOpenPrice()) { sl=sl+(JumpingStopPips*Point); result = OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,CLR_NONE); if (result) { if (ShowAlerts==true) Alert("Jumping stop set at ",sl, " ", OrderSymbol(), " ticket no ", OrderTicket()); Print("Jumping stop set: ", OrderSymbol(), ": SL ", sl, ": Ask ", Ask); //if (PartCloseEnabled && OrderLots() > Preserve_Lots)// Only try to do this if the jump stop worked //{ //PartCloseSuccess = PartCloseTradeFunction(); //if (!PartCloseSuccess) SetAGlobalTicketVariable(); //}//if (PartCloseEnabled && OrderLots() > Preserve_Lots) }//if (result) if (!result) { err=GetLastError(); if (ShowAlerts) Alert(OrderSymbol(), " buy trade. Jumping stop function failed with error(",err,"): ",ErrorDescription(err)); Print(OrderSymbol(), " buy trade. Jumping stop function failed with error(",err,"): ",ErrorDescription(err)); }//if (!result) }// if (Bid>= sl + (JumpingStopPips*Point) && sl>= OrderOpenPrice()) }//if (OrderType()==OP_BUY) if (OrderType()==OP_SELL) { //Check hidden js for trade closure if (HideJumpingStop) { TradeClosed = CheckForHiddenStopLossHit(OP_SELL, PipsAwayFromVisualJS, OrderStopLoss() ); if (TradeClosed) return;//Trade has closed, so nothing else to do }//if (HideJumpingStop) // First check if sl needs setting to breakeven if (sl==0 || sl>OrderOpenPrice()) { if (Ask <= OrderOpenPrice() - (JumpingStopPips*Point)) { sl = OrderOpenPrice(); if (AddBEP==true) sl=sl-(BreakEvenProfit*Point); // If user wants to add a profit to the break even result = OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,CLR_NONE); if (result) { //if (PartCloseEnabled && OrderLots() > Preserve_Lots)// Only try to do this if the jump stop worked //{ // PartCloseSuccess = PartCloseTradeFunction(); //if (!PartCloseSuccess) SetAGlobalTicketVariable(); //}//if (PartCloseEnabled && OrderLots() > Preserve_Lots) }//if (result) if (!result) { err=GetLastError(); if (ShowAlerts) Alert(OrderSymbol(), " sell trade. Jumping stop function failed to set SL at breakeven, with error(",err,"): ",ErrorDescription(err)); Print(OrderSymbol(), " sell trade. Jumping stop function failed to set SL at breakeven, with error(",err,"): ",ErrorDescription(err)); }//if (!result) return(0); }//if (Ask <= OrderOpenPrice() - (JumpingStopPips*Point)) } // if (sl==0 || sl>OrderOpenPrice() // Decrement sl by sl - JumpingStopPips. // This will happen when market price <= (sl - JumpingStopPips) if (Bid<= sl - ((JumpingStopPips*2)*Point) && sl<= OrderOpenPrice()) { sl=sl-(JumpingStopPips*Point); result = OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,CLR_NONE); if (result) { if (ShowAlerts==true) Alert("Jumping stop set at ",sl, " ", OrderSymbol(), " ticket no ", OrderTicket()); Print("Jumping stop set: ", OrderSymbol(), ": SL ", sl, ": Ask ", Ask); //if (PartCloseEnabled && OrderLots() > Preserve_Lots)// Only try to do this if the jump stop worked //{ // PartCloseSuccess = PartCloseTradeFunction(); //if (!PartCloseSuccess) SetAGlobalTicketVariable(); //}//if (PartCloseEnabled && OrderLots() > Preserve_Lots) }//if (result) if (!result) { err=GetLastError(); if (ShowAlerts) Alert(OrderSymbol(), " sell trade. Jumping stop function failed with error(",err,"): ",ErrorDescription(err)); Print(OrderSymbol(), " sell trade. Jumping stop function failed with error(",err,"): ",ErrorDescription(err)); }//if (!result) }// close if (Bid>= sl + (JumpingStopPips*Point) && sl>= OrderOpenPrice()) }//if (OrderType()==OP_SELL) } //End of JumpingStopLoss sub void HiddenStopLoss() { //Called from ManageTrade if HideStopLossEnabled = true //Should the order close because the stop has been passed? //Buy trade if (OrderType() == OP_BUY) { double sl = NormalizeDouble(OrderOpenPrice() - (HiddenStopLossPips * Point), Digits); if (Bid <= sl) { bool result = OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 5, CLR_NONE); if (result) { if (ShowAlerts==true) Alert("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()); }//if (result) else { int err=GetLastError(); if (ShowAlerts==true) Alert("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); Print("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); }//else }//if (Bid <= sl) }//if (OrderType() == OP_BUY) //Sell trade if (OrderType() == OP_SELL) { sl = NormalizeDouble(OrderOpenPrice() + (HiddenStopLossPips * Point), Digits); if (Ask >= sl) { result = OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 5, CLR_NONE); if (result) { if (ShowAlerts==true) Alert("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()); }//if (result) else { err=GetLastError(); if (ShowAlerts==true) Alert("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); Print("Stop loss hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); }//else }//if (Ask >= sl) }//if (OrderType() == OP_SELL) }//End void HiddenStopLoss() void HiddenTakeProfit() { //Called from ManageTrade if HideStopLossEnabled = true //Should the order close because the stop has been passed? //Buy trade if (OrderType() == OP_BUY) { double tp = NormalizeDouble(OrderOpenPrice() + (HiddenTakeProfitPips * Point), Digits); if (Bid >= tp) { bool result = OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 5, CLR_NONE); if (result) { if (ShowAlerts==true) Alert("Take profit hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()); }//if (result) else { int err=GetLastError(); if (ShowAlerts==true) Alert("Take profit hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); Print("Take profit hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); }//else }//if (Ask >= tp) }//if (OrderType() == OP_BUY) //Sell trade if (OrderType() == OP_SELL) { tp = NormalizeDouble(OrderOpenPrice() - (HiddenTakeProfitPips * Point), Digits); if (Ask <= tp) { result = OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 5, CLR_NONE); if (result) { if (ShowAlerts==true) Alert("Take profit hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()); }//if (result) else { err=GetLastError(); if (ShowAlerts==true) Alert("Take profit hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); Print("Take profit hit. Close of ", OrderSymbol(), " ticket no ", OrderTicket()," failed with error (",err,"): ",ErrorDescription(err)); }//else }//if (Bid <= tp) }//if (OrderType() == OP_SELL) }//End void HiddenTakeProfit() void TrailingStopLoss() { if (TrailAfterBreakevenOnly && OrderType()==OP_BUY) { if(OrderStopLoss()OrderOpenPrice()) return(0); } bool result; double sl=OrderStopLoss(); //Stop loss double BuyStop=0, SellStop=0; if (OrderType()==OP_BUY) { if (HideTrailingStop) { bool TradeClosed = CheckForHiddenStopLossHit(OP_BUY, PipsAwayFromVisualTS, OrderStopLoss() ); if (TradeClosed) return;//Trade has closed, so nothing else to do }//if (HideJumpingStop) if (Bid >= OrderOpenPrice() + (TrailingStopPips*Point)) { if (OrderStopLoss() == 0) sl = OrderOpenPrice(); if (Bid > sl + (TrailingStopPips*Point)) { sl= Bid - (TrailingStopPips*Point); // Exit routine if user has chosen StopTrailAtPipsProfit and // sl is past the profit Point already if (StopTrailAtPipsProfit && sl>= OrderOpenPrice() + (StopTrailPips*Point)) return; result = OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,CLR_NONE); if (result) { Print("Trailing stop updated: ", OrderSymbol(), ": SL ", sl, ": Ask ", Ask); }//if (result) else { int err=GetLastError(); Print(OrderSymbol(), " order modify failed with error(",err,"): ",ErrorDescription(err)); }//else }//if (Bid > sl + (TrailingStopPips*Point)) }//if (Bid >= OrderOpenPrice() + (TrailingStopPips*Point)) }//if (OrderType()==OP_BUY) if (OrderType()==OP_SELL) { if (Ask <= OrderOpenPrice() - (TrailingStopPips*Point)) { if (HideTrailingStop) { TradeClosed = CheckForHiddenStopLossHit(OP_SELL, PipsAwayFromVisualTS, OrderStopLoss() ); if (TradeClosed) return;//Trade has closed, so nothing else to do }//if (HideJumpingStop) if (OrderStopLoss() == 0) sl = OrderOpenPrice(); if (Ask < sl - (TrailingStopPips*Point)) { sl= Ask + (TrailingStopPips*Point); // Exit routine if user has chosen StopTrailAtPipsProfit and // sl is past the profit Point already if (StopTrailAtPipsProfit && sl<= OrderOpenPrice() - (StopTrailPips*Point)) return; result = OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,CLR_NONE); if (result) { Print("Trailing stop updated: ", OrderSymbol(), ": SL ", sl, ": Bid ", Bid); }//if (result) else { err=GetLastError(); Print(OrderSymbol(), " order modify failed with error(",err,"): ",ErrorDescription(err)); }//else }//if (Ask < sl - (TrailingStopPips*Point)) }//if (Ask <= OrderOpenPrice() - (TrailingStopPips*Point)) }//if (OrderType()==OP_SELL) } // End of TrailingStopLoss sub void TradeManagementModule() { // Call the working subroutines one by one. //Cut down 5 digit order modify calls for 5 digit crims, if required static int NoOfTicks = 9; int ndigits = MarketInfo(Symbol(), MODE_DIGITS); if (DoNotOverload5DigitCriminals && ( ndigits == 3 || ndigits == 5) ) { NoOfTicks++; }//if (DoNotOverload5DigitCriminals && ( digits == 3 || digits == 5) ) if (!DoNotOverload5DigitCriminals || ndigits == 2 || ndigits == 4) { NoOfTicks = 10; }//if (!DoNotOverload5DigitCriminals || digits == 2 || digits == 4) // Global variable to pick up on failed part-closes //if (GlobalVariablesTotal()>0) GlobalVariablesExist=true; //if (GlobalVariablesExist && GlobalVariablesTotal()>0) TryPartCloseAgain(); //if (GlobalVariablesExist && GlobalVariablesTotal()==0) GlobalVariablesExist=false; if (NoOfTicks >= 10) { NoOfTicks = 0;//Reset the counter // Hidden stop loss if (HideStopLossEnabled) HiddenStopLoss(); // Hidden take profit if (HideTakeProfitEnabled) HiddenTakeProfit(); // Tighten the stop loss //if (UseTigheningStop) TightenStopLoss(); // Breakeven if(BreakEven) BreakEvenStopLoss(); // JumpingStop if(JumpingStop) JumpingStopLoss(); //TrailingStop if(TrailingStop) TrailingStopLoss(); }//if (NoOfTicks >= 10) }//void TradeManagementModule() //END TRADE MANAGEMENT MODULE //////////////////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////////////// //1.1.3.3 RECOVERY MODULE updated from the 1.1.3.3 mode void RecoveryModule() { //My thanks to sundog for coding the change to 1.1.3.3 //Check that recovery is necessary double target = ObjectGet(reentrylinename, OBJPROP_PRICE1); if (OrderType() == OP_BUY) { if (Ask > target) return; }//if (OrderType() == OP_BUY) if (OrderType() == OP_SELL) { if (Bid < target) return; }//if (OrderType() == OP_SELL) //Count no of open trades. The final one in the sequence will be the one that needs recovery //CountOpenTrades(); /* Users can choose which of the recovery strategies to use. extern bool Use1.1.3.3Recovery=true; extern bool Use2.4.2Recovery=false; extern bool Use1.2.4Recovery=false; */ //If 1 trade open, then recovery is at the 1 stage if (OpenTrades == 1) { //SendMagicNumber = MagicNumber + 30; SendLots = Lot * 1; if (Use2.4.2Recovery) SendLots = Lot * 2; }//if (OpenTrades == 1) //If 2 trades open, then recovery is at the 3 stage if (OpenTrades == 2) { //SendMagicNumber = MagicNumber + 60; if (Use1.1.3.3Recovery) SendLots = Lot * 3; if (Use2.4.2Recovery) SendLots = Lot * 4; if (Use1.2.4Recovery) SendLots = Lot * 2; }//if (OpenTrades == 2) //If 3 trades open, then recovery is at the sedond 3 stage if (OpenTrades == 3) { //SendMagicNumber = MagicNumber + 90; if (Use1.1.3.3Recovery) SendLots = Lot * 3; if (Use2.4.2Recovery) SendLots = Lot * 2; if (Use1.2.4Recovery) SendLots = Lot * 4; }//if (OpenTrades == 3) //Stop trading if the full 4-trade position is open if (OpenTrades == 4) { StopTrading = true; }//if (OpenTrades == 4) RecoveryInProgress = true; }//End void RecoveryModule() void CountOpenTrades() { OpenTrades = 0; TicketNo = 0; if (OrdersTotal() == 0) return; for (int cc = 0; cc <= OrdersTotal(); cc++) { if (!OrderSelect(cc, SELECT_BY_POS) ) continue; if (OrderSymbol() == Symbol() ) { OpenTrades++; TicketNo = OrderTicket(); }//if (OrderMagicNumber() == MagicNumber && OrderSymbol() == Symbol() ) }//for (int cc = 0; cc < OrdersTotal() - 1; cc++) }//End void CountOpenTrades(); void ModifyTakeProfit(double NewTake) { TpMoved = true; for (int cc = OrdersTotal() -1; cc >= 0; cc--) { if (!OrderSelect(cc, SELECT_BY_POS) ) continue; if (OrderSymbol() == Symbol() && OrderTakeProfit() != NewTake) { bool result = OrderModify(OrderTicket(), OrderOpenPrice(), OrderStopLoss(), NewTake, OrderExpiration(), CLR_NONE); if (!result) TpMoved = false; }//if (OrderTakeProfit() != NewTake) }//for (int cc = OrdersTotal() -1; cc >= 0; cc--) }//End void ModifyTakeProfit(double NewTake); void CheckRecoveryTakeProfit() { //This is adapted from the NB iExposure indicator. I do not understand how it works. //There will be redundant code, so anybody wishing to clear it up is most welcome to do so. ExtLines = 0; int i,col,line; ArrayInitialize(ExtSymbolsSummaries,0.0); int total=Analyze(); if(total>0) { line=0; for(i=0; iExtLines) { int y_dist=ExtVertShift*(line+1)+1; /*for(col=0; col<8; col++) { name="Line_"+line+"_"+col; if(ObjectCreate(name,OBJ_LABEL,windex,0,0)) { ObjectSet(name,OBJPROP_XDISTANCE,ExtShifts[col]); ObjectSet(name,OBJPROP_YDISTANCE,y_dist); } }*/ ExtLines++; }//if(line>ExtLines) //---- set line //color price_colour;//Steve mod int digits=MarketInfo(ExtSymbols[i],MODE_DIGITS); double buy_lots=ExtSymbolsSummaries[i][BUY_LOTS]; double sell_lots=ExtSymbolsSummaries[i][SELL_LOTS]; if(buy_lots!=0) buy_price=NormalizeDouble(ExtSymbolsSummaries[i][BUY_PRICE]/buy_lots, Digits); if(sell_lots!=0) sell_price=NormalizeDouble(ExtSymbolsSummaries[i][SELL_PRICE]/sell_lots, Digits); }//for(i=0; i0) }//End void CheckRecoveryTakeProfit() int Analyze() { double profit; int i,index,type,total=OrdersTotal(); //---- for(i=0; i=SYMBOLS_MAX) continue; //---- ExtSymbolsSummaries[index][DEALS]++; profit=OrderProfit()+OrderCommission()+OrderSwap(); ExtSymbolsSummaries[index][PROFIT]+=profit; if(type==OP_BUY) { ExtSymbolsSummaries[index][BUY_LOTS]+=OrderLots(); ExtSymbolsSummaries[index][BUY_PRICE]+=OrderOpenPrice()*OrderLots(); } else { ExtSymbolsSummaries[index][SELL_LOTS]+=OrderLots(); ExtSymbolsSummaries[index][SELL_PRICE]+=OrderOpenPrice()*OrderLots(); } } //---- total=0; for(i=0; i0) total++; } //---- return(total); }//int Analyze() //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int SymbolsIndex(string SymbolName) { bool found=false; //---- for(int i=0; i=SYMBOLS_MAX) return(-1); //---- i=ExtSymbolsTotal; ExtSymbolsTotal++; ExtSymbols[i]=SymbolName; ExtSymbolsSummaries[i][DEALS]=0; ExtSymbolsSummaries[i][BUY_LOTS]=0; ExtSymbolsSummaries[i][BUY_PRICE]=0; ExtSymbolsSummaries[i][SELL_LOTS]=0; ExtSymbolsSummaries[i][SELL_PRICE]=0; ExtSymbolsSummaries[i][NET_LOTS]=0; ExtSymbolsSummaries[i][PROFIT]=0; //---- return(i); }//End int SymbolsIndex(string SymbolName) //END 1.1.3.3 RECOVERY MODULE //////////////////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////////////// //TRADING MODULE void Mode1Buy() { //Equates to #1 Buy 25 BB //if (DoesTradeExist()) return; RefreshRates(); if (Bid < BbLower) { Buy(no1_Buy25); } //if (Bid < BbLower) }//void Mode1Buy() void Mode1Sell() { //Equates to #1 Sell 25 BB //if (DoesTradeExist()) return; RefreshRates(); if (Ask > BbUpper) { Sell(no1_Sel25); }//if (Ask > BbUpper) }//void Mode1Sell() void Mode2Buy() { //Equates to #1 Buy 1 MA 25 BB //if (DoesTradeExist()) return; RefreshRates(); double Var1, Var2; //---- indicators // MOVING AVERAGE Var1 = iMA(NULL, PERIOD_H4, 1, 0, MODE_LWMA, PRICE_MEDIAN, 0); // Var2 = iMA(NULL, PERIOD_H4, 2, 0, MODE_LWMA, PRICE_MEDIAN, 1); // BbUpper = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_UPPER, 0); BbLower = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_LOWER, 0); RefreshRates(); if (Var1 > BbLower) { Buy(no2_Buy1MA); }//if (Var2 < BbLower && Var1 > BbLower) }//void Mode2Buy() void Mode2Sell() { //Equates to #1 Sell 1 MA 25 BB //if (DoesTradeExist()) return; RefreshRates(); double Var1, Var2; //---- indicators // MOVING AVERAGE Var1 = iMA(NULL, PERIOD_H4, 1, 0, MODE_LWMA, PRICE_MEDIAN, 0); //Var2 = iMA(NULL, PERIOD_H4, 2, 0, MODE_LWMA, PRICE_MEDIAN, 1); // BbLower = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_LOWER, 0); BbUpper = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_UPPER, 0); RefreshRates(); //if (Var2 > BbUpper && Var1 < BbUpper) if( Var1 < BbUpper) { Sell(no2_Sel1MA); }//if( Var1 < BbUpper) }//void Mode2Sell() void Mode3Buy() { //Equates to #1 Buy 1 MA 25 BB //if (DoesTradeExist()) return; double Var1, Var2, Var3; //---- indicators // MOVING AVERAGE Var1 = iMA(NULL, PERIOD_H4, 1, 0, MODE_LWMA, PRICE_MEDIAN, 0); Var2 = iMA(NULL, PERIOD_H4, 4, 0, MODE_LWMA, PRICE_LOW, 0); // Var3 = iMA(NULL, PERIOD_H4, 4, 0, MODE_LWMA, PRICE_HIGH, 0); BbLower = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_LOWER, 0); // BbUpper = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_UPPER, 0); RefreshRates(); if(Bid < Var2 && Var1 > BbLower) { Buy(no3_BuyBulge); }//if(Bid < Var2 && Var1 > BbLower) }//void Mode3Buy() void Mode3Sell() { //Equates to #1 Sell 1 MA 25 BB //if (DoesTradeExist()) return; double Var1, Var2, Var3; //---- indicators // MOVING AVERAGE Var1 = iMA(NULL, PERIOD_H4, 1, 0, MODE_LWMA, PRICE_MEDIAN, 0); // Var2 = iMA(NULL, PERIOD_H4, 4, 0, MODE_LWMA, PRICE_LOW, 0); Var3 = iMA(NULL, PERIOD_H4, 4, 0, MODE_LWMA, PRICE_HIGH, 0); // BbLower = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_LOWER, 0); BbUpper = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_UPPER, 0); RefreshRates(); //if (Var2 > BbUpper && Var1 < BbUpper) if(Bid > Var3 && Var1 < BbUpper) { Sell(no3_SelBulge); }//if(Bid > Var3 && Var1 < BbUpper) }//void Mode3Sell() void Mode4Buy() { //Equates to #1 Buy 1 MA 25 BB //if (DoesTradeExist()) return; BbLower = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_LOWER, 0); // BbUpper = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_UPPER, 0); double Var1 = iMA(NULL, PERIOD_H4, 1, 0, MODE_LWMA, PRICE_MEDIAN, 0); double Var2 = iMA(NULL, PERIOD_H4, 3, 1, MODE_LWMA, PRICE_MEDIAN, 0); RefreshRates(); if (Bid < BbLower || (Bid > Var2 && Var1 < Var2)) { Buy(no4_BuyBB13); }//if (Bid < BbLower || (Bid > Var2 && Var1 < Var2)) }//void Mode4Buy() void Mode4Sell() { //Equates to #1 Sell 1 MA 25 BB //if (DoesTradeExist()) return; // BbLower = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_LOWER, 0); BbUpper = iBands(NULL, PERIOD_H4, 25, 2, 0, PRICE_CLOSE, MODE_UPPER, 0); double Var1 = iMA(NULL, PERIOD_H4, 1, 0, MODE_LWMA, PRICE_MEDIAN, 0); double Var2 = iMA(NULL, PERIOD_H4, 3, 1, MODE_LWMA, PRICE_MEDIAN, 0); RefreshRates(); if(Bid > BbUpper || (Bid < Var2 && Var1 > Var2)) { Sell(no4_SelBB13); }//if(Bid > BbUpper || (Bid < Var2 && Var1 > Var2)) }//void Mode4Sell() void Mode7Buy() { //if (DoesTradeExist()) return; double Var1, Var2; //---- indicators // MOVING AVERAGE Var1 = iMA(NULL, PERIOD_H4, 1, 0, MODE_LWMA, PRICE_MEDIAN, 1); Var2 = iBands(NULL, PERIOD_H4, 25, 2, 3, PRICE_CLOSE, MODE_LOWER, 1); BbLower = iBands(NULL, PERIOD_H4, 25, 2, 3, PRICE_CLOSE, MODE_LOWER, 0); //BbUpper = iBands(NULL, PERIOD_H4, 25, 2, 3, PRICE_CLOSE, MODE_UPPER, 0); //if( (Var1 < Var8 && Bid > Var8)|| (Var1 > Var8)) RefreshRates(); if (Bid > BbLower && Var1 < Var2) { Buy(no7_BuyDivergence); }//if (Bid > BbLower && Var1 < Var2) }//void Mode7Buy() void Mode7Sell() { //if (DoesTradeExist()) return; double Var1, Var2; //---- indicators // MOVING AVERAGE Var1 = iMA(NULL, PERIOD_H4, 1, 0, MODE_LWMA, PRICE_MEDIAN, 1); Var2 = iBands(NULL, PERIOD_H4, 25, 2, 3, PRICE_CLOSE, MODE_LOWER, 1); //BbLower = iBands(NULL, PERIOD_H4, 25, 2, 3, PRICE_CLOSE, MODE_LOWER, 0); BbUpper = iBands(NULL, PERIOD_H4, 25, 2, 3, PRICE_CLOSE, MODE_UPPER, 0); //if( (Var1 < Var8 && Bid > Var8)|| (Var1 > Var8)) RefreshRates(); if( Bid < BbUpper && Var1 > Var2) { Sell(no7_SelDivergence); }//if( Bid < BbUpper && Var1 > Var2) }//void Mode7Sell() /* void ModeTrendSell() { //Equates to #1 Sell 1 MA 25 BB if (DoesTrendTradeExist()) return; Sell(no9_SelTrend, 9); }//void ModeTrendSell() void ModeTrendBuy() { //Equates to #1 Sell 1 MA 25 BB if (DoesTrendTradeExist()) return; Buy(no9_BuyTrend, 9); }//void ModeTrendBuy() */ //END TRADING MODULE //////////////////////////////////////////////////////////////////////////////////////////////// //+------------------------------------------------------------------+ //| expert start function | //+------------------------------------------------------------------+ int start() { //OOOOOOOOOOOOOOOOOOOOOOOOOOO Maxou Modif DailyATR = iATR(Symbol(), PERIOD_D1, 14, 0) ; // in 4 digits if(Digits == 4 || Digits == 5) DailyATR = DailyATR*10000; if(Digits == 2 || Digits == 3) DailyATR = DailyATR*100; if (Period()== PERIOD_H4) { BreakEvenPips =NormalizeDouble(DailyATR/6,0); if (BreakEvenPips<15) BreakEvenPips=15; //for H1=20 (H4=25) for M15=20 BreakEvenProfit =NormalizeDouble(DailyATR/15,0); if (BreakEvenProfit<5) BreakEvenProfit=5; //for H1=7 (H4=10) for M15=5 JumpingStopPips =NormalizeDouble(DailyATR/3,0); if (JumpingStopPips<20) JumpingStopPips=20; //for H1=35 (H4=50) for M15=25 MinimumTargetinPips=NormalizeDouble(DailyATR/3,0); if (MinimumTargetinPips<20) MinimumTargetinPips=20;//for H1=30 (H4=50) for M15=30 AtrTpMultiplier =3; //for H1=2 (H4=3) for M15=1 TrailingStop =true; // (false) TrailingStopPips =NormalizeDouble(DailyATR/3,0); if (TrailingStopPips<20) TrailingStopPips=20; //for H1=30 (H4=50) for M15=20 } if (Period()== PERIOD_H1) { BreakEvenPips =NormalizeDouble(DailyATR/8,0); if (BreakEvenPips<12) BreakEvenPips=12; //for H1=20 (H4=25) for M15=20 BreakEvenProfit =NormalizeDouble(DailyATR/15,0); if (BreakEvenProfit<5) BreakEvenProfit=5; //for H1=7 (H4=10) for M15=5 JumpingStopPips =NormalizeDouble(DailyATR/5,0); if (JumpingStopPips<15) JumpingStopPips=15; //for H1=35 (H4=50) for M15=25 MinimumTargetinPips=NormalizeDouble(DailyATR/5,0); if (MinimumTargetinPips<15) MinimumTargetinPips=15;//for H1=30 (H4=50) for M15=30 AtrTpMultiplier =2.5; //for H1=2 (H4=3) for M15=1 TrailingStop =true; // (false) TrailingStopPips =NormalizeDouble(DailyATR/5,0); if (TrailingStopPips<15) TrailingStopPips=15; //for H1=30 (H4=50) for M15=20 } if (Period()== PERIOD_M15) { BreakEvenPips =NormalizeDouble(DailyATR/10,0); if (BreakEvenPips<10) BreakEvenPips=10; //for H1=20 (H4=25) for M15=20 BreakEvenProfit =NormalizeDouble(DailyATR/15,0); if (BreakEvenProfit<5) BreakEvenProfit=5; //for H1=7 (H4=10) for M15=5 JumpingStopPips =NormalizeDouble(DailyATR/7,0); if (JumpingStopPips<12) JumpingStopPips=12; //for H1=35 (H4=50) for M15=25 MinimumTargetinPips=NormalizeDouble(DailyATR/7,0); if (MinimumTargetinPips<12) MinimumTargetinPips=12;//for H1=30 (H4=50) for M15=30 AtrTpMultiplier =2; //for H1=2 (H4=3) for M15=1 TrailingStop =true; // (false) TrailingStopPips =NormalizeDouble(DailyATR/7,0); if (TrailingStopPips<12) TrailingStopPips=12; //for H1=30 (H4=50) for M15=20 } BreakEvenPips*= multiplier; BreakEvenProfit*= multiplier; JumpingStopPips*= multiplier; MinimumTargetinPips*= multiplier; TrailingStopPips*= multiplier; //OOOOOOOOOOOOOOOOOOOOOOOOOOO END Maxou Modif //---- //Alert(OpenTrades); //Alert(TicketNo); bool TradeExists; //OpenTrades = 0; //1.1.3.3 recovery CountOpenTrades(); if (TicketNo > 0) OrderSelect(TicketNo, SELECT_BY_TICKET); if (OpenTrades > 1) RecoveryInProgress = true; if (OpenTrades == 0) { TicketNo = 0; RecoveryInProgress = false; TpMoved = true; SendLots = Lot; //SendMagicNumber = MagicNumber; }//if (OpenTrades == 0) if (RecoveryInProgress && !TpMoved) { //TradeExists = DoesTradeExist();//Identifies and selects the most recent trade buy_price = 0; sell_price = 0; CheckRecoveryTakeProfit(); double recovery_profit; if (buy_price > 0) { recovery_profit = buy_price; if (Use1.2.4Recovery) { recovery_profit = buy_price; if (buy_price < BottomGoldLine) recovery_profit = BottomGoldLine; }//if (Use1.2.4Recovery) ModifyTakeProfit(recovery_profit); }//if (buy_price > 0) if (sell_price > 0) { recovery_profit = sell_price; if (Use1.2.4Recovery) { recovery_profit = sell_price; if (sell_price > TopGoldLine) recovery_profit = TopGoldLine; }//if (Use1.2.4Recovery) ModifyTakeProfit(recovery_profit); }//if (sell_price > 0) }//if (RecoveryInProgress) ReadIndicatorValues(); GetTradeDirection(); /* //Check for potential trade cancellation if (TradeDirection != none) { IsDirectionStillValid(); }//if (TradeDirection != none) */ /////////////////////////////////////////////////////////////////////////////////////////////// //Trade closure and management //if (OrdersTotal() > 0) TradeExists = DoesTradeExist(); // if (OpenTrades == 1) // { OrderSelect(TicketNo, SELECT_BY_TICKET); if (OrderProfit() < 0 && (Use1.1.3.3Recovery || Use2.4.2Recovery || Use1.2.4Recovery) ) { RecoveryModule(); }//if (OrderProfit() < 0 && (Use1.1.3.3Recovery || Use2.4.2Recovery || Use1.2.4Recovery) ) if (OpenTrades == 1 && OrderProfit() > 0) { TradeManagementModule(); TradeClosureModule(); DisplayUserFeedback(); return; }//if (OpenTrades == 1 && OrderProfit() > 0) /////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////// //Trading if (StopTrading) { TradeDirection = none; TradingStatus = stopped; GlobalVariableDel(GvName); DisplayUserFeedback(); return; }//if (StopTrading) if (RecoveryInProgress) { double target = ObjectGet(reentrylinename, OBJPROP_PRICE1); if (OrderType() == OP_BUY) { if (Ask > target) { DisplayUserFeedback(); return; }//if (Ask < target) }//if (OrderType() == OP_BUY) if (OrderType() == OP_SELL) { if (Bid < target) { DisplayUserFeedback(); return; }//if (Bid > target) }//if (OrderType() == OP_SELL) }//if (RecoveryInProgress) if (TradingStatus == mode1buy && Allow1) Mode1Buy(); if (TradingStatus == mode1sell && Allow1) Mode1Sell(); if (TradingStatus == mode2buy && Allow2) Mode2Buy(); if (TradingStatus == mode2sell && Allow2) Mode2Sell(); if (TradingStatus == mode3buy && Allow3) Mode3Buy(); if (TradingStatus == mode3sell && Allow3) Mode3Sell(); if (TradingStatus == mode4buy && Allow4) Mode4Buy(); if (TradingStatus == mode4sell && Allow4) Mode4Sell(); if (TradingStatus == mode7buy && Allow7) Mode7Buy(); if (TradingStatus == mode7sell && Allow7) Mode7Sell(); /////////////////////////////////////////////////////////////////////////////////////////////// DisplayUserFeedback(); //---- return(0); } //+------------------------------------------------------------------+