File: DiffOps.exa.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 (19 lines) | stat: -rw-r--r-- 366 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
path = join(path, {"../"})
load "Dloadfile.m2"
Dtrace 4

-- Example 1
n = 2
R = QQ[u_1..u_n,v_1..v_n]
I = ideal( sum(toList(1..n), i -> u_i*u_i),
     sum(toList(1..n), i -> v_i*v_i),
     sum(toList(1..n), i -> u_i*v_i))
k = 2
m = diffOps(I,k)
transpose putWeylAlgebra m

-- Example 2
R = QQ[x,y,z]
I = ideal(x+y^3+z^2)
m = diffOps(I, 3)
transpose putWeylAlgebra m