dfdesbut.m

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

% dfdesbut.m  dfd Buttons (script)
% 15:42  7/3/99
%
%   Authors: Dejan V. Tosic, Miroslav D. Lutovac, 1999.03.07
%                 [e-mail]
%                 [e-mail]
%
%   Copyright (c) 1999 by Tosic & Lutovac
%   $Revision: 1.0 $  $Date: 1999/03/07 03:07:42 $
%
%   References:
%        Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica

%  calls:
%% dfdesign.m, dfddemo.m, dfdopen.m, dfdview.m, dfdedit.m
%% dfdplot.m, dfdpass.m, dfdtran.m, dfdstop.m, dfdzoom.m
%% dfdd1.m, dfdd2.m, dfdd3a.m, dfdd3b.m, dfdd4a.m, dfdd4b.m
%% dfdd5.m, dfd2d5.m, dfd3d5.m, 

bb0close = uicontrol('String', 'close', 'Units', 'normalized' ...
     , 'Position', [0.93 0.94 0.07 0.05] ...
     , 'CallBack', 'close all');

bb1reset = uicontrol('String', 'reset', 'Units', 'normalized' ...
     , 'Position', [0.93 0.88 0.07 0.05] ...
     , 'CallBack', 'dfdesign');

%bb2white = uicontrol('String', 'white', 'Units', 'normalized' ...
%     , 'Position', [0.93 0.82 0.07 0.05] ...
%     , 'CallBack', 'whitebg');

bb3grid = uicontrol('String', 'grid', 'Units', 'normalized' ...
     , 'Position', [0.93 0.76 0.07 0.05] ...
     , 'CallBack', 'grid');

bb4full = uicontrol('String', 'full', 'Units', 'normalized' ...
     , 'Position', [0.93 0.70 0.07 0.05] ...
     , 'CallBack', 'set(fig1,''Position'',svgasize)');

bb5small = uicontrol('String', 'small', 'Units', 'normalized' ...
     , 'Position', [0.93 0.64 0.07 0.05] ...
     , 'CallBack', 'set(fig1,''Position'',initsize)');

%bb6color = uicontrol( ...
%       'String',   'color' ...
%     , 'Units',    'normalized' ...
%     , 'Position', [0.93 0.58 0.08 0.05] ...
%     , 'CallBack', ['fig1col=uisetcolor(fig1, ''Set Figure Background Color'');', ...
%                    'set(fig1,''Color'',fig1col);']);

%--------------------------------------------------------------%
%'set(gcf,''Color'',[0.15 0 0.3]);',
b1demo = uicontrol('String', 'Demo', 'Units', 'normalized' ...
     , 'Position', [0.0 0.0 0.08 0.05] ...
     , 'CallBack', [ ...
                    'dfddemo;']);

%'set(gcf,''Color'',[0.6 0 0.3]);',
b2open = uicontrol('String', 'Open', 'Units', 'normalized' ...
     , 'Position', [0.08 0.0 0.08 0.05] ...
     , 'CallBack', [ ...
                    '[speck1,speca1,filnumb1,filtype1,', ...
                    'nmin1,nmax1,nincmin1,nincmax1]=dfdopen(moreaxis);', ...
                    'if ~isempty(speca1);', ...
                    'speck=speck1;', ...
                    'speca=speca1;', ...
                    'filnumb=filnumb1;', ...
                    'filtype=filtype1;', ...
                    'nmin=nmin1;', ...
                    'nmax=nmax1;', ...
                    'nincmin=nincmin1;', ...
                    'nincmax=nincmax1;', ...
                    'ninc=0;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'if fig2;', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'set(et9,''String'',[num2str(nincmin),''<=ninc<='',num2str(nincmax)]);', ...
                    'end;', ...
                    'end;']);

%'set(gcf,''Color'',[0.4 0 0]);',
b3view = uicontrol('String', 'View', 'Units', 'normalized' ...
     , 'Position', [0.16 0.0 0.08 0.05] ...
     , 'CallBack', [ ...
                    'dfdview;']);

b4edit = uicontrol('String', 'Edit', 'Units', 'normalized' ...
     , 'Position', [0.24 0.0 0.08 0.05] ...
     , 'CallBack', 'dfdedit;');

