Stimmen der  D-Saite von A eine Quinte tiefer

Schwebung zwischen reiner und temperierter Schwingung

{440 * 2/3, "rein", "und nun temperiert:" , 440 2^-7/12}//N

RowBox[{{, RowBox[{293.333, ,, rein, ,, und nun temperiert:, ,, 293.665}], }}]

a = Play[{Sin[2 * π * 440 * t]}, {t, 0, 3}] ; 

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

d = Play[{Sin[2 * π * 440 * 2/3 * t]}, {t, 0, 3}] ;

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

qda = Play[{Sin[2 π 440 * t] + Sin[2 * π * 440 * (2/3) t]}, {t, 0, 5}] ;

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

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

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

Created by Mathematica  (May 26, 2006)