Viša rezolucija nije dostupna.
Sequential_superposition_of_plane_waves.gif ((360 × 223 piksela, veličina datoteke: 1,85 MB, <a href="/wiki/MIME" title="MIME">MIME</a> tip: image/gif), animacija se ponavlja, 451 okvir)
Napomena: Zbog tehničkih ograničenja minijature GIF slika visoke rezolucije poput ove neće biti animirane.
|
Ova je datoteka sa stranica Zajedničkog poslužitelja Zaklade Wikimedije i smiju je rabiti drugi projekti. Opis s njezine stranice s opisom datoteke prikazan je ispod. |
Sažetak
|
Ova datoteka je premještena na Wikimedijin Zajednički poslužitelj s en.wikipedia uz pomoć bota. Svi izvorni podaci još uvijek su prisutni te zahtijevaju provjeru. Moguće je da postoje greške u nekim ili svim poljima s podacima. Podaci na ovoj datoteci ne bi se trebali smatrati vjerodostojnima i datoteku ne bi trebalo rabiti sve dok ne bude provjerena i dok ne budu učinjeni svi potrebi ispravci. Jednom kad se provjera dovrši, ovaj bi predložak trebao biti uklonjen. Za detalje o ovoj datoteci, pogledajte niže. Provjerite odmah! |
Sažetak
| Opis |
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 | |
| Izvor | made with Mathematica |
| Autor | Teply |
Licencija
 
|
Ova datoteka je dostupna pod Creative Commons CC0 univerzalnim odricanjem u javno vlasništvo. |
| Osoba koja je sudjelovala u radu na ovom dokumentu posvetila je rad javnom vlasništvu odricanjem od svih njenih prava na taj rad širom svijeta po zakonom o autorskim pravima i sve povezana zakonska prava koja bi imao/imala, u mjeri dopuštenoj zakonom. Možete kopirati, mijenjati, distribuirati i prilagođavati rad, čak i u komercijalne svrhe, bez traženja dopuštenja.
|
Izvorna evidencija postavljanja
Izvorna stranica s opisom bila je ovdje. Niže navedena suradnička imena odnose se na 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]]
Povijest datoteke
Kliknite na datum/vrijeme kako biste vidjeli datoteku kakva je tada bila.
| Datum/Vrijeme | Minijatura | Dimenzije | Suradnik | Komentar | |
|---|---|---|---|---|---|
| sadašnja | 17:27, 3. travanj 2013. | | 360 × 223 (1,85 MB) | wikimediacommons>Patrick Edwin Moran | description |
Poveznice
Na ovu sliku vode poveznice sa sljedećih stranica:
