spielwiese
|
Last change
on this file was
04be08,
checked in by Martin Lee <martinlee84@…>, 10 years ago
|
|
chg: added test for #489
|
-
Property mode set to
100644
|
|
File size:
527 bytes
|
| Line | |
|---|
| 1 | LIB "tst.lib"; |
|---|
| 2 | tst_init(); |
|---|
| 3 | |
|---|
| 4 | option(noredefine);option(redSB);LIB "matrix.lib"; |
|---|
| 5 | |
|---|
| 6 | ring homalg_variable_140 = (2),(x1,x2,x3,x4,x5),dp; |
|---|
| 7 | setring homalg_variable_140; |
|---|
| 8 | short=0;option(redTail); |
|---|
| 9 | matrix homalg_variable_193[5][1] = x1^2+x2^2+x3^2+x4^2+x5^2+1,x1*x2+x2*x3+x3*x4+x1*x5+x4*x5,x1*x3+x1*x4+x2*x4+x2*x5+x3*x5,x1*x3+x1*x4+x2*x4+x2*x5+x3*x5,x1*x2+x2*x3+x3*x4+x1*x5+x4*x5; |
|---|
| 10 | homalg_variable_193 = transpose(homalg_variable_193); |
|---|
| 11 | matrix homalg_variable_194 = std(homalg_variable_193); |
|---|
| 12 | primdecSY(homalg_variable_194); |
|---|
| 13 | |
|---|
| 14 | tst_status(1);$ |
|---|
Note: See
TracBrowser
for help on using the repository browser.
