Section 3.2: Parameters in a family of functions

Manipulate[
f[t_]:=a Sin[b(t-c)]+d;
Plot[f[t],{t,-2Pi,2Pi},PlotRange->{-5,5}],
(* Play[f[t],{t,0,1}], *)
{{a,1},-5,5},
{{b,1},-5,5},
{{c,0},-5,5},
{{d,0},-5,5}
]

Let’s play some sounds!

Manipulate[
f[t_]:=a Sin[440 b(t-c)]+d;
Play[f[t],{t,0,.5}],
{{a,1},-5,5},
{{b,2},-5,5,1/12},
{{c,0},-5,5},
{{d,0},-5,5}
]

A non-linear transformation of b lets us play scales (b=0 is an A):

Manipulate[
f[t_]:=a Sin[440 2^b(t-c)]+d;
Play[f[t],{t,0,.5}],
{{a,1},-5,5},
{{b,2},-5,5,1/12},
{{c,0},-5,5},
{{d,0},-5,5}
]

Sound[{Play[Sin[1000 t (1+t^2)],{t,0,.2}],Play[Sin[500 t (1+t^3)],{t,0,.5}]}]

EmitSound[{Play[Sin[1000 t (1+t^2)],{t,0,.2}],Play[Sin[500 t (1+t^3)],{t,0,.5}]}]

Manipulate[
f[t_]:=a Sin[440 b(t-c)]+d;
EmitSound[Play[f[t],{t,0,.01}]],
{{a,1},-5,5},
{{b,2},-5,5,1/12},
{{c,0},-5,5},
{{d,0},-5,5}
]