mt4?本

问天

//+------------------------------------------------------------------+
//|                                                        平?.mq4 |
//+------------------------------------------------------------------+
#property copyright "惜墨"
#property link      ""
#property show_confirm
//?明 一?平? ?本
//OrderClose(OrderTicket(),OrderLots(),价格,10); 此句最後的 "10”是允?的滑点数，根据平台调整

//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
//----
      for (int i=OrdersTotal()-1;i>=0;i--)                             
      {
         if (OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         {
            double 价格;
            if (OrderType()==OP_BUY){价格=Bid;} else {价格=Ask;}
            OrderClose(OrderTicket(),OrderLots(),价格,10,CLR_NONE);
         }
      }
//----
   return(0);
  }
//+------------------------------------------------------------------+

问天

//+------------------------------------------------------------------+
//|                                                       平多?.mq4 |
//+------------------------------------------------------------------+
#property copyright "惜墨"
#property link      ""
#property show_confirm
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
//----
      for (int i=OrdersTotal()-1;i>=0;i--)                             
      {
         if (OrderSelect(i,SELECT_BY_POS)==true)
         {      
            double 价格;
            if (OrderType()==OP_BUY){价格=Bid;} else {价格=Ask;}
            if (OrderType()==OP_BUY) OrderClose(OrderTicket(),OrderLots(),价格,10,CLR_NONE);
         }
      }
//----
//----
   return(0);
  }
//+------------------------------------------------------------------+

问天

//+------------------------------------------------------------------+
//|                                                       平空?.mq4 |
//+------------------------------------------------------------------+
#property copyright "惜墨"
#property link      ""
#property show_confirm
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
//----
      for (int i=OrdersTotal()-1;i>=0;i--)                             
      {
         if (OrderSelect(i,SELECT_BY_POS)==true)
         {      
            double 价格;
            if (OrderType()==OP_BUY){价格=Bid;} else {价格=Ask;}
            if (OrderType()==OP_SELL) OrderClose(OrderTicket(),OrderLots(),价格,10,CLR_NONE);
         }
      }
//----
   return(0);
  }
//+------------------------------------------------------------------+

问天

//+------------------------------------------------------------------+
//|                                                       做多05.mq4 |
//+------------------------------------------------------------------+
//做多 5倍? 相?于100倍杠杆5%? 即 10000美元 0.5手，需要多少倍? 自己改 “每?仓位"
#property copyright "惜墨"
#property link      ""
#property show_confirm
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
//----
   double 每?仓位=5;
   double 最小下?量=0.1;
   double 允?滑?=5;
   double 下单量=AccountEquity()/100000*每?仓位;
   if (下单量<最小下?量) 下单量 = 最小下?量;
   OrderSend(Symbol(),OP_BUY, 下单量,Ask,允?滑?,0,0,"",0,0,CLR_NONE);
//----
   return(0);
  }
//+------------------------------------------------------------------+

问天

//+------------------------------------------------------------------+
//|                                                       做空05.mq4 |
//+------------------------------------------------------------------+
#property copyright "惜墨"
#property link      ""
#property show_confirm
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
//----
   double 每?仓位=5;
   double 最小下?量=0.1;
   double 允?滑?=5;
   double 下单量=AccountEquity()/100000*每?仓位;
   if (下单量<最小下?量) 下单量 = 最小下?量;
   OrderSend(Symbol(),OP_SELL, 下单量,Bid,允?滑?,0,0,"",0,0,CLR_NONE);
//----
   return(0);
  }
//+------------------------------------------------------------------+

问天

下面??是“智能交易?型”

//+------------------------------------------------------------------+
//|                                                     自?止?.mq4 |
//+------------------------------------------------------------------+
#property copyright "Copyright ?2012,  惜墨"
#property link      ""

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
extern double    ??保?金比例=1;//是浮??以保?金，可根?杠杆和???修改
extern double    浮盈保?起始=0.5;//是浮盈?以保?金
extern double    浮盈保?比例=0.3;//是追?止?所保?的利??以保?金
extern double    初始止?=200;//是??，可根?平?和???修改
extern double    初始止盈=100;
extern double    允?滑?=20;

