ポーン

で、作ったsuilibで早速遊んでみます。

exec "suilib.sci";
index=[0:6*sec];  // create 6 sec length index array.
playsnd( sin(440*Hz*index) .* exp(-2*[index]/sec) );

playsndの引数の後半がエンベロープを作りだしています。指数関数的に減衰するのでポーンという音になります。
もうちょっといたずら。

exec "suilib.sci"
idxpo=[0:1*sec];  // create 1 sec length index array.
idxpon=[0:3*sec];  // create 3 sec length index array.
po= sin(440*Hz*idxpo) .* exp(-8*[idxpo]/sec);
pon= sin(880*Hz*idxpon) .* exp(-3*[idxpon]/sec);
playsnd([ po po po pon ]);

こんばんは、7時のNHKニュースです。