function SysOut = transpose(SysIn)
%TRANSPOSE  Transposition of Transfer Functions systems.
%
%       Invoked by SYSOUT = SYS.'
%
%       Given SYS = NUM./DEN,  returns SYSOUT = (NUM.') ./ (DEN.').
%       In terms of transfer function, this operation this operation 
%       returns H(s).' given H(s)  (or H(z).' given H(z) for discrete 
%       systems).
%
%       See also  CTRANSPOSE.

%       Author(s): P.Gahinet, 4-1-96
%       Copyright (c) 1986-97 by The MathWorks, Inc.
%	$Revision: 1.4 $  $Date: 1997/04/09 00:30:13 $

L = struct(SysIn.lti);
if any(L.Td),
   error('Cannot transpose systems with input delays.');
end

% Transpose NUM and DEN
[ny,nu] = size(SysIn.num);
SysOut = SysIn;
SysOut.num = (SysIn.num)';
SysOut.den = (SysIn.den)';

% Delete input and output names
estr = {''};
L.InputName = estr(ones(ny,1),1);
L.OutputName = estr(ones(nu,1),1);
if L.Ts==0,
   L.Td = zeros(1,ny);
end
SysOut.lti = quickset(SysOut.lti,L,'d');

% end ../@tf/transpose.m

