Vaizdas:Plane_wave.gif
From Wikipedia, the free encyclopedia
Plane_wave.gif (145 × 356 taškų, rinkmenos dydis: 34 KiB, MIME tipas: image/gif, ciklinis, 9 kadrai, 1,4 s)
Ši byla yra iš bendros Wikimedia Commons nemokamų resursų duomenų bazės, palaikomos Wikimedia Foundation organizacijos. Norėdami sužinoti licencijavimo smulkmenas, žiūrėkite paveikslėlio aprašymą | Į paveikslėlio aprašymą |
Aprašymas
AprašymasPlane wave.gif | Illustration of a en:Plane wave |
Data | (UTC) |
Šaltinis | self-made with MATLAB |
Autorius | Oleg Alexandrov |
Šis GIF paveikslėlis sukurtas su MATLAB.
Licencija
Public domainPublic domainfalsefalse |
Aš, šio darbo autorinių teisių savininkas, šį darbą skelbiu viešo naudojimo. Tai galioja visame pasaulyje. Kai kuriose šalyse tai negali būti legaliai leidžiama; jei taip: Suteikiu teisę naudoti šį darbą bet kokiai paskirčiai, be jokių sąlygų, nebent jos reikalaujamos įstatymų. |
MATLAB source code
% an illustration of a plane (spherical) wave
plane_wave = 1;
spherical_wave = 2;
wave_type = plane_wave;
%wave_type = spherical_wave;
if wave_type == plane_wave
% window size
Lx=0.4;
Ly=1;
wavenumber = 60;
% blow up the image by this factor to display better
factor = 30;
% a small shift to be added below for graph. purposes.
shift = 1;
elseif wave_type == spherical_wave
Lx = 0.5;
Ly = Lx;
wavenumber = 100;
factor = 1;
shift = 3;
end
Mx = Lx/2;
Wy = Ly/2;
M=400;
N = floor(M*Ly/Lx);
[X, Y]=meshgrid(linspace(-Lx/2, Lx/2, M), linspace(-Ly/2, Ly/2, N));
T = 1;
nt = 10;
Time = linspace(0, T, nt);
for repeat = 1:1
% go over one time period of the field
for iter = 1:(nt-1) % nt is same as 1 due to peridicity
t = Time(iter);
if wave_type == plane_wave
% plane wave
Z = real(exp(i*wavenumber*Y)*exp(-i*2*pi*t));
elseif wave_type == spherical_wave
% spherical wave
Z = exp(sqrt(-1)*wavenumber*sqrt(X.^2+Y.^2))*exp(-sqrt(-1)*2*pi*t)./sqrt(X.^2+Y.^2);
end
% plot the real part of the field Z
figure(1); clf; hold on; axis equal; axis off;
image(factor*(real(Z+shift))); % add shift to Z for graphing purposes
colormap jet; shading interp;
file = sprintf('Movie_frame%d.eps', 1000+iter);
disp(file); %show the frame number we are at
saveas(gcf, file, 'psc2') %save the current frame
pause(0.1);
end
end
% The following command was used to create the animated figure.
% convert -antialias -loop 10000 -delay 15 -compress LZW Movie_frame10* Spherical_wave.gif
Items portrayed in this file
vaizduoja
some value
Rinkmenos istorija
Paspauskite ant datos/laiko, kad pamatytumėte rinkmeną tokią, kokia ji buvo tuo metu.
Data/Laikas | Miniatiūra | Matmenys | Naudotojas | Paaiškinimas | |
---|---|---|---|---|---|
dabartinis | 08:57, 7 lapkričio 2007 | 145 × 356 (34 KiB) | Oleg Alexandrov | {{Information |Description=Illustration of a en:Plane wave |Source=self-made with MATLAB |Date=05:43, 7 November 2007 (UTC) |Author= Oleg Alexandrov |Permission= |other_versions= }} {{PD-self}} ==See also== * [[Image:Spher |
Paveikslėlio naudojimas
Paveikslėlis yra naudojamas šiuose puslapiuose:
Visuotinis rinkmenos naudojimas
Ši rinkmena naudojama šiose viki svetainėse:
- Naudojama it.wikipedia.org
- Naudojama ka.wikipedia.org
- Naudojama pl.wikipedia.org
- Naudojama ru.wikipedia.org
- Naudojama sv.wikipedia.org
Rodomas puslapis "https://lt.wikipedia.org/wiki/Vaizdas:Plane_wave.gif"