-- -*- M2-comint -*- hash: 4343985138407941570

i1 : R = CC[a,b,c,d][x,y];

i2 : polys = polySystem {a*x+b*y^2,c*x*y+d};

i3 : (V, npaths) = monodromySolve(polys,SelectEdgeAndDirection=>selectBestEdgeAndDirection, Potential=>potentialLowerBound)

o3 = (HomotopyNode{...7...}, 3)

o3 : Sequence

i4 : G = V.Graph;

i5 : apply(toList G.Edges,e->e.Potential12)--potentials for all edges of a given direction

o5 = {0, 0, 0, 0}

o5 : List

i6 : 
