PS Cycle Progression

This is the place to discuss EdgeRater Chart Script

Moderator: Chris White

Post Reply
henry1224
Posts: 457
Joined: Wed Feb 24, 2016 12:04 pm

PS Cycle Progression

Post by henry1224 »

Under the Parameters tab

N double 5 2 100


Here is the code

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),ColorGreen;
Short:BarsSince(A)>BarsSince(B),ColorRed;
FillRgn(Long>0,0,Long),Brush#50008000;
FillRgn(Short>0,0,Short),Brush#50800000;
Post Reply