idealgui.m

ADSP TOOLBOX: Version 2.0 and gui m-files

function idealgui(mode)
% IDEALGUI Ideal filters and their spectra.

% ADSP Toolbox: Version 2.0 
% For use with "Analog and Digital Signal Processing", 2nd Ed.
% Published by PWS Publishing Co.
%
% Ashok Ambardar, EE Dept. MTU, Houghton, MI 49931, USA
% http://www.ee.mtu/faculty/akambard.html
% e-mail: [e-mail]
% Copyright (c) 1998


v=matverch;
if v<5,
errordlg('This gui requires MATLAB 5.x and above','Version Error');
return,
end

if nargin == 0, mode = 0; end

if mode ~= 0,
   f = gcf;
   ui = get(f,'userdata');
   filter_pop  = ui(4);
   window_pop  = ui(13);
   n_uis       = ui(5:6);
   cutoff_edt  = ui(9);
   beta_uis    = ui(14:15);
   ripple_uis  = ui(17:18);
   harris_uis  = ui(26:27);
   autoplot    = ui(21);
   plot_btn    = ui(22);
   axs         = ui(23);
   mag_axs=ui(23);
   phs_axs=ui(36);
   pz_axs=ui(38);
   sig_axs=ui(41);
   curs_btn    = ui(48);
   curs_dsp    = ui(44:47);
end

if mode == 0,
   grey = [0.5,0.5,0.5];
   ltgrey = grey*1.5;
   dkgrey = grey*0.5;
   scrn_size = get(0,'screensize');
   fig_w = 620; fig_h = 450;
   flft = (scrn_size(3) - fig_w)/2;
   fbtm = (scrn_size(4) - fig_h)/2;

   ver_str = version;
   ver4    = length(findstr('4.',ver_str));
   if ver4,
      int_str = 'yes';
      f = figure('pos',[flft,fbtm,fig_w,fig_h],'menubar','none',...
                 'name','Ideal Filters','numbertitle','off',...
                 'resize','off','vis','off','interruptible',int_str,...
                 'color',dkgrey,'defaultaxesfontsize',10,...
                 'defaulttextfontsize',10);
   else
      int_str = 'on';
      eval('f = colordef(''new'',''none'');');
      set(f,'pos',[flft,fbtm,fig_w,fig_h],'menubar','none',...
            'name','Ideal Filters','numbertitle','off',...
            'resize','off','vis','off','interruptible',int_str,...
            'color',dkgrey,'defaultaxesfontsize',8,...
            'defaultuicontrolback',[0.5,0.5,0.5],...
            'defaulttextfontsize',8);
   end

%%% OPTIONS: %
   uim(1) = uimenu('label','OPTIONS');
   uim(2) = uimenu(uim(1),'label','Help and Info','callback','idealhlp');
   uim(3) = uimenu(uim(1),'label','Export Data','separator','on',...
                          'callback','idealgui(15)');
   uim(4) = uimenu(uim(1),'label','Print Figure','separator','on',...
                          'callback','printdlg(gcf)');
   uim(5) = uimenu(uim(1),'label','Close and Exit','separator','on',...
                          'callback','close(gcf)');
   uim(6) = uimenu('label','   Axis Limits','separator','on',...
                          'callback','idealgui(17)');
   uim(7) = uimenu('label','   Zoom ON','separator','on',...
                          'callback','idealgui(18)');
   uim(8) = uimenu('label','   Zoom OFF','separator','on',...
                          'callback','idealgui(19)');
   uim(9) = uimenu('label','   RESIZE','callback','idealgui(20)');


