Balance of Power system

[henry1224]

This system uses a Trend Advisor Diamond Phase as a filter

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);
THL:= If((H - L) == 0,.00001,(H - L));
BuRBoO:=(H - O)/(THL);
BeRBoO:=(O - L)/(THL);
BuRBoC:=(C - L)/(THL);
BeRBoC:=(H - C)/(THL);
BuRBoOC:=If(C > O,(C - O)/(THL),0);
BeRBoOC:=If(C > O,0,(O - C)/(THL));
BOP:=(BuRBoO+BuRBoC+BuRBoOC)/3 - (BeRBoO+BeRBoC+BeRBoOC)/3;
Sig:= MA(Bop,14);
A: If(Sig > 0 & TD > 0,1,If(Sig < 0 & TD < 0,-1,0)),Colorstick;

[henry1224]

Here are the events for this indicator

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);
THL:= If((H - L) == 0,.00001,(H - L));
BuRBoO:=(H - O)/(THL);
BeRBoO:=(O - L)/(THL);
BuRBoC:=(C - L)/(THL);
BeRBoC:=(H - C)/(THL);
BuRBoOC:=If(C > O,(C - O)/(THL),0);
BeRBoOC:=If(C > O,0,(O - C)/(THL));
BOP:=(BuRBoO+BuRBoC+BuRBoOC)/3 - (BeRBoO+BeRBoC+BeRBoOC)/3;
Sig:= MA(Bop,14);
A:= If(Sig > 0 & TD > 0,1,If(Sig < 0 & TD < 0,-1,0)),Colorstick;
Event:Cross(A,.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);
THL:= If((H - L) == 0,.00001,(H - L));
BuRBoO:=(H - O)/(THL);
BeRBoO:=(O - L)/(THL);
BuRBoC:=(C - L)/(THL);
BeRBoC:=(H - C)/(THL);
BuRBoOC:=If(C > O,(C - O)/(THL),0);
BeRBoOC:=If(C > O,0,(O - C)/(THL));
BOP:=(BuRBoO+BuRBoC+BuRBoOC)/3 - (BeRBoO+BeRBoC+BeRBoOC)/3;
Sig:= MA(Bop,14);
A:= If(Sig > 0 & TD > 0,1,If(Sig < 0 & TD < 0,-1,0)),Colorstick;
Event:Cross(-.5,A);