Oracle bands RWI
Posted: Fri Jul 29, 2016 8:49 am
RWIH3:= RWI_H(2, 3),colorblue;
RWIL3:= RWI_L(2, 3),colorred;
RWIH5:= RWI_H(3, 5),colorblue;
RWIL5:= RWI_L(3, 5),colorred;
RWIH8:= RWI_H(5, 8),colorblue;
RWIL8:= RWI_L(5, 8),colorred;
RWIH13:= RWI_H(8, 13),colorblue;
RWIL13:= RWI_L(8, 13),colorred;
RWIH21:= RWI_H(13, 21),colorblue;
RWIL21:= RWI_L(13, 21),colorred;
RWIH34:= RWI_H(21, 34),colorblue;
RWIL34:= RWI_L(21, 34),colorred;
RWIH55:= RWI_H(34, 55),colorblue;
RWIL55:= RWI_L(34, 55),colorred;
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(RWIH3>=RWIL3,1,0);
A5:= If(RWIH5>=RWIL5,1,0);
A8:= If(RWIH8>=RWIL8,1,0);
A13:= If(RWIH13>=RWIL13,1,0);
A21:= If(RWIH21>=RWIL21,1,0);
A34:= If(RWIH34>=RWIL34,1,0);
A55:= If(RWIH55>=RWIL55,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;
RWIL3:= RWI_L(2, 3),colorred;
RWIH5:= RWI_H(3, 5),colorblue;
RWIL5:= RWI_L(3, 5),colorred;
RWIH8:= RWI_H(5, 8),colorblue;
RWIL8:= RWI_L(5, 8),colorred;
RWIH13:= RWI_H(8, 13),colorblue;
RWIL13:= RWI_L(8, 13),colorred;
RWIH21:= RWI_H(13, 21),colorblue;
RWIL21:= RWI_L(13, 21),colorred;
RWIH34:= RWI_H(21, 34),colorblue;
RWIL34:= RWI_L(21, 34),colorred;
RWIH55:= RWI_H(34, 55),colorblue;
RWIL55:= RWI_L(34, 55),colorred;
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(RWIH3>=RWIL3,1,0);
A5:= If(RWIH5>=RWIL5,1,0);
A8:= If(RWIH8>=RWIL8,1,0);
A13:= If(RWIH13>=RWIL13,1,0);
A21:= If(RWIH21>=RWIL21,1,0);
A34:= If(RWIH34>=RWIL34,1,0);
A55:= If(RWIH55>=RWIL55,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;