Oracle bands StochRSI

[henry1224]

WRSI3:=RSI(CLOSE,3);
STOCHRSI3:=(WRSI3-LLV(WRSI3,3))/(HHV(WRSI3,3)-LLV(WRSI3,3));
WRSI5:=RSI(CLOSE,5);
STOCHRSI5:=(WRSI5-LLV(WRSI5,5))/(HHV(WRSI5,5)-LLV(WRSI5,5));
WRSI8:=RSI(CLOSE,8);
STOCHRSI8:=(WRSI8-LLV(WRSI8,8))/(HHV(WRSI8,8)-LLV(WRSI8,8));
WRSI13:=RSI(CLOSE,13);
STOCHRSI13:=(WRSI13-LLV(WRSI13,13))/(HHV(WRSI13,13)-LLV(WRSI13,13));
WRSI21:=RSI(CLOSE,21);
STOCHRSI21:=(WRSI21-LLV(WRSI21,21))/(HHV(WRSI21,21)-LLV(WRSI21,21));
WRSI34:=RSI(CLOSE,34);
STOCHRSI34:=(WRSI34-LLV(WRSI34,34))/(HHV(WRSI34,34)-LLV(WRSI34,34));
WRSI55:=RSI(CLOSE,55);
STOCHRSI55:=(WRSI55-LLV(WRSI55,55))/(HHV(WRSI55,55)-LLV(WRSI55,55));

width:= 8;
lowest:= 0;
highest:= 114.24;
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;

A3:= If(StochRSI3>=.50,1,0);
A5:= If(StochRSI5>=.50,1,0);
A8:= If(StochRSI8>=.50,1,0);
A13:= If(StochRSI13>=.50,1,0);
A21:= If(StochRSI21>=.50,1,0);
A34:= If(StochRSI34>=.50,1,0);
A55:= If(StochRSI55>=.50,1,0);
Total:(A3+A5+A8+A13+A21+A34+A55)*14.28,Width2,ColorBlack;
track1_AR3:= if(A3==1, band1 ,band2);
track2_AR3:= if(A3==1, band2 , band1);
FillRgn(A3==1,track1_AR3,Track2_AR3),Brush#70008000;
FillRgn(A3==0,Track1_AR3,Track2_AR3),Brush#70800000;
track1_AR5:= if( A5==1, band2 ,band3);
track2_AR5:= if(A5==1, band3 , band2);
FillRgn(A5==1,track1_AR5,Track2_AR5),Brush#70008000;
FillRgn(A5==0,Track1_AR5,Track2_AR5),Brush#70800000;
track1_AR8:= if( A8==1, band3 ,band4);
track2_AR8:= if(A8==1, band4 , band3);
FillRgn(A8==1,track1_AR8,Track2_AR8),Brush#70008000;
FillRgn(A8==0,Track1_AR8,Track2_AR8),Brush#70800000;
track1_AR13:= if( A13==1, band4 ,band5);
track2_AR13:= if(A13==1, band5 , band4);
FillRgn(A13==1,track1_AR13,Track2_AR13),Brush#70008000;
FillRgn(A13==0,Track1_AR13,Track2_AR13),Brush#70800000;
track1_AR21:= if( A21==1, band5 ,band6);
track2_AR21:= if(A21==1, band6 , band5);
FillRgn(A21==1,track1_AR21,Track2_AR21),Brush#70008000;
FillRgn(A21==0,Track1_AR21,Track2_AR21),Brush#70800000;
track1_AR34:= if( A34==1, band6 ,band7);
track2_AR34:= if(A34==1, band7 , band6);
FillRgn(A34==1,track1_AR34,Track2_AR34),Brush#70008000;
FillRgn(A34==0,Track1_AR34,Track2_AR34),Brush#70800000;
track1_AR55:= if( A55==1, band7 ,band8);
track2_AR55:= if(A55==1, band8 , band7);
FillRgn(A55==1,track1_AR55,Track2_AR55),Brush#70008000;
FillRgn(A55==0,Track1_AR55,Track2_AR55),Brush#70800000;

[henry1224]

here is another version StochRSI 5 thru 50


WRSI5:=RSI(CLOSE,5);
STOCHRSI5:=(WRSI5-LLV(WRSI5,5))/(HHV(WRSI5,5)-LLV(WRSI5,5));
WRSI10:=RSI(CLOSE,10);
STOCHRSI10:=(WRSI10-LLV(WRSI10,10))/(HHV(WRSI10,10)-LLV(WRSI10,10));
WRSI15:=RSI(CLOSE,15);
STOCHRSI15:=(WRSI15-LLV(WRSI15,15))/(HHV(WRSI15,15)-LLV(WRSI15,15));
WRSI20:=RSI(CLOSE,20);
STOCHRSI20:=(WRSI20-LLV(WRSI20,20))/(HHV(WRSI20,20)-LLV(WRSI20,20));
WRSI25:=RSI(CLOSE,25);
STOCHRSI25:=(WRSI25-LLV(WRSI25,25))/(HHV(WRSI25,25)-LLV(WRSI25,25));
WRSI30:=RSI(CLOSE,30);
STOCHRSI30:=(WRSI30-LLV(WRSI30,30))/(HHV(WRSI30,30)-LLV(WRSI30,30));
WRSI35:=RSI(CLOSE,35);
STOCHRSI35:=(WRSI35-LLV(WRSI35,35))/(HHV(WRSI35,35)-LLV(WRSI35,35));
WRSI40:=RSI(CLOSE,40);
STOCHRSI40:=(WRSI40-LLV(WRSI40,40))/(HHV(WRSI40,40)-LLV(WRSI40,40));
WRSI45:=RSI(CLOSE,45);
STOCHRSI45:=(WRSI45-LLV(WRSI45,45))/(HHV(WRSI45,45)-LLV(WRSI45,45));
WRSI50:=RSI(CLOSE,50);
STOCHRSI50:=(WRSI50-LLV(WRSI50,50))/(HHV(WRSI50,50)-LLV(WRSI50,50));

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;
TYP:= (HIGH + LOW + CLOSE) / 3;
A5:= If(StochRSI5>=.50,1,0);
A10:= If(StochRSI10>=.50,1,0);
A15:= If(StochRSI15>=.50,1,0);
A20:= If(StochRSI20>=.50,1,0);
A25:= If(StochRSI25>=.50,1,0);
A30:= If(StochRSI30>=.50,1,0);
A35:= If(StochRSI35>=.50,1,0);
A40:= If(StochRSI40>=.50,1,0);
A45:= If(StochRSI45>=.50,1,0);
A50:= If(StochRSI50>=.50,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;