WiseStockTrader.com Trading Program Listings
Indicators
Submit New Indicator
All Amibroker (AFL) Metastock eSignal (EFS) NinjaTrader
Function Index
Paste Bin
Register
Login

Stock Portfolio Organizer

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

BB Squeeze TradeStation Code Port for Amibroker (AFL)
niladri
almost 4 years ago
Amibroker (AFL)

Rating:
5 / 5 (Votes 3)
Tags:
amibroker, squeeze, oscillator

BB Squeeze ( 100% conversion from Tradestation code to Amibroker)

Best Volatility breakout indicator ( either on buy or sell side , ref below video to understand the logic )

Instructions:

Insert Linked to new chart pane
Periods can be selected in Param window

Usage Demo from TradeStaion: https://www.youtube.com/watch?v=v2pbrz9K7X8 ( 20min onwards )

Squeeze play with Options Trade: https://tickertape.tdameritrade.com/tools/fearless-technician-ttm-squeeze-indicator-15072

Screenshots

Indicator / Formula

Indicator
Copy & Paste Friendly

Insert Linked to new chart pane

_SECTION_BEGIN("BB Squeeze"); 
Price = Close;

Length = Param("Length",20,2,100,1); 		// { Length for Average True Range (ATR)}
Lenght1 = Param("Length1",20,2,100,1);       // {  Std. Deviation (SD) Calcs }
 
nK = Param("Channel ATRs",1.5,0.1,2,0.1); 	// { Keltner Channel ATRs from Average }
nBB = Param("BB Std Devs",2,0.1,3,0.1); 	// { Bollinger Band Std. Devs. from Average }

AlertLine = Param("AlertLine",1,0,3,1); 	        // { BBSqueezeex level at which to issue alerts }
 
NormalColor = colorRed; 				// { Normal color for BBSqueeze }
AlertlColor = colorLime; 					// { Color for BBSqueeze below alert line }
 
LHMult = Nz(PointValue);
 
//{-- Calculate BB Squeeze Indicator ----------------------}
AvgTrueRange = ATR(Length);
SDev = StDev(Price, Length);
 
Denom = nK*AvgTrueRange;
BBSqueeze = Nz((nBB * SDev) /Denom); 
 
SetPlotColor = IIf( BBSqueeze < Alertline, NormalColor, AlertlColor);

BBcrossDown = Cross(AlertLine,BBSqueeze);
BBcrossUp = Cross(BBSqueeze,AlertLine);
 
//{-- Plot the Alert Line -------------------------}
Plot(0, "", SetPlotColor, styleDots );

//{-- Plot delta of price from Donchian mid line ----------}
value2 = LinearReg( price-((HHV(H, Lenght1)+LLV(L, Lenght1))/2+ MA(C,Lenght1))/2, Lenght1);
color = IIf( value2 > 0, IIf( value2 > Ref(value2,-1), colorBlue, colorSkyblue), IIf( value2 < 0, IIf( value2 < Ref(value2,-1), colorRed, colorYellow ), colorGold ));
 
//Plot(value2*LHMult, "NickmNxtMove", color, styleHistogram );
Plot(value2,"BBSqueeze",color, styleHistogram );
 
//Sound alerts
AlertIf( BBcrossDown, "SOUND C:\\Windows\\Media\\RINGIN.WAV", "Audio alert", 2 );
AlertIf( BBcrossUp, "SOUND C:\\Windows\\Media\\RINGIN.WAV", "Audio alert", 2 );

PlotShapes( IIf( BBcrossDown, shapeHollowCircle, shapeNone ), colorYellow, layer = 0, yposition = 0, offset = 0);
PlotShapes( IIf( BBcrossUP, shapeHollowCircle, shapeNone ), colorWhite, layer = 0, yposition = 0, offset = 0);
_SECTION_END();

6 comments

1. anjan123
almost 4 years ago

May I request for buy sell explorer.

Report as Spam
2. endhuetz
almost 4 years ago

NICE formula dude!
can you adding explore for buy / sell exploration please

Report as Spam
3. hotaro3
over 3 years ago

Good Indicator

Report as Spam
4. hotaro3
over 3 years ago

//A better code for BB Squeeze is as KP TTM Squeeze Follows

_SECTION_BEGIN(“The Squeeze”);
SetChartBkColor(ParamColor(“Panel Color”,colorLightGrey));
SetChartBkGradientFill(ParamColor(“Upper Chart”,colorLightGrey),ParamColor(“Lower Chart”,colorLightGrey));

