Sound mit Mathematica

Play[Sin[2*π*200*t]+Sin[2*π*202*t],{t,0,10}]

Play[Sin[2*π*200*t]+Sin[2*π*202*t],{t,0,10},SampleRate->44100]

SampleRate is an option for sound primitives which specifies the number of samples per second to generate for sounds. The highest frequency in hertz that can be present in a particular sound is equal to half the setting for SampleRate.

Play[Sin[((2*π*200)/t)],{t,0,10}]

Play[Sin[((2*π*200)/t)],{t,0,10},SampleRate->100000]

Play[Sin[1000t^2],{t,0,10},SampleRate->20000]

Play[Sin[2*π*200 (Sqrt[t])],{t,0,10},SampleRate->44100]

Play[Exp[-t]Sin[200t],{t,0,10},SampleRate->44100]

Play[((Sin[400t])/t),{t,0,10},SampleRate->44100]

Play[(((Sin[400t])/(t^2))^2),{t,0,10},SampleRate->44100]

Play[Sin[2*π*200 t (2^((Ceiling[t]-1)/12.))],{t,0,13},SampleRate->44100]

Plot[{(2^((Ceiling[t]-1)/12.)),2},{t,0,13},PlotStyle->{{Thick,Red},Gray}]

(* Tonleiter *)
{Play[Sin[2*π*200*t],{t,0,0.5},SampleRate->44100],Play[Sin[2*π*200*(2^(2/12))t],{t,0,0.5},SampleRate->44100],
Play[Sin[2*π*200*(2^(4/12))t],{t,0,0.5},SampleRate->44100],
Play[Sin[2*π*200*(2^(5/12))t],{t,0,0.5},SampleRate->44100],
Play[Sin[2*π*200*(2^(7/12))t],{t,0,0.5},SampleRate->44100],
Play[Sin[2*π*200*(2^(9/12))t],{t,0,0.5},SampleRate->44100],
Play[Sin[2*π*200*(2^(11/12))t],{t,0,0.5},SampleRate->44100],
Play[Sin[2*π*200*(2^(12/12))t],{t,0,0.5},SampleRate->44100]
}

(* Dreiklang *)
Play[Sin[2*π*200*t]+Sin[2*π*200*(2^(4/12))t]+Sin[2*π*200*(2^(7/12))t],{t,0,10}]