1,2,3,4...I declare a systems war, Part III

["Andy" <adle@xxxxxxxxxx>]

{system: Adaptive Zones MACD}
Input: R(12),S(26),Q(6),Lback(30),PCent(.9);
Vars: Osc(0),HH(0),LL(0),Rng(0),VrRng(0),Upper(0),Lower(0),Avg(0),Tm(0);

Osc=Macd(C,R,S);
Avg=XAverage(Macd(C,R,S),Q);
HH = Highest(Osc,Lback);
LL = Lowest(Osc,Lback);
Rng = HH - LL;
VrRng = Rng* (PCent);
Upper = LL + VrRng;
Lower = HH - VrRng;

If Osc crosses above Lower then buy on close;
If Osc crosses below Avg then exitlong on close;
If Osc crosses below Upper then sell on close;
If Osc crosses above Avg then exitshort on close;

-----------------------------------------------------------------------
{Indicator: Adpative Zones MACD}
Input: R(9),S(18),Q(6),Lback(30),PCent(.90);
Vars: Osc(0),HH(0),LL(0),Rng(0),VrRng(0),Upper(0),Lower(0),Avg(0),Tm(0);

Osc=Macd(C,R,S);
Avg=XAverage(Macd(C,R,S),Q);
HH = Highest(Osc,Lback);
LL = Lowest(Osc,Lback);
Rng = HH - LL;
VrRng = Rng* (PCent);
Upper = LL + VrRng;
Lower = HH - VrRng;

Plot1(Upper,"Upper");
Plot2(Osc,"Osc");
Plot3(Lower,"Lower");
Plot4(0,"Zero");