function Y = sec(X)
%SEC    Symbolic secant.

%   Copyright (c) 1993-98 by The MathWorks, Inc.
%   $Revision: 1.6 $  $Date: 1997/11/29 01:06:04 $

[Y,stat] = maple('map','sec',X);

if stat
   % Singularities
   Y = X;
   for k = 1:prod(size(X))
      [Y(k),s] = maple('sec',X(k));
      if s
         Y(k) = Inf;
      end
   end
end
