drawsc4a.m

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

function drsc4a = drawsc4a(x0,y0,dx,ds,F)

% drawsc4a.m  Draw SC mode4a biquad
% 4:23  22/2/99
%
%            Album of SC 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
%

xm6 = x0 - 3.0*dx; xm3 = x0 - 1.5*dx; 
x01 = x0 - 0.35*dx; 
x00 = x0; xp2 = x0 + dx; xp3 = x0 + 1.25*dx;
xp5 = x0 + 2.0*dx; xp6 = x0 + 2.5*dx;
xp7 = x0 + 3.0*dx; xp8 = x0 + 3.5*dx;
xp9 = x0 + 4.0*dx; xp10= x0 + 4.5*dx;
xp12= x0 + 4.5*dx; xp15= x0 + 6.0*dx; 
ym1 = y0 - 0.5*dx; ym2 = y0 - 1.*dx;
ym3 = y0 - 1.5*dx;
ym4 = y0 - 2.0*dx;
y00 = y0;
y01 = y0+dx/8;
y02 = y0 - dx/4;
y03 = y0 - dx/4-dx/8;
y04 = y0 - dx/4-dx/8-dx/2;
y05 = y0 - dx-dx/2;
yp1 = y0 + 0.5*dx; yp2 = y0 + dx;
yp3 = y0 + 1.5*dx; yp4 = y0 + 2.0*dx;
yp5 = y0 + 2.75*dx; yp6 = y0 + 3.0*dx;
yp7 = y0 + 3.5*dx; yp8 = y0 + 4.0*dx;
 drawtext(xm6, yp8,  'Mode 4a',F+1)
 drawopam(xm3, yp1, x00, 'A', 1, ds,F)
 drawampt(x00, y01, xp3, ' ', 0, ds*3/4,F)
 drawamp(xp3, y01, xp6, 'k/s', ' ', 0, ds*3/4,F+1)
 drawamp(xp6, y01, xp9, 'k/s', ' ', 0, ds*3/4,F+1)
 drawin(xm6, yp2, 'V1', 2,1,F)
 drawr(xm3, yp4, x00, 'R2', 0, ds/2,F)
 drawr(xm3, yp5, xp6,'R3', 0, ds/2,F)
 drawr(xm3, yp7, xp9,'R4', 0, ds/2,F)
 drawr(xm6, yp2, xm3, 'R1', 0, ds/2,F)
 drawjunc(xm3, yp4, 'V2', 4,1,F)
 drawjunc(x00, yp1, 'V3', 3,1,F)
 drawjunc(xp6, y01, 'V5', 5,1,F)
 drawjunc(xp9, y01, 'V6', 6,1,F)
 drawjunc(xp3,y01, 'V4', 2,1,F)
 drawjunc(xm3, yp2, ' ', 4,1,F)
 drawjunc(xm3, yp5, ' ', 4,1,F)
 drawjunc(x00, y02, ' ', 4,1,F)
 drawgrnd(xm3, y00, 0, ds/2)
 drawgrnd(x00, y02, 0, ds/2)
 drawj(xm3, yp2, xm3, yp7, 0)
 drawj(xp9, y01, xp9, yp7, 0)
 drawj(xp6, y01, xp6, yp5, 0)
 drawj(x00, yp1, x00, yp4, 0)
 drawj(x00, y01, x00, y02, 0)
 drawr(xp6, ym2, xp12, 'Rl', 2, ds/2,F)
 drawr(xm6, ym4, xp9, 'Rh', 0, ds/2,F)
 drawr(xp12, y01, xp15, 'Rg', 0, ds/2,F)
 drawopam(xp12, y05, xp15, 'A', 1, ds,F)
 drawj(xm6, ym4, xm6, yp2, 0)
 drawj(xp12, ym2, xp12, y01, 0)
 drawj(xp15, y05, xp15, y01, 0)
 drawj(xp6, ym2, xp6, y01, 0)
 drawj(xp9, ym4, xp12, y05, 1)
 drawj(xp12, y05, xp12, ym2, 1)
 drawgrnd(xp12, ym4, 0, ds/2)
 drawjunc(xp12, ym2, 'V8', 3,1,F)
 drawjunc(xp15, y05, 'V7', 0,1,F)
 drawjunc(xm6, yp2, ' ', 6,1,F)
axis('equal')
axis('off')