function X = inv(A)
%INV    Symbolic matrix inverse.
%   INV(A) computes the symbolic inverse of A
%   INV(VPA(A)) uses variable precision arithmetic.
%
%   Examples:  
%      Suppose B is
%         [ 1/(2-t), 1/(3-t) ]
%         [ 1/(3-t), 1/(4-t) ]
%
%      Then inv(B) is
%         [     -(-3+t)^2*(-2+t), (-3+t)*(-2+t)*(-4+t) ]
%         [ (-3+t)*(-2+t)*(-4+t),     -(-3+t)^2*(-4+t) ]
%
%      digits(10);
%      inv(vpa(sym(hilb(3))));
%
%   See also VPA.

%   Copyright (c) 1993-98 by The MathWorks, Inc.
%   $Revision: 1.9 $  $Date: 1997/11/29 01:05:45 $

if all(size(A) == 1)
   [X,stat] = maple(sym(1),'/',A);
else
   [X,stat] = maple('inverse',A);
end
if stat
   error(X)
end
