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