PS 8 Day range switch

[henry1224]

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

D14:=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),Ref(L,7)))))))),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),Ref(H,7)))))))),
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),Ref(L,7)))))))));
A8:=Cross(C,d13);
B8:=Cross(d14,C);
Long8:BarsSince(A8)<BarsSince(B8),ColorGreen;
Short8:BarsSince(A8)>BarsSince(B8),ColorRed;

FillRgn(Long8>0,0,Long8),Brush#50008000;
FillRgn(Short8>0,0,Short8),Brush#50800000;