Oracle bands SPX Bias

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 SPX Bias

Post by henry1224 »

This indicator allows for the Oracle band Bias indicator to use the values from another asset and to be plotted on your current chart.
You need to have the other asset included into the current symbol list that you are viewing

If the spx is rising so too is your current asset


under the parameter tab

SYM symbol $SPX 0 0


here is the code


SCl:=Fml(Sym,'C');
BIAS5:= (SCl-MA(SCl,5))/MA(SCl,5)*100;
BIAS10:= (SCl-MA(SCl,10))/MA(SCl,10)*100;
BIAS15:= (SCl-MA(SCl,15))/MA(SCl,15)*100;
BIAS20:= (SCl-MA(SCl,20))/MA(SCl,20)*100;
BIAS25:= (SCl-MA(SCl,25))/MA(SCl,25)*100;
BIAS30:= (SCl-MA(SCl,30))/MA(SCl,30)*100;
BIAS35:= (SCl-MA(SCl,35))/MA(SCl,35)*100;
BIAS40:= (SCl-MA(SCl,40))/MA(SCl,40)*100;
BIAS45:= (SCl-MA(SCl,45))/MA(SCl,45)*100;
BIAS50:= (SCl-MA(SCl,50))/MA(SCl,50)*100;
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;

A5:= If(Bias5>=0,1,0);
A10:= If(Bias10>=0,1,0);
A15:= If(Bias15>=0,1,0);
A20:= If( Bias20>=0,1,0);
A25:= If(Bias25>=0,1,0);
A30:= If(Bias30>=0,1,0);
A35:= If(Bias35>=0,1,0);
A40:= If(Bias40>=0,1,0);
A45:= If(Bias45>=0,1,0);
A50:= If(Bias50>=0,1,0);
Total:(A5+A10+A15+A20+A25+A30+A35+A40+A45+A50)*10,width2,ColorBlack;

track1_AR5:= if(A5==1, band1 ,band2);
track2_AR5:= if(A5==1, band2 , band1);
FillRgn(A5==1,track1_AR5,Track2_AR5),Brush#70008000;
FillRgn(A5==0,Track1_AR5,Track2_AR5),Brush#70800000;
track1_AR10:= if( A10==1, band2 ,band3);
track2_AR10:= if(A10==1, band3 , band2);
FillRgn(A10==1,track1_AR10,Track2_AR10),Brush#70008000;
FillRgn(A10==0,Track1_AR10,Track2_AR10),Brush#70800000;
track1_AR15:= if( A15==1, band3 ,band4);
track2_AR15:= if(A15==1, band4 , band3);
FillRgn(A15==1,track1_AR15,Track2_AR15),Brush#70008000;
FillRgn(A15==0,Track1_AR15,Track2_AR15),Brush#70800000;
track1_AR20:= if( A20==1, band4 ,band5);
track2_AR20:= if(A20==1, band5 , band4);
FillRgn(A20==1,track1_AR20,Track2_AR20),Brush#70008000;
FillRgn(A20==0,Track1_AR20,Track2_AR20),Brush#70800000;
track1_AR25:= if( A25==1, band5 ,band6);
track2_AR25:= if(A25==1, band6 , band5);
FillRgn(A25==1,track1_AR25,Track2_AR25),Brush#70008000;
FillRgn(A25==0,Track1_AR25,Track2_AR25),Brush#70800000;
track1_AR30:= if( A30==1, band6 ,band7);
track2_AR30:= if(A30==1, band7 , band6);
FillRgn(A30==1,track1_AR30,Track2_AR30),Brush#70008000;
FillRgn(A30==0,Track1_AR30,Track2_AR30),Brush#70800000;
track1_AR35:= if( A35==1, band7 ,band8);
track2_AR35:= if(A35==1, band8 , band7);
FillRgn(A35==1,track1_AR35,Track2_AR35),Brush#70008000;
FillRgn(A35==0,Track1_AR35,Track2_AR35),Brush#70800000;
track1_AR40:= if( A40==1, band8 ,band9);
track2_AR40:= if(A40==1, band9 , band8);
FillRgn(A40==1,track1_AR40,Track2_AR40),Brush#70008000;
FillRgn(A40==0,Track1_AR40,Track2_AR40),Brush#70800000;
track1_AR45:= if( A45==1, band9 ,band10);
track2_AR45:= if(A45==1, band10 , band9);
FillRgn(A45==1,track1_AR45,Track2_AR45),Brush#70008000;
FillRgn(A45==0,Track1_AR45,Track2_AR45),Brush#70800000;
track1_AR50:= if( A50==1, band10 ,band11);
track2_AR50:= if(A50==1, band11 , band10);
FillRgn(A50==1,track1_AR50,Track2_AR50),Brush#70008000;
FillRgn(A50==0,Track1_AR50,Track2_AR50),Brush#70800000;
Top
henry1224
Posts: 457
Joined: Wed Feb 24, 2016 12:04 pm

