Buscador de cadenas en algunas constantes matemáticas

Descargar como Notebook

Dada una cadena de dígitos las buscamos entre las cifras decimales de algunas de las principales constantes irracionales matemáticas, siguiendo los siguientes pasos:

1. En el teclado ingrese el número que desea buscar
2. Seleccione la constante irracional donde en su expansión decimal desea encontrar la cadena del            paso 1
3. Seleccione el número de cifras decimales de la constante
4. Oprima "Buscar"
5. Para ingresar una nueva cadena oprima "Limpiar" y vuelva al paso 1.

Este código lo publique en el año 2012 en la web Proyectos de Demostraciones Wolfram en el siguiente link http://demonstrations.wolfram.com/FindingStringsOfDigitsInTheDecimalDigitsOfFamousNumbers/

buscar[numero_, num_, decimales_] := 
  StringPosition[ToString[N[num, 10^decimales]], numero] - 
   IntegerLength[IntegerPart[num]] - 1;
zz = {};
lista := {};
a = 0;
Manipulate[If[a == 0, lista = {}]; cifras = StringJoin[zz];
 Grid[{{"Ingrese la cadena a buscar"}, {Grid@
     Partition[
      Join[Button[#, AppendTo[zz, ToString[#]]] & /@ 
        Range[1, 9], {Button["Limpiar", a = 0; zz = {}], 
        Button[0, AppendTo[zz, ToString[0]]], Button["Buscar",a = 1; 
         lista = buscar[cifras, numero, decimales];]}], 3]}, {Grid[{{Row[{"En las primeras ", 
         TraditionalForm[10^decimales], 
         " cifras decimales"}]}, {Row[{"del número ", 
         TraditionalForm[numero], 
         " la cadena "}]}, {}, {Row[{Framed[
          TraditionalForm[Style[cifras, Red, Large]], 
          RoundingRadius -> 10]}]}, {}, {Row[{"aparece ", 
         Length[lista], 
         Which[Length[lista] == 0, a = 0; " veces", 
          Length[lista] == 1, " vez en la posición", 
          Length[lista] > 1, " veces en las posiciones"]}]}}]}, {If[
     a == 0, "                                             ", 
     StandardForm[lista]]}}], {{numero, \[Pi], 
   "Constante"}, {Pi -> "Pi", E -> "Euler", GoldenRatio -> "Aúrea", 
   Catalan -> "Catalán", Glaisher, Khinchin, EulerGamma, 
   ChampernowneNumber[] -> "Champernowne"}, 
  ControlType -> SetterBar}, {{decimales, 3, 
   "Decimales"}, {1 -> "10¹", 2 -> "10²", 3 -> "10³", 4 -> "10⁴", 
   5 -> "10⁵", 6 -> "10⁶", 7 -> "10⁷"}}, 
 ContentSize -> {400, 320}, SaveDefinitions -> True]

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