見出し画像

Mathematicaでグラフ理論を学ぶ

自分用のメモ的な(他の記事も全部そうだが)

有向グラフ
Graph[{1 \[DirectedEdge] 2, 2 \[DirectedEdge] 3, 3 \[DirectedEdge] 1}]

無向グラフ
Graph[{1 \[UndirectedEdge] 2, 2 \[UndirectedEdge] 3, 3 \[UndirectedEdge] 1}]


グラフの要素を設定する。

例文
weight12 = 2
weight23 = 3
weight31 = 1
Graph[{1 [DirectedEdge] 2, 2 [DirectedEdge] 3, 3 [DirectedEdge] 1},
EdgeCapacity -> {2, 3, 4},
EdgeLabels -> {1 [DirectedEdge] 2 -> weight12,
2 [DirectedEdge] 3 -> weight23, 3 [DirectedEdge] 1 -> weight31},
VertexLabels -> Placed[Automatic, Center], VertexSize -> .05]

これだとPythonの方が書きやすいのかな?どうだろ


容量制限付きグラフを描く方法。


最大流問題


最大流最小コスト問題


いいなと思ったら応援しよう!