Oracle bands PS Cycle Progression

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 Cycle Progression

Post by henry1224 »

B5:=Sum(If(C>Ref(C,1),1,0),5)<Sum(If(C<Ref(C,1),1,0),5);
A5:=Sum(If(C>Ref(C,1),1,0),5)>Sum(If(C<Ref(C,1),1,0),5);
Long5:=BarsSince(A5)<BarsSince(B5),ColorGreen;
Short5:=BarsSince(A5)>BarsSince(B5),ColorRed;
B10:=Sum(If(C>Ref(C,1),1,0),10)<Sum(If(C<Ref(C,1),1,0),10);
A10:=Sum(If(C>Ref(C,1),1,0),10)>Sum(If(C<Ref(C,1),1,0),10);
Long10:=BarsSince(A10)<BarsSince(B10),ColorGreen;
Short10:=BarsSince(A10)>BarsSince(B10),ColorRed;
B15:=Sum(If(C>Ref(C,1),1,0),15)<Sum(If(C<Ref(C,1),1,0),15);
A15:=Sum(If(C>Ref(C,1),1,0),15)>Sum(If(C<Ref(C,1),1,0),15);
Long15:=BarsSince(A15)<BarsSince(B15),ColorGreen;
Short15:=BarsSince(A15)>BarsSince(B15),ColorRed;
B20:=Sum(If(C>Ref(C,1),1,0),20)<Sum(If(C<Ref(C,1),1,0),20);
A20:=Sum(If(C>Ref(C,1),1,0),20)>Sum(If(C<Ref(C,1),1,0),20);
Long20:=BarsSince(A20)<BarsSince(B20),ColorGreen;
Short20:=BarsSince(A20)>BarsSince(B20),ColorRed;
B25:=Sum(If(C>Ref(C,1),1,0),25)<Sum(If(C<Ref(C,1),1,0),25);
A25:=Sum(If(C>Ref(C,1),1,0),25)>Sum(If(C<Ref(C,1),1,0),25);
Long25:=BarsSince(A25)<BarsSince(B25),ColorGreen;
Short25:=BarsSince(A25)>BarsSince(B25),ColorRed;
B30:=Sum(If(C>Ref(C,1),1,0),30)<Sum(If(C<Ref(C,1),1,0),30);
A30:=Sum(If(C>Ref(C,1),1,0),30)>Sum(If(C<Ref(C,1),1,0),30);
Long30:=BarsSince(A30)<BarsSince(B30),ColorGreen;
Short30:=BarsSince(A30)>BarsSince(B30),ColorRed;
B35:=Sum(If(C>Ref(C,1),1,0),35)<Sum(If(C<Ref(C,1),1,0),35);
A35:=Sum(If(C>Ref(C,1),1,0),35)>Sum(If(C<Ref(C,1),1,0),35);
Long35:=BarsSince(A35)<BarsSince(B35),ColorGreen;
Short35:=BarsSince(A35)>BarsSince(B35),ColorRed;
B40:=Sum(If(C>Ref(C,1),1,0),40)<Sum(If(C<Ref(C,1),1,0),40);
A40:=Sum(If(C>Ref(C,1),1,0),40)>Sum(If(C<Ref(C,1),1,0),40);
Long40:=BarsSince(A40)<BarsSince(B40),ColorGreen;
Short40:=BarsSince(A40)>BarsSince(B40),ColorRed;
B45:=Sum(If(C>Ref(C,1),1,0),45)<Sum(If(C<Ref(C,1),1,0),45);
A45:=Sum(If(C>Ref(C,1),1,0),45)>Sum(If(C<Ref(C,1),1,0),45);
Long45:=BarsSince(A45)<BarsSince(B45),ColorGreen;
Short45:=BarsSince(A45)>BarsSince(B45),ColorRed;
B50:=Sum(If(C>Ref(C,1),1,0),50)<Sum(If(C<Ref(C,1),1,0),50);
A50:=Sum(If(C>Ref(C,1),1,0),50)>Sum(If(C<Ref(C,1),1,0),50);
Long50:=BarsSince(A50)<BarsSince(B50),ColorGreen;
Short50:=BarsSince(A50)>BarsSince(B50),ColorRed;
Total: (Long5+Long10+Long15+Long20+Long25+Long30+Long35+Long40+Long45+Long50)*10,Width2,ColorBlack;

width:= 11;
lowest:= 0;
highest:= 110;
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;
band7:= band6 - BandWidth,Width2,ColorBlack;
band8:= band7 - Bandwidth,Width2,ColorBlack;
band9:= band8 - BandWidth,Width2,ColorBlack;
band10:= band9 - BandWidth,Width2,ColorBlack;
band11:= band10 - BandWidth,Width2,ColorBlack;

track1_Long5:= if(Long5==1, band1 ,band2);
track2_Long5:= if(Long5==1, band2 , band1);
FillRgn(Long5==1,track1_Long5,Track2_Long5),Brush#70008000;
FillRgn(Long5==0,Track1_Long5,Track2_Long5),Brush#70800000;
track1_Long10:= if( Long10==1, band2 ,band3);
track2_Long10:= if(Long10==1, band3 , band2);
FillRgn(Long10==1,track1_Long10,Track2_Long10),Brush#70008000;
FillRgn(Long10==0,Track1_Long10,Track2_Long10),Brush#70800000;
track1_Long15:= if( Long15==1, band3 ,band4);
track2_Long15:= if(Long15==1, band4 , band3);
FillRgn(Long15==1,track1_Long15,Track2_Long15),Brush#70008000;
FillRgn(Long15==0,Track1_Long15,Track2_Long15),Brush#70800000;
track1_Long20:= if( Long20==1, band4 ,band5);
track2_Long20:= if(Long20==1, band5 , band4);
FillRgn(Long20==1,track1_Long20,Track2_Long20),Brush#70008000;
FillRgn(Long20==0,Track1_Long20,Track2_Long20),Brush#70800000;
track1_Long25:= if( Long25==1, band5 ,band6);
track2_Long25:= if(Long25==1, band6 , band5);
FillRgn(Long25==1,track1_Long25,Track2_Long25),Brush#70008000;
FillRgn(Long25==0,Track1_Long25,Track2_Long25),Brush#70800000;
track1_Long30:= if( Long30==1, band6 ,band7);
track2_Long30:= if(Long30==1, band7 , band6);
FillRgn(Long30==1,track1_Long30,Track2_Long30),Brush#70008000;
FillRgn(Long30==0,Track1_Long30,Track2_Long30),Brush#70800000;
track1_Long35:= if( Long35==1, band7 ,band8);
track2_Long35:= if(Long35==1, band8 , band7);
FillRgn(Long35==1,track1_Long35,Track2_Long35),Brush#70008000;
FillRgn(Long35==0,Track1_Long35,Track2_Long35),Brush#70800000;
track1_Long40:= if( Long40==1, band8 ,band9);
track2_Long40:= if(Long40==1, band9 , band8);
FillRgn(Long40==1,track1_Long40,Track2_Long40),Brush#70008000;
FillRgn(Long40==0,Track1_Long40,Track2_Long40),Brush#70800000;
track1_Long45:= if( Long45==1, band9 ,band10);
track2_Long45:= if(Long45==1, band10 , band9);
FillRgn(Long45==1,track1_Long45,Track2_Long45),Brush#70008000;
FillRgn(Long45==0,Track1_Long45,Track2_Long45),Brush#70800000;
track1_Long50:= if( Long50==1, band10 ,band11);
track2_Long50:= if(Long50==1, band11 , band10);
FillRgn(Long50==1,track1_Long50,Track2_Long50),Brush#70008000;
FillRgn(Long50==0,Track1_Long50,Track2_Long50),Brush#70800000;
Post Reply