draw_src.m

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

% draw_src.m
% modified by D. G. Childers 7/16/98

if (get(exc_voi_h,'Value') | get(exc_mix_h,'Value'))

gen_src;

figure(exc_sou1_h);
clf;

subplot(2,2,1);
plot([1,1],[min(dpulsesamp),max(dpulsesamp)],'color',TEXT_COLOR);
hold;
plot([1,sampf],[0,0],'color',TEXT_COLOR);
plot(dpulsesamp,'color',TEXT_COLOR);
title('Differential glottal waveform','color',TEXT_COLOR,'FontSize',10);
axis([1 sampf min(dpulsesamp) max(dpulsesamp)+1e-10]);
axis('off');
hold off;

subplot(2,2,2);
plot([1,1],[min(pulsesamp),max(pulsesamp)],'color',TEXT_COLOR);
hold;
plot([1,sampf],[0,0],'color',TEXT_COLOR);
plot(pulsesamp,'color',TEXT_COLOR);
title('Glottal waveform','color',TEXT_COLOR,'FontSize',10);
axis([1 sampf min(pulsesamp) max(pulsesamp)+1e-10]);
axis('off');
hold off;

subplot(2,2,4);
plot([1,1],[min(sourcepsd),max(sourcepsd)],'color',TEXT_COLOR);
hold;
plot([1,512],[min(sourcepsd),min(sourcepsd)],'color',TEXT_COLOR);
plot(sourcepsd,'color',TEXT_COLOR);
title('Excitation source PSD','color',TEXT_COLOR,'FontSize',10);
axis([1 512 min(sourcepsd) max(sourcepsd)+1e-10]);
axis('off');
hold off;

if (get(exc_subglo_h,'Value'))
	glotarea;
	subplot(2,2,3);
	[k,dsamp]=size(Agpulse);
	plot([1,1],[min(Agpulse),max(Agpulse)],'color',TEXT_COLOR);
	hold;
	plot([1,dsamp],[0,0],'color',TEXT_COLOR);
	plot(Agpulse,'color',TEXT_COLOR);
	title('Glottal area waveform','color',TEXT_COLOR,'FontSize',10);
	axis([1 dsamp min(Agpulse) max(Agpulse)+1e-10]);
	axis('off');
	hold off;
elseif (get(exc_aspira_h,'Value'))
	subplot(2,2,3);
	plot([1,1],[min(noisesamp),max(noisesamp)],'color',TEXT_COLOR);
	hold;
	plot([1,sampf],[0,0],'color',TEXT_COLOR);
	plot(noisesamp,'color',TEXT_COLOR);
	title('Aspiration noise waveform','color',TEXT_COLOR,'FontSize',10);
	axis([1 sampf min(noisesamp) max(noisesamp)+1e-10]);
	axis('off');
	hold off;
end

else
	figure(exc_sou1_h);
	clf;
end