PS 11 Day range switch

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 11 Day range switch

Post by henry1224 »

D19:=If(C>Ref(Max(H,Max(Ref(H,1),Max(Ref(H,2),Max(Ref(H,3),Max(Ref(H,4),Max(Ref(H,5),Max(Ref(H,6),Max(Ref(H,7),Max(Ref(H,8),Max(Ref(H,9),Ref(H,10))))))))))),1),
Min(L,Min(Ref(L,1),Min(Ref(L,2),Min(Ref(L,3),Min(Ref(L,4),Min(Ref(L,5),Min(Ref(L,6),Min(Ref(L,7),Min(Ref(L,8),Min(Ref(L,9),Ref(L,10))))))))))),
Max(H,Max(Ref(H,1),Max(Ref(H,2),Max(Ref(H,3),Max(Ref(H,4),Max(Ref(H,5),Max(Ref(H,6),Max(Ref(H,7),Max(Ref(H,8),Max(Ref(H,9),Ref(H,10))))))))))));

D20:=If(C<Ref(Min(L,Min(Ref(L,1),Min(Ref(L,2),Min(Ref(L,3),Min(Ref(L,4),Min(Ref(L,5),Min(Ref(L,6),Min(Ref(L,7),Min(Ref(L,8),Min(Ref(L,9),Ref(L,10))))))))))),1),
Max(H,Max(Ref(H,1),Max(Ref(H,2),Max(Ref(H,3),Max(Ref(H,4),Max(Ref(H,5),Max(Ref(H,6),Max(Ref(H,7),Max(Ref(H,8),Max(Ref(H,9),Ref(H,10))))))))))),
Min(L,Min(Ref(L,1),Min(Ref(L,2),Min(Ref(L,3),Min(Ref(L,4),Min(Ref(L,5),Min(Ref(L,6),Min(Ref(L,7),Min(Ref(L,8),Min(Ref(L,9),Ref(L,10))))))))))));
A11:=Cross(C,d19);
B11:=Cross(d20,C);
Long11:BarsSince(A11)<BarsSince(B11),ColorGreen;
Short11:BarsSince(A11)>BarsSince(B11),ColorRed;

FillRgn(Long11>0,0,Long11),Brush#50008000;
FillRgn(Short11>0,0,Short11),Brush#50800000;
Post Reply