function [b,a] = sec2tf(h)
%SEC2TF  Convert single-section ssd object to transfer function.

%   Author(s): R. Losada
%   Copyright 1988-2000 The MathWorks, Inc.
%   $Revision: 1.3 $  $Date: 2000/06/13 21:22:39 $ 

[A,B,C,D] = sec2ss(h);

[b,a] = ss2tf(A,B,C,D);

% Remove trailing zeros
[b,a] = normalizengetord(b,a);

