Š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ą
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) waveplane_wave=1;spherical_wave=2;wave_type=plane_wave;%wave_type = spherical_wave;ifwave_type==plane_wave% window sizeLx=0.4;Ly=1;wavenumber=60;% blow up the image by this factor to display betterfactor=30;% a small shift to be added below for graph. purposes.shift=1;elseifwave_type==spherical_waveLx=0.5;Ly=Lx;wavenumber=100;factor=1;shift=3;endMx=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);forrepeat=1:1% go over one time period of the fieldforiter=1:(nt-1)% nt is same as 1 due to peridicityt=Time(iter);ifwave_type==plane_wave% plane waveZ=real(exp(i*wavenumber*Y)*exp(-i*2*pi*t));elseifwave_type==spherical_wave% spherical waveZ=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 Zfigure(1);clf;holdon;axisequal;axisoff;image(factor*(real(Z+shift)));% add shift to Z for graphing purposescolormapjet;shadinginterp;file=sprintf('Movie_frame%d.eps',1000+iter);disp(file);%show the frame number we are atsaveas(gcf,file,'psc2')%save the current framepause(0.1);endend% The following command was used to create the animated figure.% convert -antialias -loop 10000 -delay 15 -compress LZW Movie_frame10* Spherical_wave.gif
Captions
Add a one-line explanation of what this file represents