home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 3.ddi / DEMOS.DI$ / SHOWWIND.M < prev    next >
Encoding:
Text File  |  1993-03-07  |  695 b   |  27 lines
  1. % showwind script
  2. %
  3. %    Called by sigdemo1 if the signal processing toolbox is present
  4. % 
  5.  
  6. %    (c) Copyright 1984-93, by The MathWorks, Inc.
  7.  
  8.     figure
  9.  
  10.     axes('Position',[.15 .62 .8 .3]);
  11.     plot(t,window); 
  12.     title('Window function');
  13.     xlabel('time (seconds)');
  14.     grid;
  15.     ylabel('Window');
  16.  
  17.     axes('Position',[.15 .2 .8 .3]);
  18.     [W,omega]=freqz(window,1,512);
  19.     plot(omega/2/pi/T,20*log10(abs(W))); 
  20.     set(gca,'xlim',[0 1/(2*T)]);
  21.     xlabel('Frequency (Hz)');
  22.     ylabel('Magnitude (dB)');
  23.     grid;
  24.     windclose=uicontrol('Style','Pushbutton','Position',[.85 .02 .12 .08],...
  25.         'Units','normalized','Callback','close','String','Close');
  26.     
  27.