pclbl.m

这是一个用于语音信号处理的工具箱

% Script : label the pitch wave on the GCI display using the mouse or 
%          delabel the wave.
%
%    pclbl.m is a call_function executed by "wave_lab" on figure(Pset_f).


   figure(Pdis_f);
   val=get(wave_lab,'Value');
   [xx,yy]=ginput(1);  % graphic input

       %--------------------------------------------------------% 
       %   add a knob to the pitch wave using the mouse         %
       %--------------------------------------------------------%
   if val==1

       ax=gci1(1:length(gci1)-1);
       [dum,x_idx]=min( abs(xx-ax) );

       xx=ax(x_idx);
       yy=pw1(x_idx);
 
       % insert the knobs into the knob sequence
       knob_xx=[knob_xx xx];
       knob_yy=[knob_yy yy];
             
       [knob_xx,ii]=sort(knob_xx); % sort the sequence according to its x-axis values
       knob_yy=knob_yy(ii);

       % plot the labeled point
       hold on;
       plot(xx,yy,'g*')
       hold off;
       clear x_idx xx yy ax;

        %----------------------------------------------------------% 
        %   delabel a knob on the pitch wave using the  mouse      %
        %----------------------------------------------------------%
    elseif val==2

       % delete one knob
       [dum,x_idx]=min( abs(xx-knob_xx) );

       xx=knob_xx(x_idx);
       yy=knob_yy(x_idx);

       plot(xx,yy,'mo'); hold on;
 
       knob_xx(x_idx)=[];
       knob_yy(x_idx)=[];

       % plot the labeled points and the data fit
       pcfit;
       hold off;
       clear xx yy x_idx;
    end