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);$ |
---|