drawlc1.m

AFD - Advanced Filter Design using MATLABMiroslav D. Lutovac, Dejan V. Tosicversion 1.00 released 15

function drlc1 = drawlc1(x0,y0,dx,ds,F)

% drawlc1.m  Draw doubly terminated LC-ladder with complex zeros
% 3:29  22/2/99
%
%            Album of Analog Filter Realizations
%
%   Authors: Dejan V. Tosic, Miroslav D. Lutovac, 1999.02.21
%                 [e-mail]
%                 [e-mail]
%
%   Copyright (c) 1999 by Tosic & Lutovac
%   $Revision: 1.0 $  $Date: 1999/02/21 02:17:42 $
%
%   References:
%        Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica
%

% drawlc1(0,0,0.5,1.25,9);

xm5 = x0-2.5*dx; xm1 = x0-0.5*dx;
xp3 = x0+1.5*dx; xp8 = x0+4*dx;
xp7 = x0+3.5*dx; xp11 = x0+5.5*dx;
ym1 = y0-0.5*dx;
y00 = y0; yp3 = y0+1.5*dx; yp5 = y0+3.5*dx;
yp4 = y0+2*dx;
 drawtext(xm5, y00, 'Doubly terminated',F+1)
 drawtext(xm5, ym1, ' LC-ladder',F+1)
 drawin(xm5, yp4, 'Vg', 2, ds, F)
 drawr(xm5, yp4, xm1, 'Rg', 0, ds/2, F)
 drawc(xm1, y00, yp4, 'C1', 1, ds/2, F)
 drawc(xm1, yp4, xp3, 'C2', 2, ds/2, F)
 drawc(xp3, y00, yp4, 'C3', 3, ds/2, F)
 drawc(xp3, yp4, xp7, 'C4', 0, ds/2, F)
 drawc(xp7, y00, yp4, 'C5', 3, ds/2, F)
 drawl(xm1, yp5, xp3, 'L2', 0, ds/2, F)
 drawl(xp3, yp5, xp7, 'L4', 0, ds/2, F)
 drawj(xp7, yp4, xp11, yp4, 0)
 drawr(xp11, y00, yp4, 'Ro', 3, ds/2, F)
 drawjunc(xm1, yp4, 'V2', 1, 1, F)
 drawjunc(xp3, yp4, ' ', 1, 1, F)
 drawjunc(xp7, yp4, 'V4', 1, 1, F)
 drawgrnd(xm1, y00, 0, ds/2)
 drawgrnd(xp3, y00, 0, ds/2)
 drawgrnd(xp7, y00, 0, ds/2)
 drawgrnd(xp11, y00, 0, ds/2)
 drawj(xm1, yp4, xm1, yp5, 0)
 drawj(xp3, yp4, xp3, yp5, 0)
 drawj(xp7, yp4, xp7, yp5, 0)
 drawjunc(xp3, yp5, 'V3', 2, 1, F)
axis('equal')
axis('off')