mysound$="ash"
select Sound 'mysound$'
To Spectrum... yes
Cepstral smoothing... 200
Rename... 'mysound$'_smooth
select Spectrum 'mysound$'
cog = Get centre of gravity... 2
std = Get standard deviation... 2
select Sound 'mysound$'
intensity = Get intensity (dB)
cog=round(cog)
std=round(std)
intensity=round(intensity)
printline From left to right: intensity (dB), centre of gravity (Hz), dispersion(Hz)
printline 'mysound$''tab$''intensity''tab$''cog''tab$''std'