# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=TASC Nonlinear Ehler Filter VBScript
Name=tasc_nef_vb
Language=VBScript
Links=1
MinBars=0
TimerInterval=100
EarlyBinding=0
MetaStyle=Normal
ValueRange=Same as Source
Placement=Smart
Multiplot_num_plots=1
Multiplot_color_0=255
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=1
Multiplot_breakstyle_0=0
UpdateByTick=0
FloatMarker=1
DepthData=0
TradingSystemUI=0
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=2
Param_name_0=Coef formula
Param_inuse_0=1
Param_type_0=formula
Param_default_0=absvalue(c-c(5))
Param_name_1=Coef period
Param_inuse_1=1
Param_type_1=integer.gte.0
Param_default_1=15
Explanation_Lines=0
# NEOTICKER DATA END
'NeoTicker Additional Indicator
'written by Kenneth Yuen, April 2001
'Copyright by TickQuest Inc.
'All right reserved

'Nonlinear Ehler Filter
'Stock & Commodities Magazine. April, 2001

'Modified by Kenneth Yuen, August 2008

function tasc_nef_vb()
dim Num, SumCoef

   if not data1.valid(0) then
      itself.success = false
      exit function
   end if

   Coef = itself.makeindicator ("Coef", "fml", Array("1"), _
                        Array(Params.items("Coef formula").str))

   itself.setseries "NumVal", data1.value(0)*Coef.value(0), true

   Num = itself.makeindicator ("SNum", "Summation", Array("$NumVal"), _
                        Array(Params.items("Coef period").str))
   SumCoef = itself.makeindicator ("SCoef", "Summation", Array("Coef"), _
                        Array(Params.items("Coef period").str))

   if (data1.barsnum(0) > Params.items("Coef period").int) and _
      (SumCoef.value(0) > 0)  then
      itself.plot(1) = Num.value(0)/SumCoef.value(0)
   else
      itself.success = false
   end if

end function