Hi, everybody i have the follow problem , my graph has some vertices and I highlight the way that I get with the FindEulerianCycle command, but do not put it in red as usual, because it will not, here is my code
rutas = Graph[{1 \[UndirectedEdge] 12, 1 \[UndirectedEdge] 2,
2 \[UndirectedEdge] 3, 2 \[UndirectedEdge] 9,
3 \[UndirectedEdge] 4, 3 \[UndirectedEdge] 8,
4 \[UndirectedEdge] 7, 4 \[UndirectedEdge] 5,
5 \[UndirectedEdge] 6, 6 \[UndirectedEdge] 8,
7 \[UndirectedEdge] 10, 8 \[UndirectedEdge] 9,
8 \[UndirectedEdge] 11, 3 \[UndirectedEdge] 9,
4 \[UndirectedEdge] 10, 9 \[UndirectedEdge] 11,
2 \[UndirectedEdge] 12}, VertexLabels -> "Name",
ImagePadding -> 10]
With this check if a graph is Eulerian
EulerianGraphQ[rutas]
Upon request from you, the program does the highlighted path in the graph
caminos = FindEulerianCycle[rutas]
HighlightGraph[rutas, PathGraph[First[caminos]
I hope something can help me find the solution, or tell me why that happens.
Thanks in advance
