function [b,a] = tf(h)
%TF  Cascaded object to transfer function conversion.

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

% Initialize transfer function
b=1; a=1;

% Form transfer function recursively
for n = 1:nsections(h),
    
    [bt,at] = tf(section(h,n));

    b = conv(b,bt);
    a = conv(a,at);
end

% [EOF] - TF.m