File: homotopy-setup-test.m2

package info (click to toggle)
macaulay2 1.21%2Bds-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 133,096 kB
  • sloc: cpp: 110,377; ansic: 16,306; javascript: 4,193; makefile: 3,821; sh: 3,580; lisp: 764; yacc: 590; xml: 177; python: 140; perl: 114; lex: 65; awk: 3
file content (15 lines) | stat: -rw-r--r-- 360 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
needsPackage "MonodromySolver"
errorDepth = 0
R1 = CC[a,b,c,d][A,B];
polys = polySystem {A*a+B*b,A*B*c+d};
(p0,x0) = createSeedPair polys;
count = 2;
--NumberOfEdges=>1 (no randomization)
(V,npaths) = monodromySolve(polys,p0,{x0},
    NumberOfNodes=>4,
    NumberOfEdges=>1);
assert( length V.PartialSols == count );

end
restart 
load "bug-homotopy-setup.m2"