Ficheiro:Sawtooth Fourier Animation.gif

Sawtooth_Fourier_Animation.gif (380 × 492 píxeis, tamanho: 226 kB, tipo MIME: image/gif, cíclico, 15 quadros, 4,5 s)

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.

Descrição do ficheiro

Descrição
English: Animation showing a Fourier series approximating a sawtooth wave (top), and the sinusoidal components that make up the series plotted together (bottom).
Data
Origem Obra do próprio. Created from scratch in Mathematica 8. Intended to replace File:Sawtooth Fourier Analysis.JPG.
Autor 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]

Licenciamento

Eu, titular dos direitos de autor desta obra, publico-a com a seguinte licença:
w:pt:Creative Commons
atribuição partilha nos termos da mesma licença
A utilização deste ficheiro é regulada nos termos da licença Creative Commons - Atribuição-CompartilhaIgual 3.0 Não Adaptada.
Pode:
  • partilhar – copiar, distribuir e transmitir a obra
  • recombinar – criar obras derivadas
De acordo com as seguintes condições:
  • atribuição – Tem de fazer a devida atribuição da autoria, fornecer uma hiperligação para a licença e indicar se foram feitas alterações. Pode fazê-lo de qualquer forma razoável, mas não de forma a sugerir que o licenciador o apoia ou subscreve o seu uso da obra.
  • partilha nos termos da mesma licença – Se remisturar, transformar ou ampliar o conteúdo, tem de distribuir as suas contribuições com a mesma licença ou uma licença compatível com a original.

Legendas

Adicione uma explicação de uma linha do que este ficheiro representa

Elementos retratados neste ficheiro

retrata

Um valor sem um elemento no repositório Wikidata

Histórico do ficheiro

Clique uma data e hora para ver o ficheiro tal como ele se encontrava nessa altura.

Data e horaMiniaturaDimensõesUtilizadorComentário
atual22h58min de 20 de fevereiro de 2012Miniatura da versão das 22h58min de 20 de fevereiro de 2012380 × 492 (226 kB)4dhayman~commonswiki

A seguinte página usa este ficheiro:

Utilização global do ficheiro

Metadados