clear;
Nx=35; // taille de la grille
Ny=27;
// Ny=5; // test
Nxaff = 30; // taille affichee
Nyaff = 26;
// Nyaff=4; // test
L=2; // 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_x = points_initiaux_x;
// fonction
deff('[e]=profil(r)','e=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 = 1.5; // variation avec la distance
for i=1:Nx
for j=1:Ny
// e = deplacement du point
e = intensite*profil(i-r);
points_finaux_x(i,j) = points_initiaux_x(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_finaux_x(i,:),points_initiaux_y(i,:));
xpoly(points_finaux_x(:,j),points_initiaux_y(:,j));
end
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
Conditions d’utilisation
Moi, en tant que détenteur des droits d’auteur sur cette œuvre, je la publie sous les licences suivantes :
Vous avez la permission de copier, distribuer et modifier ce document selon les termes de la GNU Free Documentation License version 1.2 ou toute version ultérieure publiée par la Free Software Foundation, sans sections inaltérables, sans texte de première page de couverture et sans texte de dernière page de couverture. Un exemplaire de la licence est inclus dans la section intitulée GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue
de partager – de copier, distribuer et transmettre cette œuvre
d’adapter – de modifier cette œuvre
Sous les conditions suivantes :
paternité – Vous devez donner les informations appropriées concernant l'auteur, fournir un lien vers la licence et indiquer si des modifications ont été faites. Vous pouvez faire cela par tout moyen raisonnable, mais en aucune façon suggérant que l’auteur vous soutient ou approuve l’utilisation que vous en faites.
partage à l’identique – Si vous modifiez, transformez, ou vous basez sur cette œuvre, vous devez distribuer votre contribution sous la même licence ou une licence compatible avec celle de l’original.
Ce bandeau de licence a été ajouté à ce fichier dans le cadre de la procédure de mise à jour des licences des images sous GFDL.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue
Vous pouvez choisir l’une de ces licences.
Légendes
Ajoutez en une ligne la description de ce que représente ce fichier
{{Information |Description={{en|Propagation of a plane compression wave (impulse); made with [http://www.scilab.org/ Scilab] and Jasc Animation Shop 2.02}} {{fr|Propagation d'une onde de compression plane (impulsion) ; créé avec [http://www.scilab.org/