afdzoom.m

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

% afdzoom.m  AFD Zoom attenuation (script)
% 5:39  8/2/99
%
%   Authors: Dejan V. Tosic, Miroslav D. Lutovac, 1999.02.08
%                 [e-mail]
%                 [e-mail]
%
%   Copyright (c) 1999 by Tosic & Lutovac
%   $Revision: 1.0 $  $Date: 1999/02/08 03:07:42 $
%
%   References:
%        Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica

%% calls:
%% afdzoomp.m

if fig3 & find(get(0,'Children')==fig3)
 figure(fig3)
 delete(zbt)
else
 fig3 = figure;
 set(fig3, 'Name', 'Zoom Attenuation Characteristic' ...
         , 'NumberTitle', 'off', 'Position', initsize-[190,50,0,50] ...
         , 'Color',[0.35 0.45 0.35])
end

zoomfmin = 0;
if filnumb==1 | filnumb==2
 zoomfmax = 2*speca(2);
elseif filnumb==3 | filnumb==4
 zoomfmax = 2*speca(4);
else
 error(['AFD ERROR: Unsupported filter type ', num2str(filnumb)]);
end

afdzoomp(numD,denD,zoomfmin,zoomfmax,zoomn,nD);

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

zbb0close = uicontrol('String', 'close', 'Units', 'normalized' ...
     , 'Position', [0.93 0.9 0.07 0.05] ...
     , 'CallBack', 'close(fig3); fig3=0; clear zbt;');

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

zbb2log = uicontrol('String', 'log', 'Units', 'normalized' ...
     , 'Position', [0.93 0.78 0.07 0.05] ...
     , 'CallBack', 'set(gca,''Xscale'',''log'');');

zbb3lin = uicontrol('String', 'lin', 'Units', 'normalized' ...
     , 'Position', [0.93 0.72 0.07 0.05] ...
     , 'CallBack', 'set(gca,''Xscale'',''linear'');');

zbb3zoom = uicontrol('String', 'zoom', 'Units', 'normalized' ...
     , 'Position', [0.93 0.66 0.07 0.05] ...
     , 'CallBack', 'zoom;');

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

zt1fmin = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0 0 0.06 0.04] ...
     , 'String',   'fmin');

zb1fmin = uicontrol('Style', 'edit' ...
     , 'String', num2str(zoomfmin) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.07 0 0.08 0.04] ...
     , 'CallBack', ['zoomf1=eval(get(zb1fmin,''String''));', ...
                    'if zoomfmax>zoomf1 & zoomf1>=0;', ...
                    'zoomfmin=zoomf1;', ...
                    'else;', ...
                    'set(zb1fmin,''String'',num2str(zoomfmin));', ...
                    'end;', ...
                    'afdzoomp(numD,denD,zoomfmin,zoomfmax,zoomn,nD);']);

zt2fmax = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.17 0 0.06 0.04] ...
     , 'String',   'fmax');

zb2fmax = uicontrol('Style', 'edit' ...
     , 'String', num2str(zoomfmax) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.24 0 0.08 0.04] ...
     , 'CallBack', ['zoomf2=eval(get(zb2fmax,''String''));', ...
                    'if zoomfmin<zoomf2;', ...
                    'zoomfmax=zoomf2;', ...
                    'else;', ...
                    'set(zb2fmax,''String'',num2str(zoomfmax));', ...
                    'end;', ...
                    'afdzoomp(numD,denD,zoomfmin,zoomfmax,zoomn,nD);']);

zt3n = uicontrol('Style', 'text' ...
     , 'Units',    'normalized' ...
     , 'Position', [0.93 0.05 0.07 0.04] ...
     , 'String',   'points');

zb3n = uicontrol('Style', 'edit' ...
     , 'String', num2str(zoomn) ...
     , 'Units',    'normalized' ...
     , 'Position', [0.93 0 0.07 0.04] ...
     , 'CallBack', ['zoomn1=eval(get(zb3n,''String''));', ...
                    'if zoomn1>1;', ...
                    'zoomn=zoomn1;', ...
                    'else;', ...
                    'set(zb3n,''String'',num2str(zoomn));', ...
                    'end;', ...
                    'afdzoomp(numD,denD,zoomfmin,zoomfmax,zoomn,nD);']);

zbt = [zbb0close, zbb1grid, zbb2log, zbb3lin, ...
       zb1fmin, zb2fmax, zb3n, ...
       zt1fmin, zt2fmax, zt3n];