demoda.m

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

clear all; close all
fh2 = figure(2); axis off;
fh1 = figure(1); axis off;
dc = 'b';
matrixEnew = ['                                                             '];
rdr = 'clf;[x,y]= drawgrid(x0,y0,dx,ds,F,Nx,Ny);bdrwredr(x0,y0,dx,ds,F,Nx,Ny,matrixE,dc);butdraw';
ddfr =  ['''VIEW realization from auxfilt.m''' ',''NumberTitle'', ''off'''];
ddfre=  ['''Make EPS file from auxfilt.m''' ',''NumberTitle'', ''off'''];
ddfr1=  ['''EXAMPLE from example1.m''' ',''NumberTitle'', ''off'''];
ddfr2=  ['''EXAMPLE from example2.m''' ',''NumberTitle'', ''off'''];
ddfr3=  ['''EXAMPLE from example3.m''' ',''NumberTitle'', ''off'''];
ddfr4=  ['''EXAMPLE from example4.m''' ',''NumberTitle'', ''off'''];
trdr = ['if txtst==1;' rdr ';txtst=0; end;'];

xx=get(fh1,'Position')+[50 50 0 0];
set(fh2,'Position',xx);
set(fh1, 'Name', 'Draw Analog Filter Realizations v1.0 beta'...
   , 'NextPlot', 'add','NumberTitle', 'off')
whitebg(fh1,[0.9 0.9 0.7]);
x0 = 0;  y0 = 0; F = 10; dx = 4; ds = 5;
Nx = 7; Ny = 5; dc = 'k'; dc = 'b';

matrixE = ['                                                             '];
XS = ['                                                             '];
txtst = 1;
clf
Nydx = 1;

clf;[x,y]=drawgrid(x0,y0,dx,ds,F,Nx,Ny);
butdraw
matrixE=bdrwload(x0,y0,dx,ds,F,Nx,Ny,matrixE);
[s1,s2] = size(matrixE);

if s1 > 10
  s1 = 10;
end

for inds = 1:s1
  mxE = matrixE(1:inds,:);
  bdrwredr(x0,y0,dx,ds,F,Nx,Ny,mxE,dc); pause(0.1)
end

fh2=figure(2);clf;set(fh2,'Name',ddfr);
clear auxfilt; auxfilt(0,0,4,5,10);whitebg(fh2,[1 1 1]); pause(3)
fh2=figure(2);clf;example1(0,0,4,5,10); pause(3)
fh2=figure(2);clf;example2(0,0,4,5,10); pause(3)
fh2=figure(2);clf;example3(0,0,4,5,10); pause(3)
fh2=figure(2);clf;example4(0,0,4,5,10); pause(3)

disp(' ')
disp(' ')
disp(' Invoke this toolbox by executing')
disp('                         drawafil')
disp('---------------------------------')
disp(' ')
disp(' ')
drawafil