home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 3.ddi / DEMOS.DI$ / MMOVE2.M < prev    next >
Encoding:
Text File  |  1993-03-07  |  954 b   |  40 lines
  1. function [amp1,freq1]=mmove2(fixed_x,fixed_y,amp,freq,time_line,freq_line,...
  2.         freq_field,freq_slider,min_amp,max_amp,min_freq,max_freq,ax_time)
  3. % function mmove2
  4. %
  5. %      CallBack for WindowButtonMotionFcn, signal demo 2
  6.  
  7. %     TPK 11/3/92
  8. %     TPK 12/4/92  made it a function
  9. %    (c) Copyright 1984-93, by The MathWorks, Inc.
  10.  
  11.     pt=get(gca,'currentpoint');
  12.     x=pt(1,1);
  13.     y=pt(1,2);
  14.  
  15.     amp1=y/fixed_y*amp;
  16.     if (amp1>max_amp ),
  17.        amp1=max_amp ;
  18.     end;
  19.     if (amp1<min_amp ),
  20.        amp1=min_amp ;
  21.     end;
  22.     if (ax_time==gca),
  23.         freq1=fixed_x/x*freq;
  24.     else
  25.         freq1=x/fixed_x*freq;
  26.     end;
  27.     if (freq1>max_freq),
  28.        freq1=max_freq;
  29.     end;
  30.     if (freq1<min_freq),
  31.        freq1=min_freq;
  32.     end;
  33.  
  34.     [t,f,w,F]=tffunc(amp1,freq1);
  35.     set(time_line,'YData',f);
  36.     set(freq_line,'YData',F);
  37.     set(freq_field,'String',num2str(freq1));
  38.     set(freq_slider,'Value',freq1);
  39.  
  40.