Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Data1 = Table[Sin[x], {x, 0, 2*Pi, 2*Pi/1000}];
- ListPlot[Abs[Fourier[Data1]], PlotRange -> All, Joined -> True]
- Data2 = Table[{x, Sin[x]}, {x, 0, 2*Pi, 2*Pi/1000}];
- ListPlot[Abs[Fourier[Data2]], PlotRange -> All, Joined -> True]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement