# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=Advance Issue Momentum
Name=AIM
Language=DelphiScript
Links=1
MinBars=0
MetaStyle=Normal
ValueRange=Same as Source
Placement=New Pane
Multiplot_num_plots=1
Multiplot_color_0=255
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=1
UpdateByTick=0
TradingSystemUI=0
Param_count=2
Param_name_0=momentum period
Param_inuse_0=1
Param_type_0=integer.gt.1
Param_default_0=20
Param_name_1=Ignore Symbol 
Param_inuse_1=1
Param_type_1=string
Explanation_Lines=0
# NEOTICKER DATA END
function ignore_symbol (const ASymbol : string) : boolean;
var i : integer;
begin
   result := false;

   for i := 0 to param2.valuecount - 1 do
       if param2.strvalue [i] = ASymbol then
       begin
          result := true;
          break;
       end;
end;

function AIM : double;
var i : integer;
begin
   result := 0;
   for i := 1 to dataseries.count do
      if (not ignore_symbol (dataseries.items [i].symbol))
         and (DataSeries.items [i].close [0] > DataSeries.items [i].close [param1.int]) then
         result := result + 1;
end;