Wolfram言語とWolframノートブックの決定的な経験
オリジナルの技術計算環境
複雑なシステムのマルチドメインモデリングおよびシミュレーション
その他のモバイルアプリ
シンボリック計算，データに基づく洞察，深い技術的専門知識を組み合せて，AI時代のソリューションをお届けします
Wolfram Consulting
その他のWolframソリューション
教育のためのその他のソリューション
計算，科学，生活，その他のコース
学び，問題を解決し，アイディアを共有
Wolframのニュース，視点，洞察
リソース
WolframConsulting.com
以下は，超立方体の幅優先横断である．
Manipulate[GraphicsRow[{HighlightGraph[g3, {1, stepedge3[[ ;; i]]}, PlotTheme -> "BasicBlue", GraphHighlightStyle -> "Thick"], HighlightGraph[tree3, {1, stepedge3[[ ;; i]]}, PlotTheme -> "BasicBlue", GraphHighlightStyle -> "Thick"]}, ImageSize -> 500], {{i, 0, "ステップ"}, 0, 15, 1}, Initialization :> (g3 = PetersenGraph[8, 1];{pred3, edges3} = Reap[BreadthFirstScan[g3, 1, {"FrontierEdge" -> Sow}]]; tree3 = TreeGraph[edges3[[1]]];stepedge3 = edges3[[1]])]