Oracle Bands PS 2 thru 6 day Range Switch

This is the place to discuss EdgeRater Chart Script

Moderator: Chris White

Post Reply
henry1224
Posts: 457
Joined: Wed Feb 24, 2016 12:04 pm

Oracle Bands PS 2 thru 6 day Range Switch

Post by henry1224 »

D1:=If(C>Ref(Max(H,Ref(H,1)),1),Min(L,Ref(L,1)), Max(H,Ref(H,1)));
D2:=If(C<Ref(Min(L,Ref(L,1)),1),Max(H,Ref(H,1)), Min(L,Ref(L,1)));
A2:=Cross(C,d1);
B2:=Cross(d2,C);
Long2:=BarsSince(A2)<BarsSince(B2),ColorGreen;
Short2:=BarsSince(A2)>BarsSince(B2),ColorRed;

D3:=If(C>Ref(Max(H,Max(Ref(H,1),Ref(H,2))),1),Min(L,Min(Ref(L,1),Ref(L,2))), Max(H,Max(Ref(H,1),Ref(H,2))));
D4:=If(C<Ref(Min(L,Min(Ref(L,1),Ref(L,2))),1),Max(H,Max(Ref(H,1),Ref(H,2))), Min(L,Min(Ref(L,1),Ref(L,2))));
A3:=Cross(C,d3);
B3:=Cross(d4,C);
Long3:=BarsSince(A3)<BarsSince(B3),ColorGreen;
Short3:=BarsSince(A3)>BarsSince(B3),ColorRed;

D5:=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)))));
D6:=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)))));
A4:=Cross(C,d5);
B4:=Cross(d6,C);
Long4:BarsSince(A4)<BarsSince(B4),ColorGreen;
Short4:BarsSince(A4)>BarsSince(B4),ColorRed;

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


D8:=If(C<Ref(Min(L,Min(Ref(L,1),Min(Ref(L,2),Min(Ref(L,3),Ref(L,4))))),1),
Max(H,Max(Ref(H,1),Max(Ref(H,2),Max(Ref(H,3),Ref(H,4))))),
Min(L,Min(Ref(L,1),Min(Ref(L,2),Min(Ref(L,3),Ref(L,4))))));
A5:=Cross(C,d7);
B5:=Cross(d8,C);
Long5:=BarsSince(A5)<BarsSince(B5),ColorGreen;
Short5:=BarsSince(A5)>BarsSince(B5),ColorRed;

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;


Total: (Long2+Long3+Long4+Long5+Long6)*20,Width2,ColorBlack;
width:=6;
lowest:= 0;
highest:= 120;
BandWidth:= (highest - lowest) / width;
band1:= Highest - BandWidth,Width2,ColorBlack;
band2:= band1 - BandWidth,Width2,ColorBlack;
band3:= band2 - BandWidth,Width2,ColorBlack;
band4:= band3 - BandWidth,Width2,ColorBlack;
band5:= band4 - BandWidth,Width2,ColorBlack;
band6:= band5 - BandWidth,Width2,ColorBlack;
track1_Long2:= if(Long2==1, band1 ,band2);
track2_Long2:= if(Long2==1, band2 , band1);
FillRgn(Long2==1,track1_Long2,Track2_Long2),Brush#70008000;
FillRgn(Long2==0,Track1_Long2,Track2_Long2),Brush#70800000;
track1_Long3:= if( Long3==1, band2 ,band3);
track2_Long3:= if(Long3==1, band3 , band2);
FillRgn(Long3==1,track1_Long3,Track2_Long3),Brush#70008000;
FillRgn(Long3==0,Track1_Long3,Track2_Long3),Brush#70800000;
track1_Long4:= if( Long4==1, band3 ,band4);
track2_Long4:= if(Long4==1, band4 , band3);
FillRgn(Long4==1,track1_Long4,Track2_Long4),Brush#70008000;
FillRgn(Long4==0,Track1_Long4,Track2_Long4),Brush#70800000;
track1_Long5:= if( Long5==1, band4 ,band5);
track2_Long5:= if(Long5==1, band5 , band4);
FillRgn(Long5==1,track1_Long5,Track2_Long5),Brush#70008000;
FillRgn(Long5==0,Track1_Long5,Track2_Long5),Brush#70800000;
track1_Long6:= if( Long6==1, band5,band6);
track2_Long6:= if(Long6==1, band6 , band5);
FillRgn(Long6==1,track1_Long6,Track2_Long6),Brush#70008000;
FillRgn(Long6==0,Track1_Long6,Track2_Long6),Brush#70800000;
Post Reply