13-5qqeaV4_1

//+------------------------------------------------------------------+
//|                                                      ÁõËÉ ok.mq4 |
//|                                                             ÁõËÉ |
//|      Ï£Íû´ó¼ÒÕäϧÎÒµÄÀͶ¯³É¹û£¡×ªÔØʱÎñ±Ø֪ͨÎÒ£¡   
//                           liusongwh@qq.com qq:569638390 |
//+------------------------------------------------------------------+
#property copyright "ÁõËÉ"
#property link      "liusongwh@qq.com qq:569638390"

extern string  ƽ¾ùÖÜÆÚ¼ÆËã =" ƽ¾ùÖÜÆÚ¼ÆËã ";
extern string   ÉùÃ÷  ="Ï£Íû´ó¼ÒÕäϧÎÒµÄÀͶ¯³É¹û£¡×ªÔØʱÎñ±Ø֪ͨÎÒ£¡ÎÒ±£ÁôÒ»ÇÐ×·¾¿µÄȨÀû";
 
extern double                 m = 5; 
extern double                 n = 13;
extern int       SDL1_period    = 100;
extern int       SDL1_method    = 3;
extern int       SDL1_price     = 0;

extern string   ¹Ø¼üÈ¥ÔÓ²¨²ÎÊý  ="ʱ¼äÖÜÆÚԽС£¬È¡ÖµÏàÓ¦±äС";
extern double    bodong         = 8.8;


extern string   MA·½·¨  ="0 sma 1 ema 2 smma 3 lwma";

extern double      d       = 1 ;


extern string  ½»Ò×É趨="½»Ò×É趨" ;


extern double  Lot      = 0.1;
extern double  slippage =3;
extern int     maxlots  =1;
extern int     SL       = 2000;
extern int     TP       = 2000;
extern int     dindan_13_5  =55356;



int  jy=1;

double g_point;
int init() {
HideTestIndicators(TRUE);
   if (Point == 0.00001) g_point = 0.0001;
   else {
      if (Point == 0.001) g_point = 0.01;
      else g_point = Point;
   }
   return (0);
}




int start()
  {
 //----
   double d1_main, d1_sign,i,CurrEMA1Up_1,CurrEMA1Dn_1,CurrEMA1Up_2,CurrEMA1Dn_2,buy,sell,Lots,zijin,QQE_1,QQE_2
         ,d1_main_2, d1_sign_2 , d1_main_3, d1_sign_3 ,d1_main_4, d1_sign_4 ,d1_main_5, d1_sign_5 ,d1_main_6, d1_sign_6,
         chazhi_2,chazhi_3;
    

                 d1_main = iMA (NULL, 0, m, 0,d, 0, 1);
                 d1_sign = iMA (NULL, 0, n, 0,d, 0, 1);
                
                 d1_main_2 = iMA (NULL, 0, m, 0,d, 0, 2);
                 d1_sign_2 = iMA (NULL, 0, n, 0,d, 0, 2);
                
                 d1_main_3 = iMA (NULL, 0, m, 0,d, 0, 3);
                 d1_sign_3 = iMA (NULL, 0, n, 0,d, 0, 3);
                
                 d1_main_4 = iMA (NULL, 0, m, 0,d, 0, 4);
                 d1_sign_4 = iMA (NULL, 0, n, 0,d, 0, 4);
                
                 d1_main_5 = iMA (NULL, 0, m, 0,d, 0, 5);
                 d1_sign_5 = iMA (NULL, 0, n, 0,d, 0, 5);
                
                 d1_main_6 = iMA (NULL, 0, m, 0,d, 0, 6);
                 d1_sign_6 = iMA (NULL, 0, n, 0,d, 0, 6);
                
                
                 
                 QQE_1 = iCustom(Symbol(), PERIOD_D1, "###QQE_Alert_MTF_v2###",2,0,0,0);
                 QQE_2 = iCustom(Symbol(), PERIOD_D1, "###QQE_Alert_MTF_v2###",2,0,1,0);
                
                 CurrEMA1Up_1 = iCustom(NULL,0,"Slope Direction Line",SDL1_period,SDL1_method,SDL1_price,0,0);
                 CurrEMA1Up_2 = iCustom(NULL,0,"Slope Direction Line",SDL1_period,SDL1_method,SDL1_price,0,1);
                 
                 
                 CurrEMA1Dn_1 = iCustom(NULL,0,"Slope Direction Line",SDL1_period,SDL1_method,SDL1_price,1,0);
                 CurrEMA1Dn_2 = iCustom(NULL,0,"Slope Direction Line",SDL1_period,SDL1_method,SDL1_price,1,1);
                 
                
                
                
                
                 buy =CurrEMA1Up_1 - CurrEMA1Up_2;
                 sell=CurrEMA1Dn_2 - CurrEMA1Dn_1; 
                 
                 chazhi_2= (d1_main+d1_main_2+d1_main_3)-(d1_main_4 + d1_main_5 + d1_main_6)       ;

                 
                if(chazhi_2>0){
                
                 chazhi_3=chazhi_2;
                  }
                  else{
                   if(chazhi_2<0){
                   chazhi_3= 0 -chazhi_2;
                    }
                   }
                
                              
   
  int   total = OrdersTotal();
  if (OrdersTotal( ) > 0 ){
    for(i=OrdersTotal()-1;i>=0;i--){
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)     break;
      if(OrderMagicNumber()==dindan_13_5){
      if(OrderType()==OP_BUY){
      if ((sell>0 && d1_main < d1_sign) || chazhi_3 < bodong*g_point ){
        OrderClose(OrderTicket(),OrderLots(),Bid,slippage*g_point,White);
        Sleep(5000);
         }
        }
      
       if(OrderType()==OP_SELL){
       if ((buy >0 &&  d1_main > d1_sign) || chazhi_3 < bodong*g_point ){
        OrderClose(OrderTicket(),OrderLots(),Ask,slippage*g_point,White);
        Sleep(5000);
      }
     }
    }
   }
  }


    zijin =   AccountFreeMargin();
   
   if (zijin<=2500){
      Lots  =Lot;
      }
      else{
          if  (zijin>2500){
          Lots  = NormalizeDouble((zijin/25000), 1);
           
  }
}

 if(d1_main > d1_sign &&d1_main_3 < d1_sign_3 ){
     jy=0;
     }
  
 if (jy==0 && QQE_1>QQE_2  && buy>0 && total<maxlots && d1_main > d1_sign &&  chazhi_3 > bodong*g_point){
 
 OrderSend(Symbol(),OP_BUY,Lots,Ask,slippage,Ask-SL*g_point,Ask+TP*g_point,"BUY",dindan_13_5,0,Red);
     jy=1;
    
 }
 
 if(d1_main < d1_sign &&d1_main_3 > d1_sign_3 ){
     jy=0;
     }
 
 if (jy==0 && QQE_1<QQE_2  && sell>0 &&  total<maxlots && d1_main < d1_sign &&  chazhi_3 > bodong*g_point){
     jy=1;
    
 OrderSend(Symbol(),OP_SELL,Lots,Bid,slippage,Bid+SL*g_point,Bid-TP*g_point,"SELL",dindan_13_5,0,Green);
     
    }  
 
//----
   return(0);
  }
//+------------------------------------------------------------------+