drawgphq.m

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

function dr = drawgphq(x0,y0,dx,ds,F)

% drawgphq.m  Draw general purpose high Q-factor OpAmp RC biquad
% 1:42  24/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:
%   [1]  Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica
%
%   [2]                G. S. Moschytz, P. Horn
%                   Active Filter Design Handbook
%                    John Wiley, New York, 1981
%
%   [3]     W. J. Kerwin, L. P. Huelsman, and R. W. Newcomb,
%               State-variable synthesis for insensitive
%                 integrated circuit transfer functions,
%                 IEEE J. Solid-State Circuits,
%                 SC-2, pp. 87-92, September, 1967.

xm5 = x0 - 2.5*dx; xm6 = x0 - 3.0*dx; xm3 = x0 - 1.5*dx; 
x00 = x0;          xp3 = x0 + 1.5*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;
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;

 drawtext(xm5, yp6, 'GP-HQ',F+2)
  drawopam(xm3, yp1, x00, 'A1', 1, ds, F)
  drawopam(xp3, y00, xp6, 'A2', 1, ds, F)
  drawopam(xp9, ym1, xp12,'A3', 1, ds, F)
  drawin(xm6, y00, 'V1', 1, ds, F)
  drawr(xm3, yp4, x00, 'R4', 0, ds/2, F)
  drawc(xp3, yp3, xp6, 'C6', 0, ds/2, F)
  drawr(xm3, yp6, xp12,'R3', 0, ds/2, F)
  drawr(x00, yp1, xp3, 'R5', 0, ds/2, F)
  drawr(xm3, ym3, y00, 'R2',  3, ds/2, F)
  drawr(xp6, y00, xp9, 'R7',  0, ds/2, F)
  drawr(xm6, y00, xm3, 'R1',  2, ds/2, F)
  drawc(xp9, yp2, xp12,'C8',  0, ds/2, F)
  drawjunc(xp3, yp1, 'V6', 6, 1, F)
  drawjunc(x00, yp1, 'V2', 6, 1, F)
  drawjunc(xp6, y00, 'V3', 7, 1, F)
  drawjunc(xp12,ym1, 'V4', 6, 1, F)
  drawjunc(xp9, y00, 'V7', 6, 1, F)
  drawjunc(xp12,yp2, '', 0, 1, F)
  drawjunc(xm3,y00, 'V8', 3, 1, F)
  drawjunc(xm3, yp4, 'V5', 4, 1, F)
  drawgrnd(xp3, ym1, 0, ds/2)
  drawgrnd(xp9, ym2, 0, ds/2)
  drawj(xm3, ym3, xp6, y00, 0)
  drawj(xp3, yp1, xp3, yp3, 0)
  drawj(xp6, y00, xp6, yp3, 0)
  drawj(xp9, y00, xp9, yp2, 0)
  drawj(xp12,ym1, xp12,yp6, 0)
  drawj(xm3,yp2, xm3,yp6, 0)
  drawj(x00,yp1, x00,yp4, 0)  

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