On tape :
triequi(A,B,n):={ local C,L,A1,B1,C1; L:=triangle_equilateral(A,B,C); si n>0 alors A1:=homothetie(C,-0.5,A); B1:=homothetie(A,-0.5,B); C1:=homothetie(B,-0.5,C); L:=L,triequi(A1,C,n-1); L:=L,triequi(B1,A,n-1); L:=L,triequi(C1,B,n-1); fsi; retourne L; }:;On tape : triequi(0,1,5)
On tape : triequi(0,1+0.35*i,5)
On obtient :