PS Annual Strength weakness 2 w 105CC
Posted: Fri Jul 29, 2016 12:04 pm
TD:=If(Sum(C < MA(C,105),5)>4,-1, If(Sum(C > MA(C,105),5)>4,1,0)),colorstick;
var1:=((RORPct(C,63))+(RORPct(Ref(C,63),63))+(RORPct(Ref(C,126),63))+(RORPct(Ref(C,189),63)));
var2:=Sum((var1-LLV(var1,252)),5)/Sum((HHV(var1,252)-LLV(var1,252)),5);
a:=var2>.5;
b:=var2<.5;
Long:BarsSince(A)<BarsSince(B) & TD>0,ColorGreen;
Short:BarsSince(A)>BarsSince(B) & TD<0,ColorRed;
FillRgn(Long>0,0,Long),Brush#50008000;
FillRgn(Short>0,0,Short),Brush#50800000;
var1:=((RORPct(C,63))+(RORPct(Ref(C,63),63))+(RORPct(Ref(C,126),63))+(RORPct(Ref(C,189),63)));
var2:=Sum((var1-LLV(var1,252)),5)/Sum((HHV(var1,252)-LLV(var1,252)),5);
a:=var2>.5;
b:=var2<.5;
Long:BarsSince(A)<BarsSince(B) & TD>0,ColorGreen;
Short:BarsSince(A)>BarsSince(B) & TD<0,ColorRed;
FillRgn(Long>0,0,Long),Brush#50008000;
FillRgn(Short>0,0,Short),Brush#50800000;