Re: Oracle bands SPX Bias

Post by henry1224 »

Here is the Oracle bands SPX Close

Use the same parameter as the above indicator and the same conditions as the above indicator


SCl:=Fml(Sym,'C');
X5:=MA(SCl,5);
X10:=MA(SCl,10);
X15:=MA(SCl,15);
X20:=MA(SCl,20);
X25:=MA(SCl,25);
X30:=MA(SCl,30);
X35:=MA(SCl,35);
X40:=MA(SCl,40);
X45:=MA(SCl,45);
X50:=MA(SCl,50);
A5:=If(SCl>=x5,1,0);
A10:=If(SCl>=x10,1,0);
A15:=If(SCl>=x15,1,0);
A20:=If(SCl>=x20,1,0);
A25:=If(SCl>=x25,1,0);
A30:=If(SCl>=x30,1,0);
A35:=If(SCl>=x35,1,0);
A40:=If(SCl>=x40,1,0);
A45:=If(SCl>=x45,1,0);
A50:=If(SCl>=x50,1,0);
width:= 11;
lowest:= 0;
highest:= 110;
Total:(A5+A10+A15+A20+A25+A30+A35+A40+A45+A50)*10,Width2,ColorBlack;
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_AR5:= if(A5==1, band1 ,band2);
track2_AR5:= if(A5==1, band2 , band1);
FillRgn(A5==1,track1_AR5,Track2_AR5),Brush#70008000;
FillRgn(A5==0,Track1_AR5,Track2_AR5),Brush#70800000;
track1_AR10:= if( A10==1, band2 ,band3);
track2_AR10:= if(A10==1, band3 , band2);
FillRgn(A10==1,track1_AR10,Track2_AR10),Brush#70008000;
FillRgn(A10==0,Track1_AR10,Track2_AR10),Brush#70800000;
track1_AR15:= if( A15==1, band3 ,band4);
track2_AR15:= if(A15==1, band4 , band3);
FillRgn(A15==1,track1_AR15,Track2_AR15),Brush#70008000;
FillRgn(A15==0,Track1_AR15,Track2_AR15),Brush#70800000;
track1_AR20:= if( A20==1, band4 ,band5);
track2_AR20:= if(A20==1, band5 , band4);
FillRgn(A20==1,track1_AR20,Track2_AR20),Brush#70008000;
FillRgn(A20==0,Track1_AR20,Track2_AR20),Brush#70800000;
track1_AR25:= if( A25==1, band5 ,band6);
track2_AR25:= if(A25==1, band6 , band5);
FillRgn(A25==1,track1_AR25,Track2_AR25),Brush#70008000;
FillRgn(A25==0,Track1_AR25,Track2_AR25),Brush#70800000;
track1_AR30:= if( A30==1, band6 ,band7);
track2_AR30:= if(A30==1, band7 , band6);
FillRgn(A30==1,track1_AR30,Track2_AR30),Brush#70008000;
FillRgn(A30==0,Track1_AR30,Track2_AR30),Brush#70800000;
track1_AR35:= if( A35==1, band7 ,band8);
track2_AR35:= if(A35==1, band8 , band7);
FillRgn(A35==1,track1_AR35,Track2_AR35),Brush#70008000;
FillRgn(A35==0,Track1_AR35,Track2_AR35),Brush#70800000;
track1_AR40:= if( A40==1, band8 ,band9);
track2_AR40:= if(A40==1, band9 , band8);
FillRgn(A40==1,track1_AR40,Track2_AR40),Brush#70008000;
FillRgn(A40==0,Track1_AR40,Track2_AR40),Brush#70800000;
track1_AR45:= if( A45==1, band9 ,band10);
track2_AR45:= if(A45==1, band10 , band9);
FillRgn(A45==1,track1_AR45,Track2_AR45),Brush#70008000;
FillRgn(A45==0,Track1_AR45,Track2_AR45),Brush#70800000;
track1_AR50:= if( A50==1, band10 ,band11);
track2_AR50:= if(A50==1, band11 , band10);
FillRgn(A50==1,track1_AR50,Track2_AR50),Brush#70008000;
FillRgn(A50==0,Track1_AR50,Track2_AR50),Brush#70800000;
Top
henry1224
Posts: 457
Joined: Wed Feb 24, 2016 12:04 pm

Re: Oracle bands SPX Bias

Post by henry1224 »

Here is the DeMarker SPX version


Again use the same conditions and Parameter tabs as the first indicator in this post


