PS 6 Day range switch

[henry1224]

D9:=If(C>Ref(Max(H,Max(Ref(H,1),Max(Ref(H,2),Max(Ref(H,3),Max(Ref(H,4),Ref(H,5)))))),1),
Min(L,Min(Ref(L,1),Min(Ref(L,2),Min(Ref(L,3),Min(Ref(L,4),Ref(L,5)))))),
Max(H,Max(Ref(H,1),Max(Ref(H,2),Max(Ref(H,3),Max(Ref(H,4),Ref(H,5)))))));

D10:=If(C<Ref(Min(L,Min(Ref(L,1),Min(Ref(L,2),Min(Ref(L,3),Min(Ref(L,4),Ref(L,5)))))),1),
Max(H,Max(Ref(H,1),Max(Ref(H,2),Max(Ref(H,3),Max(Ref(H,4),Ref(H,5)))))),
Min(L,Min(Ref(L,1),Min(Ref(L,2),Min(Ref(L,3),Min(Ref(L,4),Ref(L,5)))))));
A6:=Cross(C,d9);
B6:=Cross(d10,C);
Long6:BarsSince(A6)<BarsSince(B6),ColorGreen;
Short6:BarsSince(A6)>BarsSince(B6),ColorRed;

FillRgn(Long6>0,0,Long6),Brush#50008000;
FillRgn(Short6>0,0,Short6),Brush#50800000;