Das war die reine Stimmung
und nun die temperierte Stimmung:

d ist das um 0,331 Hz höher

dt = Play[{Sin[2 * π * 440 * 2^-7/12 * t]}, {t, 0, 3}] ;

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

qdat = Play[{Sin[2 π 440 * t] + Sin[2 * π * 440 * 2^-7/12t]}, {t, 0, 5}] ;

General :: spell1 : Possible spelling error: new symbol name \"qdat\" is similar to existing symbol \"qda\". More…

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

Show[a, dt, a, qdat, a, qda, a, d] ;

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

Show[qda, qdat, qda, qdat] ;

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

Und nun die beiden d zusammen, Unterschied: rein ist 0,331 Hz tiefer

ddt = Play[{Sin[2 π 440 2^-7/12 * t] + Sin[2 * π * 440 * (2/3) t]}, {t, 0, 10}] ;

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

Show[d, ddt, dt, a, d] ;

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

RowBox[{{, RowBox[{"d=", ,, RowBox[{440., *, (2/3)}], ,, "dt=", ,, RowBox[ ... RowBox[{(, RowBox[{RowBox[{440.,   , 2^-7/12}], -, 440 * 2/3}], )}], ^, (-1)}]}], , }}]

RowBox[{{, RowBox[{d=, ,, 293.333, ,, dt=, ,, 293.665, ,, diff=, ,, 0.331435, ,, T=, ,, 3.01719}], }}]

D rein,D temperiert,  Frequenzunterschied, Schwebungsdauer

RowBox[{RowBox[{Plot, [, RowBox[{{Sin[2 π 440 2^-7/12 * t] + Sin[2 * π * 440 * (2/3) t]}, ,, RowBox[{{, RowBox[{t, ,, 0, ,, 2.7}], }}]}], ]}], ;}]

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

Created by Mathematica  (May 26, 2006)