完整的 Wolfram 语言和笔记本体验
原有的技术计算环境
复杂系统的多领域建模与仿真
更多移动应用程序
我们帮助客户充分发挥计算知识与智能的潜力。
Wolfram 咨询
更多 Wolfram 解决方案
更多教育解决方案
计算机、科学、生活等方面的课程
学习、解决问题、分享想法。
来自 Wolfram 的新闻、观点和见解
资源
WolframConsulting.com
下面是一个超立方体的深度优先遍历.
Manipulate[GraphicsRow[{HighlightGraph[g4, {1, stepedge4[[ ;; i]]}, PlotTheme -> "BasicBlue", GraphHighlightStyle -> "Thick"], HighlightGraph[tree4, {1, stepedge4[[ ;; i]]}, PlotTheme -> "BasicBlue", GraphHighlightStyle -> "Thick"]}, ImageSize -> 500], {{i, 0, "step"}, 0, 7, 1}, Initialization :> (g4 = [image];{pred4, edges4} = Reap[DepthFirstScan[g4, 1, {"FrontierEdge" -> Sow}]];tree4 = TreeGraph[edges4[[1]]];stepedge4 = edges4[[1]])]