bdrwload.m

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

function matrixEE = bdrwload(x0,y0,dx,ds,F,Nx,Ny,matrixE)

% bdrwload(x0,y0,dx,ds,F,Nx,Ny,matrixE)
% bdrwload.m  BUTTON LOAD 
% 1:57PM  9/18/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
%

x = zeros(1,4*Nx);
y = zeros(1,4*Ny);
for indx = 1:4*Nx
 x(indx) = x0 + dx*indx/4;
end
for indy = 1:4*Ny
 y(indy) = y0 + dx*indy/4;
end

XS     =['                                                             '];
XS(2,:)=['                                                             '];
indXS = 2;  
fid=fopen('auxfilt.m');
  while 1
    xs = fgetl(fid);
    if ~isstr(xs), break, end
    if (xs(1:3)=='dra')
      maxsizeXS = min(max(size(xs)),61);
      XS(indXS,1:maxsizeXS)=xs(1:maxsizeXS);
      indXS = indXS+1;
    end
  end
fclose(fid);

matrixEE = XS;