Click the graphic to play the sound.
[{_,_},_, f_]:=If[<t<, Sin[f t], 0]
Play[Evaluate[N[Sin[] [{,},()2,1000(i+Sin[i])]]],{t,0,2}]
[{
_,
_},
_, f_]:=If[
] 
,
},(
)2,1000(i+Sin[i])]]],{t,0,2}]
