完整的 Wolfram 语言和笔记本体验
原有的技术计算环境
复杂系统的多领域建模与仿真
更多移动应用程序
我们帮助客户充分发挥计算知识与智能的潜力。
Wolfram 解决方案
更多 Wolfram 解决方案
更多教育解决方案
计算机、科学、生活等方面的课程
学习、解决问题、分享想法。
来自 Wolfram 的新闻、观点和见解
资源
并行创建三维元胞自动机的表格.
data = Select[ParallelTable[Graphics3D[{Cuboid /@ Position[CellularAutomaton[{n, {2, 1}, {1, 1, 1}}, {{{{1}}}, 0}, {{{8}}}], 1]}, Boxed -> False], {n, 2, 120, 2}], Length[#[[1, -1]]] > 3&];
GraphicsGrid[Partition[data, 7], Frame -> All, ImageSize -> Medium]