PS Cycle Progression w 105CC
Posted: Fri Jul 29, 2016 2:52 pm
Under the Parameter tab
N Double 5 2 100
Here is the code
TD:=If(Sum(C < MA(C,105),5)>4,-1, If(Sum(C > MA(C,105),5)>4,1,0)),colorstick;
B:=Sum(If(C>Ref(C,1),1,0),N)<Sum(If(C<Ref(C,1),1,0),N);
A:=Sum(If(C>Ref(C,1),1,0),N)>Sum(If(C<Ref(C,1),1,0),N);
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;
N Double 5 2 100
Here is the code
TD:=If(Sum(C < MA(C,105),5)>4,-1, If(Sum(C > MA(C,105),5)>4,1,0)),colorstick;
B:=Sum(If(C>Ref(C,1),1,0),N)<Sum(If(C<Ref(C,1),1,0),N);
A:=Sum(If(C>Ref(C,1),1,0),N)>Sum(If(C<Ref(C,1),1,0),N);
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;