SetChartOptions( 0, chartShowDates|chartWrapTitle );
Price = Close;
Length = Param(“ATR Length”,20,2,100,1); // { Length for Average True Range (ATR)}
Lenght1 = Param(“SD Length”,20,2,100,1); // { Std. Deviation (SD) Calcs }
nK = Param(“Channel ATRs”,1.4,0.1,2,0.1); //{ Keltner Channel ATRs from Average }
nBB = Param(“BB Std Devs”,2,0.1,3,0.1); // { Bollinger Band Std. Devs. from Average }
AlertLine = Param(“AlertLine”,1,0,3,1); //{ BBS_Index level at which to issue alerts }
NormalColor = 4; //{ Normal color for BBS_Ind }
AlertlColor = 10;// Color for BBS_Ind below alert line }
LHMult = Nz(PointValue/TickSize);
//{— Calculate BB Squeeze Indicator -—————————-}
AvgTrueRange = ATR;
SDev = StDev(Price, Length);
Denom = nK*AvgTrueRange;
BBS_Ind = Nz((nBB * SDev) /Denom);
SetPlotColor = IIf( BBS_Ind < Alertline, NormalColor, AlertlColor);
BBcrossDown = Cross(AlertLine,BBS_Ind);
BBcrossUp = Cross(BBS_Ind,AlertLine);
Plot(0, “BBS_Ind”, SetPlotColor, styleDots|styleThick | styleNoRescale |styleNoLabel );
//{— Plot delta of price from Donchian mid line -———-}
value2 = LinearReg( price-((HHVLLV)/2 MA)/2, Lenght1);
color = IIf( value2 > 0, IIf( value2 > Ref(value2,-1), colorBlue, 12), IIf( value2 < 0, IIf( value2 < Ref(value2,-1), ParamColor(“UpColor”,colorRed ), colorYellow ), colorYellow ));
myma=WMA;
//Plot(value2*LHMult, “NickmNxtMove”, color, styleBar | styleThick|styleOwnScale );
Plot(value2,“BB Squeeze”,color, styleArea | styleThick);
PlotShapes( IIf( Cross(Value2, 0), shapeHollowSmallDownTriangle+ shapePositionAbove, shapeNone ), 29,0,Offset=0 );
PlotShapes( IIf( Cross(0, Value2), shapeUpTriangle+ shapePositionAbove, shapeNone ), 32,0,Offset=0);
PlotShapes(IIf(Cross(myma,value2),shapeuparrow+ shapePositionAbove, shapeNone ), 12,0,Offset=myma);
PlotShapes(IIf(Cross(Value2 ,myma),shapedownarrow+ shapePositionAbove, shapeNone ),7 ,0,Offset=myma,-10);
//Plot(myma,"",5,styleLine|styleThick);
//{— Issue Alert when the Squeeze is On -———————-}
“ALERT”;
//Write alerts to Interpretation window
//Ticker = Name();
//WriteIf(BBcrossDown,Ticker + " " + “BB Squeeze Alert” ,WriteIf(BBcrossUp,Ticker + " " + “BB Squeeze Is Over”,""));
//Write alerts to Alert Output window
//AlertIf(BBcrossDown,"",“BB Squeeze Alert”,0);
//AlertIf(BBcrossUp,"",“BB Squeeze Is Over”,0);
//Sound alerts
//AlertIf( BBcrossDown, “SOUND C:\\Windows\\Media\\RINGIN.WAV”, “Audio alert”, 2 );
//AlertIf( BBcrossUp, “SOUND C:\\Windows\\Media\\RINGIN.WAV”, “Audio alert”, 2 );
//Write text to screen
//ytext = 0.01;
/*
or(i=1;i<BarCount;i++)
{
If(BBcrossDown[i])
{

PlotText(“ON”,i,-ytext[i],colorWhite);
}

if(BBcrossUp[i])

{

PlotText(“OFF”,i,ytext[i],colorWhite);

}

}

*/

//PlotShapes(shapeUpArrow*BBcrossDown,colorWhite,0,0);
//PlotShapes(shapeDownArrow*BBcrossup,colorWhite,0,0);
_SECTION_END();

/SECTION_BEGIN(“KP Fast 2”);
//SetChartBkColor(ParamColor(“Panel Color”,colorLightGrey));
//SetChartBkGradientFill(ParamColor(“Upper Chart”,colorLightGrey),ParamColor(“Lower Chart”,colorLightGrey));
//tskp_fast2val1, tskp_fast2val2
dummy=E_TSKPFAST2(Open,High,Low,Close,Volume);
Plot(tskp_fast2val1,“Fast2_1”,ParamColor(“ColorUp”,colorBlue),styleLine|styleThick);
Plot( tskp_fast2val2,“Fast2_2”,ParamColor(“ColorDown”,colorRed),styleLine|styleThick);
PlotShapes(IIf(Cross(tskp_fast2val1,0),shapeDigit1+ shapePositionAbove, shapeNone ), 29,0,Offset=tskp_fast2val1,-12 );
PlotShapes(IIf(Cross(0,tskp_fast2val2),shapeDigit1+ shapePositionAbove, shapeNone ), 4,0,Offset=tskpfast2val2,12 );
//Plot(0,"",ParamColor(“Zero Line”,colorGrey50),styleLine|styleNoLabel);
//Title =FullName();
_SECTION_END();/

