drawccsk.m

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

function drccsk = drawccsk(x0,y0,dx,ds,F)

% drawccsk.m  Draw CC Sallen-Key biquad
% 1:41  24/2/99
%
%            Album of Analog Filter Realizations
%
%   Authors: Dejan V. Tosic, Miroslav D. Lutovac, 1999.02.22
%                 [e-mail]
%                 [e-mail]
%
%   Copyright (c) 1999 by Tosic & Lutovac
%   $Revision: 1.0 $  $Date: 1999/02/22 02:17:42 $
%
%   References:
%   [1]  Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica
%

xV1 = x0-2.5*dx; xV2 = x0-0.5*dx;
xV3 = x0+1.5*dx; xOA = x0+2*dx; xV4 = x0+4*dx; xV5 = x0+5*dx;
yG1 = y0; yAm = y0+1*dx; yV4 = y0+1.5*dx;
yV2 = y0+2*dx; yR2 = y0+3*dx; ytext = y0+4*dx;
 drawtext(xV2, ytext, 'CC Sallen-Key biquad',F+2)
 drawcc(xOA, yV4, xV4, 'a=1', 3, ds, 10)
 drawcs(xV5, yG1, yV2, 'Ig', 1, ds/2, F)
 drawr(xV1, yV2, xV2, 'R1', 0, ds/2, F)
 drawr(xV2, yV2, xV3, 'R3', 0, ds/2, F)
 drawc(xV3, yG1, yV2, 'C4', 1, ds/2, F)
 drawc(xV2, yR2, xV4, 'C2', 0, ds/2, F)
 drawjunc(xV2, yV2, 'V2', 3, 1, F)
 drawjunc(xV3, yV2, 'V3', 2, 1, F)
 drawjunc(xV4, yV2, 'Vo', 1, 1, F)
 drawgrnd(xV1, yG1, 0, ds/2)
 drawgrnd(xV3, yG1, 0, ds/2)
 drawgrnd(xV4, yAm, 0, ds/2)
 drawgrnd(xV5, yG1, 0, ds/2)
 drawj(xOA, yV4, xOA, yV2, 1)
 drawj(xV3, yV2, xOA, yV2, 0)
 drawj(xV2, yV2, xV2, yR2, 0)
 drawj(xV4, yV2, xV4, yR2, 0)
 drawj(xV1, yG1, xV1, yV2, 0)
 drawj(xV4, yV2, xV5, yV2, 0)
 drawarrw(xV1, yV2-dx,'Io',3,1,8)

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