公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
305 浏览
本人首次接触该软件,很多功能还不了解,目前有个问题,就是一个集合中有很多无向图,我想遍历转成矩阵的形式存储到TXT文件中,希望得到各位的帮助
分类:图论 | 用户: 执笔研默 (21 分)

1个回答

0 投票

假如有如下3个图

graphs = Table[RandomGraph[{10, 20}], 3]

下面批量导出,文件名分别为"1.txt", "2.txt", "3.txt"

MapIndexed[Export[ToString[First[#2]] <> ".txt", #] &, 
 Normal@*AdjacencyMatrix /@ graphs]

 

用户: Lozmlve*永 (1.1k 分)
谢谢您的解答,不过我刚输进去还是会出错,实在不知道错在哪个地方
...