fieker-DuValspielwiese
|
Last change
on this file since b672d2 was
3d89e3,
checked in by Jakob Kröker <kroeker@…>, 10 years ago
|
|
proposal for trac issue 595
|
-
Property mode set to
100644
|
|
File size:
335 bytes
|
| Line | |
|---|
| 1 | LIB "tst.lib"; |
|---|
| 2 | tst_init(); |
|---|
| 3 | |
|---|
| 4 | LIB("normal.lib"); |
|---|
| 5 | |
|---|
| 6 | // to suppress printed message by normalP add one indirection level: |
|---|
| 7 | proc normalPW(ideal id, list #) { return (Normal::normalP(id,#) ); } |
|---|
| 8 | |
|---|
| 9 | ring rng = 7,(x,y), dp; |
|---|
| 10 | ideal I = y-3,x-3; |
|---|
| 11 | def result = normalPW( I ,"withRing"); |
|---|
| 12 | def r = result[1][1]; |
|---|
| 13 | setring r; |
|---|
| 14 | norid; |
|---|
| 15 | normap; |
|---|
| 16 | |
|---|
| 17 | tst_status(1); $ |
|---|
Note: See
TracBrowser
for help on using the repository browser.
