# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=TASC Premier Stochastic Oscillator
Name=tasc_pso
Language=Formula
Links=1
MinBars=0
TimerInterval=100
EarlyBinding=0
MetaStyle=Normal
ValueRange=Same as Source
Placement=New Pane
Multiplot_num_plots=5
Multiplot_color_0=33587200
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=1
Multiplot_name_0=Premier
Multiplot_breakstyle_0=0
Multiplot_color_1=50266112
Multiplot_style_1=Line
Multiplot_width_1=1
Multiplot_enabled_1=1
Multiplot_name_1=Line 1
Multiplot_breakstyle_1=0
Multiplot_color_2=50266112
Multiplot_style_2=Line
Multiplot_width_2=1
Multiplot_enabled_2=1
Multiplot_name_2=Line 2
Multiplot_breakstyle_2=0
Multiplot_color_3=255
Multiplot_style_3=Line
Multiplot_width_3=1
Multiplot_enabled_3=1
Multiplot_name_3=Negative Line 1
Multiplot_breakstyle_3=0
Multiplot_color_4=255
Multiplot_style_4=Line
Multiplot_width_4=1
Multiplot_enabled_4=1
Multiplot_name_4=Negative Line 2
Multiplot_breakstyle_4=0
UpdateByTick=0
FloatMarker=1
DepthData=0
TradingSystemUI=0
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=4
Param_name_0=Line 1
Param_inuse_0=1
Param_type_0=real
Param_default_0=0.9
Param_name_1=Line 2
Param_inuse_1=1
Param_type_1=real
Param_default_1=0.2
Param_name_2=Stoch Length
Param_inuse_2=1
Param_type_2=integer.gte.0
Param_default_2=8
Param_name_3=Period
Param_inuse_3=1
Param_type_3=integer.gte.0
Param_default_3=25
Explanation_Lines=0
# NEOTICKER DATA END

$Line1 := param1;
$Line2 := param2;
$StochLength := param3;
$Period := param4;

$Length := if(param1 < 0, 1, int(sqrt($Period)));
NormStoch := 0.1*(slowk(data1, $StochLength, 3)-50);
$SmoothStoch := qc_xaverage(qc_xaverage(NormStoch,$Length),$Length);
plot1 := (exp($SmoothStoch)-1)/(exp($SmoothStoch)+1);
plot2 := $Line1;
plot3 := $Line2;
plot4 := $Line1*-1;
plot5 := $Line2*-1;