suri+HighProb+acceler bands together

#1
to understand internal dynamics of particular stock or futures
put all 3 in same chart,
this version of suri-fib is different to another version,

//////////////////////////////////////////////////////////////////////////////////////////////////////
_SECTION_BEGIN("Suri-FibBands");
//******************************************Suri-FibBands***********************//
MALength = Param("MALength",21,0,100,1);
//MALength=100;
mov = EMA(Close,MALength);
tr = EMA(ATR(10)*1.30, MALength);

upperBand1 = mov+4.618*tr;
upperBand2 = mov+2.618*tr;
upperBand3 = mov+1.618*tr;

lowerBand1 = mov-1.618*tr;
lowerBand2 = mov-2.618*tr;
lowerBand3 = mov-4.618*tr;

Plot(upperBand1 ,"",colorGreen,styleDashed);
Plot(upperBand2 ,"",colorRed,styleDashed);
Plot(upperBand3 ,"",colorOrange,styleDashed);
Plot(mov ,"",colorGreen,styleDots|styleThick);
Plot(lowerBand1 ,"",colorOrange,styleDashed);

Plot(lowerBand2 ,"",colorRed,styleDashed);

Plot(lowerBand3 ,"",colorGreen,styleDashed);
_SECTION_END();
/////////////////////////////////////////////////////////////////////////////////////////////////////

_SECTION_BEGIN("WLTS");
//SetChartOptions(0,chartShowArrows|chartShowDates);
filt = Param("filter",2,0,20,0.1);

upband = MA((High*(1+2 * ((((High-Low) / ((High+Low) / 2)) * 1000) * 0.001))), 20);
dnband = MA((Low*(1-2 * ((((High-Low) / ((High+Low) / 2)) * 1000) * 0.001))), 20);
em = MA(C,5);

Cci_col =
IIf(H > upband,colorWhite,
IIf(L < dnband,colorWhite,
IIf(C > em,colorGreen,colorRed
)));

Plot(Close,"price",CCI_col,styleBar+styleThick);
Plot(upband,"",colorIndigo,styleThick);
Plot(dnband,"",colorIndigo,styleThick);


dn_break = L < dnband AND H > dnband;
up_break = L < upband AND H > upband;

PlotShapes(shapeSmallUpTriangle*dn_break,colorWhite, 0,L,-20);
PlotShapes(shapeSmallDownTriangle*up_break,colorWhite, 0,H,-20);

Title = EncodeColor(colorWhite)+ "WE LOVE TJ - SYSTEM" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2)+ EncodeColor(colorWhite) +
" - " + Date() + " Filter = "+ filt + " points"+

