spielwiese
|
Last change
on this file since 293722 was
293722,
checked in by Viktor Levandovskyy <levandov@…>, 14 years ago
|
|
*levandov: tests for new functions in doc, for plural
git-svn-id: file:///usr/local/Singular/svn/trunk@12656 2c84dea3-7e68-4137-9b89-c4e89433aadc
|
-
Property mode set to
100644
|
|
File size:
420 bytes
|
| Line | |
|---|
| 1 | LIB "tst.lib"; |
|---|
| 2 | tst_init(); |
|---|
| 3 | ring r=0,(x,y,Dx,Dy),dp; |
|---|
| 4 | matrix M[4][4]; M[1,3]=1;M[2,4]=1; |
|---|
| 5 | def R = nc_algebra(1,M); // 2nd Weyl algebra |
|---|
| 6 | setring R; |
|---|
| 7 | dim(std(0)); // the GK dimension of the ring itself |
|---|
| 8 | ideal I=x*Dy^2-2*y*Dy^2+2*Dy, Dx^3+3*Dy^2; |
|---|
| 9 | dim(std(I)); // the GK dimension of the module R/I |
|---|
| 10 | module T = (x*Dx -2)*gen(1), Dx^3*gen(1), (y*Dy +3)*gen(2); |
|---|
| 11 | dim(std(T)); // the GK dimension of the module R^2/T |
|---|
| 12 | tst_status(1);$ |
|---|
Note: See
TracBrowser
for help on using the repository browser.
