# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=DiNapoli Preferred Stochastics
Name=DiNapoliPreferredStoch
Language=Formula
Links=1
MinBars=0
TimerInterval=100
MetaStyle=Normal
ValueRange=0 to 100
Placement=Smart
Multiplot_num_plots=2
Multiplot_color_0=255
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=1
Multiplot_name_0=Stoch
Multiplot_breakstyle_0=0
Multiplot_color_1=50266112
Multiplot_style_1=Line
Multiplot_width_1=1
Multiplot_enabled_1=1
Multiplot_name_1=Signal
Multiplot_breakstyle_1=0
UpdateByTick=1
TradingSystemUI=0
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=3
Param_name_0=Period
Param_inuse_0=1
Param_type_0=integer.gt.0
Param_default_0=8
Param_name_1=Smooth
Param_inuse_1=1
Param_type_1=integer.gt.0
Param_default_1=3
Param_name_2=Signal
Param_inuse_2=1
Param_type_2=integer.gt.0
Param_default_2=3
Explanation_Lines=1
Explanation0=DiNapoli Preferred Stochastics returns a smoothed version of the stochastics indicator with its signal line. DiNapoli Preferred Stochastics requires one specified series (Link 1).
# NEOTICKER DATA END

$ready := barsnum >= param1;
myfastk := fastk (data1, param1);

plot1 := myfastk / param2 + (1 - 1 / param2) * plot1 (1);
success1 := $ready;

plot2 := plot1 / param3 + (1 - 1 / param3) * plot2 (1);
success2 := $ready;