butdraw.m

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

% butdraw 
% 
% 8:55PM  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
%

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'''];
ddfrx=  ['''EXAMPLE from example6.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;'];

uvR = uicontrol('String', 'DELAY', 'Units', 'normalized' ...
     , 'Position', [0.01 0.91 0.09 0.05], 'CallBack', ...
     [trdr '[xs,matrixE]=bdrwdel(matrixE,x,y,ds,F,dc);butdraw']);
uvC = uicontrol('String', 'MULT', 'Units', 'normalized' ...
     , 'Position', [0.01 0.84 0.09 0.05], 'CallBack', ...
     [trdr '[xs,matrixE]=bdrwmult(matrixE,x,y,ds,F,dc);butdraw']);

uvA = uicontrol('String', 'ADDER', 'Units', 'normalized' ...
     , 'Position', [0.01 0.77 0.09 0.05], 'CallBack', ...
     [trdr '[xs,matrixE]=bdrwadd(matrixE,x,y,ds,F,dc);' rdr]);

uvJ = uicontrol('String', '__I', 'Units', 'normalized' ...
     , 'Position', [0.01 0.70 0.08 0.05], 'CallBack', ...
     [trdr '[xs,matrixE]=bdrwlhv(matrixE,x,y,ds,F,dc);butdraw']);
uvJJ= uicontrol('String', 'I__', 'Units', 'normalized' ...
     , 'Position', [0.01 0.63 0.08 0.05], 'CallBack', ...
     [trdr '[xs,matrixE]=bdrwlvh(matrixE,x,y,ds,F,dc);butdraw']);
uvG = uicontrol('String', 'LINE', 'Units', 'normalized' ...
     , 'Position', [0.01 0.56 0.08 0.05], 'CallBack', ...
     [trdr '[xs,matrixE]=bdrwline(matrixE,x,y,ds,F,dc);butdraw']);
uvN = uicontrol('String', 'NODE', 'Units', 'normalized' ...
     , 'Position', [0.01 0.49 0.08 0.05], 'CallBack', ...
     [trdr '[xs,matrixE]=bdrwnode(matrixE,x,y,ds,F,dc);butdraw']);
uvI = uicontrol('String', 'IN', 'Units', 'normalized' ...
     , 'Position', [0.01 0.42 0.08 0.05], 'CallBack', ...
     [trdr '[xs,matrixE]=bdrwin(matrixE,x,y,ds,F,dc);butdraw']);
uvO = uicontrol('String', 'OUT', 'Units', 'normalized' ...
     , 'Position', [0.01 0.35 0.08 0.05], 'CallBack', ...
     [trdr '[xs,matrixE]=bdrwout(matrixE,x,y,ds,F,dc);butdraw']);
uvT = uicontrol('String', 'TEXT', 'Units', 'normalized' ...
     , 'Position', [0.01 0.28 0.08 0.05], 'CallBack', ...
     [trdr '[xs,matrixE]=bdrwtext(matrixE,x,y,ds,F,dc);butdraw']);

uvcopx = uicontrol('String', 'copy x', 'Units', 'normalized' ...
     , 'Position', [0.01 0.21 0.08 0.05], 'CallBack', ...
    [trdr 'matrixE = bdrwcopx(matrixE); ' rdr]);

uvcopy = uicontrol('String', 'copy y', 'Units', 'normalized' ...
     , 'Position', [0.01 0.14 0.08 0.05], 'CallBack', ...
    [trdr 'matrixE = bdrwcopy(matrixE); ' rdr]);

ui5 = uicontrol('String', 'close', 'Units', 'normalized' ...
     , 'Position', [0.92 0.90 0.09 0.05], 'CallBack', 'close');

ui4 = uicontrol('String', 'VIEW', 'Units', 'normalized' ...
     , 'Position', [0.92 0.82 0.09 0.05], 'CallBack'...
 ,['fh2=figure(2);clf;set(fh2,''Name'',' ...
  ddfr ');clear auxfilt;auxfilt(0,0,4,5,10);whitebg(fh2,[1 1 1])']);

ui3 = uicontrol('String', 'SAVE', 'Units', 'normalized' ...
     , 'Position', [0.92 0.74 0.09 0.05] ...
     , 'CallBack', 'bdrwsave(matrixE);');
