Dos años del Blog y más de 20000 vistas

Descargar como Notebook

Aprovechando la coincidencia de cumplir en septiembre dos años del lanzamiento del Blog y lograr pasar de las 20000 vistas, quiero agradecerle a todas las personas que han contribuido a lograr estas dos metas.

Creación del Logo

Manipulate[
 Show[Graphics[
   Table[Translate[
     Rotate[Style[Text["2 Años"], 24, 
       RGBColor[Cos[n] - Sin[n], Cos[n]^2, Sin[n]]], 
      n], {{Cos[n], Sin[n]}}], {n, Pi/6 + a, 4 Pi, Pi/6}]], 
  Graphics[Text[
    Style[Column[{"20000", "Vistas"}], 50, 
     RGBColor[Cos[a] - Sin[a], Cos[a]^2, Sin[a]]], {0, 0}]], 
  PlotRange -> 1.4], {a, 0, 2 Pi}, AutoAction -> True, 
 Deployed -> True]

Generación del GIF

Export[NotebookDirectory[] <> "cumple2.gif", 
 Manipulate[
  Show[Graphics[
    Table[Translate[
      Rotate[Style[Text["2 Años"], 24, 
        RGBColor[Cos[n] - Sin[n], Cos[n]^2, Sin[n]]], 
       n], {{Cos[n], Sin[n]}}], {n, Pi/6 + a, 4 Pi, Pi/6}]], 
   Graphics[
    Text[Style[Column[{"20000", "Vistas"}], 50, 
      RGBColor[Cos[a] - Sin[a], Cos[a]^2, Sin[a]]], {0, 0}]], 
   PlotRange -> 1.4`], {a, 0, 2 Pi}, AutoAction -> True, 
  Deployed -> True], "AnimationRepetitions" -> Infinity]


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