Oracle Bands PS Division v3

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 Division v3

Post by henry1224 »

Var5:= SlopeLR(C,5)/C;
A5:=var5>MA(var5,15);
B5:=var5<MA(var5,15);
Long5:BarsSince(A5)<BarsSince(B5),ColorGreen;
Short5:BarsSince(A5)>BarsSince(B5),ColorRed;
Var10:= SlopeLR(C,10)/C;
A10:=var10>MA(var10,15);
B10:=var10<MA(var10,15);
Long10:=BarsSince(A10)<BarsSince(B10),ColorGreen;
Short10:=BarsSince(A10)>BarsSince(B10),ColorRed;
Var15:= SlopeLR(C,15)/C;
A15:=var15>MA(var15,15);
B15:=var15<MA(var15,15);
Long15:BarsSince(A15)<BarsSince(B15),ColorGreen;
Short15:BarsSince(A15)>BarsSince(B15),ColorRed;
Var20:= SlopeLR(C,20)/C;
A20:=var20>MA(var20,15);
B20:=var20<MA(var20,15);
Long20:=BarsSince(A20)<BarsSince(B20),ColorGreen;
Short20:=BarsSince(A20)>BarsSince(B20),ColorRed;
Var25:= SlopeLR(C,25)/C;
A25:=var25>MA(var25,15);
B25:=var25<MA(var25,15);
Long25:BarsSince(A25)<BarsSince(B25),ColorGreen;
Short25:BarsSince(A25)>BarsSince(B25),ColorRed;
Var30:= SlopeLR(C,30)/C;
A30:=var30>MA(var30,15);
B30:=var30<MA(var30,15);
Long30:=BarsSince(A30)<BarsSince(B30),ColorGreen;
Short30:=BarsSince(A30)>BarsSince(B30),ColorRed;
Var35:= SlopeLR(C,35)/C;
A35:=var35>MA(var35,15);
B35:=var35<MA(var35,15);
Long35:BarsSince(A35)<BarsSince(B35),ColorGreen;
Short35:BarsSince(A35)>BarsSince(B35),ColorRed;
Var40:= SlopeLR(C,40)/C;
A40:=var40>MA(var40,15);
B40:=var40<MA(var40,15);
Long40:=BarsSince(A40)<BarsSince(B40),ColorGreen;
Short40:=BarsSince(A40)>BarsSince(B40),ColorRed;
Var45:= SlopeLR(C,45)/C;
A45:=var45>MA(var45,15);
B45:=var45<MA(var45,15);
Long45:BarsSince(A45)<BarsSince(B45),ColorGreen;
Short45:BarsSince(A45)>BarsSince(B45),ColorRed;
Var50:= SlopeLR(C,50)/C;
A50:=var50>MA(var50,15);
B50:=var50<MA(var50,15);
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