drawcc.m

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

function drcc = drawcc(c,d,f,t,p,s,F)

% drawcc.m  Draw Current-Conveyor
% 1:41  24/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:
%        Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica
%

a=(f+c)/2-0.4*s;
b=d;
g=c;
h=(f+d)/2-0.4*s;
if p == 0
 x1 = a + s*[0.6, 0.6, 0.2, 0.2, 0.6, 0.6, (f-a)/s];
 y1 = b + s*[  0, 0.3, 0.3,-0.3,-0.3,   0,  0];
 x2 = a + s*[(c-a)/s, 0.2];  y2 = b + s*[  0.2, 0.2];
 x3 = a + s*[(c-a)/s, 0.2];  y3 = b + s*[ -0.2,-0.2];
 x4 = a + s*[ 0.24, 0.28];   y4 = b + s*[-0.15,-0.2];
 x5 = a + s*[ 0.32, 0.28, 0.28];   y5 = b + s*[-0.15,-0.2, -0.25];
 x6 = a + s*[ 0.48, 0.56, 0.48, 0.56];  y6 = b + s*[ 0.05, 0.05,-0.05,-0.05];
 x7 = a + s*[ 0.24, 0.32];   y7 = b + s*[ 0.15, 0.25];
 x8 = a + s*[ 0.32, 0.24];   y8 = b + s*[ 0.15, 0.25];
 line(x1,y1);  line(x2,y2);  line(x3,y3);
 line(x4,y4);  line(x5,y5);  line(x6,y6);
 line(x7,y7);  line(x8,y8);
 text(a+s*0.4,b+s*0.35,t,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','center','VerticalAlignment','bottom')
elseif p ==1
 x1 = a + s*[0.6, 0.6, 0.2, 0.2, 0.6, 0.6, (f-a)/s];
 y1 = b + s*[  0, 0.3, 0.3,-0.3,-0.3,   0,  0];
 x2 = a + s*[(c-a)/s, 0.2];  y2 = b + s*[  0.2, 0.2];
 x3 = a + s*[(c-a)/s, 0.2];  y3 = b + s*[ -0.2,-0.2];
 x4 = a + s*[ 0.24, 0.28];   y4 = b + s*[0.25,0.2];
 x5 = a + s*[ 0.32, 0.28, 0.28];   y5 = b + s*[0.25,0.2, 0.15];
 x6 = a + s*[ 0.48, 0.56, 0.48, 0.56];  y6 = b + s*[ 0.05, 0.05,-0.05,-0.05];
 x7 = a + s*[ 0.24, 0.32];   y7 = b + s*[-0.15,-0.25];
 x8 = a + s*[ 0.32, 0.24];   y8 = b + s*[-0.15,-0.25];
 line(x1,y1);  line(x2,y2);  line(x3,y3);
 line(x4,y4);  line(x5,y5);  line(x6,y6);
 line(x7,y7);  line(x8,y8);
 text(a+s*0.4,b+s*0.35,t,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','center','VerticalAlignment','bottom')
elseif p ==2
 x1 = a + s*[0.2, 0.2, 0.6, 0.6, 0.2, 0.2, (c-a)/s];
 y1 = b + s*[  0, 0.3, 0.3,-0.3,-0.3,   0,  0];
 x2 = a + s*[(f-a)/s, 0.6];  y2 = b + s*[  0.2, 0.2];
 x3 = a + s*[(f-a)/s, 0.6];  y3 = b + s*[ -0.2,-0.2];
 x6 = a + s*[ 0.24, 0.32, 0.24, 0.32];  y6 = b + s*[ 0.05, 0.05,-0.05,-0.05];
 x4 = a + s*[ 0.48, 0.56];   y4 = b + s*[-0.15,-0.25];
 x5 = a + s*[ 0.48, 0.52, 0.52];   y5 = b + s*[0.25,0.2,0.15];
 x7 = a + s*[ 0.56, 0.48];   y7 = b + s*[-0.15,-0.25];
 x8 = a + s*[ 0.56, 0.52];   y8 = b + s*[0.25,0.2];
 line(x1,y1);  line(x2,y2);  line(x3,y3);   line(x6,y6);
 line(x4,y4);
  line(x5,y5);
 line(x7,y7);  line(x8,y8);
 text(a+s*0.4,b+s*0.35,t,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','center','VerticalAlignment','bottom')
else
 x1 = a + s*[0.2, 0.2, 0.6, 0.6, 0.2, 0.2, (c-a)/s];
 y1 = b + s*[  0, 0.3, 0.3,-0.3,-0.3,   0,  0];
 x2 = a + s*[(f-a)/s, 0.6];  y2 = b + s*[  0.2, 0.2];
 x3 = a + s*[(f-a)/s, 0.6];  y3 = b + s*[ -0.2,-0.2];
 x4 = a + s*[ 0.48, 0.56];   y4 = b + s*[0.15,0.25];
 x5 = a + s*[ 0.48, 0.52, 0.52];   y5 = b + s*[-0.15,-0.2,-0.25];
 x6 = a + s*[ 0.24, 0.32, 0.24, 0.32];  y6 = b + s*[ 0.05, 0.05,-0.05,-0.05];
 x7 = a + s*[ 0.56, 0.48];   y7 = b + s*[0.15,0.25];
 x8 = a + s*[ 0.56, 0.52];   y8 = b + s*[-0.15,-0.2];
 line(x1,y1);  line(x2,y2);  line(x3,y3);
 line(x4,y4);  line(x5,y5);  line(x6,y6);
 line(x7,y7);  line(x8,y8);
 text(a+s*0.4,b+s*0.35,t,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','center','VerticalAlignment','bottom')
end