Source :

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

Ja, właściciel praw autorskich do tego dzieła, udostępniam je na poniższych licencjach

Udziela się zgody na kopiowanie, rozpowszechnianie oraz modyfikowanie tego dokumentu zgodnie z warunkami GNU Licencji Wolnej Dokumentacji, w wersji 1.2 lub nowszej opublikowanej przez Free Software Foundation; bez niezmiennych sekcji, bez treści umieszczonych na frontowej lub tylnej stronie okładki. Kopia licencji załączona jest w sekcji zatytułowanej GNU Licencja Wolnej Dokumentacji.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

	Ten plik udostępniony jest na licencji Creative Commons Uznanie autorstwa – Na tych samych warunkach 3.0.
	Wolno: dzielić się – kopiować, rozpowszechniać, odtwarzać i wykonywać utwór modyfikować – tworzyć utwory zależne Na następujących warunkach: uznanie autorstwa – musisz określić autorstwo utworu, podać link do licencji, a także wskazać czy utwór został zmieniony. Możesz to zrobić w każdy rozsądny sposób, o ile nie będzie to sugerować, że licencjodawca popiera Ciebie lub Twoje użycie utworu. na tych samych warunkach – Jeśli zmienia się lub przekształca niniejszy utwór, lub tworzy inny na jego podstawie, można rozpowszechniać powstały w ten sposób nowy utwór tylko na podstawie tej samej lub podobnej licencji.
	Ten szablon został dodany jako element zmiany licencjonowania.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue

Możesz wybrać, którą licencję chcesz zastosować.