spapp.m

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

%FUNCTION: Apply button for the formant track modification.
% Input: FF3
% Output:
%      spapp.m is a call function by "apply_pb" on figure(Sset_f).


if App==1 % execute the apply buttom
   FF3=FF1;
 
   % change the formant bandwidth to compensate for the pole interaction problem
   for k=1:nframe
       if vctyp1(k)
          [npoly,opoly,FB3(k,:)]=rt2lp( FF1(k,:),FF(k,:),FB(k,:) );
       else
          FB3(k,:)=FB1(k,:);
       end
   end
   
elseif App==0 % execute the undo buttom
  
   if exist('FF3') 
      FF1=FF3;
      FB1=FB3;
   else
      FF1=FF;
      FB1=FB;
   end
end

  frm=find(vctyp1>0);
  avFF1=mean(FF1(frm,:));
  thefmt=get(formant_pp,'Value');
  set(fmt_slider,'Value',avFF1(thefmt));
  val=get(fmt_slider,'Value');
  set(formant_edit,'String',num2str(val) );

  %--------------------------------------%
  % plot the pitch contour on Sset_f     %
  %--------------------------------------%

   figure(Sdis_f);

   % plot the pitch contour on Smod.f 

   plot(FF1,'k'); hold on;% double plot on the voiced formant
   plot([frm' frm' frm' frm' frm'],FF1(frm,:),'+');
   hold off; 
   axis([1 nframe 0 5000]);
   title('Formant Track ( ''+'' represents voiced )');