drawgrnd.m

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

function dr = drawgrnd(a,b,p,s)

% drawgrnd.m  Draw ground
% 1:35  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:
%        Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica
%

if p == 0
 x1 = a + s*[    0, 0];      y1 = b + s*[    0, -0.3];
 x2 = a + s*[-0.15, 0.15];   y2 = b + s*[ -0.3, -0.3];
 x3 = a + s*[ -0.1, 0.1];    y3 = b + s*[-0.35, -0.35];
 x4 = a + s*[-0.05, 0.05];   y4 = b + s*[ -0.4, -0.4];
 line(x1,y1)
 line(x2,y2)
 line(x3,y3)
 line(x4,y4)
elseif p == 1
 x1 = a + s*[   0, 0];     y1 = b + s*[    0, -0.3];
 x2 = a + s*[-0.1, 0.1];   y2 = b + s*[ -0.3, -0.3];
 line(x1,y1)
 line(x2,y2)
elseif p == 2
 x1 = a + s*[    0, 0];      y1 = b + s*[   0, 0.3];
 x2 = a + s*[-0.15, 0.15];   y2 = b + s*[ 0.3, 0.3];
 x3 = a + s*[ -0.1, 0.1];    y3 = b + s*[0.35, 0.35];
 x4 = a + s*[-0.05, 0.05];   y4 = b + s*[ 0.4, 0.4];
 line(x1,y1)
 line(x2,y2)
 line(x3,y3)
 line(x4,y4)
else
 x1 = a + s*[   0, 0];     y1 = b + s*[  0, 0.3];
 x2 = a + s*[-0.1, 0.1];   y2 = b + s*[0.3, 0.3];
 line(x1,y1)
 line(x2,y2)
end