%--------------------------------------------------------------%
%     , 'CallBack', ['set(gcf,''Color'',[0.25 0.25 0.25]);', ...

b5plot = uicontrol('String', 'Plot', 'Units', 'normalized' ...
     , 'Position', [0.34 0.0 0.07 0.05] ...
     , 'CallBack', [ ...
       'moreaxis=dfdplot(numD,denD,speca,filnumb,moreaxis);'...
       'title([sprintf(''%11.4f'',speca)]);']);

b6pass = uicontrol('String', 'Pass', 'Units', 'normalized' ...
     , 'Position', [0.62 0.0 0.07 0.05] ...
     , 'CallBack', [ ...
       'moreaxis=dfdpass(numD,denD,speca,filnumb,moreaxis);'...
       'title([sprintf(''%11.4f'',speca)]);']);

b7tran = uicontrol('String', 'Tran', 'Units', 'normalized' ...
     , 'Position', [0.69 0.0 0.06 0.05] ...
     , 'CallBack', [ ...
       'moreaxis=dfdtran(numD,denD,speca,filnumb,moreaxis);'...
       'title([sprintf(''%11.4f'',speca)]);']);

b8stop = uicontrol('String', 'Stop', 'Units', 'normalized' ...
     , 'Position', [0.75 0.0 0.06 0.05] ...
     , 'CallBack', [ ...
       'moreaxis=dfdstop(numD,denD,speca,filnumb,moreaxis);'...
       'title([sprintf(''%11.4f'',speca)]);']);

b9zoom = uicontrol('String', 'Zoom', 'Units', 'normalized' ...
     , 'Position', [0.93 0.0 0.07 0.05] ...
     , 'CallBack', 'dfdzoom;');

%--------------------------------------------------------------%

b10d1 = uicontrol('String', 'D1', 'Units', 'normalized' ...
     , 'Position', [0.0 0.07 0.05 0.05] ...
     , 'CallBack', ['tstart = clock;', ...
                    '[numD,denD,nD,aD,eD,fpD]=', ...
                    'dfdd1(speck,ninc,filtype);', ...
                    'desnumb=1;', ...
                    'destype=''D1'';', ...
                    'eseconds=etime(clock,tstart);', ...
                    'dfddinfo;']);

b11d2 = uicontrol('String', 'D2', 'Units', 'normalized' ...
     , 'Position', [0.0 0.12 0.05 0.05] ...
     , 'CallBack', ['tstart = clock;', ...
                    '[numD,denD,nD,aD,eD,fpD]=', ...
                    'dfdd2(speck,ninc,filtype);', ...
                    'desnumb=2;', ...
                    'destype=''D2'';', ...
                    'eseconds=etime(clock,tstart);', ...
                    'dfddinfo;']);

b12d3a = uicontrol('String', 'D3a', 'Units', 'normalized' ...
     , 'Position', [0.0 0.17 0.05 0.05] ...
     , 'CallBack', ['tstart = clock;', ...
                    '[numD,denD,nD,aD,eD,fpD]=', ...
                    'dfdd3a(speck,ninc,filtype);', ...
                    'desnumb=3;', ...
                    'destype=''D3a'';', ...
                    'eseconds=etime(clock,tstart);', ...
                    'dfddinfo;']);

b13d3b = uicontrol('String', 'D3b', 'Units', 'normalized' ...
     , 'Position', [0.0 0.22 0.05 0.05] ...
     , 'CallBack', ['tstart = clock;', ...
                    '[numD,denD,nD,aD,eD,fpD]=', ...
                    'dfdd3b(speck,ninc,filtype);', ...
                    'desnumb=4;', ...
                    'destype=''D3b'';', ...
                    'eseconds=etime(clock,tstart);', ...
                    'dfddinfo;']);

b14d4a = uicontrol('String', 'D4a', 'Units', 'normalized' ...
     , 'Position', [0.0 0.27 0.05 0.05] ...
     , 'CallBack', ['tstart = clock;', ...
                    '[numD,denD,nD,aD,eD,fpD]=', ...
                    'dfdd4a(speck,ninc,filtype);', ...
                    'desnumb=5;', ...
                    'destype=''D4a'';', ...
                    'eseconds=etime(clock,tstart);', ...
                    'dfddinfo;']);

b15d4b = uicontrol('String', 'D4b', 'Units', 'normalized' ...
     , 'Position', [0.0 0.32 0.05 0.05] ...
     , 'CallBack', ['tstart = clock;', ...
                    '[numD,denD,nD,aD,eD,fpD]=', ...
                    'dfdd4b(speck,ninc,filtype);', ...
                    'desnumb=6;', ...
                    'destype=''D4b'';', ...
                    'eseconds=etime(clock,tstart);', ...
                    'dfddinfo;']);

b15d5 = uicontrol('String', 'D5', 'Units', 'normalized' ...
     , 'Position', [0.0 0.37 0.05 0.05] ...
     , 'CallBack', ['tstart = clock;', ...
                    '[numD,denD,nD,aD,eD,fpD]=', ...
                    'dfdd5(speck,ninc,filtype);', ...
                    'desnumb=7;', ...
                    'destype=''D5'';', ...
                    'eseconds=etime(clock,tstart);', ...
                    'dfddinfo;']);

b152d5 = uicontrol('String', '2D5', 'Units', 'normalized' ...
     , 'Position', [0.0 0.42 0.05 0.05] ...
     , 'CallBack', ['tstart = clock;', ...
                    '[numD,denD,nD,aD,eD,fpD]=', ...
                    'dfd2d5(speck,ninc,filtype);', ...
                    'desnumb=8;', ...
                    'destype=''2D5'';', ...
                    'eseconds=etime(clock,tstart);', ...
                    'dfddinfo;']);

%--------------------------------------------------------------%

b16n = uicontrol('Style', 'text' ...
     , 'String', ['n=',num2str(nmin+ninc)] ...
     , 'Units', 'normalized' ...
     , 'Position', [0.0 0.95 0.05 0.04]);

b17np = uicontrol('String', 'n+', 'Units', 'normalized' ...
     , 'Position', [0.0 0.90 0.05 0.04] ...
     , 'CallBack', ['ninc1=ninc+1;', ...
                    'if ninc1>nincmax;', ...
                    'ninc=nincmin;', ...
                    'else;', ...
                    'ninc=ninc1;', ...
                    'end;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'if fig2;', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'end;']);

b17nm = uicontrol('String', 'n-', 'Units', 'normalized' ...
     , 'Position', [0.0 0.86 0.05 0.04] ...
     , 'CallBack', ['ninc1=ninc-1;', ...
                    'if ninc1<nincmin;', ...
                    'ninc=nincmax;', ...
                    'else;', ...
                    'ninc=ninc1;', ...
                    'end;', ...
                    'set(b16n,''String'',[''n='',num2str(nmin+ninc)]);', ...
                    'if fig2;', ...
                    'set(eb8,''String'',num2str(ninc));', ...
                    'end;']);

%--------------------------------------------------------------%