i1 : R = QQ[a..e]; |
i2 : G = graph {{a, c}, {c, e}, {e, b}, {b, d}, {d, a}};
|
i3 : areIsomorphic(cycle R, G) o3 = true |
i4 : L = apply(permutations gens R, P -> graphToString graph apply(5, i-> {P_i, P_((i+1)%5)}));
|
i5 : N = removeIsomorphs L
o5 = {Dhc}
o5 : List
|
i6 : stringToGraph(first N, R)
o6 = Graph{edges => {{a, b}, {b, c}, {c, d}, {a, e}, {d, e}}}
ring => R
vertices => {a, b, c, d, e}
o6 : Graph
|