source: git/Tst/Long/monodromy_l.tst @ 278f82

fieker-DuValspielwiese
Last change on this file since 278f82 was 278f82, checked in by Olaf Bachmann <obachman@…>, 25 years ago
*** empty log message *** git-svn-id: file:///usr/local/Singular/svn/trunk@2778 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 2.0 KB
Line 
1LIB "tst.lib";
2tst_init();
3tst_ignore("CVS ID $Id: monodromy_l.tst,v 1.4 1998-12-21 12:37:23 obachman Exp $");
4
5LIB "monodromy.lib";
6
7ring R=0,(x,y,z),ds;
8
9list 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
31list 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
75proc 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
96int i;
97list l=unimodal;
98for(i=1;i<=size(l);i=i+2)
99{
100  tst_monodromy(l[i],l[i+1]);
101}
102
103tst_status(1); $
Note: See TracBrowser for help on using the repository browser.