f_rate.m

来自「这是一个用于语音信号处理的工具箱」· M 代码 · 共 86 行

%
% Callback function for "Rate Conversion" button of File window
% Author : Minkyu Lee
% Date : 23-Feb-1995
% Modified by Karthik May 25 1997
% Modified by D. G. Childers

PV=[2 210 267 270];
s2 = 'Rate Conversion';
if exist('Ts')
   Fs_org=1/Ts;
else
   Fs_org=10000;
end
   
% Open analysis window

while exist('fi_rc_win_h')==1
   try1 = 'get(fi_rc_win_h,''position'');';
   eval(try1,catch2);
   if check ==0
      clear fi_rc_win_h;
      check = 1;
      break;
   end
   s1 = get(fi_rc_win_h,'Name');
   if ~strcmp(s1,s2)
      clear fi_rc_win_h;
      break;
   end
   figure(fi_rc_win_h);
   break;
end;

if exist('fi_rc_win_h')~=1;
   
   fi_rc_win_h=figure('Position',PV,...
      'Resize','on',...
      'Numbertitle','off',...
      'color',BACK_COLOR,...
		'Name',s2);

 
   
   rc_pb_Fs_h=uicontrol('Style','pushbutton',...
      'Position',[10 220 190 30],...
      'String','Original Sampling Freq. (Hz)');
   
   
   
   rc_ed_Fs_h=uicontrol('Style','edit',...
      'Position',[210 220 50 30],...
      'String',Fs_org);
   
   
   rc_pb_Fsnew_h=uicontrol('Style','pushbutton',...
      'Position',[10 170 190 30],...
      'String','New Sampling Freq. (Hz)');
   
   rc_ed_Fsnew_h=uicontrol('Style','edit',...
      'Position',[210 170 50 30],...
      'String','8000');
   
   rc_pb_go_h=uicontrol('Style','pushbutton',...
      'Position',[10 120 120 30],...
      'String','Convert',...
      'Callback','rc_go');
   
   rc_po_save_h=uicontrol('Style','pushbutton',...
      'Position',[140 120 120 30],...
      'String','Save(ASCII)',...
      'Callback','rc_save');

   rc_pb_cancel_h=uicontrol('Style','pushbutton',...
      'Position',[10 70 250 30],...
      'String','Plot resampled speech in one window and Exit',...
      'Callback','rc_plot');
   
   rc_pb_cancel_h1=uicontrol('Style','pushbutton',...
      'Position',[50 20 150 30],...
      'String','Cancel',...
      'Callback','rc_ok');

end;