function X = real(Z)
%REAL   Symbolic real part.
%   REAL(Z) is the real part of a symbolic Z.
    
%   Copyright (c) 1993-98 by The MathWorks, Inc.
%   $Revision: 1.3 $  $Date: 1997/11/29 01:06:02 $

X = (Z + maple('map','conjugate',Z))/2;
