用Praat提取音强数据（按百分比）

从Praat软件里面提取音强数据

朋友写论文时要按照百分比来取一段音频的音强数据，所以给她写了下面的程序。
语音学的研究生们应该都会用到这软件，在这里贴出来给不会写的参考一下。
不会用的点这里(如需寻求帮助请在邮件中作简短自我介绍)。这里就不把使用方法写出来了，相信很多人会用了。
我只是打酱油的，有幸看到下面程序的不要喷……
稍作修改可以按固定时间间隔提取数据

#程序编写：何京宗
#编写日期：2014-02-22
#程序功能：用户输入百分比的间隔，
#	选中一段音频片段，
#	程序会自动按照输入的数据计算出各百分比对应时间的音强数据



form 按百分比提取音强(Intensity)数据
	comment 请输入提取间隔的百分比:
	positive Interval(%) 5
endform
echo 每间隔'interval'%的音强数据如下:
printline
printline 百分比(%)'tab$'时间(s)'tab$'音强(dB)
printline -------------------------------
beginTime=Get begin of selection
endTime=Get end of selection
percent=0.00
time=beginTime
totleTime=endTime-beginTime
if beginTime!=endTime
	while time<=endTime
		Move cursor to... 'time'
		intensity=Get intensity
		printline 'percent:2'%'tab$''tab$''time:3's'tab$''intensity:4'
		percent=percent+interval
		time=beginTime+totleTime*percent/100
	endwhile
else
	printline 数据提取错误！请选中一段音频片段。
endif
printline -------------------------------
Select... 'beginTime' 'endTime'

以下是运行结果：

如您觉得本文对您有帮助，可以赞助博主一杯奶茶吗