| 1 | option(prot); |
|---|
| 2 | ring h1=32003,(t,x,y,z),dp; |
|---|
| 3 | ideal i= |
|---|
| 4 | 9x8+y7t3z4+5x4y2t2+2xy2z3t2, |
|---|
| 5 | 9y8+7xy6t+2x5y4t2+2x2yz3t2, |
|---|
| 6 | 9z8+3x2y3z2t4; |
|---|
| 7 | intvec E=weight(i); |
|---|
| 8 | E; |
|---|
| 9 | ring r1 = 32003,(a,b,c,d,e,f),dp; |
|---|
| 10 | ideal i0 = |
|---|
| 11 | a+b+c+d+e+f, |
|---|
| 12 | ab+bc+cd+de+ef+fa, |
|---|
| 13 | abc+bcd+cde+d*ef+efa+fab, |
|---|
| 14 | abcd+bcde+cdef+defa+efab+fabc, |
|---|
| 15 | abcde+bcdef+cdefa+defab+efabc+fabcd, |
|---|
| 16 | abcdef+1; |
|---|
| 17 | ring rm=32003,(g,h,l,m,n,o),dp; |
|---|
| 18 | map f=r1,g,h,l3,m+n2,n,o2; |
|---|
| 19 | ideal i=interred(f(i0)); |
|---|
| 20 | i; |
|---|
| 21 | test(22); |
|---|
| 22 | intvec e=weight(i); |
|---|
| 23 | e; |
|---|
| 24 | test(-22); |
|---|
| 25 | ring sp= 32003,(t,x,y,z),dp; |
|---|
| 26 | ideal i=t18x2-t19z-t18z2,t26xy-t27z-t25z3,t38y2-t37xy; |
|---|
| 27 | intvec e=weight(i); |
|---|
| 28 | e; |
|---|
| 29 | test(22); |
|---|
| 30 | test(9); |
|---|
| 31 | ring al1=32003,(x,t,y,z),ds; |
|---|
| 32 | option(weightM); |
|---|
| 33 | ideal i= |
|---|
| 34 | 9x8+y7t3z4+5x4y2t2+2xy2z3t2, |
|---|
| 35 | 9y8+7xy6t+2x5y4t2+2x2yz3t2, |
|---|
| 36 | 9z8+3x2y3z2t4; |
|---|
| 37 | ideal k=interred(i^2); |
|---|
| 38 | k; |
|---|
| 39 | degBound=1; |
|---|
| 40 | ideal j=std(k); |
|---|
| 41 | j; |
|---|
| 42 | kill al1; |
|---|
| 43 | LIB "tst.lib";tst_status(1);$ |
|---|
