Cinco años y cien mil visitas

 Descargar como Notebook

Estas cifras son un excelente momento para agradecer a las personas que me han impulsado con sus colaboraciones, comentarios y visitas: MUCHAS GRACIAS.

f[n_, p_] := {Cos[n Pi/p], Sin[n Pi/p]}

a = 8;

Manipulate[

 Graphics[{If[t < 1, 

    Table[{Text[Style["5 años", RGBColor[t, Sin[n], Cos[t]]], 

       a t f[n, 10]], {RGBColor[t, Sin[n], Cos[t]], 

       Point[a p f[n, 10]]}}, {p, 0, t, 0.1}, {n, 1, 9}]], 

   If[2 > t >= 

     1, {Table[

      Text[Style[Column[{"100 000", "  visitas"}], 5 t, 

        RGBColor[t, Sin[n], Cos[n]]], a  f[n, 10]], {n, 1, 9}], 

     Table[{Orange, 

       Point[a (2 - t) f[n, 

           10] + (t - 1) (a  f[n, 10] + f[m, 5])]}, {m, 1, 10}, {n, 1,

        9}]}], If[3 > t > 2, 

    Table[Text[

      Style[Column[{"100 000", "  visitas"}], 5 t, 

       RGBColor[t, Sin[n], Cos[n]]], 

      a  f[n, 10] (3 - t) + (t - 2) {0, 5}], {n, 1, 9}]], 

   If[t >= 3, 

    Text[Style[Column[{"100 000", "  visitas"}], t^2 + t + 3, 

      Orange], (t - 2) {0, 5}]], 

   If[t >= 3.2, 

    Text[Style["5 años", 2 Exp[(t - 2)^2], Blue], {0, 5}]]}, 

  PlotRange -> {{-10, 10}, {-1, 12}}, Axes -> False, 

  Background -> Black], {t, 0, 4, Trigger, DefaultDuration -> 15}]

Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas