PS 9 Day range switch

[henry1224]

D15:=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),Ref(H,8))))))))),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),Ref(L,8))))))))),
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),Ref(H,8))))))))));

D16:=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),Ref(L,8))))))))),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),Ref(H,8))))))))),
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),Ref(L,8))))))))));
A9:=Cross(C,d15);
B9:=Cross(d16,C);
Long9:BarsSince(A9)<BarsSince(B9),ColorGreen;
Short9:BarsSince(A9)>BarsSince(B9),ColorRed;

FillRgn(Long9>0,0,Long9),Brush#50008000;
FillRgn(Short9>0,0,Short9),Brush#50800000;