外汇-MT4-EA(选自国外外汇论坛)---EA_BankingFX-Ultra.doc

#property copyright Copyright QQ:9695905#property link #include extern string BankingFx_Ultra_Parameters = - EA BankingFx Ultra EUR-USD 5M -;extern int GMT = 0;extern int MagicNumber = 794237;extern string Volatility_Parameters = - Volatility - Parameters -;extern bool Volatility_Filter = true;extern double sec = 0.0003;extern double se2c = 0.0001;extern double se3c = 0.0012;extern string Lots_Parameters = - Lots - Parameters -;extern double Lots = 0.1;extern bool LotsOptimized = true;extern bool MiniAcct = false;extern double Maximum_Lots = 10;extern int Risk = 5;extern string Order_Parameters = - Order - Parameters -;extern int StopLoss = 35;extern int TakeProfit = 8;double DecreaseFactor = 0;double DecreaseFactorX = 1;double DecreaseFactorY = 0;bool var_204 = false;bool ProfitTrailing = true;int TrailingStop = 11;int Slippage = 8;int TrailingStep = 1;int BColor = Aqua;int SColor = Tomato;bool var_232 = false;bool var_236 = true;int var_240 = 14;double var_244 = 100;bool var_252 = true;int var_256 = 0;int var_260 = 0;double var_264 = 66;double var_272 = 23;bool var_280 = false;int var_284 = 0;int var_288 = 30;double var_292;double var_300;double var_308;double var_316;double var_324;double var_332;double var_340;double var_348;string var_356;int var_364;extern string Module_2_Parameters = - Module 2 - Parameters -;extern bool AUXMOD_02 = true;int var_380 = 15;int var_384 = 15;int MagicX;extern int X_StopLoss = 33;extern int X_TakeProfit = 8;double var_400 = 0.0015;double var_408 = 0.0016;int Slippage2 = 3;extern string Module_3_Parameters = - Module 3 - Parameters -;extern bool AUXMOD_03 = true;int MagicY;extern int Y_StopLoss = 32;extern int Y_TakeProfit = 8;int TF = PERIOD_M5;int Slippage1 = 3;double var_452;double var_460;double var_468;double var_476;int var_484 = 50;int var_488 = 0;double var_492;double var_500;/+-+int init()return(0);/+-+int deinit()return(0);/+-+bool CheckExitCondition(string str)bool result = false;return(result);/+-+bool CheckEntryConditionBUY()if (var_252) var_292 = iStochastic(NULL,var_288,2,3,4,var_256,var_260,MODE_MAIN,var_284); if (var_292 = var_272) return(false); if (var_236) var_324 = iSAR(NULL,var_288,0.02,0.1,var_284 + 1); if (var_324 Ask) return(false); var_332 = iSAR(NULL,var_288,0.03,0.3,var_284 + 1); if (var_332 var_324) return(false); return(true);/+-+bool CheckEntryConditionSELL()if (var_252) var_292 = iStochastic(NULL,var_288,3,3,1,var_256,var_260,MODE_MAIN,var_284); if (var_292 = var_264) return(false); if (var_280) var_292 = iStochastic(NULL,var_288,5,3,3,var_256,var_260,MODE_MAIN,var_284); var_300 = iStochastic(NULL,var_288,5,3,3,var_256,var_260,MODE_MAIN,var_284 + 1); var_308 = iStochastic(NULL,var_288,5,3,3,var_256,var_260,MODE_SIGNAL,var_284); var_316 = iStochastic(NULL,var_288,5,3,3,var_256,var_260,MODE_SIGNAL,var_284 + 1); if (var_292 = var_264) return(false); if (var_308 = var_300) return(false); if (var_236) var_324 = iSAR(NULL,var_288,0.04,0.4,var_284); if (var_324 = var_324) return(false); if (var_232) var_340 = iMomentum(NULL,var_288,var_240,PRICE_OPEN,var_284); var_348 = iMomentum(NULL,var_288,var_240,PRICE_OPEN,var_284 + 1); if (var_340 day) & (TimeMonth(TimeCurrent() = month) & (TimeYear(TimeCurrent() = year) | (TimeMonth(TimeCurrent() month) & (TimeYear(TimeCurrent() = year) | (TimeYear(TimeCurrent() year) Comment( EA BankingFx ULTRA EUR-USD - EXPIRED ); Print( EA BankingFx ULTRA EUR-USD - EXPIRED ); return; */if (Volatility_Filter = true) if (iOpen(Symbol(),PERIOD_M5,0) = Ask + sec) return; if (iOpen(Symbol(),PERIOD_M5,0) = Ask + se2c) return; if (iOpen(Symbol(),PERIOD_M5,1) = Ask + se3c) return; if (iOpen(Symbol(),PERIOD_M5,2) = 30) & (Hour() = GMT + 2) & (Minute() = 0) & (Hour() = GMT + 7) & (Minute() = 40) & (Hour() = GMT + 8) & (Minute() = 0) & (Hour() = GMT + 10) & (Minute() = 30) & (Hour() = GMT + 11) & (Minute() = 14) & (Hour() = GMT + 12) & (Minute() = 45) & (Hour() = GMT + 13) & (Minute() = 25) & (Hour() = GMT + 14) & (Minute() = 0) & (Hour() = GMT + 15) & (Minute() = 0) & (Hour() = GMT + 19) & (Minute() = 45) & (Hour() = GMT + 19) & (Minute() = 59) return;if (AUXMOD_03 = true) var_start_44 = iMA(NULL,TF,53,0,MODE_SMA,PRICE_CLOSE,0); var_start_52 = iMA(NULL,TF,18,0,MODE_SMA,PRICE_CLOSE,0); var_452 = iSAR(NULL,TF,0.045,0.2,0); var_460 = iSAR(NULL,TF,0.03,0.1,0); var_468 = iSAR(NULL,TF,0.04,0.2,0); var_476 = iSAR(NULL,TF,0.01,0.2,1); var_start_60 = iStochastic(NULL,TF,4,3,1,MODE_SMA,0,MODE_MAIN,2); var_start_68 = iStochastic(NULL,TF,1,3,3,MODE_SMA,0,MODE_MAIN,1); if (Bars 100) return(0); if (var_488 != Bars) var_488 = Bars; var_492 = 0; var_500 = 0; for (i = 0; i = var_484; i+) if (var_500 = iLow(NULL,PERIOD_M5,i) | (var_492 = 0) var_492 = iLow(NULL,PERIOD_M5,i); if (!Y_ExistPosition() ssl1 = 0; stp1 = 0; ssl1 = 0; if (Y_StopLoss 0) ssl1 = Bid + Y_StopLoss * Point; stp1 = 0; if (Y_TakeProfit 0) stp1 = Bid - Y_TakeProfit * Point; if (iClose(NULL,PERIOD_W1,0) = var_500) & (Lots != 0) & (iClose(NULL,PERIOD_MN1,1) = Bid) & (iOpen(NULL,PERIOD_MN1,1) = Ask) & (var_460 = var_452) & (var_start_60 = 22) OrderSend(Symbol(),OP_SELL,Y_LotsOptimized(),Bid,Slippage1,ssl1,stp1,MagicY,0,Red); prtAlert(BankingFx Ultra - Mod.03 : Open Sell + DoubleToStr(Bid,4); bsl1 = 0; btp1 = 0; bsl1 = 0; if (Y_StopLoss 0) bsl1 = Ask - Y_StopLoss * Point; btp1 = 0; if (Y_TakeProfit 0) btp1 = Ask + Y_TakeProfit * Point; if (iClose(NULL,PERIOD_W1,0) var_492) & (Lots != 0) & (iClose(NULL,PERIOD_MN1,1) Ask) & (iOpen(NULL,PERIOD_W1,1) = var_468) & (var_start_44 = var_start_52) & (var_start_68 = 5) OrderSend(Symbol(),OP_BUY,Y_LotsOptimized(),Ask,Slippage1,bsl1,btp1,MagicY,0,Green); prtAlert(BankingFx Ultra - Mod.03 : Open Buy + DoubleToStr(Ask,4); if (AUXMOD_02 = true) var_start_112 = iStochastic(NULL,var_384,5,3,1,MODE_SMA,0,MODE_MAIN,1); var_start_120 = iStochastic(NULL,var_380,2,3,1,MODE_SMA,0,MODE_MAIN,1); var_start_128 = iMA(NULL,var_384,42,0,MODE_SMA,PRICE_CLOSE,0); var_start_136 = iMA(NULL,var_384,47,0,MODE_SMA,PRICE_CLOSE,0); var_start_144 = iMA(NULL,PERIOD_M1,40,5,MODE_SMA,PRICE_CLOSE,0); if (!X_ExistPosition() bsl2 = 0; btp2 = 0; bsl2 = 0; if (X_StopLoss 0) bsl2 = Ask - X_StopLoss * Point; btp2 = 0; if (X_TakeProfit 0) btp2 = Ask + X_TakeProfit * Point; if (iOpen(Symbol(),PERIOD_W1,0) - iOpen(Symbol(),PERIOD_W1,3) = var_400) & (Bid var_start_136) & (var_start_144 = iClose(NULL,PERIOD_W1,0) & (iClose(NULL,PERIOD_MN1,1) = 5) OrderSend(Symbol(),OP_BUY,X_LotsOptimized(),Ask,Slippage2,bsl2,btp2,MagicX,0,Green); prtAlert(BankingFx Ultra - Mod.02 : Open Buy + DoubleToStr(Ask,4); ssl2 = 0; stp2 = 0; ssl2 = 0; if (X_StopLoss 0) ssl2 = Bid + X_StopLoss * Point; stp2 = 0; if (X_TakeProfit 0) stp2 = Bid - X_TakeProfit * Point; if (iOpen(Symbol(),PERIOD_D1,4) - iClose(Symbol(),PERIOD_D1,0) = var_400) & (Ask = iOpen(Symbol(),PERIOD_H1,0) + var_408) & (iClose(NULL,PERIOD_MN1,1) = Bid) & (var_start_112 = 60) OrderSend(Symbol(),OP_SELL,X_LotsOptimized(),Bid,Slippage2,ssl2,stp2,MagicX,0,Red); prtAlert(BankingFx Ultra - Mod.02 : Open Sell + DoubleToStr(Bid,4); if (var_204) TrailingPositions();HandleOpenPositions();var_364 = openPositions();if (var_364 0) return(0);if (AccountFreeMargin() 0) sl = Ask - StopLoss * Point;tp = 0; if (TakeProfit 0) tp = Ask + TakeProfit * Point;OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,Slippage,sl,tp,MagicNumber,0,Green);prtAlert(BankingFx Ultra : Open Buy + DoubleToStr(Ask,4);/+-+void OpenSellOrder()double sl = 0;double tp = 0;sl = 0; if (StopLoss 0) sl = Bid + StopLoss * Point;tp = 0; if (TakeProfit 0) tp = Bid - TakeProfit * Point;OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,Slippage,sl,tp,MagicNumber,0,Red);prtAlert(BankingFx Ultra : Open Sell + DoubleToStr(Bid,4);/+-+int openPositions()int cnt = 0;for (int i = OrdersTotal() - 1; i = 0; i-) OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if (OrderMagicNumber() = MagicNumber) if (OrderSymbol() = Symbol() if (OrderType() = OP_BUY) cnt+; if (OrderType() = OP_SELL) cnt+; return(cnt);/+-+void prtAlert(string msg = )Print(Symbol() + - + msg);Alert(Symbol() + - + msg);/+-+void CloseOrder(int ticket, double lots, double price)int lasterror;int attempt = 0;while (attempt 0) attempt+; /+-+void TrailingPositions()for (int i = 0; i TrailingStop * Point) if (OrderStopLoss() TrailingStop * Point) if (OrderStopLoss() Ask + (TrailingStop + TrailingStep - 1) * Point) | (OrderStopLoss() = 0) ModifyStopLoss(Ask + TrailingStop * Point,SColor); /+-+void ModifyStopLoss(double sl, int clr)double price = OrderOpenPrice();double tp = OrderTakeProfit();OrderModify(OrderTicket(),price,sl,tp,0,clr);/+-+int HandleOpenPositions()for (int i = OrdersTotal() - 1; i = 0; i-) OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if (OrderSymbol() = Symbol() if (OrderMagicNumber() = MagicNumber) if (OrderType() = OP_BUY) if (CheckExitCondition(BUY) CloseOrder(OrderTicket(),OrderLots(),Bid); if (OrderType() = OP_SELL) if (CheckExitCondition(SELL) CloseOrder(OrderTicket(),OrderLots(),Ask); /+-+double LotsOptimized()double lots = Lots;int ordtotal = OrdersHistoryTotal();int losscnt = 0;lots = NormalizeDouble(AccountBalance() * Risk / 100000.0,1);if (MiniAcct = true) lots = NormalizeDouble(AccountBalance() * Risk / 100000.0,2) / 10.0; if (MiniAcct = true) return(lots);if (DecreaseFactor 0.0) for (int i = ordtotal - 1; i = 0; i-) if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY) = false) Print(Error in history!); break; if (OrderSymbol() != Symbol() | (OrderType() OP_SELL) | (OrderMagicNumber() != MagicNumber) continue; if (OrderProfit() 0.0) break; if (OrderProfit()