PHIL LANE’S SYSTEM II

Type : Function, Name : MaxTradeHigh

{Function: MaxTradeHigh}
if marketposition = 1 then begin
if h > MaxTradeHigh[1] then
MaxTradeHigh = h;
end else
MaxTradeHigh = -999999;

Type : Function, Name : MinTradeLow

{Function: MinTradeLow}
if marketposition = -1 then begin
if l < MinTradeLow[1] then
MinTradeLow = l;
end else
MinTradeLow = 999999;

Type : Signal, Name : Phil Lane’s System II

{System: Phil Lane’s System II}
Inputs: ATRLen(10),Lvl(10),Fac(2.5);
Vars: Atr(0),Eb(0),LStop(0),Mp(0);

Atr=Average(TrueRange,ATRLen);
Mp=MarketPosition;
If Mp<>1 and c[1]<o[1] and c[2]<o[2] and c[3]<o[3] and H<Highest(H[1],3) and
O>L[1] and Atr>Lvl then begin
buy on close;
Eb=currentbar;
LStop=0;
end;
If MP=1 and currentbar<>eb then begin
LStop=Maxlist(LStop,MaxTradeHigh-Fac*ATR);
exitlong Lstop stop;
end;