Wolfram言語とWolframノートブックの決定的な経験
オリジナルの技術計算環境
複雑なシステムのマルチドメインモデリングおよびシミュレーション
その他のモバイルアプリ
シンボリック計算，データに基づく洞察，深い技術的専門知識を組み合せて，AI時代のソリューションをお届けします
Wolfram Consulting
その他の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, "ステップ"}, 0, 7, 1}, Initialization :> (g4 = [image];{pred4, edges4} = Reap[DepthFirstScan[g4, 1, {"FrontierEdge" -> Sow}]];tree4 = TreeGraph[edges4[[1]]];stepedge4 = edges4[[1]])]