File:Ondes_cisaillement_2d_20.gif
De Wikipedia, a enciclopédia encyclopedia
Ondes_cisaillement_2d_20.gif (610 × 461 píxeis, tamanho: 528 kB, tipo MIME: image/gif, cíclico, 89 quadros, 8,9 s)
![]() |
Esta imagem provém do Wikimedia Commons, um acervo de conteúdo livre da Wikimedia Foundation que pode ser utilizado por outros projetos.
|
Descrição do ficheiro
DescriçãoOndes cisaillement 2d 20.gif |
English: Shear wave (transverse wave: seismic S-wave): 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 cisaillement (onde transversale : onde sismique S) : 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 |
Data | |
Origem | Obra do próprio |
Autor | Christophe Dang Ngoc Chan (cdang) |
Permissão (Reutilizar este ficheiro) |
GFDL |
Outras versões | smaller size: Image:Ondes cisaillement 2d 20 petit.gif; plane wave: Image:Onde cisaillement impulsion 1d 30.gif; other type of body wave: Image:Ondes compression 2d 20.gif |
Source code (scilab)
Source
clear;
N=25; // taille de la grille
Naff = 20; // taille affichee
centre = N/2; // centre de la grille
L=2; // largeur (loi empirique)
points_initiaux_x = zeros(N,N); // initialisation
points_initiaux_y = zeros(N,N);
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;
end
end
// fonctions
deff('[e]=profil(r)','e=r*exp(-(r/L)^2)');
// programme principal
unite=0;dizaine=0;
for r=0.1:0.2:centre*1.42 // rayon du front d'onde
intensite = %pi/8*r^(-1/2); // variation avec la distance
for i=1:N
for j=1:N
e = intensite*profil(distance(i,j)-r);
x = points_initiaux_x(i,j) ; y = points_initiaux_y(i,j);
points_finaux_x(i,j) = x*cos(e) + y*sin(e); // rotation
points_finaux_y(i,j) = x*sin(e) - y*cos(e);
end
end
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
Licenciamento
Eu, titular dos direitos de autor desta obra, publico-a com a seguinte licença:
![]() |
É concedida permissão para copiar, distribuir e/ou modificar este documento nos termos da Licença de Documentação Livre GNU, versão 1.2 ou qualquer versão posterior publicada pela Free Software Foundation; sem Secções Invariantes, sem textos de Capa e sem textos de Contra-Capa. É incluída uma cópia da licença na secção intitulada GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
![]() ![]() ![]() |
A utilização deste ficheiro é regulada nos termos da licença Creative Commons - Atribuição-CompartilhaIgual 3.0 Não Adaptada. | |
| ||
Esta marca de licenciamento foi adicionada a este ficheiro durante a atualização da licença GFDL.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue |
Legendas
Adicione uma explicação de uma linha do que este ficheiro representa
Elementos retratados neste ficheiro
retrata
17 novembro 2006
Histórico do ficheiro
Clique uma data e hora para ver o ficheiro tal como ele se encontrava nessa altura.
Data e hora | Miniatura | Dimensões | Utilizador | Comentário | |
---|---|---|---|---|---|
atual | 15h36min de 17 de novembro de 2006 | ![]() | 610 × 461 (528 kB) | Cdang | == Summary == {{Information |Description={{en|Shear wave (transverse wave: seismic S-wave): 2d representation on a 20×20 grid, with an empirical shape (derivative from a gaussian profile, small attenuation with distance); made with [http://www.scil |
Utilização local do ficheiro
Não há nenhuma página que use este ficheiro.
Utilização global do ficheiro
As seguintes wikis usam este ficheiro:
- pl.wikipedia.org