source: git/Tst/Long/monodromy_l.tst @ 7b698b6

spielwiese
Last change on this file since 7b698b6 was 1e7da06, checked in by Mathias Schulze <mschulze@…>, 25 years ago
*** empty log message *** git-svn-id: file:///usr/local/Singular/svn/trunk@3087 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 2.5 KB
Line 
1LIB "tst.lib";
2tst_init();
3tst_ignore("CVS ID $Id: monodromy_l.tst,v 1.7 1999-06-01 12:24:17 mschulze Exp $");
4
5LIB "monodrmy.lib";
6LIB "jordan.lib";
7
8list 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
30list 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
74proc 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
94tst_monodromy(unimodal);
95
96tst_status(1); $
Note: See TracBrowser for help on using the repository browser.