pcplt.m

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

% Script : plot three factors of the pitch contour in Pset_f
%

%% plot the pitch wave and pitch jitter on figure(Pdis_f)
figure(Pdis_f); %%%%

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

knob_xx=[];
knob_yy=[];

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');
   
   % make the ending point a knob
   knob_xx=[knob_xx gcidx1(sp) gcidx1(ep)];
   knob_yy=[knob_yy pw1(sp) pw1(ep)];
   sp=ep+1;
end

% plot the knobs
plot(knob_xx,knob_yy,'g*');

hold off;
axis([gci1(1) max(gci1) min([min(pw1) min(jitter)])-10 max([max(pw1) max(jitter)])+10 ]);
title('Pitch Wave (black line) and Pitch Jitter (red line) ','Units','Normalized',...
   'Position',[.49 .99]);


%% plot the pitch contour and fundamental pitch period on figure(Pcontour_f)
figure(Pcontour_f); %%%%

sp=1;
for ii=1:NR
   ep=seglens1(ii)+sp-1;
   ax=gci1(sp:ep-1);
   plot(gcidx1(sp:ep-1),diff(gci1(sp:ep) ),'k'); hold on;
   plot(ax,ones(1,length(ax))*p01,'b.');
   sp=ep+1;
end

hold off;
axis([gci1(1) max(gci1) 0.5*p01 2*p01 ]);
title('Pitch Contour (black line) and Fundamental Pitch Period (blue line)','Units','Normalized',...
   'Position',[.49 .99]);