使用mathematica实现深度优先访问的可视化

最新推荐文章于 2022-03-11 19:08:59 发布

never_g

最新推荐文章于 2022-03-11 19:08:59 发布

阅读量298

点赞数

文章标签：算法图论

本文链接：https://blog.csdn.net/qq_23890777/article/details/104562802

版权

本文介绍了如何在mathematica 11.1版本中利用代码实现图的深度优先搜索并进行可视化展示，通过算法与图论的结合，展示深度优先遍历的过程。

摘要由CSDN通过智能技术生成

运行结果：
在这里插入图片描述
mathmatica版本11.1 下面为代码

If[Length[Names["`*"]] > 0, Remove["`*"]];
edge1 = {
   a <-> b, a <-> e, a <-> f, a <-> g, c <-> g, c <-> d, 
   d <-> g, d <-> e, e <-> f, f <-> g};
gragh = Graph[edge1, PlotTheme -> "Detailed"]
(*节点表*)
node = {
   a, b, c, d, e, f, g};
(*邻接表*)
adjacencylist = {
   {
   b, e, f, g}, {
   a}, {
   d, g}, {
   c, e, g}, {
   a, d, f}, {
   a, 
    e, g