mysound$="f" select Sound 'mysound$' Copy... 'mysound$'_win select Sound 'mysound$'_win Multiply by window... Gaussian1 To Spectrum... no Cepstral smoothing... 200 Rename... 'mysound$'_win_smooth select Spectrum 'mysound$'_win 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'