File:Ondes_compression_2d_20.gif
維基百科,自由的 encyclopedia
Ondes_compression_2d_20.gif (610 × 461 像素,檔案大小:432 KB,MIME 類型:image/gif、循環、89 畫格、8.9秒)
摘要
描述Ondes compression 2d 20.gif |
English: Compressional wave (longitudinal wave: seismic P-wave, sound etc.): 2d representation on a 20×20 grid, with an empirical shape (derivative from a gaussian profile, small attenuation with distance); made with Scilab
Français : Onde de compression (onde longitudinale : onde sismique P, son…) : représentation 2d sur une grille 20×20 grid, avec un profil empirique (derivée d'un profil gaussien, faible d'attenuation avec la distance) ; réalisé avec Scilab |
日期 | |
來源 | 自己的作品 |
作者 | Christophe Dang Ngoc Chan (cdang) |
授權許可 (重用此檔案) |
GFDL |
其他版本 | smaller size: Image:Ondes compression 2d 20 petit.gif; plane version: Image:Onde compression impulsion 1d 30.gif; other type of body wave: Image:Ondes cisaillement 2d 20.gif |
Source code (scilab)
clear;
N = 25; // taille de la grille (noeuds)
Naff = 20; // taille affichee
centre = N/2; // centre de la grille
L = 2; // largeur de la perturbation (loi empirique)
points_initiaux_x = zeros(N, N); // initialisation des
points_initiaux_y = zeros(N, N); // coordonnées
for i = 1:N
for j = 1:N
points_initiaux_x(i, j) = i - centre;
points_initiaux_y(i, j) = j - centre;
end
end
points_finaux_x = points_initiaux_x;
points_finaux_y = points_initiaux_y;
for i = 1:N
for j = 1:N
d = sqrt(points_initiaux_x(i, j)^2 + points_initiaux_y(i, j)^2);
distance(i, j) = d; // distance au centre
if d == 0 then
direction_x(i, j) = 0 ; direction_y(i, j) = 0 ;
else
direction_x(i,j) = points_initiaux_x(i, j)/d; // vecteur unitaire
direction_y(i,j) = points_initiaux_y(i, j)/d;
end
end
end
// fonction
deff('[e] = profil(r)','e = r*exp(-(r/L)^2)'); // profil empirique
// programme principal
unite = 0; dizaine = 0; // pour le nom de fichier
for r = 0.1:0.2:centre*1.42 // rayon du front d'onde
intensite = r^(-1/3); // variation avec la distance
for i = 1:N
for j = 1:N
// e = deplacement du point
e = intensite*profil(distance(i,j)-r);
points_finaux_x(i, j) = points_initiaux_x(i, j) + e*direction_x(i, j);
points_finaux_y(i, j) = points_initiaux_y(i, j) + e*direction_y(i, j);
end
end
// dessin
clf;
plot2d(0, 0 , -1, "010", " ", [-Naff/2, -Naff/2, Naff/2, Naff/2])
for i = 1:N
xpoly(points_finaux_x(i, :), points_finaux_y(i, :));
xpoly(points_finaux_x(:, i), points_finaux_y(:, i));
end
nom = "test\test" + code2str(dizaine) + code2str(unite) + ".gif";
xs2gif(0, nom, 1);
unite = unite + 1;
if unite == 10 then
dizaine = dizaine + 1;
unite = 0 ;
end
end
授權條款
我,本作品的著作權持有者,決定用以下授權條款發佈本作品:
已授權您依據自由軟體基金會發行的無固定段落、封面文字和封底文字GNU自由文件授權條款1.2版或任意後續版本,對本檔進行複製、傳播和/或修改。該協議的副本列在GNU自由文件授權條款中。http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
此檔案採用共享創意 姓名標示-相同方式分享 3.0 未在地化版本授權條款。 | ||
| ||
已新增授權條款標題至此檔案,作為GFDL授權更新的一部份。http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue |
在此檔案描寫的項目
描繪內容
共享創意署名-相同方式共享3.0Unported Chinese (Hong Kong) (已轉換拼寫)
GNU自由文檔許可證1.2或更高版本 繁體中文 (已轉換拼寫)
17 11 2006
檔案歷史
點選日期/時間以檢視該時間的檔案版本。
日期/時間 | 縮圖 | 尺寸 | 用戶 | 備註 | |
---|---|---|---|---|---|
目前 | 2006年11月17日 (五) 15:02 | 610 × 461(432 KB) | Cdang | more GIF compression, smaller file size | |
2006年11月17日 (五) 14:47 | 610 × 461(496 KB) | Cdang | {{Information |Description={{en|Compressional wave (longitudinal wave: seismic P-wave, sound etc.): 2d representation on a 20×20 grid, with an empirical shape (derivative from a gaussian profile, no attenuation with distance); made with [http://www. |
檔案用途
沒有使用此檔案的頁面。
全域檔案使用狀況
以下其他 wiki 使用了這個檔案:
- beta.wikiversity.org 的使用狀況
- en.wikiversity.org 的使用狀況
- fr.wikiversity.org 的使用狀況