PS 10 day range switch w 65cc

[henry1224]

TD:=If(Sum(C < MA(C,65),5)>4,-1, If(Sum(C > MA(C,65),5)>4,1,0)),colorstick;
D17:=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),Ref(H,9)))))))))),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),Ref(L,9)))))))))),
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),Ref(H,9)))))))))));

D18:=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),Ref(L,9)))))))))),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),Ref(H,9)))))))))),
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),Ref(L,9)))))))))));
A10:=Cross(C,d17);
B10:=Cross(d18,C);

Long:BarsSince(A10)<BarsSince(B10) & TD>0,ColorGreen;
Short:BarsSince(A10)>BarsSince(B10) & TD<0,ColorRed;
FillRgn(Long>0,0,Long),Brush#50008000;
FillRgn(Short>0,0,Short),Brush#50800000;
FillRgn(Long==0 & Short==0,0,1),Brush#501E90FF;