function y = a(x)

% AFUN -- used by nsexampl
%
% See also NSEXAMPL.


% (C) 1997 Harri Ojanen

y = 100 * sqrt(abs(x)) + sqrt(abs(x+pi/2)) - sqrt(abs(x-pi/2));


