1 | LIB "tst.lib"; |
---|
2 | tst_init(); |
---|
3 | tst_ignore("CVS ID $Id: monodromy_l.tst,v 1.4 1998-12-21 12:37:23 obachman Exp $"); |
---|
4 | |
---|
5 | LIB "monodromy.lib"; |
---|
6 | |
---|
7 | ring R=0,(x,y,z),ds; |
---|
8 | |
---|
9 | list unimodal= |
---|
10 | "P[8]",x3+y3+z3+xyz, |
---|
11 | "X[9]",x4+y4+x2y2, |
---|
12 | "J[10]",x3+y6+x2y2, |
---|
13 | "T[3,4,5]",x3+y4+z5+xyz, |
---|
14 | "T[3,4,6]",x3+y4+z6+xyz, |
---|
15 | "T[3,5,6]",x3+y5+z6+xyz, |
---|
16 | "E[12]",x3+y7+xy5, |
---|
17 | "E[13]",x3+xy5+y8, |
---|
18 | "E[14]",x3+y8+xy6, |
---|
19 | "Z[11]",x3y+y5+xy4, |
---|
20 | "Z[12]",x3y+xy4+x2y3, |
---|
21 | "Z[13]",x3y+y6+xy5, |
---|
22 | "W[12]",x4+y5+x2y3, |
---|
23 | "W[13]",x4+xy4+y6, |
---|
24 | "Q[10]",x3+y4+yz2+xy3, |
---|
25 | "Q[11]",x3+y2z+xz3+z5, |
---|
26 | "Q[12]",x3+y5+yz2+xy4, |
---|
27 | "S[11]",x4+y2z+xz2+x3z, |
---|
28 | "S[12]",x2y+y2z+xz3+z5, |
---|
29 | "U[12]",x3+y3+z4+xyz2; |
---|
30 | |
---|
31 | list bimodal= |
---|
32 | //"J[3,0]",x3+x2y3+y9+xy7, |
---|
33 | "J[3,1]",x3+x2y3+y10, |
---|
34 | "J[3,2]",x3+x2y3+y11, |
---|
35 | //"Z[1,0]",x3y+x2y3+xy6+y7, |
---|
36 | //"Z[1,1]",x3y+x2y3+y8, |
---|
37 | //"Z[1,2]",x3y+x2y3+y9, |
---|
38 | "W[1,0]",x4+x2y3+y6, |
---|
39 | "W[1,1]",x4+x2y3+y7, |
---|
40 | "W[1,2]",x4+x2y3+y8, |
---|
41 | //"W#[1,1]",(x2+y3)^2+xy5, |
---|
42 | //"W#[1,2]",(x2+y3)^2+x2y4, |
---|
43 | //"W#[1,3]",(x2+y3)^2+xy6, |
---|
44 | //"W#[1,4]",(x2+y3)^2+x2y5, |
---|
45 | "Q[2,0]",x3+yz2+x2y2+xy4, |
---|
46 | "Q[2,1]",x3+yz2+x2y2+y7, |
---|
47 | "Q[2,2]",x3+yz2+x2y2+y8, |
---|
48 | "S[1,0]",x2z+yz2+y5+zy3, |
---|
49 | "S[1,1]",x2z+yz2+x2y2+y6, |
---|
50 | "S[1,2]",x2z+yz2+x2y2+y7, |
---|
51 | //"S#[1,1]",x2z+yz2+zy3+xy4, |
---|
52 | //"S#[1,2]",x2z+yz2+zy3+x2y3, |
---|
53 | //"S#[1,3]",x2z+yz2+zy3+xy5, |
---|
54 | //"S#[1,4]",x2z+yz2+zy3+x2y4, |
---|
55 | "U[1,0]",x3+xz2+xy3+y3z, |
---|
56 | "U[1,1]",x3+xz2+xy3+y2z2, |
---|
57 | "U[1,2]",x3+xz2+xy3+y4z, |
---|
58 | "U[1,3]",x3+xz2+xy3+y3z2, |
---|
59 | "U[1,4]",x3+xz2+xy3+y5z, |
---|
60 | "E[18]",x3+y10+xy7, |
---|
61 | "E[19]",x3+xy7+y11, |
---|
62 | "E[20]",x3+y11+xy8, |
---|
63 | "Z[17]",x3y+y8+xy6, |
---|
64 | "Z[18]",x3y+xy6+y9, |
---|
65 | "Z[19]",x3y+y9+xy7, |
---|
66 | "W[17]",x4+xy5+y7, |
---|
67 | "W[18]",x4+y7+x2y4, |
---|
68 | "Q[16]",x3+yz2+y7+xy5, |
---|
69 | "Q[17]",x2z+yz2+xy5+y8, |
---|
70 | "Q[18]",x3+yz2+y8+xy6, |
---|
71 | "S[16]",x2z+yz2+xy4+y6, |
---|
72 | "S[17]",x2z+yz2+y6+zy4, |
---|
73 | "U[16]",x3+xz2+y5+x2y2; |
---|
74 | |
---|
75 | proc tst_monodromy(string s,poly p) |
---|
76 | { |
---|
77 | map m=basering,x,y,0; |
---|
78 | if(p==m(p)) |
---|
79 | { |
---|
80 | def R=basering; |
---|
81 | ring r=0,(x,y),ds; |
---|
82 | export r; |
---|
83 | poly p=imap(R,p); |
---|
84 | } |
---|
85 | |
---|
86 | "**************** "+s+" ****************"; |
---|
87 | print(monodromy(p)); |
---|
88 | tst_status(); |
---|
89 | |
---|
90 | if(nvars(basering)==2) |
---|
91 | { |
---|
92 | kill r; |
---|
93 | } |
---|
94 | } |
---|
95 | |
---|
96 | int i; |
---|
97 | list l=unimodal; |
---|
98 | for(i=1;i<=size(l);i=i+2) |
---|
99 | { |
---|
100 | tst_monodromy(l[i],l[i+1]); |
---|
101 | } |
---|
102 | |
---|
103 | tst_status(1); $ |
---|