ui2 = uicontrol('String', 'LOAD', 'Units', 'normalized' ...
     , 'Position', [0.92 0.66 0.09 0.05], 'CallBack', ...
'clf;[x,y]= drawgrid(x0,y0,dx,ds,F,Nx,Ny); matrixE=bdrwload(x0,y0,dx,ds,F,Nx,Ny,matrixE); bdrwredr(x0,y0,dx,ds,F,Nx,Ny,matrixE,dc);butdraw');
ui1 = uicontrol('String', 'redraw', 'Units', 'normalized' ...
     , 'Position', [0.92 0.58 0.09 0.05], 'CallBack', ...
 'clf;[x,y]= drawgrid(x0,y0,dx,ds,F,Nx,Ny);bdrwredr(x0,y0,dx,ds,F,Nx,Ny,matrixE,dc);butdraw');

uie = uicontrol('String', 'EDIT', 'Units', 'normalized' ...
     , 'Position', [0.92 0.50 0.09 0.05], 'CallBack', ...
   [trdr 'matrixE = bdrwedit(matrixE); ' rdr]);

uima = uicontrol('String', 'MA', 'Units', 'normalized' ...
     , 'Position', [0.92 0.36 0.09 0.05], 'CallBack', ...
   'matrixEma = bdrwma(matrixE);');


udd = uicontrol('String', 'DELETE', 'Units', 'normalized' ...
     , 'Position', [0.01 0.01 0.10 0.05],'CallBack', ...
   [rdr ';[matrixE]=bdelete(x0,y0,dx,ds,F,Nx,Ny,matrixE);butdraw']);


uieps = uicontrol('String', 'EPS', 'Units', 'normalized' ...
     , 'Position', [0.92 0.30 0.09 0.05], 'CallBack', ...
['fh2=figure(2);set(fh2,''Name'',' ...
  ddfre ');clf;whitebg(fh2,[1 1 1]);clear auxfilt;auxfilt(0,0,4,5,10);print -deps auxfilt.eps']);

uic = uicontrol('String', 'NEW', 'Units', 'normalized' ...
     , 'Position', [0.92 0.42 0.09 0.05], 'CallBack', ...
 'clf;[x,y]= drawgrid(x0,y0,dx,ds,F,Nx,Ny);matrixE=matrixEnew;butdraw');

uiexs = uicontrol('String', 'examples', 'Units', 'normalized' ...
     , 'Position', [0.89 0.20 0.12 0.05], 'CallBack', ...
 ['fh2=figure(2);clf;set(fh2,''Name'',' ddfrx ');example6']);
uiex1 = uicontrol('String', '1', 'Units', 'normalized' ...
     , 'Position', [0.89 0.15 0.025 0.05], 'CallBack', ...
 ['fh2=figure(2);clf;set(fh2,''Name'',' ddfr1 ');example1(0,0,4,5,10)']);
uiex2 = uicontrol('String', '2', 'Units', 'normalized' ...
     , 'Position', [0.92 0.15 0.025 0.05], 'CallBack', ...
 ['fh2=figure(2);clf;set(fh2,''Name'',' ddfr2 ');example2(0,0,4,5,10)']);
uiex3 = uicontrol('String', '3', 'Units', 'normalized' ...
     , 'Position', [0.95 0.15 0.025 0.05], 'CallBack', ...
 ['fh2=figure(2);clf;set(fh2,''Name'',' ddfr3 ');example3(0,0,4,5,10)']);

uiex4 = uicontrol('String', '4', 'Units', 'normalized' ...
     , 'Position', [0.98 0.15 0.025 0.05], 'CallBack', ...
 ['fh2=figure(2);clf;set(fh2,''Name'',' ddfr4 ');example4(0,0,4,5,10)']);

%uvnet = uicontrol('String', 'net', 'Units', 'normalized' ...
%     , 'Position', [0.92 0.08 0.08 0.05], 'CallBack', ...
%    [trdr 'netlist = bdrwnet(matrixE); ' rdr]);

uiinf= uicontrol('String', 'info', 'Units', 'normalized' ...
     , 'Position', [0.92 0.01 0.09 0.05] ...
  , 'CallBack', 'clf,bdrwinfo(dx,Ny);butdraw;txtst=1;');

title('PRESS a button')