简单而神奇的EA，值得深入探讨
一周前，开始学习EA，看的第一个贴就是论坛里置顶的520FX ? 【MT4编程交流】 ? ea简明教程收集以及修改贴（delmo 2009-8-10 00:07发表）贴子里引了牛版的一个EA为例，我就原样抄入了MT4，代码如下：
[*]//+-----------------------------------------------------------------+
[*]//| Designed by bull, China |
[*]//| Copyright 2007, bull |
[*]//| bbs.520fx.com |
[*]//+-----------------------------------------------------------------+
[*]#propertycopyright \"Copyright 2007 , bull, China.\"
[*]#propertylink \"bbs.520fx.com\"
[*]#define MAGICMA 2007
[*]
[*]extern int whichmethod = 1; //1~4 种下单方式1 仅开仓, 2 有止损无止赢, 3 有止赢无止损, 4 有止赢也有止损
[*]extern double TakeProfit = 100; //止赢点数
[*]extern double StopLoss = 20; //止损点数
[*]extern double MaximumRisk = 0.3; //资金控制,控制下单量
[*]extern double TrailingStop = 25; //跟踪止赢点数设置
[*]extern int maxOpen = 3; //最多开仓次数限制
[*]extern int maxLots = 5; //最多单仓持仓量限制
[*]extern int bb = 0; //非零就允许跟踪止赢
[*]extern double MATrendPeriod = 26;//使用26均线 开仓条件参数
[*]
[*]int i, p2, xxx, p1, res;
[*]double Lots;
[*]datetime lasttime; //时间控制, 仅当一个时间周期完成才检查条件
[*]
[*]int init() //初始化
[*]{
[*]Lots = 1;
[*]lasttime = NULL;
[*]return(0);
[*]}
[*]
[*]int deinit() { return(0); } //反初始化
[*]
[*]//主程序
[*]int start()
[*]{
[*]CheckForOpen(); //开仓 平仓 条件检查 和操作
[*]if (bb>0) CTP(); //跟踪止赢
[*]return(0);
[*]}
[*]
[*]//+------下面是各子程序--------------------------------------------+
[*]double LotsOptimized() //确定下单量，开仓调用 资金控制
[*]{
[*]double lot=Lots;
[*]int orders=HistoryTotal(); // history orders total
[*]int losses=0; // number of losses orders without a break
[*]
[*]lot=NormalizeDouble(MaximumRisk * AccountBalance()/AccountLeverage(),1); //开仓量计算
[*]if(lotmaxLots) lot=maxLots;
[*]return(lot);
[*]}
[*]
[*]//平仓持有的买单
[*]void CloseBuy()
[*]{
[*]//int OrdersTotal( ) 返回挂单总数
[*]if (OrdersTotal( ) > 0 )
[*]{
[*]for(i=OrdersTotal()-1;i>=0;i--)
[*]{
[*]if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
[*]if(OrderType()==OP_BUY)
[*]{
[*] OrderClose(OrderTicket(),OrderLots(),Bid,3,White);
[*] Sleep(5000);
[*]}
[*]}
[*]}
[*]}
[*]
[*]//平仓持有的卖单
[*]void CloseSell()
[*]{
[*]if (OrdersTotal( ) > 0 )
[*]{
[*]for(i=OrdersTotal()-1;i>=0;i--)
[*]{
[*]if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
[*]if(OrderType()==OP_SELL)
[*] {
[*] OrderClose(OrderTicket(),OrderLots(),Ask,3,White);
[*] Sleep(5000);
[*] }
[*]}
[*]}
[*]}
[*]
[*]//判断是否买或卖或平仓
[*]int buyorsell() //在这个函数计算设置你的交易信号这里使用MACD 和MA 做例子
[*]{
[*]double MacdCurrent, MacdPrevious, SignalCurrent;
[*]double SignalPrevious, MaCurrent, MaPrevious;
[*]
[*]MacdCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,0);
[*]MacdPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,1);
[*]SignalCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,0);
[*]SignalPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,1);
[*]
[*]MaCurrent=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRICE_CLOSE,0);
[*]MaPrevious=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRICE_CLOSE,1);
[*]
[*]if(MacdCurrentSignalCurrent && MacdPreviousMaPrevious)
[*]return (1); // 买 Ma在上升，Macd在0线上，并且两线上交叉
[*]
[*]if(MacdCurrent>0 && MacdCurrentSignalPrevious && MaCurrent 19 ) return; //周五晚11点后不做
[*]}
[*]
[*]if (OrdersTotal( ) >= maxOpen) return ;
[*]//如果已持有开仓次数达到最大，不做
[*]if (nowbuyorsell==0) return; //不交易
[*]TradeOK(); //去下单交易
[*]}
[*]
[*]void TradeOK() //去下单交易
[*]{
[*]int error ;
[*]if (nowbuyorsell == 1) //买
[*]{
[*] switch (whichmethod)
[*] {
[*] case 1: res=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,0,0,\"\",MAGICMA,0,Blue);break;
[*] case 2: res=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,Ask-StopLoss*Point,0,\"\",MAGICMA,0,Blue); break;
[*] case 3: res=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,0,Ask+TakeProfit*Point,\"\",MAGICMA,0,Blue);break;
[*] case 4: res=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,\"\",MAGICMA,0,Blue);break;
[*] default : res=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,0,0,\"\",MAGICMA,0,Blue);break;
[*] }
[*] if (res(TrailingStop * MarketInfo(OrderSymbol(), MODE_POINT)))//开仓价格 当前止损和当前价格比较判断是否要修改跟踪止赢设置
[*]
[*] {
[*] if ((OrderStopLoss()) > (Ask + TrailingStop * MarketInfo(OrderSymbol(), MODE_POINT)))
[*] {
[*] bs = OrderModify(OrderTicket(), OrderOpenPrice(),
[*] Ask + TrailingStop * MarketInfo(OrderSymbol(), MODE_POINT), OrderTakeProfit(),0, Tan);
[*] }
[*] }
[*]}
[*]}
[*]}
复制代码 看看现在变相卖EA的。。。越来越多！ 天啊. 一楼的位置好啊.. 唉，悲催的外汇。。 朕要休息了.............. 我有个群，大家一起来讨论EA. 加油啊！！！！顶哦!!!!! 经过你的指点 我还是没找到在哪 ~~~ 谢谢分享！！！！！
页:
[1]
2