Mes : 3 Día : 14 El día de Pi

Descargar como Notebook

El día 14 de marzo se celebra el día de la constante Pi, la relación entre el perímetro de una circunferencia y su diámetro. Desde Wolfram con Mathematica se vincula a este homenaje.

Primeras cien cifras del número Pi

N[Pi, 100]
3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117068

El símbolo de Pi formado por sus primeras cifras 

With[{pos = 
   PixelValuePositions[
    Rasterize@Text@Style[Pi, 90, FontFamily -> "Source Serif Pro"], 
    0]}, Graphics@
  MapThread[Text, {Characters@ToString@N[Pi, Length[pos] - 1], pos}]]

Las primeras cifras de Pi en una espiral

a = 0; digits = First[RealDigits[Pi, 10, 100]];
Graphics@Table[r = .1 + .03 a;
  a = a + (80000/r)^.32;
  g = Rotate[
    Style[Text[
      Reverse[digits][[n]], {0, r^1.5}, {0, 0}], (353 (.1 + r)^1.25)/100^1.5], a Degree, {0, 0}], {n, 0, Length[digits]}]

El símbolo de Pi de forma artística

Rasterize@
 Graphics[{Riffle[
    Table[Text[Style[Pi, FontFamily -> "Source Serif Pro", 20 s]], {s,34, 3, -1}], {White, Black}]}]

Jugando con el Símbolo de Pi

Manipulate[
 Graphics[{Table[
    Rotate[Text[
      Style[Pi, FontFamily -> "Source Serif Pro", 200], {x, 0}, {0, 
       0}, AngleVector[d]], i \[Pi]/4, {0, 0}], {i, 0, 7}]}, 
  PlotRange -> 1], {{x, .5}, 0, 1}, {d, 0, 2 \[Pi]}]

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