source: git/Tst/Short/primdec2.tst @ a866f1

spielwiese
Last change on this file since a866f1 was da3bf68, checked in by Hans Schönemann <hannes@…>, 24 years ago
*hannes: primdec2 added git-svn-id: file:///usr/local/Singular/svn/trunk@4367 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 1.3 KB
Line 
1LIB "tst.lib";
2tst_init();
3
4LIB"primdec.lib";
5ring r=32003,(a,b,c,d,e,f),(C,dp);
6ideal i=
7a2cdf2,
8b2cdf2,
9a2bdf2,
10b3df2,
11a3df2,
12ab2df2,
13a2cde,
14b2cde,
15a2bde,
16b3de,
17a3de,
18ab2de,
19a2cd2,
20b2cd2,
21a2bd2,
22b3d2,
23a3d2,
24ab2d2,
25a2c2f2,
26b2c2f2,
27a2bcf2,
28b3cf2,
29a3cf2,
30ab2cf2,
31a2b2f2,
32b4f2,
33a3bf2,
34ab3f2,
35a4f2;
36 equidimMax(i);
37 equidimMaxEHV(i);
38 equidim(i);
39 equidim(i,1);
40
41ring r=32003,(a,b,c,d,e,f,g,h,j),(C,dp);
42ideal i=
43a+2b+c-d+g,
44f2gh-a,
45efg-c,
46fg2j-b,
47a+b+c+f+g-1,
483ad+3bd+2cd+df+dg-a-2b-c-g;
49
50 equidimMax(i);
51 equidimMaxEHV(i);
52 equidim(i);
53 equidim(i,1);
54
55
56ring r=32003,(b,s,t,u,v,w,x,y,z),(C,dp);
57ideal i=
58bv+su,
59bw+tu,
60sw+tv,
61by+sx,
62bz+tx,
63sz+ty,
64uy+vx,
65uz+wx,
66vz+wy;
67
68 equidimMax(i);
69 equidimMaxEHV(i);
70 equidim(i);
71 equidim(i,1);
72
73ring r=32003,(x,y,z),(C,dp);
74ideal i=
75xy2z2-1xy2z+xyz2-1xyz,
76xy3z+xy2z,
77xy4-1xy2,
78x2yz2-1x2yz,
79x2y3-1x2y2,
80x4z3-1x4z2+2x3z3-2x3z2+x2z3-1x2z2,
81x2y2z,
82x4yz+x3yz,
832x4y2+6x3y2+6x2y2+xy3+xy2,
84x5z+x4z2+x4z+2x3z2-1x3z+x2z2-1x2z,
85x6y+3x5y+3x4y+x3y;
86
87 equidimMax(i);
88 equidimMaxEHV(i);
89 equidim(i);
90 equidim(i,1);
91
92ring r=32003,(b,s,t,u,v,w,x,y,z),(C,dp);
93ideal i=
94su-bv,
95tv-sw,
96vx-uy,
97wy-vz;
98
99 equidimMax(i);
100 equidimMaxEHV(i);
101 equidim(i);
102 equidim(i,1);
103
104
105ring r =32003,(a,b,c,d),(C,dp);
106ideal i=
107a+b+c+d,
1081cd+1bc+1ab+ad,
1091bcd+1abc+abd+acd,
1101abcd-1;
111
112 equidimMax(i);
113 equidimMaxEHV(i);
114 equidim(i);
115 equidim(i,1);
116
117tst_status(1);$
Note: See TracBrowser for help on using the repository browser.