SECTION_BEGIN(“KP M Range”);
mp=0.5*(High + Low);
tightstop=E_TSKPTIGHTSTOP(High,Low,Close);
stopline=ETSKPSTOPLINE;
Color=colorWhite;
for( i = 0; i < BarCount; i++ )
{
if( mp[i] > stopline[i] && mp[i] > tightstop[i] )
Color[i] = colorBlue;
else if( mp[i] < stopline[i] && mp[i] < tightstop[i])
Color[i] = colorRed;
else
Color[i] = colorWhite;
}
Plot(0,"",Color,styleOwnScale|styleArea|styleNoLabel,0, 90 );
Plot(7,"",Color,styleOwnScale|styleArea|styleNoLabel,0, 90 );
_SECTION_END();

SECTION_BEGIN(“KP TrendBias BackGround”);//Plot Tone
dummy = E_TSKPTRENDBIAS(High,Low,Close);
KPTB = tskp_sb;
KPTBSlow = tskptbxavg;
parmToneColorUp=ParamColor(“Tone Color Up”, colorLightBlue );
parmToneColorDn=ParamColor(“Tone Color Dn”, colorTan);
RibbonSize=Param(“Ribbon Size”,20,0.5,10,0.5);
Plot( RibbonSize,"",IIf(KPTB > KPTBSlow,parmToneColorUp,parmToneColorDn),styleOwnScale|styleArea|styleNoLabel,0,10);
_SECTION_END();

Report as Spam
5. hotaro3
over 3 years ago

//A better code for BB Squeeze is as KP TTM Squeeze Follows

_SECTION_BEGIN(“The Squeeze”);
SetChartBkColor(ParamColor(“Panel Color”,colorLightGrey));
SetChartBkGradientFill(ParamColor(“Upper Chart”,colorLightGrey),ParamColor(“Lower Chart”,colorLightGrey));

SetChartOptions( 0, chartShowDates|chartWrapTitle );
Price = Close;
Length = Param(“ATR Length”,20,2,100,1); // { Length for Average True Range (ATR)}
Lenght1 = Param(“SD Length”,20,2,100,1); // { Std. Deviation (SD) Calcs }
nK = Param(“Channel ATRs”,1.4,0.1,2,0.1); //{ Keltner Channel ATRs from Average }
nBB = Param(“BB Std Devs”,2,0.1,3,0.1); // { Bollinger Band Std. Devs. from Average }
AlertLine = Param(“AlertLine”,1,0,3,1); //{ BBS_Index level at which to issue alerts }
NormalColor = 4; //{ Normal color for BBS_Ind }
AlertlColor = 10;// Color for BBS_Ind below alert line }
LHMult = Nz(PointValue/TickSize);
//{— Calculate BB Squeeze Indicator -—————————-}
AvgTrueRange = ATR;
SDev = StDev(Price, Length);
Denom = nK*AvgTrueRange;
BBS_Ind = Nz((nBB * SDev) /Denom);
SetPlotColor = IIf( BBS_Ind < Alertline, NormalColor, AlertlColor);
BBcrossDown = Cross(AlertLine,BBS_Ind);
BBcrossUp = Cross(BBS_Ind,AlertLine);
Plot(0, “BBS_Ind”, SetPlotColor, styleDots|styleThick | styleNoRescale |styleNoLabel );
//{— Plot delta of price from Donchian mid line -———-}
value2 = LinearReg( price-((HHVLLV)/2 MA)/2, Lenght1);
color = IIf( value2 > 0, IIf( value2 > Ref(value2,-1), colorBlue, 12), IIf( value2 < 0, IIf( value2 < Ref(value2,-1), ParamColor(“UpColor”,colorRed ), colorYellow ), colorYellow ));
myma=WMA;
//Plot(value2*LHMult, “NickmNxtMove”, color, styleBar | styleThick|styleOwnScale );
Plot(value2,“BB Squeeze”,color, styleArea | styleThick);
PlotShapes( IIf( Cross(Value2, 0), shapeHollowSmallDownTriangle+ shapePositionAbove, shapeNone ), 29,0,Offset=0 );
PlotShapes( IIf( Cross(0, Value2), shapeUpTriangle+ shapePositionAbove, shapeNone ), 32,0,Offset=0);
PlotShapes(IIf(Cross(myma,value2),shapeuparrow+ shapePositionAbove, shapeNone ), 12,0,Offset=myma);
PlotShapes(IIf(Cross(Value2 ,myma),shapedownarrow+ shapePositionAbove, shapeNone ),7 ,0,Offset=myma,-10);
//Plot(myma,"",5,styleLine|styleThick);
//{— Issue Alert when the Squeeze is On -———————-}
“ALERT”;
//Write alerts to Interpretation window
//Ticker = Name();
//WriteIf(BBcrossDown,Ticker + " " + “BB Squeeze Alert” ,WriteIf(BBcrossUp,Ticker + " " + “BB Squeeze Is Over”,""));
//Write alerts to Alert Output window
//AlertIf(BBcrossDown,"",“BB Squeeze Alert”,0);
//AlertIf(BBcrossUp,"",“BB Squeeze Is Over”,0);
//Sound alerts
//AlertIf( BBcrossDown, “SOUND C:\\Windows\\Media\\RINGIN.WAV”, “Audio alert”, 2 );
//AlertIf( BBcrossUp, “SOUND C:\\Windows\\Media\\RINGIN.WAV”, “Audio alert”, 2 );
//Write text to screen
//ytext = 0.01;
/*
or(i=1;i<BarCount;i++)
{
If(BBcrossDown[i])
{

PlotText(“ON”,i,-ytext[i],colorWhite);
}

if(BBcrossUp[i])

{

PlotText(“OFF”,i,ytext[i],colorWhite);

}

}

*/

