drawhnmq.m

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

function drhnmq = drawhnmq(x0,y0,dx,ds,F)

% drawhnmq.m  Draw highpass notch medium Q-factor OpAmp RC biquad
% 1:37  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:
%   [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
%

xV1 = x0-2.5*dx;  xV1p= x0-2.25*dx;  xV2 = x0-0.5*dx;
xV23= x0;  xV3 = x0+1.5*dx;  xOA = x0+2.0*dx; xV4 = x0+4.0*dx;
yV5 = y0+0.25*dx; yG1 = y0 - 1.131*dx;  yG2 = y0 + 0.87*dx;
yAm2= y0+0.5*dx;  yAm = y0+dx;  yV2 = y0+2.0*dx;
yV4 = y0+1.5*dx;  yR2 = y0+3.5*dx;

 drawtext(xV1p, yR2, 'HPN-MQ',F+2)
  drawopam(xOA, yV4, xV4, 'A', 1, ds, F)
  drawin(xV1, yV2, 'V1', 2, ds, F)
  drawr(xV1, yV2, xV2, 'R1', 0, ds/2, F)
  drawr(xV23,yV5, xOA, 'R7', 2, ds/2, F)
  drawr(xOA, yV5, xV4, 'R9', 2, ds/2, F)
  drawr(xOA, yG1, yV5, 'R8', 1, ds/2, F)
  drawc(xV2, yV2, xV3, 'C4',  0, ds/2, F)
  drawr(xV3, yV2, yR2, 'R5',  3, ds/2, F)
  drawr(xV3, yG2, yV2, 'R6',  1, ds/2, F)
  drawr(xV2, yG2, yV2, 'R2',  1, ds/2, F)
  drawc(xV2, yR2, xV3, 'C3',  0, ds/2, F)
  drawjunc(xV2, yV2, 'V2', 3, 1, F)
  drawjunc(xV3, yV2, 'V3', 1, 1, F)
  drawjunc(xV4, yV4, 'V4', 0, 1, F)
  drawjunc(xOA, yV5, 'V5', 1, 1, F)
  drawjunc(xV23,yV5, '', 0, 1, F)
  drawjunc(xV3, yR2, '', 0, 1, F)
  drawjunc(xV1p,yV2, '', 0, 1, F)
  drawgrnd(xOA, yG1, 0,   ds/2)
  drawgrnd(xV2, yG2, 0,   ds/2)
  drawj(xV23,yV5, xV3, yG2,1)
  drawj(xV4, yV5, xV4, yV4,1)
  drawj(xOA, yV5, xOA, yAm,1)
  drawj(xV1p,yV2, xV23,yV5,1)
  drawj(xV3, yV2, xOA, yV2,0)
  drawj(xV2, yV2, xV2, yR2,0)
  drawj(xV3, yR2, xV4, yV4,0)
axis('equal')
axis('off')