source_unvoiced_apply.m

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

%Callback function for the apply button from the 
%Source Noise (Unvoiced) Modification window
%
%Author Karthik
%Used functions originally written by Albert Hsiao for
%creating the excitation waveforms
%Modified by D. G. Childers 2/25/98 to clean it up and remove time varying features


Lens = Lens_array(segment_no);%Lens_array=Pitch
if exist ('Nframe1')
   Nframe = Nframe1;
end
start_point = (segment_no*Lens) - (Lens -1);
end_point = start_point + Lens-1;
%Ncof1 = zeros(Nframe,1);
%Ncof1(segment_no,1) = eval(get(src_asgain_edit,'String'));
Pitch1=100*ones(Nframe,1);  % pitch period
Vgain= 5*ones(Nframe,1);    % voicing gain
Ngain1=zeros(Nframe,1);    % fricative noise gain
%Ngain(segment_no)=eval(get(src_ngain_edit,'String'));
Aspgain=Ncof(1,1);  % aspiration noise gain
gm=Vgain(1)-Ngain(1)-Ncof(1,1);
Lens_array=Pitch1;
uvindicate = zeros(1,Nframe);

noise_excitation = randn(1,Nframe*Lens);
%filter the excitation to lower the bandwidth 
noise_excitation=filter(1,[1  -1.8  .81],noise_excitation);

excitation1=noise_excitation;

plot_excitation;