File:Sawtooth Fourier Animation.gif
From Wikimedia Commons, the free media repository
Jump to navigation
Jump to search
Sawtooth_Fourier_Animation.gif (380 × 492 pixels, file size: 226 KB, MIME type: image/gif, looped, 15 frames, 4.5 s)
File information
Structured data
Captions
This image could be re-created using vector graphics as an SVG file. This has several advantages; see Commons:Media for cleanup for more information. If an SVG form of this image is available, please upload it and afterwards replace this template with
{{vector version available|new image name}} .
It is recommended to name the SVG file "Sawtooth Fourier Animation.svg" - then the template Vector version available (or Vva) does not need the new image name parameter. |
Summary
[edit]DescriptionSawtooth Fourier Animation.gif |
English: Animation showing a Fourier series approximating a sawtooth wave (top), and the sinusoidal components that make up the series plotted together (bottom). |
Date | |
Source | Own work. Created from scratch in Mathematica 8. Intended to replace File:Sawtooth Fourier Analysis.JPG. |
Author | 4dhayman |
(*Mathematica code to generate diagram and export it as an animated GIF*) Export["Sawtooth_Fourier_Animation.gif", Table[GraphicsColumn[{Show[ Plot[2 ((1/2) - (1/Pi)* Sum[(1/n)*Sin[n*Pi*x*2], {n, 1, steps}]) - 1, {x, 0, 2}, PlotStyle -> {Thick, Blue}], Plot[2 SawtoothWave[x] - 1, {x, 0, 2}, ExclusionsStyle -> {Dashing[Large], Thick, Black}, PlotStyle -> {Thick, Black}], Graphics[ Text[Style["k = " <> ToString[steps], Bold, FontSize -> 18, FontFamily -> "Helvetica"], {1.65, 1.1}]], LabelStyle -> {FontSize -> 18, FontFamily -> "Helvetica"}, AxesOrigin -> {0, -1.1}, AxesLabel -> {"x", "y"}, ImageSize -> Scaled[.8], PlotRange -> {{0, 2}, {-1.1, 1.2}}], Plot[Evaluate[ 2 ((1/2) - (1/Pi)* Table[(1/n)*Sin[n*Pi*x*2], {n, 1, steps, 1}]) - 1], {x, 0, 2}, PlotStyle -> ({Thick, Blue, #} & /@ Table[Opacity[If[i == 1, 1, 1 - i/(steps + 1)]], {i, 1, steps, 1}]), LabelStyle -> {FontSize -> 18, FontFamily -> "Helvetica"}, AxesOrigin -> {0, -1.1}, AxesLabel -> {"x", "y"}, ImageSize -> Scaled[.8], PlotRange -> {{0, 2}, {-1.1, 1.2}}]}], {steps, 1, 15}], "DisplayDurations" -> 0.3]
Licensing
[edit]I, the copyright holder of this work, hereby publish it under the following license:
This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license.
- You are free:
- to share – to copy, distribute and transmit the work
- to remix – to adapt the work
- Under the following conditions:
- attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
- share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 22:58, 20 February 2012 | 380 × 492 (226 KB) | 4dhayman~commonswiki (talk | contribs) |
You cannot overwrite this file.
File usage on Commons
There are no pages that use this file.
File usage on other wikis
The following other wikis use this file:
- Usage on de.wikiversity.org
- Usage on en.wikipedia.org
- Usage on id.wikipedia.org
- Usage on uk.wikipedia.org
Metadata
This file contains additional information such as Exif metadata which may have been added by the digital camera, scanner, or software program used to create or digitize it. If the file has been modified from its original state, some details such as the timestamp may not fully reflect those of the original file. The timestamp is only as accurate as the clock in the camera, and it may be completely wrong.
GIF file comment | Created by Wolfram Mathematica 8.0 |
---|