harmonietoene.nb

Akkorde definieren und anhören

Quinte

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

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

$akkord[fgr_, fak1_, fak2_, td_] := Play[{Sin[2 π * fgr * fak1 * t] + Sin[2 π * fgr * ... fgr * fak2 * t] + Sin[2 π * fgr * fak3 * t]}, {t, 0, td}, DisplayFunctionIdentity] ;$

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

quinte[fgr_, td_] := akkord[fgr, 1, 3/2, td] ; quarte[fgr_, td_] := akkord[fgr, 1, 4/3, td] ; ... ; sekundeG[fgr_, td_] := akkord[fgr, 1, 8/9, td] ; sexte[fgr_, td_] := akkord[fgr, 1, 5/3, td] ;

tonikaDur[fgr_, td_] := akkord[fgr, 1, 5/4, 3/2, td] ; subdomDur[fgr_, td_] := akkord[fgr, 1, ... d_] := akkord[fgr, 3/2, 9/8, 15/16, td] ; tonikaMoll[fgr_, td_] := akkord[fgr, 1, 6/5, 3/2, td] ;

Kadenz

Show[tonikaDur[fgr, 3], subdomDur[fgr, 3], dominanteDur[fgr, 3], tonikaDur[fgr, 3], DisplayFunction->$SoundDisplayFunction] ;

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

Created by Mathematica (May 26, 2006)