瞬间转移 发表于 2011-9-28 23:31:22

用一个简单的EA说明编辑过程

用一个简单的EA说明编辑过程
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
//MarketInfo(Symbol(),MODE_MINLOT);   相关信息
//MarketInfo(Symbol(),MODE_MAXLOT);
//MarketInfo(Symbol(),MODE_LOTSTEP);
lot=NormalizeDouble(MaximumRisk * AccountBalance()/AccountLeverage(),1);   //开仓量计算
if(lotmaxLots) lot=maxLots;
return(lot);
}
   
//平仓持有的买单
void CloseBuy()
{
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);
}
      }
    }
}
}

michaelchen 发表于 2012-11-22 00:02:14

好的外汇EA是稳赚的,但是,那些4%以上的收益率的都是骗人的

野狗 发表于 2012-11-22 00:02:14

谢谢分享了!   

艾凯 发表于 2012-11-22 02:15:12

初来乍到,请多多关照。。。

暗色调 发表于 2012-11-22 02:15:12

必须顶

信和赢汇1 发表于 2012-11-22 02:15:12

楼主也是培训师吗

西城威尔士 发表于 2012-11-22 02:15:12

好帖,有才

flying5960 发表于 2012-11-22 02:15:12

原来是这样

贞子 发表于 2012-11-22 02:15:12

楼上的话等于没说~~~

一路飘红 发表于 2013-8-4 09:23:19

页: [1] 2 3 4
查看完整版本: 用一个简单的EA说明编辑过程