Fișier:Drum_vibration_mode21.gif
From Wikipedia, the free encyclopedia
Drum_vibration_mode21.gif (248 × 130 pixeli, mărime fișier: 230 KB, tip MIME: image/gif, în buclă, 19 imagini, 1,9 s)
![]() |
Acest fișier se află la Wikimedia Commons. Consultați pagina sa descriptivă acolo. |
DescriereDrum vibration mode21.gif | Illustration of vibrations of a drum. |
Dată | (UTC) |
Sursă | self-made with MATLAB |
Autor | Oleg Alexandrov |
![](https://upload.wikimedia.org/wikipedia/commons/thumb/2/21/Matlab_Logo.png/25px-Matlab_Logo.png)
Această GIF grafică digitală a fost creată cu MATLAB.
Public domainPublic domainfalsefalse |
![]() |
Eu, deținătorul drepturilor de autor ale acestei opere, o eliberez domeniului public. Aceasta se aplică în întreaga lume. În anumite țări există posibilitatea ca acest lucru să nu fie legal posibil; în acest caz: permit oricui să utilizeze această operă în orice scop, fără nicio condiție, atâta timp cât asemenea condiții nu sunt cerute de lege. |
Source code (MATLAB)
function main()
k = 2; % k-th asimuthal number and bessel function
p = 1; % p-th bessel root
q=find_pth_bessel_root(k, p);
N=20; % used for plotting
% Get a grid
R1=linspace(0.0, 1.0, N);
Theta1=linspace(0.0, 2*pi, N);
[R, Theta]=meshgrid(R1, Theta1);
X=R.*cos(Theta);
Y=R.*sin(Theta);
T=linspace(0.0, 2*pi/q, N); T=T(1:(N-1));
for iter=1:length(T);
t = T(iter);
Z=sin(q*t)*besselj(k, q*R).*cos(k*Theta);
figure(1); clf;
surf(X, Y, Z);
caxis([-1, 1]);
shading faceted;
colormap autumn;
% viewing angle
view(108, 42);
axis([-1, 1, -1, 1, -1, 1]);
axis off;
H=text(0, -0.3, 1.4, sprintf('(%d, %d) mode', k, p), 'fontsize', 25);
file=sprintf('Frame%d.png', 1000+iter);
disp(sprintf('Saving to %s', file));
print('-dpng', '-zbuffer', '-r100', file);
pause(0.1);
end
% converted to gif with the command
% convert -antialias -loop 10000 -delay 10 -scale 50% Frame10* Drum_vibration_mode21.gif
function r = find_pth_bessel_root(k, p)
% a dummy way of finding the root, just get a small interval where the root is
X=0.5:0.5:(10*p+1); Y = besselj(k, X);
[a, b] = find_nthroot(X, Y, p);
X=a:0.01:b; Y = besselj(k, X);
[a, b] = find_nthroot(X, Y, 1);
X=a:0.0001:b; Y = besselj(k, X);
[a, b] = find_nthroot(X, Y, 1);
r=(a+b)/2;
function [a, b] = find_nthroot(X, Y, n)
l=0;
m=length(X);
for i=1:(m-1)
if ( Y(i) >= 0 & Y(i+1) <= 0 ) | ( Y(i) <= 0 & Y(i+1) >= 0 )
l=l+1;
end
if l==n
a=X(i); b=X(i+1);
%disp(sprintf('Error in finding the root %0.9g', b-a));
return;
end
end
disp('Root not found!');
Captions
Add a one-line explanation of what this file represents
Items portrayed in this file
subiectul reprezentat
12 ianuarie 2008
Istoricul fișierului
Apăsați pe Data și ora pentru a vedea versiunea trimisă atunci.
Data și ora | Miniatură | Dimensiuni | Utilizator | Comentariu | |
---|---|---|---|---|---|
actuală | 5 noiembrie 2023 02:51 | ![]() | 248x130 (230 KB) | ReneeWrites | Reverted to version as of 04:46, 16 January 2008 (UTC) |
5 aprilie 2023 10:04 | ![]() | 250x168 (239 KB) | Dndnrmn2 | Reverted to version as of 06:33, 12 January 2008 (UTC) | |
16 ianuarie 2008 07:46 | ![]() | 248x130 (230 KB) | Oleg Alexandrov | Strip caption, looks better like this | |
12 ianuarie 2008 09:33 | ![]() | 250x168 (239 KB) | Oleg Alexandrov | {{Information |Description=Illustration of vibrations of a drum. |Source=self-made with MATLAB |Date=06:21, 12 January 2008 (UTC) |Author= Oleg Alexandrov |Permission= |other_versions= }} {{PD-self |
Utilizarea fișierului
Următoarele pagini conțin această imagine:
Utilizarea globală a fișierului
Următoarele alte proiecte wiki folosesc acest fișier:
- Utilizare la af.wikipedia.org
- Utilizare la ar.wikipedia.org
- Utilizare la ast.wikipedia.org
- Utilizare la bn.wikipedia.org
- Utilizare la ca.wikipedia.org
- Utilizare la chr.wikipedia.org
- Utilizare la da.wikipedia.org
- Utilizare la de.wikipedia.org
- Utilizare la en.wikipedia.org
- Utilizare la en.wikiversity.org
- Utilizare la eo.wikipedia.org
- Utilizare la es.wikipedia.org
- Utilizare la eu.wikipedia.org
- Utilizare la fa.wikipedia.org
- Utilizare la fr.wikipedia.org
- Utilizare la gl.wikipedia.org
- Utilizare la ha.wikipedia.org
- Utilizare la he.wikipedia.org
- Utilizare la hi.wikipedia.org
- Utilizare la id.wikipedia.org
- Utilizare la it.wikipedia.org
- Utilizare la ko.wikipedia.org
- Utilizare la lt.wikipedia.org
- Utilizare la mk.wikipedia.org
- Utilizare la mn.wikipedia.org
- Utilizare la mr.wikipedia.org
Vizualizați utilizările globale ale acestui fișier.