pratt手册中的脚本程序.doc

pratt手册中的脚本程序.doc

ID:57270231

大小:183.00 KB

页数:35页

时间:2020-08-08

pratt手册中的脚本程序.doc_第1页
pratt手册中的脚本程序.doc_第2页
pratt手册中的脚本程序.doc_第3页
pratt手册中的脚本程序.doc_第4页
pratt手册中的脚本程序.doc_第5页
资源描述:

《pratt手册中的脚本程序.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、(一)提取二维频谱中某个频率位置的能量值#点击主窗口的Control菜单下的Newpraatscript按钮,以建立一个新的脚本语言编辑窗口,然后将脚本语言拷贝到脚本语言编辑窗口中;#然后在对象列表窗口选定并编辑(Edit)一个二维频谱对象(Spectrum),再在二维频谱对象上将游标定位到您需要测量其能量的频率位置;#然后按脚本编辑器的Run菜单下的Run按钮;#执行结束后,您将在弹出的信息窗口中看见该频率位置的能量值。clearinfospectrumN$=selected$("Spectrum")editorSpectrum'spectrumN$'pitchV=Ge

2、tcursorendeditorbinNum=GetnumberofbinsbinW=GetbinwidthbinN=Getbinnumberfromfrequency...'pitchV'binNQ=floor(binN)binNH=ceiling(binN)pitchQ=Getfrequencyfrombinnumber...'binNQ'pitchH=Getfrequencyfrombinnumber...'binNH'ifpitchH-pitchQ>0rV=Getrealvalueinbin...'binNQ'rV=rViV=Getimaginaryvaluein

3、bin...'binNQ'iV=iVshengYaQ=(rV*rV+iV*iV)^0.5dBQ=20*log10(shengYaQ/2*10^5)+15rV=Getrealvalueinbin...'binNH'rV=rViV=Getimaginaryvalueinbin...'binNH'iV=iVshengYaH=(rV*rV+iV*iV)^0.5dBH=20*log10(shengYaH/2*10^5)+15juli=(pitchV-pitchQ)/(pitchH-pitchQ)dB=dBQ+(dBH-dBQ)*juliendififpitchH-pitchQ=0r

4、V=Getrealvalueinbin...'binN'rV=rViV=Getimaginaryvalueinbin...'binN'iV=iVshengYa=(rV*rV+iV*iV)^0.5dB=20*log10(shengYa/2*10^5)+15endifprint'dB'(二)提取二维频谱中前n个谐波峰的能量值#点击主窗口的Control菜单下的Newpraatscript按钮,以建立一个新的脚本语言编辑窗口,然后将脚本语言拷贝到脚本语言编辑窗口中;#然后在对象列表窗口选定并编辑(Edit)一个二维频谱对象(Spectrum),并测量其第10个谐波的中心频率,再

5、除以10以得到这个时点的基频值;#然后按脚本编辑器的Run菜单下的Run按钮,接下来在弹出的对话窗口里输入您刚才测定的基频值和需要测量的谐波峰数目n;#执行结束后,您将在弹出的信息窗口中看见n个谐波峰位置的能量值。form对话框positiveFrequency_Zero_(Hz)100positiveThe_Number_of_harmonics10endformfZero=frequency_ZerofNum=the_Number_of_harmonicsprint'fNum'clearinfoforjfrom1tofNumpitchV=fZero*jbinNum=G

6、etnumberofbinsbinW=GetbinwidthbinN=Getbinnumberfromfrequency...'pitchV'binNQ=floor(binN)binNH=ceiling(binN)pitchQ=Getfrequencyfrombinnumber...'binNQ'pitchH=Getfrequencyfrombinnumber...'binNH'ifpitchH-pitchQ>0rV=Getrealvalueinbin...'binNQ'rV=rViV=Getimaginaryvalueinbin...'binNQ'iV=iVshengY

7、aQ=(rV*rV+iV*iV)^0.5dBQ=20*log10(shengYaQ/2*10^5)+15rV=Getrealvalueinbin...'binNH'rV=rViV=Getimaginaryvalueinbin...'binNH'iV=iVshengYaH=(rV*rV+iV*iV)^0.5dBH=20*log10(shengYaH/2*10^5)+15juli=(pitchV-pitchQ)/(pitchH-pitchQ)dB=dBQ+(dBH-dBQ)*juliendififpitchH-pitchQ=0rV

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。