//+------------------------------------------------------------------+
//| OverTrade_BS_03.mq4 |
//+------------------------------------------------------------------+
#property copyright "OnTheRoad"
#include <stdlib.mqh>
#define MAGICPROB 110101011
#define UP 1
#define BUY 1
#define NUTRAL 0
#define SELL -1
#define DOWN -1
extern int TP_BUY = 45;
extern int SL_BUY = 55; //45;
extern int TP_SELL = 45;
extern int SL_SELL = 55; //45;
extern int TF_SEL = 15;
extern int SLIPAGE = 3;
extern int slow_ma_p = 264;
extern int fast_ma_p = 96;
extern int ma_tf = 60;
extern double Lots = 0.1;
extern double MaximumRisk = 0.0002;
extern double DecreaseFactor = 3;
extern double equity_dd_4x = 0.8; //0.8;
extern double equity_gu_4x = 1.2; //1.2;
static double equity_max ;
static int last_trend ;
static double equity_base;
static datetime lastbar = 0;
int init()
{
lastbar = Time[0];//iTime(Symbol(),PERIOD_M5,0); //Time[0];
last_trend = NUTRAL;
equity_base = AccountEquity();
equity_max = 0;
return ;
}
bool NewBar()
{
datetime curbar = iTime(Symbol(),TF_SEL,0);//Time[0];//
if(lastbar!=curbar)
{
lastbar=curbar;
return (true);
}
else
{
return(false);
}
}
//+------------------------------------------------------------------+
//| Calculate optimal lot size |
//+------------------------------------------------------------------+
double LotsOptimized()
{
double lot=Lots;
int orders=OrdersHistoryTotal(); //HistoryTotal(); // history orders total
int losses=0; // number of losses orders without a break
int dp=1;
if ( Lots < 0.1 ) dp = 2;
//---- select lot size
lot=NormalizeDouble(AccountFreeMargin()*MaximumRisk/1000.0,dp);
//---- calcuulate number of losses orders without a break
if ( orders > 1 )
if(DecreaseFactor>0)
{
for(int i=orders-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) { Print("Error in history!"); break; }
if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL) continue;
//----
if(OrderProfit()>0) break;
if(OrderProfit()<0) losses++;
}
if(losses/orders > 0.3) lot=NormalizeDouble(lot-lot*losses/DecreaseFactor,dp);
}
//---- return lot size
if(lot<Lots) lot=Lots;
return(lot);
}
//+------------------------------------------------------------------+
//| Start function |
//+------------------------------------------------------------------+
void start()
{
int res , trend;
double equitynow = AccountEquity();
if ( equitynow < equity_dd_4x * equity_max )
{
CLOSE_ALL( BUY ) ;
CLOSE_ALL( SELL ) ;
equity_max = 0;
}
else if ( equitynow > equity_gu_4x * equity_base )
{
CLOSE_ALL( BUY ) ;
CLOSE_ALL( SELL ) ;
equity_base = AccountEquity();
}
else if ( equitynow > equity_max ) equity_max = equitynow ;
if(Bars<100 || IsTradeAllowed()==false) return;
if (NewBar() == true)
{
double slowmanow = iMA(NULL, ma_tf , slow_ma_p , 0 , MODE_SMA , PRICE_CLOSE , 0 ) ;
double slowmalast= iMA(NULL, ma_tf , slow_ma_p , 0 , MODE_SMA , PRICE_CLOSE , 2 ) ;
double fastmanow = iMA(NULL, ma_tf , fast_ma_p , 0 , MODE_SMA , PRICE_TYPICAL , 0 ) ;
double fastmalast= iMA(NULL, ma_tf , fast_ma_p , 0 , MODE_SMA , PRICE_TYPICAL , 2 ) ;
trend = NUTRAL ;
if ( slowmanow > slowmalast + 0.75 * Point ) //trend = UP;
if ( fastmanow > fastmalast + 0.6 * Point ) trend = UP;
// if (( Low[0] > fastmanow )&&( Bid > fastmanow )) trend = UP;
if ( slowmanow < slowmalast - 0.75 * Point ) //trend = DOWN;
if ( fastmanow < fastmalast - 0.6 * Point ) trend = DOWN;
// if (( High[0] < fastmanow )&&( Bid < fastmanow )) trend = DOWN;
/*
double ewtrend=iCustom(NULL,240,"EWTREND",34,5,0,0);
if ( ewtrend > 0 ) trend = UP;
if ( ewtrend < 0 ) trend = DOWN;
*/
/*
//double retrace_gravity = iCustom(NULL,60,"retracement_gravity",55,89,55,89,21,24,4,0);
double retrace_gravity = iCustom(NULL,60,"retracement_gravity",21,34,21,34,14,24,4,0);
retrace_gravity = NUTRAL;
if ( retrace_gravity > 0.7 ) trend = UP;
if ( retrace_gravity < -0.7 ) trend = DOWN;
*/
/*
double highmanow = iMA(NULL, ma_tf , 34 , 0 , MODE_SMA , PRICE_HIGH , 0 ) ;
double highmalast= iMA(NULL, ma_tf , 34 , 0 , MODE_SMA , PRICE_HIGH , 2 ) ;
double lowmanow = iMA(NULL, ma_tf , 34 , 0 , MODE_SMA , PRICE_LOW , 0 ) ;
double lowmalast= iMA(NULL, ma_tf , 34 , 0 , MODE_SMA , PRICE_LOW , 2 ) ;
trend = NUTRAL ;
if ( highmanow > highmalast ) //+ 0.5 * Point ) //trend = UP;
if ( lowmanow > lowmalast ) //+ 0.5 * Point ) //trend = UP;
if (( Low[0] > lowmalast )&&( Bid > lowmanow )) trend = UP;
if ( highmanow < highmalast ) //- 0.5 * Point ) //trend = DOWN;
if ( lowmanow < lowmalast ) //- 0.5 * Point ) //trend = DOWN;
if (( High[0] < highmalast )&&( Bid < highmanow )) trend = DOWN;
*/
Comment ( " \n lasttrend= " , last_trend , " ,trend = " , trend );
if (( last_trend != trend )&&( trend != NUTRAL ))
{
last_trend = trend;
CLOSE_ALL( BUY ) ;
CLOSE_ALL( SELL ) ;
}
if ( trend == DOWN ) res=OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,SLIPAGE,Bid+Point*SL_SELL,Bid-Point*TP_SELL,"",MAGICPROB,0,Red);
if ( trend == UP ) res=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,SLIPAGE,Ask-Point*SL_BUY,Ask+Point*TP_BUY,"",MAGICPROB,0,Blue);
}
return;
}
/////////////////////////////////////////////////////////////////////
void CLOSE_ALL( int buysell )
{
int myTyp;
int i;
// return;
for( i=(OrdersTotal()-1); i>=0; i-- )
{
OrderSelect(i, SELECT_BY_POS);
if(OrderMagicNumber()==MAGICPROB)
{
switch( OrderType() )
{
//Close opened long positions
case OP_BUY : if ( buysell == 1 ) CloseBuy("CLOSEEVERYTHING script BUY");
break;
//Close opened short positions
case OP_SELL : if ( buysell == -1 ) CloseSell("CLOSEEVERYTHING script SELL");
break;
}
}//magic
Sleep(500);
} //for
} // closeeverything
void CloseBuy (string myInfo)
{
int gle;
int cnt;
int loopcount=0;
while(true)
{
OrderClose(OrderTicket(),OrderLots(),MarketInfo(OrderSymbol(),MODE_BID),2,White);
gle=GetLastError();
if(gle==0)
{
Print("CLOSE BUY "+myInfo+" Ticket="+OrderTicket()+" SL="+OrderStopLoss()+" TP="+OrderTakeProfit() );
break;
}
else
{
Print("-----ERROR----- CLOSE BUY PROFIT Bid="+MarketInfo(OrderSymbol(),MODE_BID)+" error="+gle+" "+ErrorDescription(gle));
Sleep(500);
RefreshRates();
}
loopcount++;
if(loopcount>25)
{
Alert("Order failed to CLOSE - See Journal for errors");
break;
}
}//while
}//closebuy
void CloseSell (string myInfo)
{
int gle;
int cnt;
int loopcount=0;
while(true)
{
OrderClose(OrderTicket(),OrderLots(),MarketInfo(OrderSymbol(),MODE_ASK),2,Red);
gle=GetLastError();
if(gle==0)
{
Print("CLOSE SELL "+myInfo+" Ticket="+OrderTicket()+" SL="+OrderStopLoss()+" TP="+OrderTakeProfit() );
break;
}
else
{
Print("-----ERROR----- CLOSE SELL PROFIT Ask="+MarketInfo(OrderSymbol(),MODE_ASK)+" error="+gle+" "+ErrorDescription(gle));
Sleep(500);
RefreshRates();
}
loopcount++;
if(loopcount>25)
{
Alert("Order failed to CLOSE - See Journal for errors");
break;
}
}//while
}//closesell
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Series array that contains the lowest prices of each bar
Series array that contains the highest prices of each bar
Indicator Curves created:
Indicators Used:
Moving average indicator
Custom Indicators Used:
EWTREND
retracement_gravity
Order Management characteristics:
Checks for the total of closed orders
It automatically opens orders when conditions are reached
Checks for the total of open orders
It Closes Orders by itself
Other Features:
It issuies visual alerts to the screen
