| 1 | LIB "tst.lib"; |
|---|
| 2 | tst_init(); |
|---|
| 3 | LIB"ncHilb.lib"; |
|---|
| 4 | ring r=0,(x,y,z),dp; |
|---|
| 5 | |
|---|
| 6 | module p1=[1,y,z,z]; |
|---|
| 7 | module p2=[1,y,y,z]; |
|---|
| 8 | module p3=[1,x,z,z]; |
|---|
| 9 | module p4=[1,x,z,y]; |
|---|
| 10 | module p5=[1,x,y,z]; |
|---|
| 11 | module p6=[1,x,y,y]; |
|---|
| 12 | module p7=[1,x,x,z]; |
|---|
| 13 | module p8=[1,x,x,y]; |
|---|
| 14 | module p9=[1,y,z,y,z]; |
|---|
| 15 | module p10=[1,y,z,x,z]; |
|---|
| 16 | module p11=[1,y,z,x,y]; |
|---|
| 17 | module p12=[1,x,z,x,z]; |
|---|
| 18 | module p13=[1,x,z,x,y]; |
|---|
| 19 | module p14=[1,x,y,x,z]; |
|---|
| 20 | module p15=[1,x,y,x,y]; |
|---|
| 21 | module p16=[1,y,z,y,x,z]; |
|---|
| 22 | module p17=[1,y,z,y,x,y]; |
|---|
| 23 | module p18=[1,y,z,y,y,x,z]; |
|---|
| 24 | module p19=[1,y,z,y,y,x,y]; |
|---|
| 25 | module p20=[1,y,z,y,y,y,x,z]; |
|---|
| 26 | module p21=[1,y,z,y,y,y,x,y]; |
|---|
| 27 | |
|---|
| 28 | list l5=list(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13, |
|---|
| 29 | p14,p15,p16,p17,p18,p19,p20,p21); |
|---|
| 30 | nchilb(l5,7,1,2,"p"); |
|---|
| 31 | tst_status(1);$ |
|---|
