drawskoa.m

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

function dr = drawskoa(x0 ,y0 ,dx ,ds ,F ,R)

% drawskoa.m  Draw Sallen-Key 1 biquad (for drawsk2b.m)
% 3:46  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; yAm = y0+1*dx; yV4 = y0+1.5*dx;
yV2 = y0+2*dx; yR2 = y0+3*dx;
drawtext(xV1, yR2, '',F+1)
drawopam(xOA, yV4, xV4, ['A' R(5)], 0, ds, F)
drawr(xV1, yV2, xV2, ['R' R(1)], 0, ds/2, F)
drawr(xV2, yV2, xV3, ['R' R(2)],  0, ds/2, F)
drawc(xV3, yG1, yV2, ['C' R(4)],  1, ds/2, F)
drawc(xV2, yR2, xV4, ['C' R(3)],  0, ds/2, F)
drawjunc(xV2, yV2, ['V' R(6)], 6, 1, F)
drawjunc(xV3, yV2, ['V' R(7)], 2, 1, F)
drawjunc(xV4, yV4, ['V' R(8)], 7, 1, F)
drawgrnd(xV3, yG1, 0, ds/2)
drawj(xOA, yAm, xV4, yG1, 1)
drawj(xV3, yV2, xOA, yV2, 0)
drawj(xV2, yV2, xV2, yR2, 0)
drawj(xV4, yV4, xV4, yR2, 0)
drawj(xV4, yV4, xV4, yG1, 0)

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