Создание сложного веб-сайта об элементарных клеточных автоматах
С помощью функций URLDispatcher и GalleryView можно создавать сложные веб-сайты в одном развертывании. Вы можете работать с базовом URL в глобальном масштабе, а также на более локальном уровне, с помощью нескольких пронумерованных URL.
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]=
Ознакомьтесь с главной страницей сайта.
Нажмите одно из изображений, чтобы рассмотреть детали.
