Expert Advisor Programming by Andrew R. Young

Appendix C
// Calculate lot size
double LotSize = CalcLotSize(DynamicLotSize,EquityPercent,StopLoss,FixedLotSize);
LotSize = VerifyLotSize(LotSize);
// Begin trade block
if(NewBar == true)
{
// Buy order
if(FastMA > SlowMA && BuyTicket == 0 && BuyMarketCount(Symbol(),MagicNumber)
== 0 && BuyStopCount(Symbol(),MagicNumber) == 0)
{
// Close sell order
if(SellMarketCount(Symbol(),MagicNumber) > 0)
{
CloseAllSellOrders(Symbol(),MagicNumber,Slippage);
}
// Delete sell stop order
if(SellStopCount(Symbol(),MagicNumber) > 0)
{
CloseAllSellStopOrders(Symbol(),MagicNumber);
}
SellTicket = 0;
double PendingPrice = High[BarShift] + (PendingPips * UsePoint);
PendingPrice = AdjustAboveStopLevel(Symbol(),PendingPrice,5);
double BuyStopLoss = CalcBuyStopLoss(Symbol(),StopLoss,PendingPrice);
if(BuyStopLoss > 0) BuyStopLoss = AdjustBelowStopLevel(Symbol(),BuyStopLoss,
5,PendingPrice);
double BuyTakeProfit = CalcBuyTakeProfit(Symbol(),TakeProfit,PendingPrice);
if(BuyTakeProfit > 0) BuyTakeProfit = AdjustAboveStopLevel(Symbol(),
BuyTakeProfit,5,PendingPrice);
}
BuyTicket = OpenBuyStopOrder(Symbol(),LotSize,PendingPrice,BuyStopLoss,
BuyTakeProfit,UseSlippage,MagicNumber);
// Sell Order
if(FastMA < SlowMA && SellTicket == 0
&& SellMarketCount(Symbol(),MagicNumber) == 0
&& SellStopCount(Symbol(),MagicNumber) == 0)
{
if(BuyMarketCount(Symbol(),MagicNumber) > 0)
{
CloseAllBuyOrders(Symbol(),MagicNumber,Slippage);
}
177