Copo de nieve animado de Koch

Esta es la contestación más acertada que encomtrarás brindar, pero primero obsérvala detenidamente y valora si es compatible a tu trabajo.

Solución:

documentclass[border=9,tikz]standalone
usetikzlibraryarrows,intersections
usetikzlibrarydecorations.fractals
begindocument
defn10
foreachi in1,...,n
    tikz
        clip(-6,-.1)rectangle(6,3.5);
        tikzsetshift=(0,3.4641016151),scale=pow(3,i/n),shift=(0,-3.4641016151)
        draw[decoration=Koch snowflake,opacity=1-i/n]      decoratedecoratedecoratedecoratedecorate(-6,0)--(6,0);
        draw[decoration=Koch snowflake,opacity=i/n]decoratedecoratedecoratedecoratedecoratedecorate(-6,0)--(6,0);
    

enddocument

EDITAR

Hay otros puntos fijos, por ejemplo

documentclass[border=9,tikz]standalone
usetikzlibraryarrows,intersections
usetikzlibrarydecorations.fractals
begindocument
defn20
foreachi in1,...,n
    tikz
        clip circle(4);
        tikzsetscale=pow(3,i/n),rotate=60*i/n
        draw[decoration=Koch snowflake]decoratedecoratedecoratedecoratedecorate(-6.4285714,-1.2371791)--(3.5714286,-1.2371791) ;
        scoped[transparency group,opacity=i/n]draw[decoration=Koch snowflake,fill=white]
                               decoratedecoratedecoratedecoratedecoratedecorate(-6.4285714,-1.2371791)--(3.5714286,-1.2371791);
    

enddocument

sin rotación

documentclass[tikz]standalone
usepackagetikz
usetikzlibrarylindenmayersystems

tikzset
  Koch curve/.style = 
    l-system=
      rule set=F -> F-F++F-F,
      axiom=F++F++F,
      step=1pt,
      angle=60,
      #1
    
  


begindocument

foreach order in 1,...,6,5,4,3,2 
  begintikzpicture
    draw[Koch curve=order=order,step=500pt/3^(order)] l-system -- cycle;
  endtikzpicture


enddocument

necesita http://tug.org/~hvoss/pst-koch2.sty y http://tug.org/~hvoss/pst-koch2.tex

documentclassarticle
usepackagemultido
usepackagepst-koch2
pagestyleempty
begindocument

multidoiA=90+-131%
beginpspicture(-5.1,-5.1)(5.1,5.1)
  psframe*(-5,-5)(5,5)
  psKoch[N=4,base=squareB,motif=cesaro,angle=iA,HSB=false,linestyle=none,fillstyle=solid,fillcolor=cyan,linecolor=red]
  psKoch[N=4,base=squareB,motif=cesaro,angle=iA]
endpspicturenewpage

enddocument

también hay una imagen más grande: http://tug.org/~hvoss/koch.gif

Aquí puedes ver las reseñas y valoraciones de los usuarios

Recuerda que te brindamos la opción de decir si te fue útil.

---

---

Utiliza Nuestro Buscador