trSum3:= sum(ATR(1), 3);
VtxP3:= if(trSum3 == 0 ,0 , sum(Abs(high - Ref(low,1)),3))/ trSum3,ColorGreen;
VtxM3:= if(trSum3 == 0 ,0 , sum(Abs(low - Ref(high,1)),3))/ trSum3,ColorRed;
OST3:=VtxP3 - VtxM3,Colorstick;
trSum5:= sum(ATR(1), 5);
VtxP5:= if(trSum5 == 0 ,0 , sum(Abs(high - Ref(low,1)),5))/ trSum5,ColorGreen;
VtxM5:= if(trSum5 == 0 ,0 , sum(Abs(low - Ref(high,1)),5))/ trSum5,ColorRed;
OST5:=VtxP5 - VtxM5,Colorstick;
trSum8:= sum(ATR(1), 8);
VtxP8:= if(trSum8 == 0 ,0 , sum(Abs(high - Ref(low,1)),8))/ trSum8,ColorGreen;
VtxM8:= if(trSum8 == 0 ,0 , sum(Abs(low - Ref(high,1)),8))/ trSum8,ColorRed;
OST8:=VtxP8 - VtxM8,Colorstick;
trSum13:= sum(ATR(1), 13);
VtxP13:= if(trSum13 == 0 ,0 , sum(Abs(high - Ref(low,1)),13))/ trSum13,ColorGreen;
VtxM13:= if(trSum13 == 0 ,0 , sum(Abs(low - Ref(high,1)),13))/ trSum13,ColorRed;
OST13:=VtxP13 - VtxM13,Colorstick;
trSum21:= sum(ATR(1), 21);
VtxP21:= if(trSum21== 0 ,0 , sum(Abs(high - Ref(low,1)),21))/ trSum21,ColorGreen;
VtxM21:= if(trSum21 == 0 ,0 , sum(Abs(low - Ref(high,1)),21))/ trSum21,ColorRed;
OST21:=VtxP21 - VtxM21,Colorstick;
trSum34:= sum(ATR(1), 34);
VtxP34:= if(trSum34 == 0 ,0 , sum(Abs(high - Ref(low,1)),34))/ trSum34,ColorGreen;
VtxM34:= if(trSum34 == 0 ,0 , sum(Abs(low - Ref(high,1)),34))/ trSum34,ColorRed;
OST34:=VtxP34 - VtxM34,Colorstick;
trSum55:= sum(ATR(1), 55);
VtxP55:= if(trSum55 == 0 ,0 , sum(Abs(high - Ref(low,1)),55))/ trSum55,ColorGreen;
VtxM55:= if(trSum55 == 0 ,0 , sum(Abs(low - Ref(high,1)),55))/ trSum55,ColorRed;
OST55:=VtxP55 - VtxM55,Colorstick;
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(OST3>=0,1,0);
A5:= If(OST5>=0,1,0);
A8:= If(OST8>=0,1,0);
A13:= If(OST13>=0,1,0);
A21:= If(OST21>=0,1,0);
A34:= If(OST34>=0,1,0);
A55:= If(OST55>=0,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;
Oracle bands Vortex
Moderator: Chris White
Re: Oracle bands Vortex
Here is another version Vortex 5 thru 50
trSum5:= sum(ATR(1), 5);
VtxP5:= if(trSum5 == 0 ,0 , sum(Abs(high - Ref(low,1)),5))/ trSum5,ColorGreen;
VtxM5:= if(trSum5 == 0 ,0 , sum(Abs(low - Ref(high,1)),5))/ trSum5,ColorRed;
OST5:=VtxP5 - VtxM5,Colorstick;
trSum10:= sum(ATR(1), 10);
VtxP10:= if(trSum10 == 0 ,0 , sum(Abs(high - Ref(low,1)),10))/ trSum10,ColorGreen;
VtxM10:= if(trSum10 == 0 ,0 , sum(Abs(low - Ref(high,1)),10))/ trSum10,ColorRed;
OST10:=VtxP10 - VtxM10,Colorstick;
trSum15:= sum(ATR(1),15);
VtxP15:= if(trSum15 == 0 ,0 , sum(Abs(high - Ref(low,1)),15))/ trSum15,ColorGreen;
VtxM15:= if(trSum15 == 0 ,0 , sum(Abs(low - Ref(high,1)),15))/ trSum15,ColorRed;
OST15:=VtxP15 - VtxM15,Colorstick;
trSum20:= sum(ATR(1), 20);
VtxP20:= if(trSum20 == 0 ,0 , sum(Abs(high - Ref(low,1)),20))/ trSum20,ColorGreen;
VtxM20:= if(trSum20 == 0 ,0 , sum(Abs(low - Ref(high,1)),20))/ trSum20,ColorRed;
OST20:=VtxP20 - VtxM20,Colorstick;
trSum25:= sum(ATR(1), 25);
VtxP25:= if(trSum25== 0 ,0 , sum(Abs(high - Ref(low,1)),25))/ trSum25,ColorGreen;
VtxM25:= if(trSum25 == 0 ,0 , sum(Abs(low - Ref(high,1)),25))/ trSum25,ColorRed;
OST25:=VtxP25 - VtxM25,Colorstick;
trSum30:= sum(ATR(1), 30);
VtxP30:= if(trSum30 == 0 ,0 , sum(Abs(high - Ref(low,1)),30))/ trSum30,ColorGreen;
VtxM30:= if(trSum30 == 0 ,0 , sum(Abs(low - Ref(high,1)),30))/ trSum30,ColorRed;
OST30:=VtxP30 - VtxM30,Colorstick;
trSum35:= sum(ATR(1), 35);
VtxP35:= if(trSum35 == 0 ,0 , sum(Abs(high - Ref(low,1)),35))/ trSum35,ColorGreen;
VtxM35:= if(trSum35 == 0 ,0 , sum(Abs(low - Ref(high,1)),35))/ trSum35,ColorRed;
OST35:=VtxP35 - VtxM35,Colorstick;
trSum40:= sum(ATR(1), 40);
VtxP40:= if(trSum40== 0 ,0 , sum(Abs(high - Ref(low,1)),40))/ trSum40,ColorGreen;
VtxM40:= if(trSum40 == 0 ,0 , sum(Abs(low - Ref(high,1)),40))/ trSum40,ColorRed;
OST40:=VtxP40 - VtxM40,Colorstick;
trSum45:= sum(ATR(1), 45);
VtxP45:= if(trSum45 == 0 ,0 , sum(Abs(high - Ref(low,1)),45))/ trSum45,ColorGreen;
VtxM45:= if(trSum45 == 0 ,0 , sum(Abs(low - Ref(high,1)),45))/ trSum45,ColorRed;
OST45:=VtxP45 - VtxM45,Colorstick;
trSum50:= sum(ATR(1), 50);
VtxP50:= if(trSum50 == 0 ,0 , sum(Abs(high - Ref(low,1)),50))/ trSum50,ColorGreen;
VtxM50:= if(trSum50 == 0 ,0 , sum(Abs(low - Ref(high,1)),50))/ trSum50,ColorRed;
OST50:=VtxP50 - VtxM50,Colorstick;
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(OST5>=0,1,0);
A10:= If(OST10>=0,1,0);
A15:= If(OST15>=0,1,0);
A20:= If(OST20>=0,1,0);
A25:= If(OST25>=0,1,0);
A30:= If(OST30>=0,1,0);
A35:= If(OST35>=0,1,0);
A40:= If(OST40>=0,1,0);
A45:= If(OST45>=0,1,0);
A50:= If(OST50>=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;
trSum5:= sum(ATR(1), 5);
VtxP5:= if(trSum5 == 0 ,0 , sum(Abs(high - Ref(low,1)),5))/ trSum5,ColorGreen;
VtxM5:= if(trSum5 == 0 ,0 , sum(Abs(low - Ref(high,1)),5))/ trSum5,ColorRed;
OST5:=VtxP5 - VtxM5,Colorstick;
trSum10:= sum(ATR(1), 10);
VtxP10:= if(trSum10 == 0 ,0 , sum(Abs(high - Ref(low,1)),10))/ trSum10,ColorGreen;
VtxM10:= if(trSum10 == 0 ,0 , sum(Abs(low - Ref(high,1)),10))/ trSum10,ColorRed;
OST10:=VtxP10 - VtxM10,Colorstick;
trSum15:= sum(ATR(1),15);
VtxP15:= if(trSum15 == 0 ,0 , sum(Abs(high - Ref(low,1)),15))/ trSum15,ColorGreen;
VtxM15:= if(trSum15 == 0 ,0 , sum(Abs(low - Ref(high,1)),15))/ trSum15,ColorRed;
OST15:=VtxP15 - VtxM15,Colorstick;
trSum20:= sum(ATR(1), 20);
VtxP20:= if(trSum20 == 0 ,0 , sum(Abs(high - Ref(low,1)),20))/ trSum20,ColorGreen;
VtxM20:= if(trSum20 == 0 ,0 , sum(Abs(low - Ref(high,1)),20))/ trSum20,ColorRed;
OST20:=VtxP20 - VtxM20,Colorstick;
trSum25:= sum(ATR(1), 25);
VtxP25:= if(trSum25== 0 ,0 , sum(Abs(high - Ref(low,1)),25))/ trSum25,ColorGreen;
VtxM25:= if(trSum25 == 0 ,0 , sum(Abs(low - Ref(high,1)),25))/ trSum25,ColorRed;
OST25:=VtxP25 - VtxM25,Colorstick;
trSum30:= sum(ATR(1), 30);
VtxP30:= if(trSum30 == 0 ,0 , sum(Abs(high - Ref(low,1)),30))/ trSum30,ColorGreen;
VtxM30:= if(trSum30 == 0 ,0 , sum(Abs(low - Ref(high,1)),30))/ trSum30,ColorRed;
OST30:=VtxP30 - VtxM30,Colorstick;
trSum35:= sum(ATR(1), 35);
VtxP35:= if(trSum35 == 0 ,0 , sum(Abs(high - Ref(low,1)),35))/ trSum35,ColorGreen;
VtxM35:= if(trSum35 == 0 ,0 , sum(Abs(low - Ref(high,1)),35))/ trSum35,ColorRed;
OST35:=VtxP35 - VtxM35,Colorstick;
trSum40:= sum(ATR(1), 40);
VtxP40:= if(trSum40== 0 ,0 , sum(Abs(high - Ref(low,1)),40))/ trSum40,ColorGreen;
VtxM40:= if(trSum40 == 0 ,0 , sum(Abs(low - Ref(high,1)),40))/ trSum40,ColorRed;
OST40:=VtxP40 - VtxM40,Colorstick;
trSum45:= sum(ATR(1), 45);
VtxP45:= if(trSum45 == 0 ,0 , sum(Abs(high - Ref(low,1)),45))/ trSum45,ColorGreen;
VtxM45:= if(trSum45 == 0 ,0 , sum(Abs(low - Ref(high,1)),45))/ trSum45,ColorRed;
OST45:=VtxP45 - VtxM45,Colorstick;
trSum50:= sum(ATR(1), 50);
VtxP50:= if(trSum50 == 0 ,0 , sum(Abs(high - Ref(low,1)),50))/ trSum50,ColorGreen;
VtxM50:= if(trSum50 == 0 ,0 , sum(Abs(low - Ref(high,1)),50))/ trSum50,ColorRed;
OST50:=VtxP50 - VtxM50,Colorstick;
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(OST5>=0,1,0);
A10:= If(OST10>=0,1,0);
A15:= If(OST15>=0,1,0);
A20:= If(OST20>=0,1,0);
A25:= If(OST25>=0,1,0);
A30:= If(OST30>=0,1,0);
A35:= If(OST35>=0,1,0);
A40:= If(OST40>=0,1,0);
A45:= If(OST45>=0,1,0);
A50:= If(OST50>=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;