PS Bull Power Bear Power 2
Posted: Fri Jul 29, 2016 12:48 pm
Var1:=SlopeLR((L-EMA(C,13)),N)>Ref(SlopeLR((L-EMA(C,13)),N),1);
Var2:=SlopeLR((H-EMA(C,13)),N)<Ref(SlopeLR((H-EMA(C,13)),N),1);
a:=If(BarsSince(var1)<BarsSince(var2),1,0)==1;
b:=If(BarsSince(var1)<BarsSince(var2),1,0)==0;
Long:BarsSince(A)<BarsSince(B),ColorGreen;
Short:BarsSince(A)>BarsSince(B),ColorRed;
FillRgn(Long>0,0,Long),Brush#50008000;
FillRgn(Short>0,0,Short),Brush#50800000;
Var2:=SlopeLR((H-EMA(C,13)),N)<Ref(SlopeLR((H-EMA(C,13)),N),1);
a:=If(BarsSince(var1)<BarsSince(var2),1,0)==1;
b:=If(BarsSince(var1)<BarsSince(var2),1,0)==0;
Long:BarsSince(A)<BarsSince(B),ColorGreen;
Short:BarsSince(A)>BarsSince(B),ColorRed;
FillRgn(Long>0,0,Long),Brush#50008000;
FillRgn(Short>0,0,Short),Brush#50800000;