Vẽ đồ thị vô hướng G = từ ma trận kề A cấp n
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}]];
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 = Graphics[Canh];
Show[Canh, Dinh];
];