Die Posaunentöne

RowBox[{Clear[B1, B, f, b, d1, f1, as1, b1], ;, RowBox[{fpos, =, 58.3}], ;}]

RowBox[{         , RowBox[{B1p = Play[Sin[2 π ... p; , b1p = Play[Sin[2 π fpos * 8 * t], {t, 0, 3}, DisplayFunctionIdentity] ;}]}]

Show[B1p, Bp, fp, bp, d1p, f1p, as1p, b1p, DisplayFunction$SoundDisplayFunction] ;

[Graphics:../htmlfiles/harmonietoene_4.gif]

das war:   B1,B,f,b  ,d1,f1,as1,b1

Jagdsignal

Show[f1p, d1p, f1p, bp, d1p, fp, fp, bp, DisplayFunction$SoundDisplayFunction] ;

[Graphics:../htmlfiles/harmonietoene_6.gif]

Created by Mathematica  (May 26, 2006)