求EA 高手指点

您需要 登录 才可以下载或查看，没有帐号？注册 下面是我编写的一个EA程序,订单开单没问题，平单时候和预期的不一样，希望多单在当前周期开盘价格如果低于前五个周期的最低价则平仓单，空单反之，求高手指点。
//+------------------------------------------------------------------+
//|                    PBX Sample.mq4 |
//|                Copyright ?2005, metaQuotes Software Corp. |
//|                           http://www.metaquotes.net/ |
//+------------------------------------------------------------------+
extern double TakeProfit = 500;
extern double Lots = 1;
extern double TrailingStop = 500;
//+------------------------------------------------------------------+
//|                                             |
//+------------------------------------------------------------------+
int start()
 {
   double PBX1Current;
   double PBX6Current,PBX1Previous;
   double PBX6Previous;
   int cnt, ticket, total;
   datetime Closetime,Opentime;
   
 if(Bars 100)
   {
     Print( bars less than 100
     return(0); 
   }
   if(TakeProfit 10)
   {
     Print( TakeProfit less than 10
     return(0); // check TakeProfit
   }
// to simplify the coding and speed up access
// data are put into internal variables
   PBX1Current = (iMA(NULL, 0, 4, 0, MODE_EMA, PRICE_CLOSE, 0) + iMA(NULL, 0, 8, 0, MODE_SMA, PRICE_CLOSE, 0) + iMA(NULL, 0, 16, 0, MODE_SMA, PRICE_CLOSE, 0)) / 3.0;
   PBX6Current = (iMA(NULL, 0, 24, 0, MODE_EMA, PRICE_CLOSE, 0) + iMA(NULL, 0, 48, 0, MODE_SMA, PRICE_CLOSE, 0) + iMA(NULL, 0, 96, 0, MODE_SMA, PRICE_CLOSE, 0)) / 3.0;
   PBX1Previous = (iMA(NULL, 0, 4, 0, MODE_EMA, PRICE_CLOSE, 1) + iMA(NULL, 0, 8, 0, MODE_SMA, PRICE_CLOSE, 1) + iMA(NULL, 0, 16, 0, MODE_SMA, PRICE_CLOSE, 1)) / 3.0;
   PBX6Previous = (iMA(NULL, 0, 24, 0, MODE_EMA, PRICE_CLOSE, 1) + iMA(NULL, 0, 48, 0, MODE_SMA, PRICE_CLOSE, 1) + iMA(NULL, 0, 96, 0, MODE_SMA, PRICE_CLOSE, 1)) / 3.0;
 
   total=OrdersTotal();
   if(total 1)
   {
     // no opened orders identified
     if(AccountFreeMargin() (1000*Lots))
     {
       Print( We have no money. Free Margin = , AccountFreeMargin());
       return(0); 
     }
     // check for long position (BUY) possibility
     
     if(PBX1Current PBX6Current PBX1Previous PBX6Previous)// 金叉
     {
     
       ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,10,Ask-TrailingStop*Point,0, PBX sample ,787912,0,Green);
       if(ticket 0)
       {         
         if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print( BUY order opened : ,OrderOpenPrice(),OrderOpenTime());
          }
       else Print( Error opening BUY order : ,GetLastError());
       return(0);
     }
     // check for short position (SELL) possibility
     if(PBX1Current PBX6Current PBX1Previous PBX6Previous)//死叉
     {
       ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Bid+TrailingStop*Point,0, PBX sample ,787912,0,Red);
       if(ticket 0)
       {
         if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print( SELL order opened : ,OrderOpenPrice());
       }
       else Print( Error opening SELL order : ,GetLastError());
       return(0);
     }
     return(0);
   }
   // it is important to enter the market correctly,
   // but it is more important to exit it correctly...   
   for(cnt=0;cnt total;cnt++)
   {
     OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
     if(OrderType() =OP_SELL    // check for opened position
       OrderSymbol()==Symbol()) // check for symbol
     {
       if(OrderType()==OP_BUY)   // long position is opened
       {
         if(iOpen(Symbol(),0,0) Low[iLowest(Symbol(),0,MODE_LOW,5,1)])
            {
           
           OrderClose(OrderTicket(),OrderLots(),Bid,10,Violet); // close position
             if(OrderSelect(16384,SELECT_BY_TICKET,MODE_HISTORY)==true)
               Closetime=OrderCloseTime();
           
           return(0); // exit
            }
          else{
            Print(iOpen(Symbol(),0,0), Low ,Low[iLowest(Symbol(),0,MODE_LOW,5,1)]);
            return(0); // exit
          }   
         // check for trailing stop
         if(TrailingStop 0) 
         {           
           if(Bid-OrderOpenPrice() Point*TrailingStop)
           {
             if(OrderStopLoss() Bid-Point*TrailingStop)
             {
               OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
               return(0);
             }
           }
         }
       }
       
       else // go to short position
       {
         // should it be closed?
         // if(Bullmediancurrent Bullmedianprevious )
         //if(SigmaCurrent SigmaPrevious)
         if(iOpen(Symbol(),0,0) High[iHighest(Symbol(),0,MODE_HIGH,5,1)])
         {
           OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
           
           return(0); // exit
         }
         else
         {Print(iOpen(Symbol(),0,0), High ,High[iHighest(Symbol(),0,MODE_HIGH,5,1)]);
            return(0); // exit
         }
         
         // check for trailing stop
         if(TrailingStop 0) 
         {           
           if((OrderOpenPrice()-Ask) (Point*TrailingStop))
           {
             if((OrderStopLoss() (Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
             {
               OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red);
               return(0);
             }
           }
         }
       }
     }
   }
   return(0);
 }
// the end.
外汇交易有很大的风险性,本站所有资源均来自网络,请选择使用,如若出现亏损,本站不承担任何责任!