File:Drum_vibration_mode02.gif
維基百科,自由的 encyclopedia
Drum_vibration_mode02.gif (252 × 169像素,文件大小:200 KB,MIME类型:image/gif、循环、19帧、1.9秒)
描述Drum vibration mode02.gif | Illustration of vibrations of a drum. |
日期 | (UTC) |
来源 | self-made with MATLAB |
作者 | Oleg Alexandrov |
其他版本 | 此文件衍生的作品: Membrane-normal-modes.gif |
Public domainPublic domainfalsefalse |
我,本作品著作权人,释出本作品至公有领域。这适用于全世界。 在一些国家这可能不合法;如果是这样的话,那么: 我无条件地授予任何人以任何目的使用本作品的权利,除非这些条件是法律规定所必需的。 |
Source code (MATLAB)
function main()
k = 0; % k-th asimuthal number and bessel function
p = 2; % 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_mode02.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!');
此文件中描述的项目
描繪內容
某些值没有维基数据项目
著作权持有者释出至公有领域 简体中文(已转写)
12 1 2008
image/gif
文件历史
点击某个日期/时间查看对应时刻的文件。
日期/时间 | 缩略图 | 大小 | 用户 | 备注 | |
---|---|---|---|---|---|
当前 | 2023年3月18日 (六) 11:12 | 252 × 169(200 KB) | Dndnrmn1 | Reverted to version as of 06:25, 12 January 2008 (UTC) | |
2008年1月16日 (三) 04:44 | 248 × 130(191 KB) | Oleg Alexandrov | Strip caption, looks better like this | ||
2008年1月12日 (六) 06:25 | 252 × 169(200 KB) | Oleg Alexandrov | |||
2008年1月12日 (六) 06:21 | 253 × 194(202 KB) | Oleg Alexandrov | {{Information |Description=Illustration of vibrations of a drum. |Source=self-made with MATLAB |Date=~~~~~ |Author= Oleg Alexandrov |Permission= |other_versions= }} {{PD-self}} ==Source code ([[: |
文件用途
以下页面使用本文件:
全域文件用途
以下其他wiki使用此文件:
- ast.wikipedia.org上的用途
- bs.wikipedia.org上的用途
- ca.wikipedia.org上的用途
- de.wikipedia.org上的用途
- el.wikipedia.org上的用途
- en.wikipedia.org上的用途
- en.wikiversity.org上的用途
- es.wikipedia.org上的用途
- fr.wikipedia.org上的用途
- ko.wikipedia.org上的用途
- ru.wikipedia.org上的用途
- sh.wikipedia.org上的用途
- sq.wikipedia.org上的用途
- sr.wikipedia.org上的用途
- te.wikipedia.org上的用途