Податотека:Sequential superposition of plane waves.gif
Прејди на прегледникот
Прејди на пребарувањето
Нема верзија со поголема разделност.
Sequential_superposition_of_plane_waves.gif (360 × 223 пиксели, големина: 1,85 МБ, MIME-тип: image/gif, кружно, 451 кадар)
Напомена: Поради технички ограничувања, минијатурите на GIF-слики со висока разделност како оваа нема да се анимираат.
Опис
|
Оваа слика беше преместена на Ризницата од en.wikipedia користејќи ботовска скрипта. Сите информации за извор се зачувани. Сликата има потреба од преглед. Покрај ова, на некое од полињата (или сите полиња) за информации може да има грешки; информациите за оваа слика не треба да се сметаат за доверливи, и сликата не треба да се користи пред да биде прегледана и пред да се извршат сите потребни исправки. Оваа предлошка треба да се отстрани штом ќе заврши прегледот. За подробности, погледајте подолу. Проверете сега! |
Опис
| Опис |
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}]; |
| Датум | |
| Извор | made with Mathematica |
| Автор | Teply |
Лиценцирање
 
|
Оваа податотека е достапна под лиценцата Криејтив комонс CC0 1.0 Предавање во јавна сопственост. |
| Лицето поврзано со делото со овој документ го има предадено истото во јавна сопственост, откажувајќи се од сите права на тоа дело за цел свет, под законот за авторско право и поврзани или сродни законски права што ги имало на тоа дело, дотолку колку што е дозволено со закон. Делата под CC0 не бараат припишување (наведување автор и/или извор). Кога го наведувате делото, наводот не треба да подразбира каква било поддршка од авторот.
|
Изворна евиденција за подигањето
Изворниот опис се наоѓаше тука. Сите долунаведени кориснички имиња се однесуваат на 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]]
Историја на податотеката
Стиснете на датум/време за да ја видите податотеката како изгледала тогаш.
| Датум/време | Минијатура | Димензии | Корисник | Коментар | |
|---|---|---|---|---|---|
| тековна | 18:27, 3 април 2013 | | 360 × 223 (1,85 МБ) | wikimediacommons>Patrick Edwin Moran | description |
Употреба на податотеката
Податотекава се користи во следнава страница:
