gcturb.m

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

% Function : increase or decrease the gain pertuurbation by clicking the mouse.
%
%    gcturb.m is a call_function executed by "pertb_cg" on figure(Gcset_f).

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

 val=get(pertb_cg,'Value');
 gb1=val;
 set(pertb_val,'String',num2str(val));

 figure(Gcdis_f);
 %% plot the gain perturbation

 gcpert=randn(1,nframe)*gb1.*genv1;
 plot(1:nframe,gcpert,'r'); hold on;

 %% plot the gain envelop
 plot(1:nframe,genv1,'k');

 %% plot the voicing boundary
 v=axis;
 for kk=1:length(vcbound)
     plot([(vcbound(kk)-1) (vcbound(kk)-1)],[v(3) v(4)],'c');
 end
 hold off;
 title('Gain envelope (black line) and Gain Perturbation (red line) ');

 %% label the voicing classification
 text((vcbound(1)-1)/2-1/2, 0.9*v(4)+0.1*v(3), 'U');
 for kk=1:length(vcbound)-1
     if vctyp(vcbound(kk))==0
         text((vcbound(kk)-1)/2+(vcbound(kk+1)-1)/2-1, 0.9*v(4)+0.1*v(3), 'U');
     else
         text((vcbound(kk)-1)/2+(vcbound(kk+1)-1)/2-1, 0.9*v(4)+0.1*v(3), 'V');
     end
 end
 text((vcbound(kk+1)-1)/2+nframe/2-1, 0.9*v(4)+0.1*v(3), 'U');

 %% set the axis scaling
 if exist('Left')==0
    Left=1;
    Rite=nframe;
 end
 axis([Left-1 Rite+1 v(3) v(4)]);