Cree una página web compleja sobre autómatas celulares elementales: Nuevo en Wolfram Language 11

Cree una página web compleja sobre autómatas celulares elementales

Usando URLDispatcher y GalleryView, usted puede crear páginas web complejas en una sola implementación. Usted puede definir una vista global en el URL base y vistas detalladas en los URL numerados.

In[1]:=

CloudDeploy[
 URLDispatcher[{
   "/" ~~ EndOfString -> GalleryView[
     Table[
      Hyperlink[
       ArrayPlot[CellularAutomaton[i, {{1}, 0}, {50, All}]],
       "/objects/documentation@wolfram.com/cellularautomata/" <> 
        ToString[i]
       ],
      {i, 0, 255}
      ]
     ],
   "/" ~~ n : DigitCharacter .. ~~ EndOfString :> ExportForm[Column[{
       "Rule " <> n,
       RulePlot[CellularAutomaton[FromDigits[n]]],
       ArrayPlot[CellularAutomaton[FromDigits[n], {{1}, 0}, {50, All}]]
       }], "HTML"]
   }],
 "user:documentation@wolfram.com/cellularautomata/"
 ]

Out[1]=