Expert Advisor Programming by Andrew R. Young

EXPERT ADVISOR PROGRAMMING
extern double StopLoss = 50;
extern double TakeProfit = 100;
extern int Slippage = 5;
extern int MagicNumber = 123;
extern int FastMAPeriod = 10;
extern int SlowMAPeriod = 20;
// Global Variables
int BuyTicket;
int SellTicket;
double UsePoint;
int UseSlippage;
// Init function
int init()
{
UsePoint = PipPoint(Symbol());
UseSlippage = GetSlippage(Symbol(),Slippage);
}
// Start Function
int start()
{
// Moving Average
double FastMA = iMA(NULL,0,FastMAPeriod,0,0,0,0);
double SlowMA = iMA(NULL,0,SlowMAPeriod,0,0,0,0);
// Calculate Lot Size
double LotSize = CalcLotSize(DynamicLotSize,EquityPercent,StopLoss,FixedLotSize);
LotSize = VerifyLotSize(LotSize);
// Buy Order
if(FastMA > SlowMA && BuyTicket == 0)
{
if(SellTicket > 0) int Closed = CloseSellOrder(Symbol(),SellTicket,UseSlippage);
SellTicket = 0;
BuyTicket = OpenBuyOrder(Symbol(),LotSize,UseSlippage,MagicNumber);
if(BuyTicket > 0 && (StopLoss > 0 || TakeProfit > 0))
{
OrderSelect(BuyTicket,SELECT_BY_TICKET);
double OpenPrice = OrderOpenPrice();
76