File:Sequential superposition of plane waves.gif
No higher resolution available.
Sequential_superposition_of_plane_waves.gif (360 × 223 pixels, file size: 1.85 MB, MIME type: image/gif, looped, 451 frames)
 | This is a file from the Wikimedia Commons. Information from its description page there is shown below. Commons is a freely licensed media file repository. You can help. |
Summary
|
This file was moved to Wikimedia Commons from en.wikipedia using a bot script. All source information is still present. It requires review. Additionally, there may be errors in any or all of the information fields; information on this file should not be considered reliable and the file should not be used until it has been reviewed and any needed corrections have been made. Once the review has been completed, this template should be removed. For details about this file, see below. Check now! |
Summary
| Description |
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}]; |
| Date | |
| Source | made with Mathematica |
| Author | Teply |
Licensing
 
|
This file is made available under the Creative Commons CC0 1.0 Universal Public Domain Dedication. |
| The person who associated a work with this deed has dedicated the work to the public domain by waiving all of their rights to the work worldwide under copyright law, including all related and neighboring rights, to the extent allowed by law. You can copy, modify, distribute and perform the work, even for commercial purposes, all without asking permission.
|
Original upload log
The original description page was here. All following user names refer to en.wikipedia.
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]]
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 17:27, 3 April 2013 | | 360 × 223 (1.85 MB) | Patrick Edwin Moran | description |
File usage
The following 2 pages use this file:
Global file usage
The following other wikis use this file:
- Usage on da.wikipedia.org
- Usage on hr.wikipedia.org
- Usage on mk.wikipedia.org
- Usage on pt.wikipedia.org
- Usage on sh.wikipedia.org
- Usage on simple.wikipedia.org
- Usage on uz.wikipedia.org
