Here is another system, it is filtered through the Trend Advisor Diamond Phase
ML1:=MA(Close,50);
ML2:=MA(Close,200);
RecP:= If((ML1 < ML2 & Close < ML2 & Close > ML1) ,1,0),ColorLightGreen;
WarnP:= If((ML1 > ML2 & Close > ML2 & Close < ML1) ,-1,0),ColorOrange;
AcumP:= If((ML1 < ML2 & Close > ML2 & Close > ML1) ,2,0),ColorGreen;
DispP:= If((ML1 > ML2 & Close < ML2 & Close < ML1) ,-2,0),ColorRed;
BullP:= If((ML1 > ML2 & Close > ML2 & Close > ML1) ,3,0),ColorDarkGreen;
BearP:= If((ML1 < ML2 & Close < ML2 & Close < ML1),-3,0),ColorDarkRed;
TD:=(RecP + WarnP + AcumP + DispP + BullP + BearP);
up:=H>=Ref(H,1) & L>=Ref(L,1);
dn:=H<=Ref(H,1) & L<=Ref(L,1);
A:If(BarsSince(up) < BarsSince(Dn) & TD > 0,1,If(BarsSince(up)>BarsSince(Dn) & TD < 0,-1,0)),colorstick;
HH HL LL LH w TA Diamond Phase filter
Moderator: Chris White