Bonjour.
J'aimerais produire une version "tracé à la main" du tapis de Sierpiński. Pour le tracé à la main,
peut-on avoir un style proche de ce que l'on peut voir sur xkcd ?
\begin{texgraph}[name=essai,preload="trembling.mac"]
a:=-4.5-4.5*i, b:=4.5-4.5*i, c:=4.5*i,
L:=[a,b,c,jump],
n:=5,
for k from 1 to n do
L:=[ hom(L,a,0.5),hom(L,b,0.5),hom(L,c,0.5)]
od,
tLigne(L,1,0.08)
\end{texgraph}
projetmbc a écrit:Super, je vais pouvoir attaquer un mini-cours d'introduction à la récursivité.
P.Fradin a écrit:Tu as sans doute remarqué que le code proposé est justement non récursif !
\begin{texgraph}[file]
Var centres = [-4-4*i,-4*i,4-4*i,4,4+4*i,4*i,-4+4*i,-4];
Include "trembling.mac";
Mac Tapis = [{Tapis(liste, niv)}
$liste:=%1, $niv:=%2,
if niv=0 then liste
else
liste:= for $A in centres do hom(liste,A,1/3) od,
Tapis(liste,niv-1)
fi ];
Graph objet1 = [
view(-4,4,-4,4), Marges(0,0,0,0), size(9),
L:=Tapis([-4-4*i,4-4*i,4*i,jump],3),
tLigne(L,1,0.08) ];
\end{texgraph}
projetmbc a écrit:Sinon, la 1ère méthode est bien celle utilisant le théorème du point fixe vérifier par certaines fractales. Non ?
Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 2 invités