//+--------------------------------------------------------------------+
//| LBS V 1.0.mq4 |
//| Jacob Yego |
//| |
//+--------------------------------------------------------------------+
#property copyright "Jacob Yego"
#property link "PointForex"
//----
extern int LotSize=10000; //Currency amount per Lot
extern int Leverage=0; //Set to your Risk tolerance
extern int TrailingStop= 20;
extern int Slippage=5;
extern int TakeProfit=100;
extern int Triggertime=9;
extern int Lots=1;
// initialize internal variables
double OpenBuy,SlBuy,OpenSell,SlSell,TpBuy,TpSell;
//double SS1,SS2,SS3,S1,S2,S3;//for use to develop 3 wave system
//double BS1,BS2,BS3,B1,B2,B3;// for use to develop 3 wave system
double ATR,h,m,total,cnt,ticket,Spread;
double time,NewPrice=0;
double PriceOpen, Buy_Sl, Buy_Tp, LotMM;
string symbol;
//int gear1=2;//develop strategy to open 2nd order with take profit TP*gear1
//int gear2=3; //develop strategy to open 3rd order with take profit TP*gear2
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
ATR=iATR(NULL,0,3,1);
//----
// SetLotsMM
if(Leverage > 0)LotMM=MathMax(MathFloor(AccountBalance()*Leverage/LotSize),1)*LotSize/100000;
else LotMM=Lots;
//----
if(AccountFreeMargin() < LotSize/AccountLeverage()*LotMM)
{
Alert("Not enough money to open trade. Free Margin = ",
AccountFreeMargin(),". Number of Lots in trade = ",LotMM);
return(-1);
}
//+------------------------------------------------------------------+
//|Place New Order |
//+------------------------------------------------------------------+
symbol=Symbol();
Spread=MarketInfo (symbol, MODE_ASK) - MarketInfo (symbol, MODE_BID);
time=TimeHour(CurTime());
total=OrdersTotal();
//----
if(total>0)
{
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol()==Symbol())
//---
return(0);
}
}
if(total < 1)
{
ticket=0;
if (time==Triggertime)
{
Print ("LBS BuyStop: ", Symbol(), " ", LotMM, " ", OpenBuy, " ", SlBuy, " ", TpBuy);
OpenBuy=(iHigh(NULL, PERIOD_M15, 1) + 1*Point + Spread + ATR);
SlBuy=(iLow (NULL,PERIOD_M15, 1) - 1*Point);
TpBuy =(OpenBuy+30*Point);
ticket=OrderSend (Symbol(), OP_BUYSTOP, Lots, OpenBuy, Slippage, SlBuy, TpBuy,
"LBS BuyStop", 0, 01969, Red);
}
if(total < 1)
{
if (time==Triggertime)
{
Print ("LBS BuyStop: ", Symbol(), " ", LotMM, " ", OpenSell, " ", SlSell, " ", TpSell);
OpenSell=(iLow(NULL, PERIOD_M15, 1) - 1*Point - Spread- ATR);
SlSell=(iHigh (NULL,PERIOD_M15, 1) + 1*Point);
TpSell= (OpenSell+30*Point);
ticket=OrderSend (Symbol(), OP_SELLSTOP, Lots, OpenSell, Slippage, SlSell, TpSell,
" LBS SellStop", 01969, 0, Green);
ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Ask+(30*Point),Bid-(TakeProfit*Point),"MaxMin Long",16384,0,Pink);
//RUN TRAILING STOP: BUY
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()==OP_BUY && OrderSymbol()==Symbol())
{
if(TrailingStop>0)
{
if(Bid-OrderOpenPrice()>Point*TrailingStop)
{
if(OrderStopLoss()<Bid-(Point*TrailingStop))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-(Point*TrailingStop),OrderTakeProfit(),0,Lime);
return(0);
}
}
}
}
//RUN TRAILING STOP: SELL
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()==OP_SELL && OrderSymbol()==Symbol())
{
if(TrailingStop>0)
{
if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
{
if(OrderStopLoss()>Ask+(Point*TrailingStop))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+(Point*TrailingStop),OrderTakeProfit(),0,Lime);
return(0);
}
}
}
}
}
}
//----
return(0);
}
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Indicator Curves created:
Indicators Used:
Indicator of the average true range
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It automatically opens orders when conditions are reached
It can change open orders parameters, due to possible stepping strategy
Other Features:
It issuies visual alerts to the screen
