function [b,a,q]=cl2tf(K1,K2,beta)
%CL2TF Coupled allpass lattice to transfer function conversion.

%   Copyright 1999-2023 The MathWorks, Inc.

narginchk(2,3);

if nargin == 2
   beta = 1; % Assume beta equal to one if not specified.
end

[~,den1] = latc2tf(K1,'allpass');
[~,den2] = latc2tf(K2,'allpass');

try
    [b,a,q] = ca2tf(den1,den2,beta);
catch ME
    throw(ME);
end

% [EOF] - cl2tf.m

