function [nb,db,nw,dw,nl,dl]=dsbadmft(Fc,order)
%DSBADMFT   is a function to design filters for DSB SC ADM.
%   [NB,DB,NW,DW,NL,DL]=DSBADMFT(Fc) 
%   outputs the bandpass filter and two lowpass filters for
%   DSB SC ADM when the carrier frequency Fc is provided.
%

%   Copyright 1996-2000 The MathWorks, Inc.
%       $Revision: 1.11 $

if nargin < 2
    order = 4;
end;
Fc=Fc*2*pi;
[a,b,c,d]=filtm('buttap', 'lp2bp', 2*Fc, 50, 50, order);
a=real(a);
b=real(b);
c=real(c);
d=real(d);
[nb,db]=ss2tf(a,b,c,d);
[z,p,k]=cheb1ap(order,3);
a=1.5*Fc*z;
b=1.5*Fc*p;
c=real(prod(-b));
[nw,dw]=zp2tf(a,b,c);
a=Fc*z/10;
b=Fc*p/10;
c=real(prod(-b));
[nl,dl]=zp2tf(a,b,c);
