rc_go.m

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

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


% Get the value from the slider
Fs_old=eval(get(rc_ed_Fs_h,'String'));
Fs_new=eval(get(rc_ed_Fsnew_h,'String'));
new_speech=resample(SPEECH,Fs_new,Fs_old);

PV=[269 236 519 300];	
s2 = 'Input Signal';

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

if exist('ana_wav_win_h')~=1;
	ana_wave_win_h=figure('Position',PV,...
		'Resize','on',...
		'Numbertitle','off',...
		'Name',s2);
end

speech1=SPEECH;
len_orig=LEN;
left_orig=LEFT;
right_orig=RIGHT;
SPEECH=new_speech;
LEN=length(SPEECH);
RIGHT=LEN;
LEFT=LEFT;
Ts=1/Fs_new;

      axis1=1:LEN;
      subplot(2,1,1);
      plot(SPEECH);
      title('Newly resampled speech');

      axis2 = left_orig:right_orig;
      subplot(2,1,2);
      plot(axis2,speech1(left_orig:right_orig));
      title('Original speech');