MATLAB在语音信号分析和合成中的应

MATLAB在语音信号分析和合成中的应用 一书 附带的matlab程序源码

function [signalnoise]=add_noisedata（sdatafsfs1snr）
s=s（:）;                          % 把信号转换成列数据
s=s-mean（s）;                     % 消除直流分量
sL=length（s）;                    % 求出信号的长度

if fs~=fs1                       % 若纯语音信号的采样频率与噪声的采样频率不相等
    x=resample（datafsfs1）;     % 对噪声重采样，使噪声采样频率与纯语音信号的采样频率相同
else
    x=data;
end

x=x（:）;                          % 把噪声数据转换成列数据
x=x-mean（x）;                     % 消除直流分量
xL=length（x）;                    % 求噪声数据长度
if xL>=sL                        % 如果噪声数据长度与信号数据长度不等，把噪声数据截断或补足
    x=x（1:sL）;
else
    disp（‘Warning: 噪声数据短于信号数据，以补0来补足！‘）
    x=[x; zeros（sL-xL1）];
end

Sr=snr;
Es=sum（x.*x）;                    % 求出信号的能量
Ev=sum（s.*s）;                    % 求出噪声的能量
a=sqrt（Ev/Es/（10^（Sr/10）））;      % 计算出噪声的比例因子
noise=a*x;                       % 调整噪声的幅值
signal=s+noise;                  % 构成带噪语音

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2013-11-18 11:54  program\
     目录           0  2013-11-18 11:54  program\basic_tbx\
     文件        1050  2013-10-23 04:28  program\basic_tbx\add_noisedata.m
     文件        1010  2013-10-23 04:31  program\basic_tbx\add_noisefile.m
     文件        2895  2009-11-02 10:08  program\basic_tbx\enframe.m
     文件        4242  2010-10-28 23:41  program\basic_tbx\findpeaks.m
     文件         753  2013-06-12 09:17  program\basic_tbx\findSegment.m
     文件         110  2012-06-12 21:40  program\basic_tbx\frame2time.m
     文件         234  2004-05-27 03:14  program\basic_tbx\freqz_m.m
     文件        2535  2010-08-01 21:41  program\basic_tbx\frq2mel.m
     文件         645  2013-05-02 05:20  program\basic_tbx\Gnoisegen.m
     文件         136  2004-05-27 03:05  program\basic_tbx\ideal_lp.m
     文件        2931  1999-10-30 05:01  program\basic_tbx\instfreq.m
     文件         564  2013-10-24 03:54  program\basic_tbx\linsmoothm.m
     文件        1315  2007-05-04 21:01  program\basic_tbx\lpcar2ff.m
     文件        1441  2007-05-04 21:01  program\basic_tbx\lpcar2pf.m
     文件        1307  2007-05-04 21:01  program\basic_tbx\lpcar2zz.m
     文件        2525  2010-08-01 21:41  program\basic_tbx\mel2frq.m
     文件       11383  2010-01-03 09:58  program\basic_tbx\melbankm.m
     文件        1585  2013-10-23 23:52  program\basic_tbx\Mtmpsd_ssb.m
     文件        1663  2008-01-14 10:30  program\basic_tbx\OverlapAdd2.m
     文件        1352  2013-10-24 03:58  program\basic_tbx\pitch_vad1.m
     文件        2358  2013-08-02 10:28  program\basic_tbx\pitch_vads.m
     文件         398  2013-01-03 06:33  program\basic_tbx\pitfilterm1.m
     文件         363  2013-06-08 23:35  program\basic_tbx\polydetrend.m
     文件        1888  2009-06-04 00:57  program\basic_tbx\rfft.m
     文件        1182  2013-10-23 23:16  program\basic_tbx\simplesubspec.m
     文件         400  2013-05-01 19:07  program\basic_tbx\SNR_singlech.m
     文件        1650  2008-11-06 04:59  program\basic_tbx\SpecColorMap.m
     文件         655  2013-06-08 18:38  program\basic_tbx\stftms.m
     目录           0  2013-11-18 11:54  program\EMD\
............此处省略357个文件信息