SO:=Fml(Sym,'O');
SH:=Fml(Sym,'H');
SL:=Fml(Sym,'L');
A:=If(SH>Ref(SH,1),SH-Ref(SH,1),0);
B:=If(SL>Ref(SL,1),0,Ref(SL,1)-SL);
D5:=100*(MA(A,5)/(MA(A,5)+MA(B,5))),ColorGreen;
D10:=100*(MA(A,10)/(MA(A,10)+MA(B,10))),ColorGreen;
D15:=100*(MA(A,15)/(MA(A,15)+MA(B,15))),ColorGreen;
D20:=100*(MA(A,20)/(MA(A,20)+MA(B,20))),ColorGreen;
D25:=100*(MA(A,25)/(MA(A,25)+MA(B,25))),ColorGreen;
D30:=100*(MA(A,30)/(MA(A,30)+MA(B,30))),ColorGreen;
D35:=100*(MA(A,35)/(MA(A,35)+MA(B,35))),ColorGreen;
D40:=100*(MA(A,40)/(MA(A,40)+MA(B,40))),ColorGreen;
D45:=100*(MA(A,45)/(MA(A,45)+MA(B,45))),ColorGreen;
D50:=100*(MA(A,50)/(MA(A,50)+MA(B,50))),ColorGreen;

A5:= If(D5>=50,1,0);
A10:= If(D10>=50,1,0);
A15:= If(D15>=50,1,0);
A20:= If(D20>=50,1,0);
A25:= If(D25>=50,1,0);
A30:= If(D30>=50,1,0);
A35:= If(D35>=50,1,0);
A40:= If(D40>=50,1,0);
A45:= If(D45>=50,1,0);
A50:= If(D50>=50,1,0);
Total:(A5+A10+A15+A20+A25+A30+A35+A40+A45+A50)*10,Width2,ColorBlack;
Highest:=110;
Lowest:=0;
Width:=11;
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_AR5:= if(A5==1, band1 ,band2);
track2_AR5:= if(A5==1, band2 , band1);
FillRgn(A5==1,track1_AR5,Track2_AR5),Brush#70008000;
FillRgn(A5==0,Track1_AR5,Track2_AR5),Brush#70800000;
track1_AR10:= if( A10==1, band2 ,band3);
track2_AR10:= if(A10==1, band3 , band2);
FillRgn(A10==1,track1_AR10,Track2_AR10),Brush#70008000;
FillRgn(A10==0,Track1_AR10,Track2_AR10),Brush#70800000;
track1_AR15:= if( A15==1, band3 ,band4);
track2_AR15:= if(A15==1, band4 , band3);
FillRgn(A15==1,track1_AR15,Track2_AR15),Brush#70008000;
FillRgn(A15==0,Track1_AR15,Track2_AR15),Brush#70800000;
track1_AR20:= if( A20==1, band4 ,band5);
track2_AR20:= if(A20==1, band5 , band4);
FillRgn(A20==1,track1_AR20,Track2_AR20),Brush#70008000;
FillRgn(A20==0,Track1_AR20,Track2_AR20),Brush#70800000;
track1_AR25:= if( A25==1, band5 ,band6);
track2_AR25:= if(A25==1, band6 , band5);
FillRgn(A25==1,track1_AR25,Track2_AR25),Brush#70008000;
FillRgn(A25==0,Track1_AR25,Track2_AR25),Brush#70800000;
track1_AR30:= if( A30==1, band6 ,band7);
track2_AR30:= if(A30==1, band7 , band6);
FillRgn(A30==1,track1_AR30,Track2_AR30),Brush#70008000;
FillRgn(A30==0,Track1_AR30,Track2_AR30),Brush#70800000;
track1_AR35:= if( A35==1, band7 ,band8);
track2_AR35:= if(A35==1, band8 , band7);
FillRgn(A35==1,track1_AR35,Track2_AR35),Brush#70008000;
FillRgn(A35==0,Track1_AR35,Track2_AR35),Brush#70800000;
track1_AR40:= if( A40==1, band8 ,band9);
track2_AR40:= if(A40==1, band9 , band8);
FillRgn(A40==1,track1_AR40,Track2_AR40),Brush#70008000;
FillRgn(A40==0,Track1_AR40,Track2_AR40),Brush#70800000;
track1_AR45:= if( A45==1, band9 ,band10);
track2_AR45:= if(A45==1, band10 , band9);
FillRgn(A45==1,track1_AR45,Track2_AR45),Brush#70008000;
FillRgn(A45==0,Track1_AR45,Track2_AR45),Brush#70800000;
track1_AR50:= if( A50==1, band10 ,band11);
track2_AR50:= if(A50==1, band11 , band10);
FillRgn(A50==1,track1_AR50,Track2_AR50),Brush#70008000;
FillRgn(A50==0,Track1_AR50,Track2_AR50),Brush#70800000;
Top
henry1224
Posts: 457
Joined: Wed Feb 24, 2016 12:04 pm

