schwebung.nb

7 Oktaven fast gleich 12 Quinten

$RowBox[{RowBox[{f, =, 27.5}], ;}] Show[{Play[Sin[2 π f 2^7t], {t, 0, 3}],  & ... p; Play[Sin[2 π f (3/2)^12t], {t, 0, 3}], Play[Sin[2 π f 2^7t], {t, 0, 3}]}]$

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

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

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

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

Zusammen

$Play[Sin[2 π f * 2^7 * t] + Sin[2 π f * (3/2)^12 * t], {t, 0, 5}]$

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

${f 2^7, f * (3/2)^12, -f 2^7 + f * (3/2)^12, 1/(-f 2^7 + f * (3/2)^12), (-f 2^7 + f * (3/2)^12) 5}$

7 Oktave,12 Quinten, Diff in hz,Schweb.dauer, Anz Schweb in 5 sek

Beim Klavier ist das pythogräische Komma 68 Hz

Und das Ganze viel tiefer

$f = 5 ; Show[{Play[Sin[2 π f 2^7t], {t, 0, 3}],  &nb ... p; Play[Sin[2 π f (3/2)^12t], {t, 0, 3}], Play[Sin[2 π f 2^7t], {t, 0, 3}]}]$

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

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

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

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

Zusammen klingen die beiden Töne so in viel tiefer so::

${Play[{Sin[2 π f * 2^7 * t], Sin[2 π f * (3/2)^12 * t]}, {t, 0, 5}]}$

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

Dasselbe graphisch

$RowBox[{Plot, [, RowBox[{{Sin[2 π 5 * 2^7 * t] + Sin[2 * π * 5 * (3/2)^12t]}, ,, RowBox[{{, RowBox[{t, ,, 0, ,, 0.1}], }}], ,, , PlotStylefarbig}], ]}]$

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

$Play[{Sin[2 π 5 2^7 * t] + Sin[2 * π * 5 * (3/2)^12t]}, {t, 0, 5}]$

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

${f 2^7, f * (3/2)^12, -f 2^7 + f * (3/2)^12, 1/(-f 2^7 + f * (3/2)^12), (-f 2^7 + f * (3/2)^12) 5}$

7 Oktave,12 Quinten, Diff in hz,Schweb.dauer, Anz Schweb in 5 sek

Created by Mathematica (May 26, 2006)