drawapmq.m

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

function drapmq = drawapmq(x0,y0,dx,ds,F)

% drawapmq.m  Draw allpass medium Q-factor OpAmp RC biquad
% 1:27  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; xV2 = x0-0.5*dx; xV3 = x0+1.5*dx;
xOA = x0+1.5*dx;   xV4 = x0+4*dx;
yG1 = y0; yG2 = y0-dx/4; yG3 = y0-1.75*dx;
yAm2 = y0+0.5*dx; yAm = y0+dx;
yV4 = y0+1.5*dx; yV2 = y0+2*dx;   yR2 = y0+2.75*dx;

 drawtext(xV1, yR2, 'AP-MQ',F+2)
  drawopam(xOA, yV4, xV4, 'A', 1, ds, F)
  drawin(xV1, yV2, 'V1', 2, ds, F)
  drawr(xV1, yV2, xV3, 'R6', 0, ds/2, F)
  drawr(xV1, yAm, xOA, 'R1', 0, ds/2, F)
  drawc(xV1, yAm2, xV2, 'C2',  2, ds/2, F)
  drawc(xV2, yAm2, xOA, 'C3',  2, ds/2, F)
  drawr(xV3, yR2, xV4, 'R7',  0, ds/2, F)
  drawr(xV4, yG2, yV4, 'R5',  1, ds/2, F)
  drawr(xV2, yG3, yG2, 'R4',  1, ds/2, F)
  drawjunc(xV3, yV2, 'V3', 6, 1, F)
  drawjunc(xV4, yV4, 'V4', 0, 1, F)
  drawjunc(xV2, yG2, 'V2', 4, 1, F)
  drawjunc(xOA, yAm, 'V5', 2, 1, F)
  drawjunc(xV2, yAm2, '', 2, 1, F)
  drawjunc(xV1, yAm, '', 2, 1, F)
  drawjunc(xV1, yV2, '', 2, 1, F)
  drawgrnd(xV2, yG3, 0, ds/2)
  drawj(xV3, yV2, xOA, yV2,0)
  drawj(xV2, yAm2, xV4, yG2,1)
  drawj(xV3, yV2, xV3, yR2,0)
  drawj(xV4, yR2, xV4, yV4,0)
  drawj(xV1, yAm2, xV1, yV2,0)
  drawj(xOA, yAm2, xOA, yAm,0)
axis('equal')
axis('off')