%%%%%%%%%%


   lft = 10; btm = fig_h - 5;
   ui(1) = uicontrol('style','frame','pos',[5,btm-215+45+70,175,210-45-65],...
           'back',grey,'fore',ltgrey);

   btm = btm - 30+5;
   ui(2) = uicontrol('style','text','pos',[lft,btm,160,17],...
           'horiz','left','fore','c','string','Ideal Filters','vis','off');
   ui(3) = uicontrol('style','text','pos',[lft,btm,50,17],...
           'string','Filter','horiz','left');
   ui(4) = uicontrol('style','popup','pos',[lft+55,btm,110,20],...
           'string',['Lowpass|Highpass|',...
                     'Bandpass|Bandstop'],...
           'back','w','callback','idealgui(1)');

   btm = btm - 22;
   ui(8) = uicontrol('style','text','pos',[lft,btm,87,17],...
           'horiz','left','string','Cutoff(s) (Fc)');
   ui(9) = uicontrol('style','edit','pos',[lft+90,btm,75,18],...
           'back','w','string','0.25','callback','idealgui(3)',...
           'horiz','right');
   ui(11) = uicontrol('style','text','pos',[lft,btm,160,17],...
           'horiz','left','fore','c','string','Applied Window','vis','off');

   btm = btm - 22;
   ui(12) = uicontrol('style','text','pos',[lft,btm,50,17],...
           'string','Window','horiz','left');
   ui(13) = uicontrol('style','popup','pos',[lft+55,btm,110,20],...
           'string',['None|Hamming|von Hann|Blackman|Kaiser|Chebyshev|',...
           'Harris'],...
           'back','w','callback','idealgui(2)');

   btm = btm - 22;
   ui(14) = uicontrol('style','text','pos',[lft,btm,100,17],...
           'horiz','left','string','Beta (0.3 to 3)');
   ui(15) = uicontrol('style','edit','pos',[lft+105,btm,50,18],...
           'back','w','string','2','callback','idealgui(3)','horiz','right');
   ui(17) = uicontrol('style','text','pos',[lft,btm,100,17],...
           'horiz','left','string','Ripple (dB)');
   ui(18) = uicontrol('style','edit','pos',[lft+105,btm,50,18],...
           'back','w','string','60','callback','idealgui(3)','horiz','right');
   ui(26) = uicontrol('style','text','pos',[lft,btm,100,17],...
           'horiz','left','string','Type (0 to 7)');
   ui(27) = uicontrol('style','edit','pos',[lft+105,btm,50,18],...
           'back','w','string','0','callback','idealgui(3)','horiz','right');
   set(ui([14,15,17,18,26,27]),'vis','off');

   uicontrol('style','frame','pos',[5,btm-40,175,27],...
           'back',grey,'fore',ltgrey);

   btm = btm - 35;
   ui(5) = uicontrol('style','text','pos',[lft,btm,87,17],...
           'horiz','left','string','Length  N','userdata',0);
   ui(6) = uicontrol('style','edit','pos',[lft+90,btm,75,18],...
           'back','w','string','25','callback','idealgui(5)','horiz','right');

   uicontrol('style','frame','pos',[5,btm-40+5,175,27],...
           'back',grey,'fore',ltgrey);

   btm = btm - 32;
   uicontrol('style','text','pos',[lft,btm-2,60,20],...
           'string','Counter');
   ui(16) = uicontrol('style','push','pos',[lft+65,btm,50,20],...
           'string','<<','callback','idealgui(4)');
   ui(19) = uicontrol('style','push','pos',[lft+115,btm,50,20],...
           'string','>>','callback','idealgui(10)');

   ui(20) = uicontrol('style','frame','pos',[5,btm-40+5,175,27],...
           'back',grey,'fore',ltgrey);

   btm = btm - 35+5;
   ui(21) = uicontrol('style','check','pos',[lft,btm,80,17],...
           'string','AutoPlot','callback','idealgui(5)',...
           'value',0);
   ui(22) = uicontrol('style','push','pos',[lft+95,btm-2,70,20],...
           'string','Plot','callback','idealplt');

   btm = btm -40+15;
   ui(30) = uicontrol('style','frame','pos',[5,btm-39+10,175,54-10],...
           'back',grey,'fore',ltgrey);

   btm = btm - 5-3;
   ui(31) = uicontrol('style','text','pos',[lft,btm,60,17],...
           'string','Magnitude','horiz','left');
   ui(32) = uicontrol('style','popup','pos',[lft+65,btm,100,20],...
           'string','Linear|decibel','back','w','callback','idealgui(6)');

   btm = btm - 19;
   ui(34) = uicontrol('style','text','pos',[lft,btm,100,17],...
           'string','Min dB Scale','vis','off','horiz','left');
   ui(35) = uicontrol('style','edit','pos',[lft+105,btm,60,18],...
           'back','w','string','-80','callback','idealplt','vis','off',...
           'horiz','right');

   btm = btm-15+35+15;
   ui(51) = uicontrol('style','frame','pos',[5,btm-225+22,175,183-22],...
           'back',grey,'fore',ltgrey);

   btm = btm - 45-20;
   ui(52) = uicontrol('style','text','pos',[lft,btm,160,17],...
           'horiz','left','fore','c','string','Window figures of Merit');

   btm = btm - 22;
   ui(53) = uicontrol('style','text','pos',[lft,btm,105,17],...
           'horiz','left','string','Pk Sidelobe dB');
   ui(54) = uicontrol('style','text','pos',[lft+107,btm,60,17],...
           'back',ltgrey,'string',' ','horiz','right');

   btm = btm - 22;
   ui(55) = uicontrol('style','text','pos',[lft,btm,105,17],...
           'horiz','left','string','W (mainlobe)');
   ui(56) = uicontrol('style','text','pos',[lft+107,btm,60,17],...
           'back',ltgrey,'horiz','right');

   btm = btm - 22;
   ui(57) = uicontrol('style','text','pos',[lft,btm,105,17],...
           'horiz','left','string','W to pk sidelobe');
   ui(58) = uicontrol('style','text','pos',[lft+107,btm,60,17],...
           'back',ltgrey,'horiz','right');

   btm = btm - 22;
   ui(59) = uicontrol('style','text','pos',[lft,btm,160,17],...
           'horiz','left','fore','c','string','Windowed Filter Specs');


   btm = btm - 22;
   ui(60) = uicontrol('style','text','pos',[lft,btm,105,17],...
           'horiz','left','string','Passband attn  dB');
   ui(61) = uicontrol('style','text','pos',[lft+107,btm,60,17],...
           'back',ltgrey,'string',' ','horiz','right');

   btm = btm - 22;
   ui(62) = uicontrol('style','text','pos',[lft,btm,105,17],...
           'horiz','left','string','Stopband attn  dB');
   ui(63) = uicontrol('style','text','pos',[lft+107,btm,60,17],...
           'back',ltgrey,'horiz','right');
   ui(64) = uicontrol('style','text','pos',[lft,btm,105,17],...
           'horiz','left','string','Transition width','vis','off');
   ui(65) = uicontrol('style','text','pos',[lft+107,btm,60,17],...
           'back',ltgrey,'horiz','right','vis','off');

   btm = btm - 32;
   ui(48) = uicontrol('style','check','pos',[lft+95,btm,70,20],...
           'string','Cursor','back','y','callback','idealgui(8)');


   pos = get(f,'pos');
   lef = pos(3)-166;
   bot = pos(4)-21;

   ui(44) = uicontrol('style','text','pos',[lef,bot,20,20],...
           'string','X ','horiz','right');
   ui(45) = uicontrol('style','text','pos',[lef+20,bot,60,20],...
           'string','','back','w');
   ui(46) = uicontrol('style','text','pos',[lef+85,bot,20,20],...
           'string','Y ','horiz','right');
   ui(47) = uicontrol('style','text','pos',[lef+105,bot,60,20],...
           'string','','back','w');

   set(ui(44:47),'vis','off');


   ui(23) = axes('units','pixel','pos',[430,35,160,160],'box','on',...
            'xlim',[0,0.5],'color','k','xgrid','on','ygrid','on');
   title('Spectrum of Windowed Filter');
   xlabel('Digital Frequency [F]');
   ui(24) = line('xdata',0,'ydata',0,'color','y','erase','norm');
   ui(25) = line('xdata',0,'ydata',0,'color','g','erase','norm');
   set(ui(23), 'userdata',ui([24,25]));

   ui(36) = axes('units','pixel','pos',[220,35,160,160],'box','on',...
            'xlim',[0,0.5],'color','k','xgrid','on','ygrid','on');
   title('Spectrum of Window');
   xlabel('Digital Frequency [F]');
   ui(37) = line('xdata',0,'ydata',0,'color','c','erase','norm');
   set(ui(36), 'userdata',ui(37));


   ui(38) = axes('units','pixel','pos',[220,240+6,160,160],'box','on',...
             'color','k',...
             'xgrid','on','ygrid','on');
  title('Window function w[n]');
   xlabel('DT Index  [n]');
   ui(39) = line('xdata',0,'ydata',0,'color','m','erase','back');
   if ver4,
      ui(40) = line('xdata',0,'ydata',0,'color','m','linestyle','o',...
                'erase','back');
   else
      ui(40) = line('xdata',0,'ydata',0,'color','m','linestyle','none',...
                    'marker','o','erase','back');
   end
   set(ui(38),'userdata',ui([39,40]));

   ui(41) = axes('units','pixel','pos',[430,240+6,160,160],'box','on',...
             'color','k',...
             'xgrid','on','ygrid','on');
  title('Windowed impulse response hw[n]');
   xlabel('DT Index  [n]');
   ui(42) = line('xdata',0,'ydata',0,'color','m','erase','back');
   if ver4,
      ui(43) = line('xdata',0,'ydata',0,'color','m','linestyle','o',...
                'erase','back');
   else
      ui(43) = line('xdata',0,'ydata',0,'color','m','linestyle','none',...
                    'marker','o','erase','back');
   end
   set(ui(41),'userdata',ui([42,43]));