Close Breakout System w TA Diamond Filter

[henry1224]

Here is a breakout system filtered w 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);
A:=C>(LLV(L,20)+(2*ATR(10)));
B:=C<(HHV(H,20)-(2*ATR(10)));
D:If(BarsSince(A)<BarsSince(B) & TD >0, 1,If(BarsSince(A)>BarsSince(B) & TD <0,-1,0)),Colorstick;

Here are the Events

Long

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);
A:=C>(LLV(L,20)+(2*ATR(10)));
B:=C<(HHV(H,20)-(2*ATR(10)));
D:=If(BarsSince(A)<BarsSince(B) & TD >0, 1,If(BarsSince(A)>BarsSince(B) & TD <0,-1,0)),Colorstick;
Event:Cross(D,.5);

Short

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);
A:=C>(LLV(L,20)+(2*ATR(10)));
B:=C<(HHV(H,20)-(2*ATR(10)));
D:=If(BarsSince(A)<BarsSince(B) & TD >0, 1,If(BarsSince(A)>BarsSince(B) & TD <0,-1,0)),Colorstick;
Event:Cross(-.5,D);