function Y = uminus(X)
%UMINUS Symbolic negation.

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


Y = X;
for k = 1:prod(size(X))
   Y(k).s = ['-(', X(k).s, ')'];
end
Y = maple('',Y);
