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];
      ];