Flocon de Koch (2)

Auteur ou autrice : Vincent Zoonekynd.

Mise en ligne le 1 janvier 2025

Image du résultat de l’exemple

En 1999, puis mis à jour en 2001, Vincent Zoonekynd a mis en ligne un fichier MetaPost illustrant différentes utilisations du programme avec plus de 300 exemples. Ces exemples sont disponibles sur le CTAN.

Code

beginfig(202)
  u:=2cm;
  vardef koch(expr A,B,n) =
    save C; pair C;
    C = A rotatedaround(1/3[A,B], -120);
    if n>0:
      koch( A,        1/3[A,B], n-1);
      koch( 1/3[A,B], C,        n-1);
      koch( C,        2/3[A,B], n-1);
      koch( 2/3[A,B], B,        n-1);
    else:
      draw A--1/3[A,B]--C--2/3[A,B]--B;
    fi;
  enddef;
  z0=(u,0);
  z1=z0 rotated 120;
  z2=z1 rotated 120;
  koch( z0, z1, 4 );
  koch( z1, z2, 4 );
  koch( z2, z0, 4 );
endfig;

end.
Metapost

Mots clés : fractalKochmathématiqueszoonekynd

Cet exemple fait partie de la collection d’exemples Exemples de Vincent Zoonekynd;Figures fractales.

Fichiers


figure202-png-202.mp

497.00 B

 

figure202-202.pdf

21.83 KB

Télécharger l’archive complète


figure202-png-202.zip

88.33 KB