Létrehozok egy gráfot:

L=Graph[{1\[UndirectedEdge]2,1\[UndirectedEdge]3,2\[UndirectedEdge]3,2\[UndirectedEdge]4,2\[UndirectedEdge]6,3\[UndirectedEdge]5,3\[UndirectedEdge]7,4\[UndirectedEdge]6,5\[UndirectedEdge]7,6\[UndirectedEdge]7,6\[UndirectedEdge]8,7\[UndirectedEdge]8}]

Eddig rendben, de az alábbi parancsok mind kékek, és nem működnek:

Viszont az alábbiak feketék, és jól működnek:

VertexList[L]

EdgeList[L]

VertexCount[L]

EdgeCount[L]

<<Combinatorica`

V[L]

M[L]

ShowGraph[L]

ToAdjacencyMatrix[L]

VertexConnectivity[L]

HamiltonianPath[L]

HamiltonianCycle[L]

Aha. Szóval inkább így:

GraphPlot[L]

a=AdjacencyMatrix[L]

MatrixForm[Normal[%]]