pctur.m

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

% Function : increase or decrease the pitch pertuurbation by clicking the mouse.
%
%    pctur.m is a call_function executed by "pertb_cg" on figure(Pset_f).

 %-------------------------------% 
 % change the pitch perturbation %
 %-------------------------------%

 val=get(pertb_cg,'Value');
 pb1=val;
 jitter=p01*pb1*randn(1,length(pw1));  %pitch jitter

 set(pertb_val,'String',num2str(val));

 figure(Pdis_f);

 NR=length(seglens1);
 sp=1; % starting point of one segment

 for ii=1:NR
     ep=seglens1(ii)+sp-1;  % ending point of one segment

     % plot the pitch wave
     plot( gcidx1(sp:ep),pw1(sp:ep),'k'); hold on;

     % plot the pitch jitter
     plot(gcidx1(sp:ep),jitter(sp:ep),'r');

     if exist('knob_xx')==0
        knob_xx=[knob_xx gcidx1(sp) gcidx1(ep)];
        knob_yy=[knob_yy pw1(sp) pw1(ep)];
     end
     sp=ep+1;
 end

 hold off;
 title('Pitch Wave (black line) and Pitch Jitter (red line) ');