File:Drum vibration mode03.gif
De Wikimedia Commons, el repositorio multimedia libre
Ir a la navegación
Ir a la búsqueda
Drum_vibration_mode03.gif (250 × 130 píxeles; tamaño de archivo: 116 kB; tipo MIME: image/gif, bucleado, 19 frames, 1,9s)
Información del archivo
Datos estructurados
Leyendas
DescripciónDrum vibration mode03.gif | Illustration of vibrations of a drum. |
Fecha | (UTC) |
Fuente | self-made with MATLAB |
Autor | Oleg Alexandrov |
Otras versiones | Obras derivadas de ésta: Membrane-normal-modes.gif |
Public domainPublic domainfalsefalse |
Yo, el titular de los derechos de autor de esta obra, lo libero al dominio público. Esto aplica en todo el mundo. En algunos países esto puede no ser legalmente factible; si ello ocurriese: Concedo a cualquier persona el derecho de usar este trabajo para cualquier propósito, sin ningún tipo de condición al menos que éstas sean requeridas por la ley. |
function main()
k = 0; % k-th asimuthal number and bessel function
p = 3; % 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;
file=sprintf('Frame_mode%d%d_%d.png', k, p, 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% Frame_mode03* Drum_vibration_mode03.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!');
Historial del archivo
Haz clic sobre una fecha y hora para ver el archivo tal como apareció en ese momento.
Fecha y hora | Miniatura | Dimensiones | Usuario | Comentario | |
---|---|---|---|---|---|
actual | 11:12 18 mar 2023 | 250 × 130 (116 kB) | Dndnrmn1 (discusión | contribs.) | Reverted to version as of 20:55, 8 June 2008 (UTC) | |
00:18 9 ago 2017 | 250 × 130 (116 kB) | Dogbert66 (discusión | contribs.) | Changed the frame period from 100 ms per frame to 64 ms per frame. Otherwise the relative frequencies of Drum_vibration_mode01.gif, Drum_vibration_mode02.gif, and Drum_vibration_mode03.gif are wrong. | ||
20:55 8 jun 2008 | 250 × 130 (116 kB) | Oleg Alexandrov (discusión | contribs.) | {{Information |Description={{en|1=On Illustration of en:vibrations of a circular drum}} |Source=Own work by uploader |Author=Oleg Alexandrov |Date=~~~~ |Permission={{PD-self}} |other_versions= }} {{ImageUpload|full}} |
No puedes sobrescribir este archivo.
Usos del archivo
Las siguientes páginas usan este archivo:
Uso global del archivo
Las wikis siguientes utilizan este archivo:
- Uso en ast.wikipedia.org
- Uso en ca.wikipedia.org
- Uso en de.wikipedia.org
- Uso en el.wikipedia.org
- Uso en en.wikipedia.org
- Uso en en.wikiversity.org
- Uso en es.wikipedia.org
- Uso en fr.wikipedia.org
- Uso en ko.wikipedia.org
- Uso en sq.wikipedia.org
- Uso en sr.wikipedia.org
- Uso en te.wikipedia.org