drawlc4.m

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

function drlc4 = drawlc4(x0,y0,dx,ds,F)

% drawlc4.m  Draw LC-ladder
% 1:47  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
%

% drawlc4(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;
y00 = y0; yp3 = y0+1.5*dx; yp4 = y0+2*dx;
 drawtext(xm5, y00, 'RLC  ladder',F+2)
 drawin(xm5, yp4, 'Vg', 2, ds, F)
 drawr(xm5, yp4, xm1, 'Rg', 0, ds/2, F)
 drawz(xm1, y00, yp4, 'Z2', 1, ds/2, F)
 drawz(xm1, yp4, xp3, 'Z3', 0, ds/2, F)
 drawz(xp3, y00, yp4, 'Z4', 1, ds/2, F)
 drawz(xp3, yp4, xp7, 'Z5', 0, ds/2, F)
 drawz(xp7, y00, yp4, 'Z6', 1, ds/2, F)
 drawz(xp7, yp4, xp11, 'Z7', 0, ds/2, F)
 drawr(xp11, 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)
 drawjunc(xp11, yp4, 'V5', 2, 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)
axis('equal')
axis('off')