Expert Advisor Programming by Andrew R. Young

EXPERT ADVISOR PROGRAMMING
Appendix D
Include File
This is the include file with the functions used in the expert advisor in Appendix C.
#property copyright "Andrew Young"
#include
double CalcLotSize(bool argDynamicLotSize, double argEquityPercent,double argStopLoss,
double argFixedLotSize)
{
if(argDynamicLotSize == true && argStopLoss > 0)
{
double RiskAmount = AccountEquity() * (argEquityPercent / 100);
double TickValue = MarketInfo(Symbol(),MODE_TICKVALUE);
if(Point == 0.001 || Point == 0.00001) TickValue *= 10;
double LotSize = (RiskAmount / argStopLoss) / TickValue;
}
else LotSize = argFixedLotSize;
}
return(LotSize);
double VerifyLotSize(double argLotSize)
{
if(argLotSize < MarketInfo(Symbol(),MODE_MINLOT))
{
argLotSize = MarketInfo(Symbol(),MODE_MINLOT);
}
else if(argLotSize > MarketInfo(Symbol(),MODE_MAXLOT))
{
argLotSize = MarketInfo(Symbol(),MODE_MAXLOT);
}
if(MarketInfo(Symbol(),MODE_LOTSTEP) == 0.1)
{
argLotSize = NormalizeDouble(argLotSize,1);
}
else argLotSize = NormalizeDouble(argLotSize,2);
}
return(argLotSize);
180