PS 4 day Range switch
Posted: Fri Jul 29, 2016 9:47 am
D1:=If(C>Ref(Max(H,Max(Ref(H,3),Max(Ref(H,1),Ref(H,2)))),1),
Min(L,Min(Ref(L,1),Min(Ref(L,2),Ref(L,3)))),Max(H,Max(Ref(H,1),Max(Ref(H,2),Ref(H,3)))));
D2:=If(C<Ref(Min(L,Min(Ref(L,1),Min(Ref(L,2),Ref(L,3)))),1),
Max(H,Max(Ref(H,1),Max(Ref(H,2),Ref(H,3)))),Min(L,Min(Ref(L,1),Min(Ref(L,2),Ref(L,3)))));
a:=Cross(C,d1);
b:=Cross(d2,C);
Long:BarsSince(A)<BarsSince(B),ColorGreen;
Short:BarsSince(A)>BarsSince(B),ColorRed;
FillRgn(Long>0,0,Long),Brush#50008000;
FillRgn(Short>0,0,Short),Brush#50800000;
Min(L,Min(Ref(L,1),Min(Ref(L,2),Ref(L,3)))),Max(H,Max(Ref(H,1),Max(Ref(H,2),Ref(H,3)))));
D2:=If(C<Ref(Min(L,Min(Ref(L,1),Min(Ref(L,2),Ref(L,3)))),1),
Max(H,Max(Ref(H,1),Max(Ref(H,2),Ref(H,3)))),Min(L,Min(Ref(L,1),Min(Ref(L,2),Ref(L,3)))));
a:=Cross(C,d1);
b:=Cross(d2,C);
Long:BarsSince(A)<BarsSince(B),ColorGreen;
Short:BarsSince(A)>BarsSince(B),ColorRed;
FillRgn(Long>0,0,Long),Brush#50008000;
FillRgn(Short>0,0,Short),Brush#50800000;