bdrwcap.m

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

function [xs,matrixE] = bdrwcap(matrixE,x,y,ds,F, dc)

% bdrwcap.m  Draw CAPACITOR
% 8:57PM  9/16/99
%
%            Drawing Filter Realizations
%
%   Authors: Miroslav D. Lutovac, Dejan V. Tosic, 8/23/99
%                 [e-mail]
%                 [e-mail]
%
%   Copyright (c) 1999 by Lutovac & Tosic
%   $Revision: 1.0 $  $Date: 4:51PM  8/23/99 $
%
%   References:
%        Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica
%

if exist('dc') == 0
 dc = '''r''';
end

XS = ['                                                             '];
  title('CAPACITOR 1st node')
  [xe1,ye1]=ginput(1);   xe1 = round(xe1); ye1 =round(ye1);
  title('CAPACITOR 2nd node')
  [xe2,ye2]=ginput(1);   xe2 = round(xe2); ye2 =round(ye2);
  if abs(xe2-xe1) >= abs(ye2-ye1)
   xy = xe2;
   xys ='x';
   xyor = 0;
   if xy < xe1  
    xtmp = xy;
    xy  = xe1;
    xe1 = xtmp;
   xyor = 2;
   end
  else
   xy = ye2;
   xys ='y';
   xyor = 1;
   if xy < ye1  
    ytmp = xy;
    xy  = ye1;
    ye1 = ytmp;
   xyor = 3;
   end
  end

xs = ['drawcap(x(' num2str(xe1) '), y(' num2str(ye1) '), ' xys '(' num2str(xy) ...
     '), '' '', ''C'' ,' num2str(xyor) ', ds/2, F, dc);'];
  title(' ')

XS(1:max(size(xs)))=xs;
eval(xs);
matrixE=[matrixE;XS];