"\n"+
WriteIf(Ref(H,-1) > Ref(H,-2),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+"ex "+Ref(H,-1)+WriteIf(H > Ref(H,-1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+" Hi "+H+
EncodeColor(colorYellow)+ " T : "+WriteIf(H > (Ref(H,-1)+filt),EncodeColor(colorBrightGreen),EncodeColor(colorYellow))+(Ref(H,-1)+filt)+
"\n"+
EncodeColor(colorWhite)+"Op "+O+WriteIf(C > O, EncodeColor(colorBrightGreen),EncodeColor(colorRed))+" Cl : " +C+
EncodeColor(colorYellow)+" R : "+round(10*(H-L))/10+

"\n"+
WriteIf(Ref(L,-1) < Ref(L,-2),EncodeColor(colorRed),EncodeColor(colorBrightGreen))+"ex "+Ref(L,-1)+WriteIf(L < Ref(L,-1),EncodeColor(colorRed),EncodeColor(colorBrightGreen))+" Lo "+L+
EncodeColor(colorYellow)+ " T : "+WriteIf(L < (Ref(L,-1)-filt), EncodeColor(colorRed),EncodeColor(colorYellow))+(Ref(L,-1)-filt)+

"\n"+
"\n"+
EncodeColor(colorYellow)+
upband+
"\nTJ Band range:"+ round((upband - dnband)*10)/10+

"\n"+dnband+
"\n"
;
//_SECTION_END();

_SECTION_BEGIN("Time Left");
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
RequestTimedRefresh( 1 );
TimeFrame = Interval();
SecNumber = GetSecondNum();
Newperiod = SecNumber % TimeFrame == 0;
SecsLeft = SecNumber - int( SecNumber / TimeFrame ) * TimeFrame;
SecsToGo = TimeFrame - SecsLeft;

x=Param("xposn",0,0,1000,1);
y=Param("yposn",135,0,1000,1);

GfxSelectSolidBrush( ColorRGB( 230, 230, 230 ) );
GfxSelectPen( ColorRGB( 230, 230, 230 ), 2 );
if ( NewPeriod )
{
GfxSelectSolidBrush( colorYellow );
GfxSelectPen( colorYellow, 2 );
// Say( "New period" );
}
GfxRoundRect( x+55, y+17, x-4, y-2, 0, 0 );
GfxSetBkMode(1);
GfxSelectFont( "Arial", 9, 700, False );
GfxSetTextColor( colorBlack );
GfxTextOut( ""+SecsToGo+" / "+NumToStr( TimeFrame, 1.0 ), x, y );
_SECTION_END();

_SECTION_BEGIN("FIBONACCI HIGH PROBABILITY ZONES");

ShowFibHiProbZone=ParamToggle("Show FIb High-Probability Zone","No|Yes",1);
HpzColor = ParamColor("Line Color",colorBlack);
Periodicity = inDaily;

if(ShowFibHiProbZone AND Interval()<inHourly)
{
Periodicity = inDaily;
}
else if(ShowFibHiProbZone AND Interval()==inHourly)
{
Periodicity = inWeekly;
}
else if (ShowFibHiProbZone AND Interval()>=inDaily AND Interval()<inMonthly)
{
Periodicity = inMonthly;
}
else if(ShowFibHiProbZone AND Interval()>inWeekly AND Interval()<inYearly)
{
Periodicity = inYearly;
}
else // Default just to silence the compiler. This will never occur.
{
Hi=Ref(H,-1);
Lo=Ref(L,-1);
Cl=Ref(C,-1);
}

Hi=TimeFrameGetPrice("H",Periodicity,-1);
Lo=TimeFrameGetPrice("L",Periodicity ,-1);
Cl=TimeFrameGetPrice("C",Periodicity ,-1);


p=(Hi+Lo+Cl)/3;
r1=p+((Hi-Lo)/2);
s1=p-((Hi-Lo)/2);
r2=p+(Hi-Lo);
s2=p-(Hi-Lo);

//Bands
s1b=((Hi-Lo)*0.618)-p;
s2b=((Hi-Lo)*1.382)-p;

r1b=((Hi-Lo)*0.618)+p;
r2b=((Hi-Lo)*1.382)+p;

extnd=0;
sty=styleNoLabel|styleStaircase|styleDashed|styleNoRescale;
Plot(r1-extnd,"",HpzColor ,sty,Null,Null,extnd,1000);
//PlotOHLC(r1,r1,r1b,r1b,"",Col,sty|styleClipMinMax|styleCloud|styleNoLine,Null,Null,extnd,1000);

Plot(s1-extnd,"",HpzColor ,sty,Null,Null,extnd,1000);
//PlotOHLC(s1,s1b,s1,s1b,"",Col,sty|styleClipMinMax|styleCloud|styleNoLine,Null,Null,extnd,1000);
Plot(p-extnd,"",HpzColor ,styleNoLabel|styleStaircase|styleNoRescale,Null,Null,extnd,1000);
Plot(r2-extnd,"",HpzColor ,sty,Null,Null,extnd,1000);
Plot(s2-extnd,"",HpzColor ,sty,Null,Null,extnd,1000);

//Daily Range Hi Lo
//Plot(Hi-extnd,"",ColorBlend(colorLime,colorBrightGreen) ,styleNoLabel|styleStaircase|styleNoRescale,Null,Null,extnd,1000);
//Plot(Lo-extnd,"",ColorBlend(colorCustom12,colorRed) ,styleNoLabel|styleStaircase|styleNoRescale,Null,Null,extnd,1000);

_SECTION_END();
 
#2
//////////////////////////////////////////////////////////////////////////////////////////////////////
_SECTION_BEGIN("Suri-FibBands");
//******************************************Suri-FibBands***********************//
MALength = Param("MALength",21,0,100,1);
//MALength=100;
mov = EMA(Close,MALength);
tr = EMA(ATR(10)*1.30, MALength);

upperBand1 = mov+4.618*tr;
upperBand2 = mov+2.618*tr;
upperBand3 = mov+1.618*tr;

lowerBand1 = mov-1.618*tr;
lowerBand2 = mov-2.618*tr;
lowerBand3 = mov-4.618*tr;

Plot(upperBand1 ,"",colorGreen,styleDashed);
Plot(upperBand2 ,"",colorRed,styleDashed);
Plot(upperBand3 ,"",colorOrange,styleDashed);
Plot(mov ,"",colorGreen,styleDots|styleThick);
Plot(lowerBand1 ,"",colorOrange,styleDashed);

Plot(lowerBand2 ,"",colorRed,styleDashed);

Plot(lowerBand3 ,"",colorGreen,styleDashed);
_SECTION_END();
/////////////////////////////////////////////////////////////////////////////////////////////////////

_SECTION_BEGIN("WLTS");
//SetChartOptions(0,chartShowArrows|chartShowDates);
filt = Param("filter",2,0,20,0.1);

upband = MA((High*(1+2 * ((((High-Low) / ((High+Low) / 2)) * 1000) * 0.001))), 20);
dnband = MA((Low*(1-2 * ((((High-Low) / ((High+Low) / 2)) * 1000) * 0.001))), 20);
em = MA(C,5);

Cci_col =
IIf(H > upband,colorWhite,
IIf(L < dnband,colorWhite,
IIf(C > em,colorGreen,colorRed
)));

Plot(Close,"price",CCI_col,styleBar+styleThick);
Plot(upband,"",colorIndigo,styleThick);
Plot(dnband,"",colorIndigo,styleThick);


dn_break = L < dnband AND H > dnband;
up_break = L < upband AND H > upband;

PlotShapes(shapeSmallUpTriangle*dn_break,colorWhite, 0,L,-20);
PlotShapes(shapeSmallDownTriangle*up_break,colorWhite, 0,H,-20);

Title = EncodeColor(colorWhite)+ "WE LOVE TJ - SYSTEM" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2)+ EncodeColor(colorWhite) +
" - " + Date() + " Filter = "+ filt + " points"+

"\n"+
WriteIf(Ref(H,-1) > Ref(H,-2),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+"ex "+Ref(H,-1)+WriteIf(H > Ref(H,-1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+" Hi "+H+
EncodeColor(colorYellow)+ " T : "+WriteIf(H > (Ref(H,-1)+filt),EncodeColor(colorBrightGreen),EncodeColor (colorYellow))+(Ref(H,-1)+filt)+
"\n"+
EncodeColor(colorWhite)+"Op "+O+WriteIf(C > O, EncodeColor(colorBrightGreen),EncodeColor(colorRed ))+" Cl : " +C+
EncodeColor(colorYellow)+" R : "+round(10*(H-L))/10+

"\n"+
WriteIf(Ref(L,-1) < Ref(L,-2),EncodeColor(colorRed),EncodeColor(colorBrightGreen))+"ex "+Ref(L,-1)+WriteIf(L < Ref(L,-1),EncodeColor(colorRed),EncodeColor(colorBrightGreen))+" Lo "+L+
EncodeColor(colorYellow)+ " T : "+WriteIf(L < (Ref(L,-1)-filt), EncodeColor(colorRed),EncodeColor(colorYellow))+(Ref(L,-1)-filt)+

"\n"+
"\n"+
EncodeColor(colorYellow)+
upband+
"\nTJ Band range:"+ round((upband - dnband)*10)/10+

"\n"+dnband+
"\n"
;
//_SECTION_END();

_SECTION_BEGIN("Time Left");
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
RequestTimedRefresh( 1 );
TimeFrame = Interval();
SecNumber = GetSecondNum();
Newperiod = SecNumber % TimeFrame == 0;
SecsLeft = SecNumber - int( SecNumber / TimeFrame ) * TimeFrame;
SecsToGo = TimeFrame - SecsLeft;

x=Param("xposn",0,0,1000,1);
y=Param("yposn",135,0,1000,1);

GfxSelectSolidBrush( ColorRGB( 230, 230, 230 ) );
GfxSelectPen( ColorRGB( 230, 230, 230 ), 2 );
if ( NewPeriod )
{
GfxSelectSolidBrush( colorYellow );
GfxSelectPen( colorYellow, 2 );
// Say( "New period" );
}
GfxRoundRect( x+55, y+17, x-4, y-2, 0, 0 );
GfxSetBkMode(1);
GfxSelectFont( "Arial", 9, 700, False );
GfxSetTextColor( colorBlack );
GfxTextOut( ""+SecsToGo+" / "+NumToStr( TimeFrame, 1.0 ), x, y );
_SECTION_END();

_SECTION_BEGIN("FIBONACCI HIGH PROBABILITY ZONES");

ShowFibHiProbZone=ParamToggle("Show FIb High-Probability Zone","No|Yes",1);
HpzColor = ParamColor("Line Color",colorBlack);
Periodicity = inDaily;

if(ShowFibHiProbZone AND Interval()<inHourly)
{
Periodicity = inDaily;
}
else if(ShowFibHiProbZone AND Interval()==inHourly)
{
Periodicity = inWeekly;
}
else if (ShowFibHiProbZone AND Interval()>=inDaily AND Interval()<inMonthly)
{
Periodicity = inMonthly;
}
else if(ShowFibHiProbZone AND Interval()>inWeekly AND Interval()<inYearly)
{
Periodicity = inYearly;
}
else // Default just to silence the compiler. This will never occur.
{
Hi=Ref(H,-1);
Lo=Ref(L,-1);
Cl=Ref(C,-1);
}

Hi=TimeFrameGetPrice("H",Periodicity,-1);
Lo=TimeFrameGetPrice("L",Periodicity ,-1);
Cl=TimeFrameGetPrice("C",Periodicity ,-1);


p=(Hi+Lo+Cl)/3;
r1=p+((Hi-Lo)/2);
s1=p-((Hi-Lo)/2);
r2=p+(Hi-Lo);
s2=p-(Hi-Lo);

//Bands
s1b=((Hi-Lo)*0.618)-p;
s2b=((Hi-Lo)*1.382)-p;

r1b=((Hi-Lo)*0.618)+p;
r2b=((Hi-Lo)*1.382)+p;

extnd=0;
sty=styleNoLabel|styleStaircase|styleDashed|styleNoRescale;
Plot(r1-extnd,"",HpzColor ,sty,Null,Null,extnd,1000);
//PlotOHLC(r1,r1,r1b,r1b,"",Col,sty|styleClipMinMax| styleCloud|styleNoLine,Null,Null,extnd,1000);

Plot(s1-extnd,"",HpzColor ,sty,Null,Null,extnd,1000);
//PlotOHLC(s1,s1b,s1,s1b,"",Col,sty|styleClipMinMax| styleCloud|styleNoLine,Null,Null,extnd,1000);
Plot(p-extnd,"",HpzColor ,styleNoLabel|styleStaircase|styleNoRescale,Null,Null,extnd,1000);
Plot(r2-extnd,"",HpzColor ,sty,Null,Null,extnd,1000);
Plot(s2-extnd,"",HpzColor ,sty,Null,Null,extnd,1000);

//Daily Range Hi Lo
//Plot(Hi-extnd,"",ColorBlend(colorLime,colorBrightGreen) ,styleNoLabel|styleStaircase|styleNoRescale,Null,N ull,extnd,1000);
//Plot(Lo-extnd,"",ColorBlend(colorCustom12,colorRed) ,styleNoLabel|styleStaircase|styleNoRescale,Null,N ull,extnd,1000);

_SECTION_END();
thanks use code or quote for afl else u get error when u paste in amibroker :)
 

Similar threads