fieker-DuValspielwiese
|
Last change
on this file since 894057 was
894057,
checked in by Oleksandr Motsak <motsak@…>, 13 years ago
|
|
ADD: Tests from online manual (res+stat on mamawutz): short ones Tst/Manual/s.lst
|
-
Property mode set to
100644
|
|
File size:
760 bytes
|
| Line | |
|---|
| 1 | LIB "tst.lib"; tst_init(); |
|---|
| 2 | LIB "pointid.lib"; |
|---|
| 3 | ring R = 0,x(1..3),rp; |
|---|
| 4 | vector a1 = [4,0,0]; |
|---|
| 5 | vector a2 = [2,1,4]; |
|---|
| 6 | vector a3 = [2,4,0]; |
|---|
| 7 | vector a4 = [3,0,1]; |
|---|
| 8 | vector a5 = [2,1,3]; |
|---|
| 9 | vector a6 = [1,3,4]; |
|---|
| 10 | vector a7 = [2,4,3]; |
|---|
| 11 | vector a8 = [2,4,2]; |
|---|
| 12 | vector a9 = [1,0,2]; |
|---|
| 13 | list A = a1,a2,a3,a4,a5,a6,a7,a8,a9; |
|---|
| 14 | facGBIdeal(A); |
|---|
| 15 | matrix MAT[9][3] = 4,0,0,2,1,4,2,4,0,3,0,1,2,1,3,1,3,4,2,4,3,2,4,2,1,0,2; |
|---|
| 16 | MAT = transpose(MAT); |
|---|
| 17 | print(MAT); |
|---|
| 18 | facGBIdeal(MAT); |
|---|
| 19 | module MOD = gen(3),gen(2)-2*gen(3),2*gen(1)+2*gen(3),2*gen(2)-2*gen(3),gen(1)+3*gen(3),gen(1)+gen(2)+3*gen(3),gen(1)+gen(2)+gen(3); |
|---|
| 20 | print(MOD); |
|---|
| 21 | facGBIdeal(MOD); |
|---|
| 22 | list l1 = 0,0,1; |
|---|
| 23 | list l2 = 0,1,-2; |
|---|
| 24 | list l3 = 2,0,2; |
|---|
| 25 | list l4 = 0,2,-2; |
|---|
| 26 | list l5 = 1,0,3; |
|---|
| 27 | list l6 = 1,1,3; |
|---|
| 28 | list L = l1,l2,l3,l4,l5,l6; |
|---|
| 29 | facGBIdeal(L); |
|---|
| 30 | tst_status(1);$ |
|---|
Note: See
TracBrowser
for help on using the repository browser.
