fieker-DuValspielwiese
|
Last change
on this file since bceb63 was
9d64ac,
checked in by Hans Schoenemann <hannes@…>, 10 years ago
|
|
fix: tr.#642 (genus(I,"pri"))
|
-
Property mode set to
100644
|
|
File size:
385 bytes
|
| Line | |
|---|
| 1 | LIB "tst.lib"; |
|---|
| 2 | tst_init(); |
|---|
| 3 | |
|---|
| 4 | LIB"normal.lib"; |
|---|
| 5 | ring rng = 0, (T(1),T(2),T(3),y,x ),(dp(3),dp(2) ); |
|---|
| 6 | ideal I = x^9+y*x^5-y^5+y^3,T(3)*x^2-y^3+y,T(3)*y^2-x^7-y*x^3,T(2)*y-x^4,T(2)*x^3-T(3)*y+x^3,T(1)-T(3)*x,T(3)^2+T(2)*x-y*x^5-y^2*x+x,T(2)*T(3)-y^2*x^2+x^2,T(2)^2+T(2)-T(3)*x; |
|---|
| 7 | I = std(I); |
|---|
| 8 | dim(I); |
|---|
| 9 | def J = equidim(std(I))[1]; |
|---|
| 10 | J; |
|---|
| 11 | genus(J,"pri"); |
|---|
| 12 | genus(J); |
|---|
| 13 | genus(J,"nor"); |
|---|
| 14 | |
|---|
| 15 | tst_status(1); $ |
|---|
| 16 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
