/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
//+------------------------------------------------------------------+
//| TEMa_ADX_EA.mq4 |
//| EA Based on TEMa indicator and ADX |
//| Rodrigo Brayner |
//| 2006 |
//| http://rbrayner.blogspot.com |
//+------------------------------------------------------------------+
#property copyright "Rodrigo Brayner"
#property link "http://rbrayner.blogspot.com"
/* Input Parameters */
extern double takeProfit=100.0; // Maximum profit
extern double stopLoss=15.0; // Maximum stop loss
extern double lots=0.1;
extern double trailingStop=20.0;
extern int emaPeriod = 14;
extern double adxTradeCondition = 25.0;
extern int signalBar = 0; // Buy how many bars after cross? 1 means 1 bar after cross, 0 means the current bar etc
extern int myPlaySound = 0;
extern int maxActiveOrders = 5;
static int lastDirection = 0;
static int currentDirection = 0;
int adxDirection = 0;
int isCrossed;
double adx;
string name;
//+------------------------------------------------------------------+
// expert initialization function |
//+------------------------------------------------------------------+
int init()
{
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
return(0);
}
/***********************************************************/
/************************ FUNCTIONS ************************/
/***********************************************************/
int verifyAdxDirection(int _signalBar)
{
int direction;
int adx1 = iADX(NULL,0,14,PRICE_CLOSE,MODE_MAIN,_signalBar);
int adx2 = iADX(NULL,0,14,PRICE_CLOSE,MODE_MAIN,_signalBar+1);
if(adx2 > adx1)
direction = -1; //Downward
else if(adx2 < adx1)
direction = 1; //Upward
else
direction = 0; //Nome
return(direction);
}
int verifyDirectionTema (int _signalBar)
{
double ema, emaOfEma, emaOfEmaOfEma, tema;
bool direction = 0; // No direction
ema = iMA(NULL,0,emaPeriod,0,MODE_EMA,PRICE_CLOSE,_signalBar);
emaOfEma = iCustom(NULL,0,"TEMA_RLH",emaPeriod,1,_signalBar);
emaOfEmaOfEma = iCustom(NULL,0,"TEMA_RLH",emaPeriod,2,_signalBar);
tema = 3 * ema - 3 * emaOfEma + emaOfEmaOfEma;
if(tema>emaOfEmaOfEma && ema>emaOfEma) direction = 1; // Direction UP
if(tema<emaOfEmaOfEma && ema<emaOfEma) direction = -1; // Direction DOWN
return (direction);
}
string sVerifyDirectionTema (int _signalBar)
{
int direction;
string sDirection;
direction = verifyDirectionTema(_signalBar);
if ( direction == 1 )
sDirection = "[UP]";
else if ( direction == -1 )
sDirection = "[DOWN]";
else
sDirection = "[No Direction]";
return (sDirection);
}
void comments()
{
string sCrossed,sAdx,satisfyCondition,sAdxDirection;
if (isCrossed == 1)
sCrossed = "[YES, UP]";
else if (isCrossed == -1)
sCrossed = "[YES, DOWN]";
else
sCrossed = "[NO]";
if (adx < 25)
sAdx = "[BELOW 25]";
else if (adx > 25)
sAdx = "[ABOVE 25]";
else
sAdx = "[EQUAL 25]";
if (adxDirection == 1)
sAdxDirection = "[UP]";
else if (adxDirection == -1)
sAdxDirection = "[DOWN]";
else
sAdxDirection = "[NONE]";
if ( isCrossed != 0 && adx >= 25 && adxDirection != 0 )
satisfyCondition = "[CONDITIONS MET... TRADE]";
else
satisfyCondition = "[CONDITIONS NOT MET... DO NOT TRADE]";
Comment("\nLastDirection = ",sVerifyDirectionTema(signalBar+1),"\nCurrentDirection=",sVerifyDirectionTema(signalBar),"\nisCrossed=",sCrossed,"\nadxDirection = ",sAdxDirection,"\nADX = ",adx," = ",sAdx,"\n\n :: ",satisfyCondition," :: ");
}
int crossed (int _currentDirection, int _lastDirection)
{
_currentDirection = currentDirection;
_lastDirection = lastDirection;
if(_currentDirection != _lastDirection) // Crossed/Changed
{
return (_currentDirection);
}
else
{
return (0); // No changing
}
}
/***********************************************************/
/******************** END FUNCTIONS ************************/
/***********************************************************/
/***********************************************************/
/************************** START **************************/
/***********************************************************/
int start()
{
int cnt, ticket, total;
if(Bars<100)
{
Print("[ERROR] Bars less than 100!");
return(0);
}
if(takeProfit<10)
{
Print("[ERROR] TakeProfit less than 10!");
return(0); // check TakeProfit
}
// Calculate adx value
adx = iADX(NULL,0,14,PRICE_CLOSE,MODE_MAIN,signalBar);
adxDirection = verifyAdxDirection(signalBar);
// Calculate direction on bar signalBar+1 | 0 means current bar, 1 means previous bar, 2 means...
lastDirection = verifyDirectionTema(signalBar+1);
// Calculate direction on bar signalBar | 0 means current bar, 1 means previous bar, 2 means...
currentDirection = verifyDirectionTema(signalBar);
// Did the EMAs cross? 1 means crossed up, -1 means crossed down, 0 means nothing
isCrossed = crossed (currentDirection,lastDirection);
// Print comments..
comments();
total = OrdersTotal();
int alreadyTraded = 0;
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol()==Symbol())
alreadyTraded = 1;
}
if (alreadyTraded == 0 && total < maxActiveOrders)
{
if( isCrossed == 1 && adx >= adxTradeCondition && adxDirection == 1 ) // Goind up
{
ticket=OrderSend(Symbol(),OP_BUY,lots,Ask,3,Bid-stopLoss*Point,Ask+takeProfit*Point,"[BUY] TEMa_ADX_EA",12345,0,Blue);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("[BUY] Order opened : ",OrderOpenPrice());
name = "[BUY] " + Hour() + Minute();
ObjectCreate(name, OBJ_ARROW, 0, CurTime(), Ask);
ObjectSet(name, OBJPROP_ARROWCODE, SYMBOL_ARROWUP);
if (myPlaySound == 1) PlaySound("alert.wav");
}
else Print("Error opening BUY order : ",GetLastError());
return(0);
}
if( isCrossed == -1 && adx >= adxTradeCondition && adxDirection == -1 ) // Goind down
{
ticket=OrderSend(Symbol(),OP_SELL,lots,Bid,3,Ask+stopLoss*Point,Bid-takeProfit*Point,"[SELL] TEMa_ADX_EA",12345,0,Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("[SELL] Order opened : ",OrderOpenPrice());
name = "[SELL] " + Hour() + Minute();
ObjectCreate(name, OBJ_ARROW, 0, CurTime(), CurTime(), Bid);
ObjectSet(name, OBJPROP_ARROWCODE, SYMBOL_ARROWDOWN);
if (myPlaySound == 1) PlaySound("alert.wav");
}
else Print("Error opening SELL order : ",GetLastError());
return(0);
}
return(0);
}
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())
{
if(OrderType()==OP_BUY) // long position is opened
{
// should it be closed?
if(isCrossed == -1 && adx > adxTradeCondition)
{
OrderClose(OrderTicket(),OrderLots(),Bid,3,White); // close position
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,Blue);
return(0);
}
}
}
}
else // go to short position
{
// should it be closed?
if(isCrossed == 1 && adx > adxTradeCondition)
{
OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
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);
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Movement directional index
Moving average indicator
Custom Indicators Used:
TEMA_RLH
Order Management characteristics:
Checks for the total of open orders
It automatically opens orders when conditions are reached
It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
Other Features:
It plays sound alerts