File:Onde cisaillement impulsion 1d 30.gif
From Wikimedia Commons, the free media repository
Jump to navigation
Jump to search
Onde_cisaillement_impulsion_1d_30.gif (610 × 461 pixels, file size: 433 KB, MIME type: image/gif, looped, 79 frames, 7.9 s)
File information
Structured data
Captions
Summary
[edit]DescriptionOnde cisaillement impulsion 1d 30.gif |
English: Propagation of a plane shear wave (impulse); made with Scilab and Jasc Animation Shop 2.02
Français : Propagation d'une onde de cisaillement plane (impulsion) ; créé avec Scilab et Jasc Animation Shop 2.02 |
Date | |
Source | Own work |
Author | Christophe Dang Ngoc Chan (cdang) |
Permission (Reusing this file) |
GFDL |
Other versions | smaller size : Image:Onde cisaillement impulsion 1d 30 petit.gif; spherical wave: Image:Ondes cisaillement 2d 20.gif |
Source code (Scilab)
[edit] clear;
Nx=35; // corde
Ny=27;
// Ny=5; // test
Nxaff = 30; // corde
Nyaff = 26;
// Nyaff=4; // test
L=3; // largeur (loi empirique)
points_initiaux_x = zeros(Nx,Ny); // initialisation
points_initiaux_y = zeros(Nx,Ny);
for i=1:Nx
for j=1:Ny
points_initiaux_x(i,j) = i;
points_initiaux_y(i,j) = j;
end
end
points_finaux_y = points_initiaux_y;
// fonction
deff('[e]=profil(r)','e=r*exp(-(r/L)^2)'); // profil empirique
// programme principal
xmin = (Nx-Nxaff)/2+1;
xmax = Nx-xmin;
ymin = (Ny-Nyaff)/2+1;
ymax = Ny-ymin;
unite=0;dizaine=0; // pour le nom de fichier
for r=-1:0.5:Nx+1 // position du front d'onde
intensite = 2; // variation avec la distance
for i=1:Nx
for j=1:Ny
// e = deplacement du point
e = intensite*profil(i-r);
points_finaux_y(i,j) = points_initiaux_y(i,j) + e;
end
end
// dessin
clf;
plot2d(0,0,-1,"010"," ",[xmin,ymin,xmax,ymax])
for i=1:Nx
for j=1:Ny
xpoly(points_initiaux_x(i,:),points_finaux_y(i,:));
xpoly(points_initiaux_x(:,j),points_finaux_y(:,j));
end
end
nom='test\test'+code2str(dizaine)+code2str(unite)+'.gif';
xs2gif(0,nom,0);
unite = unite+1;
if unite == 10 then
dizaine = dizaine + 1;
unite = 0 ;
end
end
Licensing
[edit]I, the copyright holder of this work, hereby publish it under the following licenses:
Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the license is included in the section entitled GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license. | ||
| ||
This licensing tag was added to this file as part of the GFDL licensing update.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue |
You may select the license of your choice.
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 12:31, 20 November 2006 | 610 × 461 (433 KB) | Cdang (talk | contribs) | bigger deformation | |
10:56, 20 November 2006 | 610 × 461 (224 KB) | Cdang (talk | contribs) | == Summary == {{Information |Description={{en|Propagation of a plane shear wave (impulse); made with [http://www.scilab.org/ Scilab] and Jasc Animation Shop 2.02}} {{fr|Propagation d'une onde de cisaillement plane (impulsion) ; créé avec [http://www.sc |
You cannot overwrite this file.
File usage on Commons
There are no pages that use this file.
File usage on other wikis
The following other wikis use this file:
- Usage on en.wikiversity.org
- Usage on es.wikipedia.org
- Usage on ht.wikipedia.org
- Usage on pl.wikipedia.org
- Usage on ru.wikipedia.org