File: cyclic7.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 (9 lines) | stat: -rw-r--r-- 280 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
 
cyclicRoots = (n,kk) -> (
           R := kk[vars(0..n-1)];
           ideal apply(1..n-1, d-> sum(0..n-1, i -> product(d, k -> R_((i+k)%n)))) 
             + ideal(product gens R - 1))
I = cyclicRoots(7,CC)	 
end
load "cyclic7.m2"
needsPackage "PHCpack"
mixedVolume I_* -- fails