bdrwsave.m

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

function xs = bdrwsave(matrixE)
% bdrwsave.m  BUTTON SAVE
% 8:57PM  9/16/99
%
%            Drawing Filter Realizations
%
%   Authors: Miroslav D. Lutovac, Dejan V. Tosic, 1999.02.21
%                 [e-mail]
%                 [e-mail]
%
%   Copyright (c) 1999 by Lutovac & Tosic
%   $Revision: 1.0 $  $Date: 1999/08/21 02:17:42 $
%
%   References:
%        Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica
%
delete auxfilt.m
diary  auxfilt.m
disp('function dr = auxfilt(x0,y0,dx,ds,F)')
disp('% auxfilt.m  Digital filter realization ')
disp('%            generated from the drawing window of the toolbox')
disp('%           "Drawing Digital Filter Realizations v1.0 beta"')
disp('%            by Miroslav D. Lutovac and Dejan V. Tosic (c) 1999 ')
disp('%                                       ')
disp('% Note:      Edit this file by an ASCII text editor and')
disp('%            save the new file under a different name.')
disp('%                                       ')
disp('% See also:  Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans')
disp('%           "Advanced Filter Design for Signal Processing')
disp('%            Using MATLAB and Mathematica"')
disp('%            http://galeb.etf.bg.ac.yu/~lutovac')
disp('%            http://telekom.etf.bg.ac.yu/~tosic')
disp('%                                       ')
disp('% Contact:   Please, send your comments at')
disp('%             [e-mail]')
disp('%             [e-mail]')
disp('%                                       ')
disp('%            Your suggestions are appreciated!')
disp('%                                       ')
disp('% call   auxfilt(0,0,4,5,10)')
timedraw = clock;
tmpstr = ['% creation date: ' date '  time: ' num2str(timedraw(4)) ':' num2str(timedraw(5))];
disp(tmpstr)
disp('Nx = 7;')
disp('Ny = 5;')
disp('whitebg(figure(gcf),[1 1 1]);')
disp('dc = ''k'';')
disp('x = zeros(1,4*Nx);')
disp('y = zeros(1,4*Ny);')
disp('for indx = 1:4*Nx')
disp(' x(indx) = x0 + dx*indx/4;')
disp('end')
disp('for indy = 1:4*Ny')
disp(' y(indy) = y0 + dx*indy/4;')
disp('end')
matrixE(1,:)=[];
disp(matrixE)
disp('axis(''equal'')')
disp('axis(''off'')')
xs = matrixE;
diary  off