drawbrlq.m

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

function drbrlq = drawbrlq(x0,y0,dx,ds,F)

% drawbrlq.m  Draw bandreject low Q-factor OpAmp RC biquad
% 1:31  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;
xV3 = x0+1.5*dx;  xOA  = x0+2.0*dx;  xV4 = x0+4.0*dx;
yG1 = y0/2; yAm2 = y0+0.5*dx; yAm = y0+dx; yV4 = y0+1.5*dx;
yV2 = y0+2*dx; yR2 = y0+3.5*dx;

  drawtext(xV1, yR2, 'BR-LQ',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(xV1p, yAm, xOA, 'R5', 0, ds/2, F)
  drawr(xOA, yG1, yAm, 'R6', 1, ds/2, F)
  drawc(xV2, yV2, xV3, 'C3',  0, ds/2, F)
  drawr(xV3, yV2, yR2, 'R4',  3, ds/2, F)
  drawc(xV2, yR2, xV3, 'C2',  0, ds/2, F)
  drawjunc(xV2, yV2, 'V2', 3, 1, F)
  drawjunc(xV3, yV2, 'V3', 6, 1, F)
  drawjunc(xV4, yV4, 'V4', 0, 1, F)
  drawjunc(xOA, yAm, 'V5', 2, 1, F)
  drawjunc(xV3, yR2, '', 0, 1, F)
  drawjunc(xV1p, yV2, '', 0, 1, F)
  drawgrnd(xOA, yG1, 0,   ds/2)
  drawj(xV1p, yV2, xV1p, yAm,1)
  drawj(xV3, yV2, xOA, yV2,0)
  drawj(xV2, yV2, xV2, yR2,0)
  drawj(xV3, yR2, xV4, yV4,0)
axis('equal')
axis('off')