Example of a VB User defined function...

["Steve" <slwiserr@xxxx>]

EnableScript("vbscript");
<%
close = AFL( "close" ) 
factor = 0.09
var1=close
SetValue Close

Function SetValue(Close)
for i = 1 to UBound( close )
var1( i )= factor * close( i ) + (1 - factor) * var1( i -
1 )
next 
end function

AFL.Var("graph0") = close
AFL.Var("graph1") = var1
%>
WriteVal( graph1 );