2EMA System-v03 Metatrader MQL Experts Forex Trading Systems - XEATrade - Metatrader, Metastock, Tradestation, Amibroker

/*[[
 Name := 2EMA system-v03
 Author := Copyright © 2003, Smoky
 Link := http://www.company.com/
 Notes := 2 ema I use 5 minute on EUR 
 Update on every tick := Yes
 Positions := Long & Short
 Enable Alerts := Yes
 Disable alert once hit := No
 Lots := 1
 Stop Loss := 50
 Take Profit := 360
 Trailing Stop := 15
]]*/
 
Defines:  Slip(5),
   lp(300),
   risk(40),
   sp(30),   
   mm(-1),
   munth(9);
 
 
 
vars: direction(0),
  orders(0),
  first(0),
  mode(0),
  cnt(0),
  Ilo(0),
  sym(0),
  b(0);
  
 
Comment("Account: ",AccNum," - ",AccName, 
  "\n"," StopLoss    ",  b,
  "\n"," Lots    ",Ilo);
 

//if month < munth then exit;
 
If Bars<lp+1 or TakeProfit<10 then Exit;
If IsIndirect(Symbol)=TRUE then Exit;
If CurTime - LastTradeTime < 1800 Then Exit;
b=5*Point+iATR(4,1)*5.5;
/**********************************Money and Risk Management***************************************
Changing the value of mm will give you several money management options
mm = 0 : Single 1 lot orders.
mm = -1 : Fractional lots/ balance X the risk factor.(use for Mini accts)
mm = 1 : Full lots/ balance X the risk factor up to 100 lot orders.(use for Regular accounts)
***************************************************************************************************
RISK FACTOR:
risk can be anything from 1 up. 
Factor of 5 adds a lot for every $20,000.00 added to the balance. 
Factor of 10 adds a lot with every $10.000.00 added to the balance.
The higher the risk,  the easier it is to blow your margin..
**************************************************************************************************/
 
if mm < 0 then {
Ilo = ceil(Balance*Risk/10000)/10;
  If Ilo > 100 then {  
  Ilo = 100;  
  }
} else {
Ilo = lots;
};
if mm > 0 then 
 {
Ilo = ceil(Balance*Risk/10000)/10;
 If Ilo > 1 then 
 {
 Ilo = ceil(Ilo);
 }
 if Ilo < 1 then 
 {
 Ilo = 1;
 }
 If Ilo > 100 then 
 {  
  Ilo = 100;  
  }
};
//------------------------------------------------------------------------------------------------ 
If TotalTrades<1 then
  {
  if 
    (iMA(lp,MODE_SMA,3)<iMA(sp,MODE_EMA,3)*0.998 &
    iMA(lp,MODE_SMA,0)>iMA(sp,MODE_EMA,0)*0.998) &
    iSAR(0.02,0.2,6)<O[6] & iSAR(0.02,0.2,0)>O    
    then
      {
      SetOrder(
     OP_SELL,
     ILO,
     Bid,
     Slip,
     Bid+Stoploss*Point,
     Bid-TakeProfit*Point,
     Red);
     Exit;            
    };
  if 
    (iMA(lp,MODE_SMA,3)>iMA(sp,MODE_EMA,3)*1.002 &
    iMA(lp,MODE_SMA,0)<iMA(sp,MODE_EMA,0)*1.002) & 
     iSAR(0.02,0.2,6)>O[6] & iSAR(0.02,0.2,0)<O   
    then
     {
     SetOrder(
     OP_BUY,
     ILO,
     Ask,
     Slip,
     Ask-Stoploss*Point,
     Ask+TakeProfit*Point,
     White); 
     Exit;
    };
};   
//----------------------------------------Order Control-------------------------------------------
 
orders=0;
sym=0;
For cnt=1 to TotalTrades 
begin
 
If Ord(cnt,Val_Symbol)=Symbol then 
 {
 sym=cnt;
 orders=1;
 
}; 
mode=Ord(sym,VAL_TYPE);
 
If mode=OP_BUY &   
   Ord(sym,VAL_SYMBOL)=Symbol then  
 {
 If Ord(sym,Val_OPENPRICE)>Ord(sym,VAL_STOPLOSS) &
    Bid-Ord(sym,Val_OPENPRICE)>(Ord(sym,Val_OPENPRICE)*0.004) &     
    iMA(lp,MODE_SMA,3)<iMA(sp,MODE_EMA,3)*0.998 &
   iMA(lp,MODE_SMA,0)>iMA(sp,MODE_EMA,0)*0.9978 
    then
     {
     CloseOrder(
     Ord(sym,VAL_TICKET),
     Ord(sym,VAL_LOTS),
     Bid,
     Slip,
     Red);
     Exit;
    }; 
 If (Bid-Ord(sym,VAL_OPENPRICE))>(b)then
  {
  If Ord(sym,VAL_STOPLOSS)<(Bid-b) then
   {
   ModifyOrder(
   Ord(sym,VAL_TICKET),
   Ord(sym,VAL_OPENPRICE),
   Bid-b,
   Ord(sym,VAL_TAKEPROFIT),
   LimeGreen);
   Exit;
   }; 
  };
    };  
    If mode=OP_SELL & 
    OrderValue(sym,VAL_SYMBOL)=Symbol then  
     {
     If Ord(sym,Val_OPENPRICE)<Ord(sym,VAL_STOPLOSS) &
     Ord(sym,Val_OPENPRICE)-Ask>(Ord(sym,Val_OPENPRICE)*0.004) &
     iMA(lp,MODE_SMA,3)>iMA(sp,MODE_EMA,3)*1.002 &
    iMA(lp,MODE_SMA,0)<iMA(sp,MODE_EMA,0)*1.0022     
     then     
      {
      CloseOrder(
      Ord(sym,VAL_TICKET),
      Ord(sym,VAL_LOTS),
      Ask,
      Slip,
      Red);
      Exit;
  };
 If (Ord(sym,VAL_OPENPRICE)-Ask)>(b) then
  {
  If Ord(sym,VAL_STOPLOSS)>(Ask+b) then
   {
   ModifyOrder(
   Ord(sym,VAL_TICKET),
   Ord(sym,VAL_OPENPRICE),
   Ask+b,
   Ord(sym,VAL_TAKEPROFIT),
   HotPink);
   Exit;
   };
  };
 };
End;

Author/Source: Smoky

Forex Directory | Forex Trading Systems | Privacy | Disclaimer | Contact