File:Spherical wave2.gif
Από Wikimedia Commons
Μετάβαση στην πλοήγηση
Πήδηση στην αναζήτηση
Spherical_wave2.gif (178 × 178 εικονοστοιχεία, μέγεθος αρχείου: 117 KB, τύπος MIME: image/gif, κυκλικά επαναλαμβανόμενο, 9 καρέ, 1,4 s)
File information
Δομημένα δεδομένα
Λεζάντες
Σύνοψη[επεξεργασία]
Περιγραφή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
Ιστορικό αρχείου
Πατήστε σε μια ημερομηνία/ώρα για να δείτε το αρχείο όπως εμφανιζόταν εκείνη την χρονική στιγμή.
Ημερομηνία/Ώρα | Μικρογραφία | Διαστάσεις | Χρήστης | Σχόλιο | |
---|---|---|---|---|---|
τρέχον | 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 |
Δεν μπορείτε να αντικαταστήσετε αυτό το αρχείο.
Χρήση αρχείου
Οι ακόλουθες 2 σελίδες χρησιμοποιούν προς αυτό το αρχείο:
Καθολική χρήση αρχείου
Τα ακόλουθα άλλα wiki χρησιμοποιούν αυτό το αρχείο:
- Χρήση σε ar.wikipedia.org
- Χρήση σε bg.wikipedia.org
- Χρήση σε bs.wikipedia.org
- Χρήση σε ca.wikipedia.org
- Χρήση σε de.wikipedia.org
- Χρήση σε el.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