File:Sequential superposition of plane waves.gif
Sequential_superposition_of_plane_waves.gif (360 × 223 Pixel, Dateigröße: 1,85 MB, MIME-Typ: image/gif, Endlosschleife, 451 Bilder)
Bildtexte
Inhaltsverzeichnis
Beschreibung[Bearbeiten]
Diese Datei wurde von en.wikipedia mittels eines automatischen Skriptes verschoben. Alle Informationen aus der Quelle wurden übernommen. Eine Überprüfung muss jedoch trotzdem erfolgen. Zusätzlich könnten die Einträge in einem oder allen Informationsfeldern falsch sein: Keine Information auf dieser Seite sollte ohne weiteres als korrekt oder vertrauenswürdig betrachtet werden. Sobald diese Informationen überprüft worden sind, kann dieser Baustein entfernt werden. Weitere Details befinden sich unterhalb dieses Bausteines. Jetzt überprüfen! |
Beschreibung[Bearbeiten]
BeschreibungSequential superposition of plane waves.gif |
made in Mathematica with the following sloppy but effective code: Do[a[jj] = Plot[{Cos[x], Cos[2 x] + 10 - 0.25*jj}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 1, 40}]; Do[a[jj] = Plot[{Cos[x] + 0.1*(jj - 40)*Cos[2 x], 0.1*(50 - jj)*Cos[2 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 41, 50}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x], Cos[3 x] + 10 - 0.25*(jj - 50)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 51, 90}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + 0.1*(jj - 90)*Cos[3 x], 0.1*(100 - jj)*Cos[3 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 91, 100}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x], Cos[4 x] + 10 - 0.25*(jj - 100)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 101, 140}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + 0.1*(jj - 140)*Cos[4 x], 0.1*(150 - jj)*Cos[4 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 141, 150}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x], Cos[5 x] + 10 - 0.25*(jj - 150)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 151, 190}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + 0.1*(jj - 190)*Cos[5 x], 0.1*(200 - jj)*Cos[5 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 191, 200}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x], Cos[6 x] + 10 - 0.25*(jj - 200)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 201, 240}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + 0.1*(jj - 240)*Cos[6 x], 0.1*(250 - jj)*Cos[6 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 241, 250}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x], Cos[7 x] + 10 - 0.25*(jj - 250)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 251, 290}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + 0.1*(jj - 290)*Cos[7 x], 0.1*(300 - jj)*Cos[7 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 291, 300}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x], Cos[8 x] + 10 - 0.25*(jj - 300)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 301, 340}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x] + 0.1*(jj - 340)*Cos[8 x], 0.1*(350 - jj)*Cos[8 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 341, 350}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x] + Cos[8 x], Cos[9 x] + 10 - 0.25*(jj - 350)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 351, 390}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x] + Cos[8 x] + 0.1*(jj - 390)*Cos[9 x], 0.1*(400 - jj)*Cos[9 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 391, 400}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x] + Cos[8 x] + Cos[9 x], Cos[10 x] + 10 - 0.25*(jj - 400)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 401, 440}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x] + Cos[8 x] + Cos[9 x] + 0.1*(jj - 440)*Cos[10 x], 0.1*(450 - jj)*Cos[10 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 441, 450}];frames = ParallelTable[a[jj], {jj, 0, 450}]; |
Datum | |
Quelle | made with Mathematica |
Urheber | Teply |
Lizenz[Bearbeiten]
Diese Datei wird unter der Creative-Commons-Lizenz „CC0 1.0 Verzicht auf das Copyright“ zur Verfügung gestellt. | |
Die Person, die das Werk mit diesem Dokument verbunden hat, übergibt dieses weltweit der Gemeinfreiheit, indem sie alle Urheberrechte und damit verbundenen weiteren Rechte – im Rahmen der jeweils geltenden gesetzlichen Bestimmungen – aufgibt. Das Werk kann – selbst für kommerzielle Zwecke – kopiert, modifiziert und weiterverteilt werden, ohne hierfür um Erlaubnis bitten zu müssen.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Ursprüngliches Datei-Logbuch[Bearbeiten]
Upload date | User | Bytes | Dimensions | Comment
- 2012-05-20 21:49:47 | Teply | 1940719 | 360×223 | Uploading a self-made file using [[Wikipedia:File_Upload_Wizard|File Upload Wizard]]
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 17:27, 3. Apr. 2013 | 360 × 223 (1,85 MB) | Patrick Edwin Moran (Diskussion | Beiträge) | description |
Du kannst diese Datei nicht überschreiben.
Dateiverwendung
Keine Seiten verwenden diese Datei.
Globale Dateiverwendung
Die nachfolgenden anderen Wikis verwenden diese Datei:
- Verwendung auf da.wikipedia.org
- Verwendung auf en.wikipedia.org
- Verwendung auf hr.wikipedia.org
- Verwendung auf mk.wikipedia.org
- Verwendung auf pt.wikipedia.org
- Verwendung auf sh.wikipedia.org
- Verwendung auf simple.wikipedia.org
- Verwendung auf uz.wikipedia.org
Metadaten
Diese Datei enthält weitere Informationen, die in der Regel von der Digitalkamera oder dem verwendeten Scanner stammen. Durch nachträgliche Bearbeitung der Originaldatei können einige Details verändert worden sein.
GIF-Dateikommentar | Created by Wolfram Mathematica 7.0 |
---|