Pure Tones

Manipulate[Labeled[Play[Sin[2Pi f t],{t,0,1}],
Style[Row[{f, " Hz"}],16,"Label"],Top],
{{f,440,"frequency"},50,3500,1}]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Pure Tones" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/PureTones/

Contributed by: Stephen Wolfram

A full-function Wolfram Mathematica 6 system is required to edit this notebook.
GET WOLFRAM MATHEMATICA 6 »

© The Wolfram Demonstrations Project & Contributors   |   Terms of Use   |   Make a new version of this Demonstration »