A là ma trận kề của đồ thị vô hướng G
Code:
DoThi[A_, n_] := Module[{P, goc, Dinh, Canh, i, j, temp},
goc = (360/n) (Pi/180);
P = Table[{Cos[i], Sin[i]}, {i, 0, 2Pi, goc}];
Dinh = Graphics[Table[{Hue[Random[]], Disk[
P[[i]], 0.1]}, {i, 1, Length[P] - 1}]];
Diem = Graphics[Table[Text[ToString[i], P[[i]]], {i, n}]];
Canh = {};
For[i = 1, i < n, i++,
For[j = i + 1, j ≤ n, j++,
If[A[[i, j]] > 0,
Canh = Append[Canh, Line[{P[[i]], P[[j]]}]];
Canh = Append[Canh, Text[ToString[A[[i, j]]],
{(P[[i, 1]] + P[[j, 1]])/2, (P[[
i, 2]] + P[[j, 2]])/2}]];
];
];
];
Canh = Graphics[Canh];
Show[Canh, Dinh, Diem];
];