MATLAB扩展编程源程序第十二章关于语音处理

MATLAB扩展编程源程序（第十二章）（关于语音处理）

x7 = wavread（‘..\ch6\7a.wav‘）;
y  = enframe（x7 240 80）;
amp1 = sum（abs（y）2）;
amp2 = sum（y.*y2）;
amp3 = sum（log（y.*y+eps）2）;

figure（1）
subplot（311）
plot（amp1）
legend（‘amp = \Sigma|x|‘）

subplot（312）
plot（amp2）
legend（‘amp = \Sigma|x^2|‘）

subplot（313）
plot（amp3）
legend（‘amp = \Sigma|log（x^2）|‘）

zcr = zeros（size（y1）1）;
delta = 0.02;
for i=1:size（y1）
    x = y（i:）;
    for j=1:length（x）-1
        if x（j） * x（j+1） < 0 & abs（x（j）-x（j+1））>delta
            zcr（i） = zcr（i）+1;
        end
    end
end

figure（2）
subplot（211）
plot（x7）
subplot（212）
plot（zcr）

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      19132  2001-11-03 14:37  ch12\ActVoice\ActVoice.aps

     文件        743  2001-11-03 16:29  ch12\ActVoice\ActVoice.clw

     文件       1944  2001-11-03 14:37  ch12\ActVoice\ActVoice.cpp

     文件        224  2001-11-03 14:37  ch12\ActVoice\ActVoice.def

     文件       8620  2001-11-11 23:04  ch12\ActVoice\ActVoice.dsp

     文件        539  2001-11-03 15:06  ch12\ActVoice\ActVoice.dsw

     文件        968  2001-11-03 14:37  ch12\ActVoice\ActVoice.h

     文件      74752  2001-11-11 23:04  ch12\ActVoice\ActVoice.ncb

     文件       1988  2001-11-03 14:49  ch12\ActVoice\ActVoice.odl

     文件      48640  2001-11-11 23:04  ch12\ActVoice\ActVoice.opt

     文件       2248  2001-11-11 23:01  ch12\ActVoice\ActVoice.plg

     文件       3381  2001-11-03 14:37  ch12\ActVoice\ActVoice.rc

     文件        238  2001-11-03 14:37  ch12\ActVoice\ActVoiceCtl.bmp

     文件       7295  2001-11-04 10:57  ch12\ActVoice\ActVoiceCtl.cpp

     文件       2199  2001-11-04 10:17  ch12\ActVoice\ActVoiceCtl.h

     文件       2422  2001-11-03 14:37  ch12\ActVoice\ActVoicePpg.cpp

     文件       1436  2001-11-03 14:37  ch12\ActVoice\ActVoicePpg.h

     文件       3168  2001-11-03 14:37  ch12\ActVoice\ReadMe.txt

     文件        490  2001-11-03 14:37  ch12\ActVoice\Resource.h

     文件        204  2001-11-03 14:37  ch12\ActVoice\StdAfx.cpp

     文件       1185  2001-11-03 14:37  ch12\ActVoice\StdAfx.h

     文件       7497  2001-11-04 10:46  ch12\ActVoice\wave.cpp

     文件        232  2001-11-04 10:35  ch12\ActVoice\wave.h

     文件     262144  2001-11-04 11:42  ch12\ActVoice.ocx

     文件        598  2001-10-30 16:51  ch12\ampzcr.m

     文件       1199  2001-11-03 11:15  ch12\MatWave\main.cpp

     文件      17812  2001-10-31 23:12  ch12\MatWave\MatWave.aps

     文件        328  2001-10-31 23:11  ch12\MatWave\MatWave.clw

     文件       1757  2001-10-31 23:11  ch12\MatWave\MatWave.cpp

     文件        198  2001-11-01 02:12  ch12\MatWave\MatWave.def

............此处省略30个文件信息