//PlotShapes(shapeUpArrow*BBcrossDown,colorWhite,0,0);
//PlotShapes(shapeDownArrow*BBcrossup,colorWhite,0,0);
_SECTION_END();

/SECTION_BEGIN(“KP Fast 2”);
//SetChartBkColor(ParamColor(“Panel Color”,colorLightGrey));
//SetChartBkGradientFill(ParamColor(“Upper Chart”,colorLightGrey),ParamColor(“Lower Chart”,colorLightGrey));
//tskp_fast2val1, tskp_fast2val2
dummy=E_TSKPFAST2(Open,High,Low,Close,Volume);
Plot(tskp_fast2val1,“Fast2_1”,ParamColor(“ColorUp”,colorBlue),styleLine|styleThick);
Plot( tskp_fast2val2,“Fast2_2”,ParamColor(“ColorDown”,colorRed),styleLine|styleThick);
PlotShapes(IIf(Cross(tskp_fast2val1,0),shapeDigit1+ shapePositionAbove, shapeNone ), 29,0,Offset=tskp_fast2val1,-12 );
PlotShapes(IIf(Cross(0,tskp_fast2val2),shapeDigit1+ shapePositionAbove, shapeNone ), 4,0,Offset=tskpfast2val2,12 );
//Plot(0,"",ParamColor(“Zero Line”,colorGrey50),styleLine|styleNoLabel);
//Title =FullName();
_SECTION_END();/

SECTION_BEGIN(“KP M Range”);
mp=0.5*(High + Low);
tightstop=E_TSKPTIGHTSTOP(High,Low,Close);
stopline=ETSKPSTOPLINE;
Color=colorWhite;
for( i = 0; i < BarCount; i++ )
{
if( mp[i] > stopline[i] && mp[i] > tightstop[i] )
Color[i] = colorBlue;
else if( mp[i] < stopline[i] && mp[i] < tightstop[i])
Color[i] = colorRed;
else
Color[i] = colorWhite;
}
Plot(0,"",Color,styleOwnScale|styleArea|styleNoLabel,0, 90 );
Plot(7,"",Color,styleOwnScale|styleArea|styleNoLabel,0, 90 );
_SECTION_END();

SECTION_BEGIN(“KP TrendBias BackGround”);//Plot Tone
dummy = E_TSKPTRENDBIAS(High,Low,Close);
KPTB = tskp_sb;
KPTBSlow = tskptbxavg;
parmToneColorUp=ParamColor(“Tone Color Up”, colorLightBlue );
parmToneColorDn=ParamColor(“Tone Color Dn”, colorTan);
RibbonSize=Param(“Ribbon Size”,20,0.5,10,0.5);
Plot( RibbonSize,"",IIf(KPTB > KPTBSlow,parmToneColorUp,parmToneColorDn),styleOwnScale|styleArea|styleNoLabel,0,10);
_SECTION_END();

Report as Spam
6. tuantai0304
over 2 years ago

This code is awesome. Thank you

Report as Spam

Leave Comment

Please login here to leave a comment.

Back

We try to maintain hiqhest possible level of service - most formulas, oscillators, indicators and systems are submitted by anonymous users. Therefore www.WiseStockTrader.com does not take any responsibility for it's quality. If you use any of this information, use it at your own risk. You are responsible for your own trading decisions. Be sure to verify that any information you see on these pages is correct, and is applicable to your particular trade. In no case will www.WiseStockTrader.com be responsible for your trading gains or losses.

News Contact Us Terms and Conditions Privacy Policy