Αρχείο:Spherical_wave2.gif
From Wikipedia, the free encyclopedia
Spherical_wave2.gif (178 × 178 εικονοστοιχεία, μέγεθος αρχείου: 117 KB, τύπος MIME: image/gif, κυκλικά επαναλαμβανόμενο, 9 καρέ, 1,4 s)
Αυτό το αρχείο και η περιγραφή του προέρχονται από το Wikimedia Commons. Οι πληροφορίες από την σελίδα περιγραφής του εκεί εμφανίζονται παρακάτω. |
Σύνοψη
ΠεριγραφήSpherical wave2.gif | Illustration of a en:Spherical wave. Here the negative part of the wave is truncated. This needs to be corrected at some point. |
Ημερομηνία | (UTC) |
Πηγή | self-made with MATLAB |
Δημιουργός | Oleg Alexandrov |
άλλες εκδόσεις | Image:Spherical wave.gif |
diagram δημιουργήθηκε με MATLAB.
Αδειοδότηση
Public domainPublic domainfalsefalse |
Εγώ, ο κάτοχος των πνευματικών δικαιωμάτων αυτού του έργου, δημοσιεύω αυτό το έργο ως κοινό κτήμα. Αυτό ισχύει σε παγκόσμια κλίμακα. Σε ορισμένες χώρες αυτό μπορεί να μην είναι νομικά εφικτό. Αν ναι: Παραχωρώ σε οποιονδήποτε το δικαίωμα να χρησιμοποιήσει αυτό το έργο "για οποιονδήποτε σκοπό", χωρίς κανέναν όρο, εκτός και αν τέτοιοι όροι τίθενται από την νομοθεσία |
MATLAB source code
% an illustration of a spherical wave
plane_wave = 1;
spherical_wave = 2;
%wave_type = plain_wave;
wave_type = spherical_wave;
if wave_type == plane_wave
% window size
Lx=0.4;
Lx=1;
% blow up the image by this factor to display better
factor = 80;
% a small shift to be added below for graph. purposes.
shift = 0.3;
elseif wave_type == spherical_wave
Lx = 0.5;
Ly = Lx;
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));
wavenumber = 100;
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_wave2.gif
Items portrayed in this file
απεικονίζει
7 Νοεμβρίου 2007
Ιστορικό αρχείου
Κλικάρετε σε μια ημερομηνία/ώρα για να δείτε το αρχείο όπως εμφανιζόταν εκείνη τη στιγμή.
Ώρα/Ημερομ. | Μικρογραφία | Διαστάσεις | Χρήστης | Σχόλια | |
---|---|---|---|---|---|
τελευταία | 04:46, 8 Νοεμβρίου 2007 | 178 × 178 (117 KB) | Oleg Alexandrov | Tweak, same license | |
05:43, 7 Νοεμβρίου 2007 | 349 × 348 (150 KB) | Oleg Alexandrov | {{Information |Description=Illustration of a en:Spherical wave |Source=self-made with MATLAB |Date=~~~~~ |Author= Oleg Alexandrov |Permission= |other_versions= }} {{PD-self}} ==MATLAB source code== <pre> <nowiki> % an illus |
Συνδέσεις αρχείου
Τα παρακάτω λήμματα συνδέουν σε αυτό το αρχείο:
Καθολική χρήση αρχείου
Τα ακόλουθα άλλα wiki χρησιμοποιούν αυτό το αρχείο:
- Χρήση σε ar.wikipedia.org
- Χρήση σε bg.wikipedia.org
- Χρήση σε bs.wikipedia.org
- Χρήση σε ca.wikipedia.org
- Χρήση σε de.wikipedia.org
- Χρήση σε en.wikipedia.org
- Χρήση σε eo.wikipedia.org
- Χρήση σε es.wikipedia.org
- Χρήση σε fa.wikipedia.org
- Χρήση σε gl.wikipedia.org
- Χρήση σε he.wikipedia.org
- Χρήση σε id.wikipedia.org
- Χρήση σε ko.wikipedia.org
- Χρήση σε mk.wikipedia.org
- Χρήση σε ms.wikipedia.org
- Χρήση σε no.wikipedia.org
- Χρήση σε pa.wikipedia.org
- Χρήση σε pt.wikipedia.org
- Χρήση σε ro.wikipedia.org
- Χρήση σε simple.wikipedia.org
- Χρήση σε sl.wikipedia.org
- Χρήση σε sq.wikipedia.org
- Χρήση σε sv.wikipedia.org
- Χρήση σε zh.wikipedia.org
Ανακτήθηκε από "https://el.wikipedia.org/wiki/Αρχείο:Spherical_wave2.gif"