next up previous contents index
suivant: Des plantes et des monter: Deux courbes de Péano précédent: La courbe de Hibert   Table des matières   Index

La courbe de Gosper

//gosper(-2-2*i,2-2*i,2)ou gosper(-2-2*i,2-2*i,3)
gosper(x,y,n):={
local a,b,c,d,f,g;
DispG();
if (n==0) return segment(x,y);
a:=x+(y-x)/sqrt(7)*exp(evalf(-i*acos(5*sqrt(7)/14)));
c:=x+(a-x)*exp(evalf(i*pi/3));
b:=c+a-x;
d:=c+(a-x)*exp(evalf(2*i*pi/3));
f:=d+2*(a-x);
g:=(d+f)/2;
gosper(x,a,n-1);
gosper(b,a,n-1);
gosper(c,b,n-1);
gosper(c,d,n-1);
gosper(d,g,n-1);
gosper(g,f,n-1);
gosper(y,f,n-1);
};


Documentation de giac écrite par Renée De Graeve