Spectrum of a sound

*To*: mathgroup at smc.vnet.net*Subject*: [mg39533] Spectrum of a sound*From*: "thomas martinuzzo" <thomasmartinuzzo at hotmail.com>*Date*: Sat, 22 Feb 2003 03:37:23 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Can you explain to me this problem thanks ClearAll["Global`*"] la3[t_]:=Sin[2 ¦Ð 440 t] suite=Table[la3[t],{t,0,1/2,.0001}]; ListPlot[suite,PlotJoined\[Rule] True]; nPoints=Length[suite] amplitude=Abs[Fourier[suite]]; ListPlot[amplitude,PlotJoined\[Rule] True,PlotRange\[Rule] All,AxesLabel\[Rule] {Hz,dB}]; ListPlot[amplitude,PlotJoined\[Rule] True,AxesLabel\[Rule] {Hz,dB}]; Can you explain me this spectrum How to do, to have only a Dirac Fuction ¨¤ 440 Hz?