Oracle Bands Chande Momentum Osc 5 thru 50

[henry1224]

inc:= if(C > Ref(C,1) , C - Ref(C,1),0);
dec:= if(ref(C,1) > C , Ref(C,1) - C, 0);
sumInc5:= sum(inc, 5);
sumDec5:= sum(dec, 5);
B5:=if(sumInc5 + sumDec5 == 0 , 0 , (sumInc5 - sumDec5) / (sumInc5 + sumDec5) * 100);
sumInc10:= sum(inc, 10);
sumDec10:= sum(dec, 10);
B10:=if(sumInc10 + sumDec10 == 0 , 0 , (sumInc10 - sumDec10) / (sumInc10 + sumDec10) * 100);
sumInc15:= sum(inc, 15);
sumDec15:= sum(dec, 15);
B15:=if(sumInc15 + sumDec15 == 0 , 0 , (sumInc15 - sumDec15) / (sumInc15 + sumDec15) * 100);
sumInc20:= sum(inc, 20);
sumDec20:= sum(dec, 20);
B20:=if(sumInc20 + sumDec20 == 0 , 0 , (sumInc20 - sumDec20) / (sumInc20 + sumDec20) * 100);
sumInc25:= sum(inc, 25);
sumDec25:= sum(dec, 25);
B25:=if(sumInc25 + sumDec25 == 0 , 0 , (sumInc25 - sumDec25) / (sumInc25 + sumDec25) * 100);
sumInc30:= sum(inc, 30);
sumDec30:= sum(dec, 30);
B30:=if(sumInc30 + sumDec30 == 0 , 0 , (sumInc30 - sumDec30) / (sumInc30 + sumDec30) * 100);
sumInc35:= sum(inc, 35);
sumDec35:= sum(dec, 35);
B35:=if(sumInc35 + sumDec35 == 0 , 0 , (sumInc35 - sumDec35) / (sumInc35 + sumDec35) * 100);
sumInc40:= sum(inc, 40);
sumDec40:= sum(dec, 40);
B40:=if(sumInc40 + sumDec40 == 0 , 0 , (sumInc40 - sumDec40) / (sumInc40 + sumDec40) * 100);
sumInc45:= sum(inc, 45);
sumDec45:= sum(dec, 45);
B45:=if(sumInc45 + sumDec45 == 0 , 0 , (sumInc45 - sumDec45) / (sumInc45 + sumDec45) * 100);

sumInc50:= sum(inc, 50);
sumDec50:= sum(dec, 50);
B50:=if(sumInc50 + sumDec50 == 0 , 0 , (sumInc50 - sumDec50) / (sumInc50 + sumDec50) * 100);
A5:= If(B5>=0,1,0);
A10:= If(B10>=0,1,0);
A15:= If(B15>=0,1,0);
A20:= If(B20>=0,1,0);
A25:= If(B25>=0,1,0);
A30:= If(B30>=0,1,0);
A35:= If(B35>=0,1,0);
A40:= If(B40>=0,1,0);
A45:= If(B45>=0,1,0);
A50:= If(B50>=0,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;