afdedit.m

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

                    'speca1=speca;', ...
                    'speca1(2)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(2)=newspeca;', ...
                    'speck(2)=speca(2);', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb2,''String'',num2str(speca(2)));']);

 et3 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.6 0.15 0.06] ...
     , 'String',   'Fpass2');

 eb3 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(3)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.6 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb3,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(3)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(3)=newspeca;', ...
                    'speck(3)=speca(3);', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb3,''String'',num2str(speca(3)));']);

 et4 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.5 0.15 0.06] ...
     , 'String',   'Fstop2');

 eb4 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(4)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.5 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb4,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(4)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(4)=newspeca;', ...
                    'speck(4)=speca(4);', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb4,''String'',num2str(speca(4)));']);

 et5 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.4 0.15 0.06] ...
     , 'String',   'Astop1');

 eb5 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(5)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.4 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb5,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(5)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(5)=newspeca;', ...
                    'speck(5)=afda2k(speca(5));', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb5,''String'',num2str(speca(5)));']);

 et6 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.3 0.15 0.06] ...
     , 'String',   'Apass');

 eb6 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(6)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.3 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb6,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(6)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(6)=newspeca;', ...
                    'speck(6)=afda2k(speca(6));', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb6,''String'',num2str(speca(6)));']);

 et7 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.2 0.15 0.06] ...
     , 'String',   'Astop2');

 eb7 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(7)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.2 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb7,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(7)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(7)=newspeca;', ...
                    'speck(7)=afda2k(speca(7));', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb7,''String'',num2str(speca(7)));']);

 ebt = [eb1, eb2, eb3, eb4, eb5, eb6, eb7, eb8, ...
        et1, et2, et3, et4, et5, et6, et7, et8, ...
        ebb0close, ebb1save];

elseif filnumb==4

 text(0,1.0, 'Bandreject');

 et1 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.8 0.15 0.06] ...
     , 'String',   'Fpass1');

 eb1 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(1)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.8 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb1,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(1)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(1)=newspeca;', ...
                    'speck(1)=speca(1);', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb1,''String'',num2str(speca(1)));']);

 et2 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.7 0.15 0.06] ...
     , 'String',   'Fstop1');

 eb2 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(2)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.7 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb2,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(2)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(2)=newspeca;', ...
                    'speck(2)=speca(2);', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb2,''String'',num2str(speca(2)));']);

 et3 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.6 0.15 0.06] ...
     , 'String',   'Fstop2');

 eb3 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(3)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.6 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb3,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(3)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(3)=newspeca;', ...
                    'speck(3)=speca(3);', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb3,''String'',num2str(speca(3)));']);

 et4 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.5 0.15 0.06] ...
     , 'String',   'Fpass2');

 eb4 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(4)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.5 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb4,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(4)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(4)=newspeca;', ...
                    'speck(4)=speca(4);', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb4,''String'',num2str(speca(4)));']);

 et5 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.4 0.15 0.06] ...
     , 'String',   'Apass1');

 eb5 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(5)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.4 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb5,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(5)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(5)=newspeca;', ...
                    'speck(5)=afda2k(speca(5));', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb5,''String'',num2str(speca(5)));']);

 et6 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.3 0.15 0.06] ...
     , 'String',   'Astop');

 eb6 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(6)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.3 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb6,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(6)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(6)=newspeca;', ...
                    'speck(6)=afda2k(speca(6));', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb6,''String'',num2str(speca(6)));']);

 et7 = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.15 0.2 0.15 0.06] ...
     , 'String',   'Apass2');

 eb7 = uicontrol('Style', 'edit' ...
     , 'String', num2str(speca(7)) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.31 0.2 0.15 0.06] ...
     , 'CallBack', ['newspeca=eval(get(eb7,''String''));', ...
                    'speca1=speca;', ...
                    'speca1(7)=newspeca;', ...
                    'if afdcheck(speca1,filnumb);', ...
                    'speca(7)=newspeca;', ...
                    'speck(7)=afda2k(speca(7));', ...
                    '[nmin,nmax,nincmin,nincmax] = afdorder(speck,filnumb);', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'set(eb7,''String'',num2str(speca(7)));']);

 ebt = [eb1, eb2, eb3, eb4, eb5, eb6, eb7, eb8, ...
        et1, et2, et3, et4, et5, et6, et7, et8, ...
        ebb0close, ebb1save];

else
 error(['AFD ERROR: Unsupported filter type ', num2str(filnumb), '.'])

end