Expert Advisor Programming by Andrew R. Young

EXPERT ADVISOR PROGRAMMING
// Close sell orders
if(SellMarketCount(Symbol(),MagicNumber) > 0)
{
CloseAllSellOrders(Symbol(),MagicNumber,Slippage);
}
// Open buy order
BuyTicket = OpenBuyOrder(Symbol(),LotSize,UseSlippage,MagicNumber);
// Order modification
if(BuyTicket > 0 && (StopLoss > 0 || TakeProfit > 0))
{
OrderSelect(BuyTicket,SELECT_BY_TICKET);
double OpenPrice = OrderOpenPrice();
// Calculate and verify stop loss and take profit
double BuyStopLoss = CalcBuyStopLoss(Symbol(),StopLoss,OpenPrice);
if(BuyStopLoss > 0) BuyStopLoss = AdjustBelowStopLevel(Symbol(),
BuyStopLoss,5);
double BuyTakeProfit = CalcBuyTakeProfit(Symbol(),TakeProfit,
OpenPrice);
if(BuyTakeProfit > 0) BuyTakeProfit = AdjustAboveStopLevel(Symbol(),
BuyTakeProfit,5);
}
}
// Add stop loss and take profit
AddStopProfit(BuyTicket,BuyStopLoss,BuyTakeProfit);
// Sell Order
if(FastMA < SlowMA && LastFastMA >= LastSlowMA
&& SellMarketCount(Symbol(),MagicNumber) == 0)
{
if(BuyMarketCount(Symbol(),MagicNumber) > 0)
{
CloseAllBuyOrders(Symbol(),MagicNumber,Slippage);
}
SellTicket = OpenSellOrder(Symbol(),LotSize,UseSlippage,MagicNumber);
if(SellTicket > 0 && (StopLoss > 0 || TakeProfit > 0))
{
OrderSelect(SellTicket,SELECT_BY_TICKET);
OpenPrice = OrderOpenPrice();
double SellStopLoss = CalcSellStopLoss(Symbol(),StopLoss,OpenPrice);
if(SellStopLoss > 0) SellStopLoss = AdjustAboveStopLevel(Symbol(),
SellStopLoss,5);
double SellTakeProfit = CalcSellTakeProfit(Symbol(),TakeProfit,
OpenPrice);
174