drawotad.m

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

function drotad = drawotad(x0,y0,dx,ds,F) 

% drawotad.m  Draw five OTA universal biquad
% 3:41  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
%

% drawotad(0,0,0.5,1.25,10) 

xm5 = x0 - 2.5*dx; xm6 = x0 - 3.0*dx; xm3 = x0 - 1.5*dx; 
x00 = x0; xp1 = x0 + 0.75*dx;
xp2 =x0+dx; xp3 = x0 + 1.5*dx; xp4 = x0 + 2*dx;
xp5 = x0 + 2.5*dx; xp6 = x0 + 3.0*dx;
xp7 = x0 + 3.5*dx; xp8 = x0 + 4.0*dx;
xp9 = x0 + 4.5*dx; xp10= x0 + 5.0*dx;
xp12= x0 + 6.0*dx; ym3 = y0 - 1.5*dx; 
ym1 = y0 - 0.5*dx; ym2 = y0 - 1.0*dx;
y00 = y0; ym4 = y0 - 2*dx; ym5 = y0 - 2.5*dx; 
yp1 = y0 + 0.5*dx; yp2 = y0 + dx;
yp3 = y0 + 1.5*dx; yp4 = y0 + 2.0*dx;
yp5 = y0 + 2.5*dx; yp6 = y0 + 3.0*dx;
yp7 = y0 + 3.5*dx; yp8 = y0 + 4.0*dx;
 drawota(xm3, yp2, x00, 'gm1', 1, ds, F)
 drawota(xm3, ym2, x00, 'gm5', 0, ds, F)
 drawota(xp3, yp1, xp7, 'gm2', 0, ds, F)
 drawota(xp7, y00, xp10,'gm3', 1, ds, F)
 drawota(xp7, ym4, xp10,'gm4', 0, ds, F)
 drawin(xm3, ym1, 'Va', 2, ds, F)
 drawin(xp7, ym3, 'Vb', 2, ds, F)
 drawin(xp12, ym2, 'Vc', 3, ds, F)
 drawc(xp1, y00, yp2, 'c1', 3, ds/2, F)
 drawc(xp12, ym2, y00,'c2', 3, ds/2, F)
 drawjunc(x00, yp2, ' ', 2, 1, F)
 drawjunc(xp1, yp2, 'V1', 2, 1, F)
 drawjunc(xp7, yp1, 'V2', 3, 1, F)
 drawjunc(xp12,y00, 'V3', 0, 1, F)
 drawjunc(xp10,y00, ' ', 0, 1, F)
 drawjunc(xp7,yp5, ' ', 0, 1, F)
 drawgrnd(xm3, yp1, 0, ds/2)
 drawgrnd(xm3, ym3, 0, ds/2)
 drawgrnd(xp1, y00, 0, ds/2)
 drawgrnd(xp3, y00, 0, ds/2)
 drawgrnd(xp7, ym5, 0, ds/2)
 drawgrnd(xp7, ym1, 0, ds/2)
 drawj(x00, yp2, xp3, yp2, 1)
 drawj(x00, yp2, x00, ym2, 1)
 drawj(xp10, y00, xp12, y00, 1)
 drawj(xp10, ym4, xp10, y00, 1)
 drawj(xm3, yp3, xp12, yp5, 1)
 drawj(xp7, yp1, xp7, yp5, 1)
 drawj(xp12, y00, xp12, yp5, 1)

axis('equal')
axis('off')