drawlc2.m

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

function drlc2 = drawlc2(x0,y0,dx,ds,F)

% drawlc2.m  Draw singly terminated LC-ladder with complex zeros
% 3:28  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
%

% drawlc2(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;
y02 = y0; y01 = y0 - dx/2; 
y00 = y0-1*dx; yp3 = y0+1.5*dx; yp4 = y0+2*dx;
 drawtext(xm5, y02, 'Singly terminated',F+1)
 drawtext(xm5, y01, 'LC-ladder',F+1)
 drawin(xm5, yp4, 'Vg', 2, ds, F)
 drawl(xm5, yp4, xm1, 'L5', 0, ds/2, F)
 drawl(xm1, y02, yp4, 'L4', 1, ds/2, F)
 drawl(xm1, yp4, xp3, 'L3', 0, ds/2, F)
 drawl(xp3, y02, yp4, 'L2', 1, ds/2, F)
 drawl(xp3, yp4, xp7, 'L1', 0, ds/2, F)
 drawc(xm1, y00, y02, 'C4', 1, ds/2, F)
 drawc(xp3, y00, y02, 'C2', 1, ds/2, F)
 drawr(xp7, y00, yp4, 'Ro', 3, ds/2, F)
 drawjunc(xm1, yp4, 'V2', 2, 1, F)
 drawjunc(xp3, yp4, 'V3', 2, 1, F)
 drawjunc(xp7, yp4, 'V4', 2, 1, F)
 drawgrnd(xm1, y00, 0, ds/2)
 drawgrnd(xp3, y00, 0, ds/2)
 drawgrnd(xp7, y00, 0, ds/2)
axis('equal')
axis('off')