[Date Index] [Thread Index] [Author Index]

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?