Re: Oracle bands SPX Bias

Post by henry1224 »

Here is the version SPX ROC


Again you have to use the same conditions and Parameters as the first indicator in the post


SCl:=Fml(Sym,'C');
ROC5:=(SCL-REF(SCL,5))/REF(SCL,5)*100;
ROC10:=(SCL-REF(SCL,10))/REF(SCL,10)*100;
ROC15:=(SCL-REF(SCL,15))/REF(SCL,15)*100;
ROC20:=(SCL-REF(SCL,20))/REF(SCL,20)*100;
ROC25:=(SCL-REF(SCL,25))/REF(SCL,25)*100;
ROC30:=(SCL-REF(SCL,30))/REF(SCL,30)*100;
ROC35:=(SCL-REF(SCL,35))/REF(SCL,35)*100;
ROC40:=(SCL-REF(SCL,40))/REF(SCL,40)*100;
ROC45:=(SCL-REF(SCL,45))/REF(SCL,45)*100;
ROC50:=(SCL-REF(SCL,50))/REF(SCL,50)*100;
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;

A5:= If(ROC5>=0,1,0);
A10:= If(ROC10>=0,1,0);
A15:= If(ROC15>=0,1,0);
A20:= If(ROC20>=0,1,0);
A25:= If(ROC25>=0,1,0);
A30:= If(ROC30>=0,1,0);
A35:= If(ROC35>=0,1,0);
A40:= If(ROC40>=0,1,0);
A45:= If(ROC45>=0,1,0);
A50:= If(ROC50>=0,1,0);
Total:(A5+A10+A15+A20+A25+A30+A35+A40+A45+A50)*10,width2,ColorBlack;

track1_AR5:= if(A5==1, band1 ,band2);
track2_AR5:= if(A5==1, band2 , band1);
FillRgn(A5==1,track1_AR5,Track2_AR5),Brush#70008000;
FillRgn(A5==0,Track1_AR5,Track2_AR5),Brush#70800000;
track1_AR10:= if( A10==1, band2 ,band3);
track2_AR10:= if(A10==1, band3 , band2);
FillRgn(A10==1,track1_AR10,Track2_AR10),Brush#70008000;
FillRgn(A10==0,Track1_AR10,Track2_AR10),Brush#70800000;
track1_AR15:= if( A15==1, band3 ,band4);
track2_AR15:= if(A15==1, band4 , band3);
FillRgn(A15==1,track1_AR15,Track2_AR15),Brush#70008000;
FillRgn(A15==0,Track1_AR15,Track2_AR15),Brush#70800000;
track1_AR20:= if( A20==1, band4 ,band5);
track2_AR20:= if(A20==1, band5 , band4);
FillRgn(A20==1,track1_AR20,Track2_AR20),Brush#70008000;
FillRgn(A20==0,Track1_AR20,Track2_AR20),Brush#70800000;
track1_AR25:= if( A25==1, band5 ,band6);
track2_AR25:= if(A25==1, band6 , band5);
FillRgn(A25==1,track1_AR25,Track2_AR25),Brush#70008000;
FillRgn(A25==0,Track1_AR25,Track2_AR25),Brush#70800000;
track1_AR30:= if( A30==1, band6 ,band7);
track2_AR30:= if(A30==1, band7 , band6);
FillRgn(A30==1,track1_AR30,Track2_AR30),Brush#70008000;
FillRgn(A30==0,Track1_AR30,Track2_AR30),Brush#70800000;
track1_AR35:= if( A35==1, band7 ,band8);
track2_AR35:= if(A35==1, band8 , band7);
FillRgn(A35==1,track1_AR35,Track2_AR35),Brush#70008000;
FillRgn(A35==0,Track1_AR35,Track2_AR35),Brush#70800000;
track1_AR40:= if( A40==1, band8 ,band9);
track2_AR40:= if(A40==1, band9 , band8);
FillRgn(A40==1,track1_AR40,Track2_AR40),Brush#70008000;
FillRgn(A40==0,Track1_AR40,Track2_AR40),Brush#70800000;
track1_AR45:= if( A45==1, band9 ,band10);
track2_AR45:= if(A45==1, band10 , band9);
FillRgn(A45==1,track1_AR45,Track2_AR45),Brush#70008000;
FillRgn(A45==0,Track1_AR45,Track2_AR45),Brush#70800000;
track1_AR50:= if( A50==1, band10 ,band11);
track2_AR50:= if(A50==1, band11 , band10);
FillRgn(A50==1,track1_AR50,Track2_AR50),Brush#70008000;
FillRgn(A50==0,Track1_AR50,Track2_AR50),Brush#70800000;
Top
Post Reply

Return to “EdgeRater Scripting”