9
Views
1
Downloads
0
Favorites
AcceleratorBot_USDJPYH4
//+------------------------------------------------------------------+
//| |
//| Sébastien |
//| vsebastien3@aol.com |
//+------------------------------------------------------------------+
#property copyright "Sébastien V"
#property link "vsebastien3@aol.com"
#property version "1.00"
#property strict
int RiskBoost=3;
int magicalNumber = 24542789;
extern int StopL = 750; //StopLoss(in pips)
extern int TakeProfit = 9999; //TakeProfit
int slippage = 3;
extern double Lots = 0.01; // Lot size
extern int Trailing =0; //Trailing stop (in pips)
extern double percent = 0.02; //percent riked by trade
extern bool AutoLots=True;
int depotinit=500;
bool saving=false;
int MovingPeriod = 200;
extern int x1=0;
extern int x2=150;
extern int x3=500;
extern int ADXP=14;
extern int ADXS=20;
int filtre=5;
int ticket = 0;
double iDoji=8.5;
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//---
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//---
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
int start()
{
double ADX=iADX(Symbol(),0,ADXP,PRICE_HIGH,MODE_MAIN,0);
double STOCHM_1 = iStochastic(Symbol(),0,8,3,3,MODE_SMMA,0, MODE_MAIN, 1);
double STOCHS_1 = iStochastic(Symbol(),0,8,3,3,MODE_SMMA,0, MODE_SIGNAL, 1);
double MA =iMA(Symbol(),0,MovingPeriod,0,MODE_EMA,PRICE_CLOSE,0);
AutoLot();
double close=Close[1];
if((IsEveningStar()==0) && (IsDojiCandle()==0) && (IsBearishEngulfing()==0))
{
filtre=1;
}
if((IsMorningStar()==0) && (IsDojiCandle()==0) && (IsBullishEngulfing()==0))
{
filtre=0;
}
if(ADX>ADXS && isPositionOpen()==False && Close[1]<Open[1] && Algo()>0 && filtre==1 )
{
OpenBuy();
}
if(ADX>ADXS && isPositionOpen()==False && Close[1]>Open[1] && Algo()<0 && filtre==0 )
{
OpenSell();
}
if(ADX<ADXS && isPositionOpen()==False && Close[1]<Open[1] && STOCHM_1 > STOCHS_1 && filtre==1)
{
OpenBuy();
}
if(ADX<ADXS && isPositionOpen()==False && Close[1]>Open[1] && STOCHM_1 < STOCHS_1 && filtre==0)
{
OpenSell();
}
if((ADX>ADXS && Algo()<0) )
{
CloseBuy();
}
if((ADX>ADXS && Algo()>0))
{
CloseSell();
}
if((ADX<ADXS && STOCHM_1 < STOCHS_1))
{
CloseBuy();
}
if((ADX<ADXS && STOCHM_1 > STOCHS_1))
{
CloseSell();
}
Trail();
return(0);
}
//+------------------------------------------------------------------+
void CloseSell()
{
int total=OrdersTotal();
for(int y=OrdersTotal()-1; y>=0; y--)
{
if(OrderSelect(y,SELECT_BY_POS,MODE_TRADES))
if(OrderSymbol()==Symbol() && OrderType()==OP_SELL && OrderMagicNumber()==magicalNumber)
{
ticket=OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),5,Black);
}
}
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void CloseBuy()
{
int total=OrdersTotal();
for(int y=OrdersTotal()-1; y>=0; y--)
{
if(OrderSelect(y,SELECT_BY_POS,MODE_TRADES))
if(OrderSymbol()==Symbol() && OrderType()==OP_BUY && OrderMagicNumber()==magicalNumber)
{
ticket=OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),5,Black);
}
}
}
//***************************************************************************
void OpenBuy()
{
double EMA_D5_1 = iMA(Symbol(),PERIOD_D1,5,0,MODE_EMA,PRICE_CLOSE,1);
double EMA_D5_0 = iMA(Symbol(),PERIOD_D1,5,0,MODE_EMA,PRICE_CLOSE,0);
double EMA_D20_0 = iMA(Symbol(),PERIOD_D1,20,0,MODE_EMA,PRICE_CLOSE,0);
double EMA_D130_0 = iMA(Symbol(),PERIOD_MN1,6,0,MODE_EMA,PRICE_CLOSE,0);
double BuyLots=Lots;
double SellLots=Lots;
if ((EMA_D5_0 > EMA_D20_0) && (EMA_D5_0 > EMA_D5_1) && (EMA_D20_0 > EMA_D130_0))
{
BuyLots=Lots;
SellLots=Lots;
}
if ((EMA_D5_0 < EMA_D20_0) && (EMA_D5_0 < EMA_D5_1) && (EMA_D20_0 < EMA_D130_0))
{
BuyLots=Lots;
SellLots=Lots;
}
ticket=OrderSend(Symbol(),OP_BUY,BuyLots,Ask,slippage,Ask-StopL*Point,Ask+TakeProfit*Point,"BUY",magicalNumber,0,Green);
if (ticket>=0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET))
{
bool res=OrderModify(OrderTicket(),OrderOpenPrice(),Ask-StopL*Point,Ask+TakeProfit*Point,0,Blue);
if(!res)
Print("Error in OrderModify. Error code=",GetLastError());
else
Print("Order modified successfully.");
}
}
}
//*******************************************************************************
void OpenSell()
{
double EMA_D5_1 = iMA(Symbol(),PERIOD_D1,5,0,MODE_EMA,PRICE_CLOSE,1);
double EMA_D5_0 = iMA(Symbol(),PERIOD_D1,5,0,MODE_EMA,PRICE_CLOSE,0);
double EMA_D20_0 = iMA(Symbol(),PERIOD_D1,20,0,MODE_EMA,PRICE_CLOSE,0);
double EMA_D130_0 = iMA(Symbol(),PERIOD_MN1,6,0,MODE_EMA,PRICE_CLOSE,0);
double BuyLots=Lots;
double SellLots=Lots;
if ((EMA_D5_0 > EMA_D20_0) && (EMA_D5_0 > EMA_D5_1) && (EMA_D20_0 > EMA_D130_0))
{
BuyLots=Lots;
SellLots=Lots;
}
if ((EMA_D5_0 < EMA_D20_0) && (EMA_D5_0 < EMA_D5_1) && (EMA_D20_0 < EMA_D130_0))
{
BuyLots=Lots;
SellLots=Lots;
}
double ATR=iATR(NULL,0,20,0);
ticket = OrderSend(Symbol(),OP_SELL,SellLots,Bid,slippage,Bid+StopL*Point,Bid-TakeProfit*Point,"SELL",magicalNumber,0,Green);
if (ticket>=0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET))
{
bool res =OrderModify(OrderTicket(),OrderOpenPrice(),Bid+StopL*Point,Bid-TakeProfit*Point,0,Blue);
if(!res)
Print("Error in OrderModify. Error code=",GetLastError());
else
Print("Order modified successfully.");
}
}
}
//**************************************************************
int Trail()
{
for(int cnt=0;cnt<OrdersTotal();cnt++)
{
bool ch = OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(!ch)
Print("Error in OrderSelect. Error code=",GetLastError());
else
Print("Order selected successfully.");
if( OrderSymbol()==Symbol() && OrderMagicNumber()==magicalNumber)
{
if(OrderType()==OP_BUY)
{
if(Trailing>0)
{
if(Bid-OrderOpenPrice()>Point*Trailing)
{
if(OrderStopLoss()<Bid-Point*Trailing)
{
bool res =OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*Trailing,OrderTakeProfit(),0,Green); return(0);
if(!res)
Print("Error in OrderModify. Error code=",GetLastError());
else
Print("Order modified successfully.");
}
}
}
}
if(OrderType()==OP_SELL)
{
if(Trailing>0)
{
if((OrderOpenPrice()-Ask)>(Point*Trailing))
{
if((OrderStopLoss()>(Ask+Point*Trailing)) || (OrderStopLoss()==0))
{
bool res = OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*Trailing,OrderTakeProfit(),0,Red); return(0);
if(!res)
Print("Error in OrderModify. Error code=",GetLastError());
else
Print("Order modified successfully.");
}
}
}
}
}
}
return(0);
}
//--------------------------------------------------------------
void AutoLot()
{
if(AutoLots == True)
{
double tickvalue = MarketInfo(Symbol(),MODE_TICKVALUE);
Lots=MathRound(((AccountBalance()*percent*tickvalue)/StopL)*100)/100;
if(Lots<0.01)
{Lots=0.01;}
if((AccountBalance()>=1.5*depotinit || AccountBalance()<=0.6*depotinit) && saving==true)
{
Lots=0.01;
}
//double tickvalue = MarketInfo(Symbol(),MODE_TICKVALUE*10);
}
}
////////////////////////////////////////////////////////////////////////////
bool isPositionOpen()
{
for(int i=0; i<OrdersTotal(); i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderMagicNumber()==magicalNumber && OrderSymbol()==Symbol())
{
return true;
}
}
return false;
}
///////////////////////////
double Algo()
{
double a1 = iAC(Symbol(),PERIOD_W1 , 0);
double a2 = iAC(Symbol(),PERIOD_D1 , 0);
double a3 = iAC(Symbol(), PERIOD_H4, 0);
return(x1 * a1 + x2 * a2 + x3 * a3);
}
//////////////////////////////////////////////////
int IsMorningStar()
{int retval=0;
if(
(Body(3) > Body(2)) && // Star body smaller than the previous one
(Body(1) > Body(2)) && // Body of star smaller than bodies of first and last candles
(Close[3] < Open[3]) && // First is a down candle
(Close[1] > Open[1]) && // Third is an up candle
(Close[1] > (BodyLo(3) + Body(3)*0.5)) // The third candle closes above the midpoint of the first candle
)
retval=1;
return (retval);
}
int IsEveningStar()
{int retval=0;
if(
(Body(3) > Body(2)) && // Star body smaller than the previous one
(Body(1) > Body(2)) && // Body of star smaller than bodies of first and last candles
(Close[3] > Open[3]) && // First is an up candle
(Close[1] < Open[1]) && // Third is a down candle
(Close[1] < (BodyHi(3) - Body(3)*0.5)) // The third candle closes below the midpoint of the first candle
)
retval=1;
return (retval);
}
int IsBullishEngulfing()
{int retval=0;
if(
(Close[2] < Open[2]) && // First is a down candle
(Close[1] > Open[1]) && // Second is an up candle
(Body(2) < Body(1)) // First engulfed by second
)
retval=1;
return (retval);
}
int IsBearishEngulfing()
{int retval=0;
if(
(Close[2] > Open[2]) && // First is an up candle
(Close[1] < Open[1]) && // Second is a down candle
(Body(2) < Body(1)) // First engulfed by second
)
retval=1;
return (retval);
}
int IsDojiCandle()
{int retval=0;
if(
(Body(1) < ((High[1] - Low[1])/iDoji))
)
retval=1;
return (retval);
}
double Body (int iCandle)
{ double CandleOpen, CandleClose;
CandleOpen=Open[iCandle];
CandleClose=Close[iCandle];
return (MathMax(CandleOpen, CandleClose)-(MathMin(CandleOpen, CandleClose)));
}
double BodyLo (int iCandle)
{
return (MathMin(Open[iCandle], Close[iCandle]));
}
double BodyHi (int iCandle)
{
return (MathMax(Open[iCandle], Close[iCandle]));
}
Comments