Vẽ đồ thị vô hướng G = <V,E> từ ma trận kề A cấp n
PHP Code:
DoThi[A_n_] := Module[{PgocDinhCanhijtemp},
          
goc = (360/n) (Pi/180);
          
Table[{Cos[i], Sin[i]}, {i02Pigoc}];
          
Dinh Graphics[Table[{Hue[Random[]], Disk[
      
P[[i]], 0.1]}, {i1Length[P] - 1}]];
          
Canh = {};
              For[
1ni++,
                For[
1j ≤ nj++,
                        If[
A[[ij]] > 0,
                                
Canh Append[CanhLine[{P[[i]], P[[j]]}]];
                            ];
                    ];
                ];
          
Canh Graphics[Canh];
          
Show[CanhDinh];
      ];