Википедија

Податотека:Sequential superposition of plane waves.gif

Sequential_superposition_of_plane_waves.gif ‎(360 × 223 пиксели, големина: 1,85 МБ, MIME-тип: image/gif, кружно, 451 кадар)

Врска до Ризницата Ова е податотека од Ризницата на Викимедија и може да се користи на други проекти. Подолу е наведена содржината на нејзината описна страница.
Заедничката ризница е складиште на слободно-лиценцирани слики и снимки. И Вие можете да помогнете.

Опис

Moved Оваа слика беше преместена на Ризницата од 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

Лиценцирање

Creative Commons CC-Zero Оваа податотека е достапна под лиценцата Криејтив комонс Универзално предавање во јавна сопственост.
Лицето поврзано со делото со овој документ го има предадено истото во јавна сопственост, откажувајќи се од сите права на тоа дело за цел свет, под законот за авторско право и поврзани или сродни законски права што ги имало на тоа дело, дотолку колку што е дозволено со закон. Делата под 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]]

Описи

Опишете во еден ред што претставува податотекава

Предмети прикажани на податотекава

прикажува

создадено

20 мај 2012

Историја на податотеката

Стиснете на датум/време за да ја видите податотеката како изгледала тогаш.

Датум/времеМинијатураДимензииКорисникКоментар
тековна19:27, 3 април 2013Минијатура на верзијата од 19:27, 3 април 2013360 × 223 (1,85 МБ)Patrick Edwin Morandescription

Податотекава се користи во следнава страница:

Глобална употреба на податотеката

Оваа податотека ја користат и следниве викија:

Метаподатоци

Оваа податотека содржи дополнителни информации, најверојатно додадени од дигиталниот апарат или отсликувач. Ако притоа податотеката претрпела промени, некои податоци може да не соодветствуваат во целост по промената на податотеката.

Преземено од „https://mk.wikipedia.org/wiki/Податотека:Sequential_superposition_of_plane_waves.gif“