# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=TASC Bandpass Filter
Name=tasc_bandpass
Language=Formula
Links=1
MinBars=0
TimerInterval=100
EarlyBinding=0
MetaStyle=Normal
ValueRange=Same as Source
Placement=New Pane
Multiplot_num_plots=2
Multiplot_color_0=50266112
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=1
Multiplot_name_0=BP
Multiplot_breakstyle_0=0
Multiplot_color_1=255
Multiplot_style_1=Line
Multiplot_width_1=1
Multiplot_enabled_1=1
Multiplot_name_1=zero
Multiplot_breakstyle_1=0
UpdateByTick=0
FloatMarker=1
DepthData=0
TradingSystemUI=0
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=2
Param_name_0=period
Param_inuse_0=1
Param_type_0=integer.gte.1
Param_default_0=20
Param_name_1=Delta
Param_inuse_1=1
Param_type_1=real
Param_default_1=0.1
Explanation_Lines=0
# NEOTICKER DATA END

myprice := (h+l)/2;
$period := param1;
$delta := param2;

$beta  := cos (deg2rad (360 / $period));
$gamma := 1 / cos (deg2rad (720 * $delta / $period));
$alpha := $gamma - sqrt ($gamma * $gamma - 1);
BP := 0.5*(1-$alpha)*(myprice-myprice(2))+$beta*(1+$alpha)*BP(1)-$alpha*BP(2);

plot1 := BP;
plot2 := 0;