drawlc.m

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

drawrlcf(x0,y0,dx,ds,F) 

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

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, bold('RLC',12))
 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)

drawrlcf(0,0,1/2,1/0.8,9);
drawrlc2(x0,y0,dx,ds,F) 
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; yp5 = y0+2.5*dx; yp2 = y0+1.*dx; 
y00 = y0; yp3 = y0+1.5*dx; yp4 = y0+2*dx;
 drawtext(xp3, yp2, bold('lc',12))
 drawin(xm5, yp4, 'Vg', 2, ds, F)
 drawin(xm5, y00, ' ', 2, ds, F)
 drawin(xp11, yp4, ' ', 0, ds, F)
 drawin(xp11, y00, ' ', 0, ds, F)
 drawr(xm5, yp4, xm1, 'Rg', 0, ds/2, F)
 drawr(xp11, y00, yp4, 'Ro', 3, ds/2, F)
 drawjunc(xp11, yp4, 'Vo', 2, 1, F)
 drawgrnd(xm5, y00, 0, ds/2)
 drawj(xm1, ym1, xp7, yp5, 0)
 drawj(xm1, ym1, xp7, yp5, 1)
 drawj(xm5, y00, xm1, y00, 1)
 drawj(xp7, y00, xp11, y00, 1)
 drawj(xp7, yp4, xp11, yp4, 1)
 drawjunc(xp11, y00, ' ', 3, 1, F)
 drawjunc(xp7, y00, ' ', 3, 1, F)
 drawjunc(xp7, yp4, ' ', 3, 1, F)
 drawjunc(xm1, yp4, ' ', 3, 1, F)
 drawjunc(xm1, y00, ' ', 3, 1, F)
 drawjunc(xm5, y00, ' ', 3, 1, F)

drawrlc2(0,0,1/2,1/0.8,9);
drawrlc1(x0,y0,dx,ds,F) 
xm5 = x0-2.5*dx; xm1 = x0-0.5*dx; xp1 = x0+0.5*dx;
xp3 = x0+1.5*dx; xp8 = x0+4*dx;
xp7 = x0+3.5*dx; xp11 = x0+5.5*dx;
xp15 = x0+7.5*dx; xp16 = x0+8*dx; xp17 = x0+8.5*dx;
yp2 = y0+dx, 
y00 = y0; yp3 = y0+1.5*dx; yp4 = y0+2*dx;
 drawtext(xp1, yp2, bold('=',12))
 drawz(xm1, y00, yp4, 'Z', 1, ds/2, F)
 drawl(xp3, y00, yp4, 'L', 3, ds/2, F)
 drawc(xp7, y00, yp4, 'C', 3, ds/2, F)
 drawc(xp11, y00, yp2, 'C', 3, ds/3, F)
 drawl(xp11, yp2, yp4, 'L', 3, ds/3, F)
 drawc(xp15, y00, yp4, 'C', 1, ds/3, F)
 drawl(xp17, y00, yp4, 'L', 3, ds/3, F)
 drawj(xp15, y00, xp17, y00, 0)
 drawj(xp15, yp4, xp17, yp4, 0)
 drawjunc(xm1, y00, ' ', 2, 1, F)
 drawjunc(xm1, yp4, ' ', 2, 1, F)
 drawjunc(xp3, y00, ' ', 2, 1, F)
 drawjunc(xp3, yp4, ' ', 2, 1, F)
 drawjunc(xp7, y00, ' ', 2, 1, F)
 drawjunc(xp7, yp4, ' ', 2, 1, F)
 drawjunc(xp11, y00, ' ', 2, 1, F)
 drawjunc(xp11, yp4, ' ', 2, 1, F)
 drawjunc(xp16, y00, ' ', 2, 1, F)
 drawjunc(xp16, yp4, ' ', 2, 1, F)

drawrlc1(0,0,1/2,1/0.8,9);
drawrlc3(x0,y0,dx,ds,F) 
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; yp5 = y0+3.5*dx;
yp4 = y0+2*dx;
 drawtext(xm5, y00, bold(' ',12))
 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)

drawrlc3(0,0,1/2,1/0.8,9);
drawrlc4(x0,y0,dx,ds,F) 
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; 
y00 = y0-1*dx; yp3 = y0+1.5*dx; yp4 = y0+2*dx;
 drawtext(xm5, y02, bold(' ',12))
 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)
 
drawrlc4(0,0,1/2,1/0.8,9);
drawrlc5(x0,y0,dx,ds,F) 
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, bold(' ',12))
 drawin(xm5, yp4, 'Vg', 2, ds, F)
 drawc(xm5, yp4, xm1, 'C2', 0, ds/2, F)
 drawl(xm1, yp4, xp3, 'L2', 0, ds/2, F)
 drawc(xp3, y00, yp4, 'C1', 1, ds/2, F)
 drawl(xp3, yp4, xp7, 'L1', 0, ds/2, F)
 drawr(xp7, y00, yp4, 'Ro', 1, ds/2, F)
 drawjunc(xp3, yp4, 'V2', 2, 1, F)
 drawjunc(xp7, yp4, 'V3', 2, 1, F)
 drawgrnd(xp3, y00, 0, ds/2)
 drawgrnd(xp7, y00, 0, ds/2)