bdrwopam.m

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

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

% bdrwopam.m  Draw OpAmp
% 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('OPAMP + input')
  [xe1,ye1]=ginput(1);   xe1 = round(xe1); ye1 =round(ye1)-1;
  title('OPAMP output')
  [xe2,ye2]=ginput(1);   xe2 = round(xe2); ye2 =round(ye2);

if xe2 < (xe1+3)
  xe2 = xe1+3;
end

xy = xe2;
xys ='x';
xyor = 0;

xs = ['drawopam(x(' num2str(xe1) '), y(' num2str(ye1) '), ' xys '(' num2str(xy) ...
     '), '' '', ''A'' ,' num2str(xyor) ', ds, F, dc);'];
  title(' ')

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