test.m

来自「wav声音文件的通过多脉冲激励编码器」· M 代码 · 共 15 行

function y=test

[s,fs] = wavread('1.wav');

pscale=0.7; %pitch scale ratio
tscale=1.5; %time scale ratio

pm = find_pmarks(s,fs); %determine pitch marks
plot_pmarks(s, pm); %plot pitch marks
[vuv]=detect_vuv(s,fs,pm); %voiced/unvoiced decision

y = tdpsola(s,fs,pscale,tscale,pm,vuv); %TD-PSOLA

soundsc([s; zeros(fs,1); y],fs);