int init()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//----
   double 价格;
   //自?爆?
   if (AccountFreeMargin()==0)
   {
   for (int i=OrdersTotal();i>=0;i--)                             
   {
         if ( OrderSelect(i,SELECT_BY_POS)==true && OrderProfit()<0 && (OrderType()==OP_SELL || OrderType()==OP_BUY))
         {      
            if (OrderType()==OP_BUY){价格=Bid;}else{价格=Ask;}
            OrderClose(OrderTicket(),OrderLots(),价格,允?滑?);
         }
   }
   }

   for ( i=OrdersTotal();i>=0;i--)                             
   {
         if ( OrderSelect(i,SELECT_BY_POS)==true  && (OrderType()==OP_SELL || OrderType()==OP_BUY))
         {      
            //自?止?
            double 保?金?用=100000/AccountLeverage()*OrderLots();
            double 浮?盈?比 =MathAbs( OrderProfit()) / 保?金?用;
            if (OrderType()==OP_BUY){价格=Bid;} else {价格=Ask;}
           
            if ( OrderProfit()<0 && 浮?盈?比>??保?金比例)
                OrderClose(OrderTicket(),OrderLots(),价格,允?滑?);
            
            double 止?;
            double 止盈;
             //初始止?
            if (OrderStopLoss()==0 && OrderSymbol()==Symbol())
            {
               if (OrderType()==OP_SELL){止?=OrderOpenPrice()+初始止?*Point;} else {止?=OrderOpenPrice()-初始止?*Point;}
               if (OrderTakeProfit()!=0)
               { 止盈=OrderTakeProfit();}
               else
               {
               if (OrderType()==OP_SELL){止盈=OrderOpenPrice()-初始止盈*Point;} else {止盈=OrderOpenPrice()+初始止盈*Point;}
               }
               Print ("止盈",止盈);
               OrderModify(OrderTicket(),OrderOpenPrice(),止?,止盈,0);
            }
               
            
            //追?止?
            if ( OrderProfit()>0 && 浮?盈?比>浮盈保?起始)
            {
               double dx;
               
               dx=MathAbs((OrderOpenPrice()-价格))*浮盈保?比例;
               if (浮?盈?比<1) {dx=MathAbs((OrderOpenPrice()-价格))*0.1;}
               //Print ("浮?盈?比",浮?盈?比);
               if (OrderType()==OP_SELL){止?=OrderOpenPrice()-dx;} else {止?=OrderOpenPrice()+dx;}
            
               bool 允?修改=OrderStopLoss()==0;
               
               if (OrderType()==OP_SELL){允?修改=允?修改 || 止?<OrderStopLoss();} else {允?修改=允?修改 || 止?>OrderStopLoss();}
               
               //Print ("允?修改",允?修改);
               //Print ("止?",止?);
               if (允?修改)
                  OrderModify(OrderTicket(),OrderOpenPrice(),止?,OrderTakeProfit(),0);
            }
               
         }
   }
   
   
   
//----
   return(0);
  }
//+------------------------------------------------------------------+

问天

打包的，??到 experts目?

快乐召唤师

谢谢了  这个 是什么指标

问天

不是指? 是ea 是自??置初始止?的。?有?本，是快捷下?平?的

siuwing

顶下，好好研究下

play

问天 发表于 2012-3-31 17:47
打包的，??到 experts目?

感谢楼主的分享啊。
冒昧的弱弱的问一下，经过实盘验证了吗？效果如何。

问天

play 发表于 2012-4-12 11:27
感谢楼主的分享啊。
冒昧的弱弱的问一下，经过实盘验证了吗？效果如何。

??就知道。可以用模???。
?不是自?炒蛋的ea，?什?可??的。

三十而立

多谢楼主Wang34