Oktavenreihe des Klaviers (7, eine weniger als vorh.)

Bei der nächsten träte ein Fehler auf.

RowBox[{ , RowBox[{Table, , [, RowBox[{RowBox[{Play, [, RowBox[{RowBox[{Sin, [, RowBox[{2, , π, , 27.5, *, 2^k, *, t}], ]}], ,, {t, 1, 10}}], ]}], ,, {k, 0, 7}}], ]}]}]

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

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

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

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

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

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

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

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

{⁃Sound⁃, ⁃Sound⁃, ⁃Sound⁃, ⁃Sound⁃, ⁃Sound⁃, ⁃Sound⁃, ⁃Sound⁃, ⁃Sound⁃}

Created by Mathematica  (May 26, 2006)