example3.m

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

function dr = example3(x0,y0,dx,ds,F)
% example3.m  Digital filter realization 
%            generated from the drawing window of the toolbox
%           "Drawing Digital Filter Realizations v1.0 beta"
%            by Miroslav D. Lutovac and Dejan V. Tosic (c) 1999 
%                                       
% Note:      Edit auxfilt.m file by an ASCII text editor
%            to adjust advanced drawing options, and
%            save the revision under a different name.
%                                       
% See also:  Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           "Advanced Filter Design for Signal Processing
%            Using MATLAB and Mathematica"
%            http://galeb.etf.bg.ac.yu/~lutovac
%            http://telekom.etf.bg.ac.yu/~tosic
%                                       
% Contact:   Please, send your comments at
%             [e-mail]
%             [e-mail]
%                                       
%            Your suggestions are appreciated!
%                                       
% call   example3(0,0,4,5,10)
% creation date: 19-Sep-99  time: 22:15
Nx = 7;
Ny = 5;
whitebg(figure(gcf),[1 1 1]);
dc = 'k';
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
drawin(x(3), y(7+9), 'IN', 2, ds, F, dc);                      
drawnode(x(3), y(7+9), ' ', 1, 1, F,'g');
drawadd(x(3),y(7+9),1,0,3,2,'',1,ds/3,F,dc);                   
drawmult(x(4), y(7+8), x(8), 'a', ' ' ,0, ds/3, F, dc);        
drawadd(x(8),y(7+8),0,3,1,2,'',3,ds/3,F,dc);                   
drawlvh(x(5), y(7+9),  x(9),  y(7+9), 0, dc);                    
drawnode(x(9), y(7+9), ' ', 1, 1, F, dc);                      
drawadd(x(3),y(7+7),1,3,0,2,'',3,ds/3,F,'b');
drawlvh(x(9), y(7+7),  x(5),  y(7+7), 0, dc);                    
drawnode(x(4), y(7+8), ' ', 1, 1, F, dc);                      
drawdel(x(9), y(7+7), x(12), ' ', '-1' ,14, ds/2,F,dc);      
drawline(x(3), y(7+7), x(3), y(7+5),'y');
drawout(x(3), y(7+5), 'OUT', 0, ds, F,'y');
drawline(x(9), y(7+9), x(12), y(7+9), dc);                       
drawtext(x(5),y(7+10),'deleted(yellow), copy(red),',F+1,dc);
drawnode(x(9), y(7+7), ' ', 1, 1, F,dc);
drawline(x(3), y(7+9), x(3), y(7+2),'g');
drawlhv(x(4), y(7+6), x(15), y(7+4),0, 'g');
% add new drawings
drawline(x(12), y(7+9), x(13), y(7+7), 'k');
drawline(x(13), y(7+9), x(12), y(7+7), 'k');
% copy/paste
%drawin(x(10+3), y(7+9), 'IN', 2, ds, F, 'y');
% modified adder
drawadd(x(10+3),y(7+9),3,0,1,2,'',1,ds/3,F,'k');                   
drawmult(x(10+4), y(7+8), x(10+8), 'b', ' ' ,0, ds/3, F, dc);        
drawadd(x(10+8),y(7+8),0,1,1,2,'',3,ds/3,F,'k');                   
drawlvh(x(10+5), y(7+9),  x(10+9),  y(7+9), 0, dc);                    
drawnode(x(10+9), y(7+9), ' ', 1, 1, F, dc);                      
drawadd(x(10+3),y(7+7),1,3,2,0,'',3,ds/3,F,dc);                   
drawlvh(x(10+9), y(7+7),  x(10+5),  y(7+7), 0, dc);                    
drawnode(x(10+4), y(7+8), ' ', 1, 1, F, dc);                      
drawdel(x(10+9),y(7+7),x(10+12),' ','-1',14,ds/2,F,dc);      
%drawline(x(10+3), y(7+7), x(10+3), y(7+5), 'y');
%drawout(x(10+3), y(7+5), 'OUT', 0, ds, F, 'y');
drawline(x(10+9), y(7+9), x(10+12), y(7+9), dc);                       
drawtext(x(10+5),y(7+10),'new(green), modified(blue)',F+1,dc);
drawnode(x(10+9), y(7+7), ' ', 1, 1, F,dc);
% add new drawings
drawline(x(10+12), y(7+9), x(10+12), y(7+7), 'k');                       
%drawin(x(3), y(9), 'IN', 2, ds, F, 'y');
drawadd(x(3),y(9),3,0,1,2,'',1,ds/3,F,'r');                   
drawmult(x(4), y(8), x(8), 'c', ' ' ,0, ds/3, F,'r');
drawadd(x(8),y(8),0,1,1,2,'',3,ds/3,F,'r');
drawlvh(x(5), y(9),  x(9),  y(9), 0,'r');
drawnode(x(9), y(9), ' ', 1, 1, F,'r');                      
drawadd(x(3),y(7),1,3,0,2,'',3,ds/3,F,'b');
drawlvh(x(9), y(7),  x(5),  y(7), 0,'r');                    
drawnode(x(4), y(8), ' ', 1, 1, F,'r');                      
drawdel(x(9), y(7),x(12),' ','-1' ,14,ds/2,F,'r');
%drawline(x(3), y(7), x(3), y(5), 'y');
%drawout(x(3), y(5), 'OUT', 0, ds, F, 'y');
drawline(x(9), y(9), x(12), y(9),'r');
%drawtext(x(5), y(10), 'new (grin) and modified (blue)', F+1, dc);
drawnode(x(9), y(7), ' ', 1, 1, F,'r');
drawline(x(12), y(9), x(12), y(7), 'g');
drawlhv(x(4), y(6), x(15), y(9),0, 'g');
drawadd(x(14),y(10),2,1,0,1,'',3,ds/3,F,'g');
drawout(x(16), y(10), 'OUT', 0, ds, F, 'g');
axis('equal')
axis('off')