Fayl:Sequential superposition of plane waves.gif
Navigatsiya qismiga oʻtish
Qidirish qismiga oʻtish
Bundan kattaroq tasvir yoʻq.
Sequential_superposition_of_plane_waves.gif (360 × 223 piksel, fayl hajmi: 1,85 MB, MIME tipi: image/gif, looped, 451 frames)
Note: Due to technical limitations, thumbnails of high resolution GIF images such as this one will not be animated.
Qisqa izoh
|
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! |
Qisqa izoh
| Taʼrif |
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}]; |
| Sanasi | |
| Manba | made with Mathematica |
| Muallif | Teply |
Litsenziyalash
 
|
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]]
Fayl tarixi
Faylning biror paytdagi holatini koʻrish uchun tegishli sana/vaqtga bosingiz.
| Sana/Vaqt | Miniatura | Oʻlchamlari | Foydalanuvchi | Izoh | |
|---|---|---|---|---|---|
| joriy | 18:27, 2013-yil 3-aprel | | 360 × 223 (1,85 MB) | wikimediacommons>Patrick Edwin Moran | description |
Fayllarga ishoratlar
Bu faylga quyidagi sahifa bogʻlangan:
