drawhplq.m

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

function drhplq = drawhplq(x0,y0,dx,ds,F)

% drawhplq.m  Draw highpass low Q-factor OpAmp RC biquad
% 1:39  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+2*dx;  xV4 = x0+4*dx;
yG1 = y0; yAm2 = y0+0.5*dx; yAm = y0+dx;
yV4 = y0+1.5*dx; yV2 = y0+2*dx; yR2 = y0+3*dx;

  drawtext(xV1, yR2, 'HP-LQ',F+2)
  drawopam(xOA, yV4, xV4, 'A', 0, ds, F)
  drawin(xV1, yV2, 'V1', 2, ds, F)
  drawc(xV1, yV2, xV2, 'C11', 0, ds/2, F)
  drawc(xV2, yG1, yV2, 'C12', 1, ds/2, F)
  drawc(xV2, yV2, xV3, 'C3',  0, ds/2, F)
  drawr(xV3, yG1, yV2, 'R4',  1, ds/2, F)
  drawr(xV2, yR2, xV4, 'R2',  0, ds/2, F)
  drawjunc(xV2, yV2, 'V2', 3, 1, F)
  drawjunc(xV3, yV2, 'V3', 2, 1, F)
  drawjunc(xV4, yV4, 'V4', 0, 1, F)
  drawgrnd(xV2, yG1, 0, ds/2)
  drawgrnd(xV3, yG1, 0, ds/2)
  drawj(xOA, yAm, xV4, yAm2,1)
  drawj(xV3, yV2, xOA, yV2, 0)
  drawj(xV2, yV2, xV2, yR2, 0)
  drawj(xV4, yV4, xV4, yR2, 0)
  drawj(xV4, yV4, xV4, yAm2,0)
axis('equal')
axis('off')