기본 셀룰러 오토마타에 관한 복잡한 웹 사이트 제작
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]=
메인 페이지를 살펴봅니다.
이미지 중 하나를 클릭하면 자세한 내용을 볼 수 있습니다.
