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 |