外汇-MT4-EA(选自国外外汇论坛)---DTS1-Build814_full_winterz_edition.doc

#property copyright Copyright QQ:9695905#property link string gs_192;string gs_dummy_200;int g_datetime_208;string gs_dummy_212;string gs_dummy_220;string gs_dummy_228;string gs_dummy_236;string gs_244;int gi_252 = 1;int gi_256 = 20;int gi_260;int gi_unused_264;int gi_unused_268;bool gi_272 = TRUE;int gi_276 = 48;int gi_280 = 5;int g_count_284 = 0;int gi_288;int gi_292 = 3600;int g_str2int_296;int g_str2int_300;int g_str2int_304;int g_str2int_308;int g_str2int_312;int g_str2int_316;int g_str2int_320;int g_str2int_324;int g_str2int_328;int g_str2int_332;int g_str2int_336;int g_str2int_340;int g_str2int_344;int g_str2int_348;int g_str2int_352;int g_str2int_356;int g_str2int_360;int g_str2int_364;int g_str2int_368;int g_str2int_372;extern int Risk_Setting = 1;extern double Initial_Capital = 10000.0;extern int SP_Distance = 40;extern bool Check_Position_Left = FALSE;extern bool MiniAccount = FALSE;extern bool Show_Target_Line = TRUE;extern bool Use_Keltner_Entry = TRUE;extern bool Enable_Watermark_Calc = TRUE;extern int Start_Trading_Day = 0;extern int End_Trading_Day = 4;extern int MaxSpread_Allowed = 5;extern string Setting1 = -Stop Loss Control-;extern int StopLoss_OpenPosNum = 0;extern int StopLoss_Distance = 0;extern double StopLoss_Percentage = 0.0;extern string Setting2 = -C Cycle Control-;extern bool Enable_C1 = TRUE;extern bool Enable_C2 = TRUE;extern bool Enable_C3 = FALSE;extern bool Enable_C4 = FALSE;extern bool Enable_C_Buy = TRUE;extern bool Enable_C_Sell = TRUE;extern string Setting3 = -Automatic MSP Control for Cycle-;extern bool Enable_ASP_C1 = TRUE;extern bool Enable_ASP_C2 = TRUE;extern bool Enable_ASP_C3 = TRUE;extern bool Enable_ASP_C4 = TRUE;extern string Setting4 = -ADDITIONAL-Cycles Control-;extern bool Enable_BRT_Pyramiding = TRUE;extern bool Enable_INV_Pyramiding = TRUE;extern bool Enable_REV_Pyramiding = TRUE;extern bool Enable_SCA_Pyramiding = TRUE;extern int Pos_Open_BRT = 50;extern int Pos_Open_INV = 50;extern int Pos_Open_REV = 50;extern int Pos_Open_SCA = 50;extern int Max_Open_BRT = 20;extern int Max_Open_INV = 20;extern int Max_Open_REV = 20;extern int Max_Open_SCA = 20;extern int Target_Distance_BRT = 100;extern int Profit_Target_INV = 50;extern int Profit_Target_REV = 100;extern int Profit_Target_SCA = 20;extern double Multiply_Lot_BRT = 2.0;extern double Multiply_Lot_INV = 1.0;extern double Multiply_Lot_REV = 2.0;extern double Multiply_Lot_SCA = 2.0;extern int Pos_Distance_BRT = 2;extern int Pos_Distance_INV = 5;extern int Pos_Distance_REV = 2;extern int Pos_Distance_SCA = 2;extern string Setting5 = -Users Lot Size-;extern double Lots_C1 = 0.01;extern double Lots_C2 = 0.01;extern double Lots_C3 = 0.01;extern double Lots_C4 = 0.01;extern string Setting6 = -FORCE CLOSE Cycle-;extern bool Force_CLOSE_Above = FALSE;extern bool Force_CLOSE_Below = FALSE;extern int Force_CLOSE_CycleNum = 0;extern double Force_CLOSE_LimitPrice = 0.0;extern string Setting7 = -FORCE MSP Control-;extern bool Force_MSP_Above = FALSE;extern bool Force_MSP_Below = FALSE;extern int Force_MSP_CycleNum = 0;extern double Force_MSP_LimitPrice = 0.0;extern double Force_MSP_BottomPrice = 0.0;extern double Force_MSP_TopPrice = 0.0;extern bool Move_SP = TRUE;extern bool Force_MSP_ADDCYCLE_Only = FALSE;bool gi_744 = FALSE;double gd_748 = 0.0;double gd_756 = 0.0;double gd_764 = 0.0;double gd_772 = 0.0;double gd_780 = 0.0;int gi_788 = 0;bool gi_792 = FALSE;int gi_796;int gi_800;int gi_804 = 0;int gi_808 = 1;int gi_unused_812 = 3;int gi_816 = 13;int gi_820 = 100;int gi_824 = 20;int gi_828 = 1000;double gd_832;double gd_840;double gd_848;double gd_856;int gi_864 = 3;double gd_868 = -0.2;bool gi_876 = FALSE;int gi_880 = 1;int g_period_884 = 12;int g_period_888 = 19;int g_period_892 = 12;int g_period_896 = 9;int g_period_900 = 50;int g_slippage_904 = 4;int g_magic_908 = 10401;int g_magic_912 = 10402;int g_magic_916 = 10403;int g_magic_920 = 10404;string g_var_name_924 = Last Watermark;string gs_rsis_932 = RSIS;string gs_rsib_940 = RSIB;string gs_rsis_h4_948 = RSIS H4;string gs_rsib_h4_956 = RSIB H4;string g_var_name_964 = Total Simultaneous Close;string g_var_name_972 = Hanging Upperband;string g_var_name_980 = Hanging Lowerband;string g_var_name_988 = Targeted Upperband;string g_var_name_996 = Targeted Lowerband;string g_var_name_1004 = Start Time C1;string gs_c1b_1012 = C1B;string gs_c1s_1020 = C1S;string g_var_name_1028 = Start Point C1;string g_var_name_1036 = Lotsize C1;string g_var_name_1044 = Total Close C1;string g_var_name_1052 = Start Time C2;string gs_c2b_1060 = C2B;string gs_c2s_1068 = C2S;string g_var_name_1076 = Start Point C2;string g_var_name_1084 = Lotsize C2;string g_var_name_1092 = Total Close C2;string g_var_name_1100 = Start Time C3;string gs_d3b_1108 = D3B;string gs_d3s_1116 = D3S;string g_var_name_1124 = Start Point C3;string g_var_name_1132 = Lotsize C3;string g_var_name_1140 = Total Close C3;string g_var_name_1148 = Start Time C4;string gs_d4b_1156 = D4B;string gs_d4s_1164 = D4S;string g_var_name_1172 = Start Point C4;string g_var_name_1180 = Lotsize C4;string g_var_name_1188 = Total Close C4;double gd_1196;double gd_1204;double gd_1212;double gd_1220;double gd_1228;double gd_1236;double gd_1244;double gd_1252;int g_global_var_1260 = 0;int g_global_var_1264 = 0;int g_global_var_1268 = 0;int g_global_var_1272 = 0;double g_global_var_1276;int gi_1284 = 0;int gi_1288 = 0;int gi_unused_1292 = 0;int gi_unused_1296 = 0;int gi_1300 = 0;int gi_1304 = 0;int gi_1308 = 0;int gi_1312 = 0;int gi_1316 = 0;int gi_1320 = 0;int gi_1324 = 0;string gs_1328;bool g_bool_1336;bool g_bool_1340;bool g_bool_1344;bool g_bool_1348;bool gi_1352 = TRUE;bool gi_1356 = TRUE;bool gi_1360 = TRUE;bool gi_1364 = TRUE;bool gi_1368 = TRUE;bool gi_1372 = TRUE;bool gi_1376 = TRUE;bool gi_1380 = TRUE;bool g_bool_1384 = FALSE;bool gi_1388 = TRUE;double g_iadx_1392;double g_iadx_1400;double gd_1408;double g_ima_1416;double gd_1424;double gd_1432;double gd_1440;double g_ima_1448;double gd_1456;double gd_1464;double g_imacd_1472;double g_imacd_1488;double g_imacd_1504;double g_imacd_1512;int gi_1520 = 2;int gi_unused_1524 = 0;double g_ima_1528;double g_ima_1536;double g_ima_1544;bool g_global_var_1552;bool g_global_var_1556;bool g_global_var_1560;bool g_global_var_1564;double gd_1568;int gi_1576 = 1;double gd_1580 = 0.0;double gd_1588 = 0.0;int g_datetime_1596;int gi_1600 = 0;int g_ord_total_1604 = 0;int validateAcc() return (1);int CekTimeLimit() return (1);int CekCondition() if (Digits = 4 | Digits = 2) gd_1568 = Point; else if (Digits = 5 | Digits = 3) gd_1568 = 10.0 * Point;/ if (Period() != PERIOD_M30) / Alert(AccountNumber() + :Please change to M30 Period.);/ return (0);/ double l_lotsize_4 = MarketInfo(Symbol(), MODE_LOTSIZE); if (l_lotsize_4 = 100000.0) g_bool_1384 = FALSE; if (MiniAccount) Alert(AccountNumber() + :Your Account is STANDARD ($100,000 contract per lot). Please set FALSE to Mini Account.); return (0); if (l_lotsize_4 = 10000.0) g_bool_1384 = TRUE; if (!MiniAccount) Alert(AccountNumber() + :Your Account is MINI ($10,000 contract per lot). Please set TRUE to Mini Account.); return (0); if (Symbol() = EURUSDm) g_bool_1384 = TRUE; if (iBars(Symbol(), PERIOD_D1) 100) Alert(AccountNumber() + :Bar in PERIOD D1 less then 100 bars. Need minimum 100 bars.); return (0); if (iBars(Symbol(), PERIOD_H4) 100) Alert(AccountNumber() + :Bar in PERIOD H4 less then 100 bars. Need minimum 100 bars.); return (0); / if (SP_Distance 0) for (int l_pos_20 = l_ord_total_16 - 1; l_pos_20 = 0; l_pos_20-) OrderSelect(l_pos_20, SELECT_BY_POS, MODE_TRADES); l_cmd_4 = OrderType(); if (OrderMagicNumber() = a_magic_0) if (l_cmd_4 = OP_BUY | l_cmd_4 = OP_SELL) ld_ret_8 += OrderProfit() + OrderSwap() + OrderCommission(); return (ld_ret_8); return (0);double AddPyrProfit(int a_magic_0, int a_cmd_4, string as_8) double ld_ret_16 = 0; int l_ord_total_24 = OrdersTotal(); if (l_ord_total_24 0) for (int l_pos_28 = l_ord_total_24 - 1; l_pos_28 = 0; l_pos_28-) OrderSelect(l_pos_28, SELECT_BY_POS, MODE_TRADES); if (OrderType() = a_cmd_4 & OrderMagicNumber() = a_magic_0 & OrderComment() = as_8) ld_ret_16 += OrderProfit() + OrderSwap() + OrderCommission(); return (ld_ret_16); return (0);double ClosedProfit(int a_magic_0, int ai_4) double ld_ret_8 = 0; int l_hist_total_16 = OrdersHistoryTotal(); if (l_hist_total_16 0 & ai_4 0) for (int l_pos_20 = l_hist_total_16 - 1; l_pos_20 = 0; l_pos_20-) OrderSelect(l_pos_20, SELECT_BY_POS, MODE_HISTORY); if (OrderMagicNumber() = a_magic_0) if (OrderOpenTime() = ai_4) ld_ret_8 += OrderProfit() + OrderSwap() + OrderCommission(); return (ld_ret_8); return (0);double Close1ZLProfit(int a_magic_0, color a_color_4, int a_slippage_8) int l_cmd_12; bool l_ord_close_16; int l_ord_total_20 = OrdersTotal(); for (int l_pos_24 = l_ord_total_20 - 1; l_pos_24 = 0; l_pos_24-) OrderSelect(l_pos_24, SELECT_BY_POS, MODE_TRADES); l_cmd_12 = OrderType(); l_ord_close_16 = FALSE; switch (l_cmd_12) case OP_BUY: if (OrderMagicNumber() = a_magic_0) l_ord_close_16 = OrderClose(OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_BID), a_slippage_8, a_color_4); break; case OP_SELL: if (OrderMagicNumber() = a_magic_0) l_ord_close_16 = OrderClose(OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_ASK), a_slippage_8, a_color_4); return (0.0);double CloseAddPyr(int a_magic_0, int a_cmd_4, string as_8, color a_color_16, int a_slippage_20) int l_cmd_24; bool l_ord_close_28; int l_ord_total_32 = OrdersTotal(); for (int l_pos_36 = l_ord_total_32 - 1; l_pos_36 = 0; l_pos_36-) OrderSelect(l_pos_36, SELECT_BY_POS, MODE_TRADES); l_cmd_24 = OrderType(); l_ord_close_28 = FALSE; if (l_cmd_24 = a_cmd_4 & a_cmd_4 = OP_BUY & OrderComment() = as_8 & OrderMagicNumber() = a_magic_0) l_ord_close_28 = OrderClose(OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_BID), a_slippage_20, a_color_16); if (l_cmd_24 = a_cmd_4 & a_cmd_4 = OP_SELL & OrderComment() = as_8 & OrderMagicNumber() = a_magic_0) l_ord_close_28 = OrderClose(OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_ASK), a_slippage_20, a_color_16); return (0.0);int MyOrdersTotal(int a_magic_0) int l_cmd_4; int l_ord_total_8 = OrdersTotal(); int l_count_12 = 0; l_ord_total_8 = OrdersTotal(); if (l_ord_total_8 0) for (int l_pos_16 = l_ord_total_8 - 1; l_pos_16 = 0; l_pos_16-) OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES); l_cmd_4 = OrderType(); if (l_cmd_4 = OP_BUY | l_cmd_4 = OP_SELL & OrderMagicNumber() = a_magic_0) l_count_12+; return (l_count_12);int BSOrdersTotal(int a_magic_0, int ai_4) int l_cmd_8; int l_ord_total_12 = OrdersTotal(); int l_count_16 = 0; l_ord_total_12 = OrdersTotal(); if (l_ord_total_12 0) for (int l_pos_20 = l_ord_total_12 - 1; l_pos_20 = 0; l_pos_20-) OrderSelect(l_pos_20, SELECT_BY_POS, MODE_TRADES); l_cmd_8 = OrderType(); if (l_cmd_8 = OP_BUY & ai_4 = 0 & OrderMagicNumber() = a_magic_0) l_count_16+; else if (l_cmd_8 = OP_SELL & ai_4 = 1 & OrderMagicNumber() = a_magic_0) l_count_16+; return (l_count_16);int AddPyrOrders(int a_magic_0, int a_cmd_4, string as_8) int l_ord_total_16 = OrdersTotal(); int l_count_20 = 0; l_ord_total_16 = OrdersTotal(); if (l_ord_total_16 0) for (int l_pos_24 = l_ord_total_16 - 1; l_pos_24 = 0; l_pos_24-) OrderSelect(l_pos_24, SELECT_BY_POS, MODE_TRADES); if (OrderType() = a_cmd_4 & OrderMagicNumber() = a_magic_0 & OrderComment() = as_8) l_count_20+; return (l_count_20);bool CheckZL(int a_magic_0, double ad_4) if (a_magic_0 = g_magic_908) if (MathAbs(ad_4 - gd_1204) = SP_Distance * gd_1568 & MathAbs(ad_4 - gd_1212) = SP_Distance * gd_1568 & MathAbs(ad_4 - gd_1220) = SP_Distance * gd_1568 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1264) gi_880 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1268) gi_880 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1272) gi_880) return (TRUE); return (FALSE); if (a_magic_0 = g_magic_912) if (MathAbs(ad_4 - gd_1196) = SP_Distance * gd_1568 & MathAbs(ad_4 - gd_1212) = SP_Distance * gd_1568 & MathAbs(ad_4 - gd_1220) = SP_Distance * gd_1568 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1260) gi_880 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1268) gi_880 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1272) gi_880) return (TRUE); return (FALSE); if (a_magic_0 = g_magic_916) if (MathAbs(ad_4 - gd_1196) = SP_Distance * gd_1568 & MathAbs(ad_4 - gd_1204) = SP_Distance * gd_1568 & MathAbs(ad_4 - gd_1220) = SP_Distance * gd_1568 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1260) gi_880 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1264) gi_880 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1272) gi_880) return (TRUE); return (FALSE); if (a_magic_0 = g_magic_920) if (MathAbs(ad_4 - gd_1196) = SP_Distance * gd_1568 & MathAbs(ad_4 - gd_1204) = SP_Distance * gd_1568 & MathAbs(ad_4 - gd_1212) = SP_Distance * gd_1568 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1260) gi_880 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1264) gi_880 & MathAbs(TimeDayOfYear(TimeCurrent() - TimeDayOfYear(g_global_var_1268) gi_880) return (TRUE); return (FALSE); return (FALSE);int IsNewTrade(int a_magic_0, int ai_4) int l_cmd_8; int l_ord_total_12 = OrdersTotal(); bool li_ret_16 = TRUE; l_ord_total_12 = OrdersTotal(); if (l_ord_total_12 0) for (int l_pos_20 = l_ord_total_12 - 1; l_pos_20 = 0; l_pos_20-) OrderSelect(l_pos_20, SELECT_BY_POS, MODE_TRADES); l_cmd_8 = OrderType(); switch (l_cmd_8) case OP_BUY: if (ai_4 = 0 & OrderMagicNumber() = a_magic_0 & OrderOpenPrice() = Ask) li_ret_16 = FALSE; case OP_SELL: if (ai_4 = 1 & OrderMagicNumber() = a_magic_0 & OrderOpenPrice() = Bid) li_ret_16 = FALSE; continue; return (li_ret_16);void CekRSI() if (gi_1284 = 0 & iRSI(NULL, PERIOD_D1, g_period_884, PRICE_CLOSE, 0) 70.0 | gi_1284 = 2 & iRSI(NULL, PERIOD_D1, g_period_884, PRICE_CLOSE, 0) 70.0) gi_1284 = 1; gi_1288 = 0; GlobalVariableSet(gs_rsib_940, gi_1284); GlobalVariableSet(gs_rsis_932, gi_1288); else if (gi_1284 = 1 & iRSI(NULL, PERIOD_D1, g_period_884, PRICE_CLOSE, 0) 70.0) gi_1284 = 2; GlobalVariableSet(gs_rsib_940, gi_1284); if (gi_1288 = 0 & iRSI(NULL, PERIOD_D1, g_period_884, PRICE_CLOSE, 0) 30.0 | gi_1288 = 2 & iRSI(NULL, PERIOD_D1, g_period_884, PRICE_CLOSE, 0) 30.0) gi_1288 = 2; GlobalVariableSet(gs_rsis_932, gi_1288); void CekRSI_H4() if (gi_1300 = 0 & iRSI(NULL, PERIOD_H4, g_period_884, PRICE_CLOSE, 0) 70.0 | gi_1300 = 2 & iRSI(NULL, PERIOD_H4, g_period_884, PRICE_CLOSE, 0) 70.0) gi_1300 = 1; gi_1304 = 0; GlobalVariableSet(gs_rsib_h4_956, gi_1