PS 7 Day range switch

[henry1224]

D11:=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),Ref(H,6))))))),1),
Min(L,Min(Ref(L,1),Min(Ref(L,2),Min(Ref(L,3),Min(Ref(L,4),Min(Ref(L,5),Ref(L,6))))))),
Max(H,Max(Ref(H,1),Max(Ref(H,2),Max(Ref(H,3),Max(Ref(H,4),Max(Ref(H,5),Ref(H,6))))))));

D12:=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),Ref(L,6))))))),1),
Max(H,Max(Ref(H,1),Max(Ref(H,2),Max(Ref(H,3),Max(Ref(H,4),Max(Ref(H,5),Ref(H,6))))))),
Min(L,Min(Ref(L,1),Min(Ref(L,2),Min(Ref(L,3),Min(Ref(L,4),Min(Ref(L,5),Ref(L,6))))))));
A7:=Cross(C,d11);
B7:=Cross(d12,C);
Long7:BarsSince(A7)<BarsSince(B7),ColorGreen;
Short7:BarsSince(A7)>BarsSince(B7),ColorRed;

FillRgn(Long7>0,0,Long7),Brush#50008000;
FillRgn(Short7>0,0,Short7),Brush#50800000;