source: git/Tst/Short/facstd.tst @ 1ebec3

spielwiese
Last change on this file since 1ebec3 was ef52d6, checked in by Oleksandr Motsak <motsak@…>, 11 years ago
Update testsuite wrt current master (320c4f5e64cad778b4ada9556a9b0a6c71cab83a) NOTE: some wrong/bad tests were removed... TODO: add the reset of these updates after updating LIB/
  • Property mode set to 100644
File size: 3.5 KB
Line 
1LIB "tst.lib";
2tst_init();
3option(prot);
4ring r=32003,(a,b,c,d,e,f),(C,dp);
5ideal i=
6a2cdf2,
7b2cdf2,
8a2bdf2,
9b3df2,
10a3df2,
11ab2df2,
12a2cde,
13b2cde,
14a2bde,
15b3de,
16a3de,
17ab2de,
18a2cd2,
19b2cd2,
20a2bd2,
21b3d2,
22a3d2,
23ab2d2,
24a2c2f2,
25b2c2f2,
26a2bcf2,
27b3cf2,
28a3cf2,
29ab2cf2,
30a2b2f2,
31b4f2,
32a3bf2,
33ab3f2,
34a4f2;
35std(i);
36facstd(i);
37
38 ring r=32003,(x,y,z,u,v),(C,dp);
39 poly p=x4+y4+z4+u4+v4+(x+y+z+u+v)^4;
40 ideal i=jacob(p);
41std(i);
42facstd(i);
43
44
45
46ring r=32003,(a,b,c,d,e,f,g,h,j),(C,dp);
47ideal i=
48a+2b+c-d+g,
49f2gh-a,
50efg-c,
51fg2j-b,
52a+b+c+f+g-1,
533ad+3bd+2cd+df+dg-a-2b-c-g;
54std(i);
55facstd(i);
56
57
58
59ring r=32003,(b,s,t,u,v,w,x,y,z),(C,dp);
60ideal i=
61bv+su,
62bw+tu,
63sw+tv,
64by+sx,
65bz+tx,
66sz+ty,
67uy+vx,
68uz+wx,
69vz+wy;
70std(i);
71facstd(i);
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;
86std(i);
87facstd(i);
88
89
90
91ring r=32003,(a,b,c,d,e,f),(C,dp);
92ideal i=
93adef+3/2be2f-1/2cef2,
94ad2f+5/4bdef+1/4cdf2,
95ad2e+3/4bde2+7/4cdef,
96acde+3/2bce2-1/2c2ef,
97acd2+5/4bcde+1/4c2df,
98abdf+3/2b2ef-1/2bcf2,
99abde+3/4b2e2-1acdf+1/2bcef-1/4c2f2,
100abd2+3/4b2de+7/4bcdf,
101abcd+3/2b2ce-1/2bc2f,
102a2df+5/4abef+1/4acf2,
103a2de+3/4abe2+7/4acef,
104a2d2-9/16b2e2+2acdf-9/8bcef+7/16c2f2,
105a2cd+5/4abce+1/4ac2f,
106a2bd+3/4ab2e+7/4abcf,
107bc3d+1/4cd3e,
108b2c2e-1/3bc3f+2/3cd2ef,
109b2c2d-1/2ad4-3/8bd3e-1/8cd3f,
110b3ce-1/3b2c2f+2/3bd2ef,
111b3cd+3/4bd3f,
112ac3e-1/3cde3,
113ac3d-3/4bc3e-1/2cd2e2+1/4c4f,
114abc2f-1cdef2,
115abc2e-1cde2f,
116ab2cf-1bdef2,
117ab3f-3bdf3,
118ab3d+3/4b4e-1/4b3cf-3/2bd2f2,
119a2c2e-2/3ade3-1/2be4+1/6ce3f,
120a2bcf+3/2be2f2-1/2cef3,
121a2bce+3/2be3f-1/2ce2f2,
122a2b2f-2adf3+3/2bef3-1/2cf4,
123a3ce+4/3ae3f,
124a3bf+4aef3,
125a4d+3/4a3be+1/4a3cf-2ae2f2;
126std(i);
127facstd(i);
128
129
130ring r=32003,(a,b,c,d,e,h),(C,dp);
131ideal i=
132-1ab-1b2-2de-2ch,
133-1ac-2bc-1e2-2dh,
134-1c2-1ad-2bd-2eh,
135-2cd-1ae-2be-1h2,
136-1d2-2ce-1ah-2bh;
137std(i);
138facstd(i);
139
140
141ring r= 23003,(t,u,w,x,y,z),lp;
142ideal i=
1432x2+2y2+2z2+2t2+u2-u,
144xy+2yz+2zt+2tu-t,
1452xz+2yt+t2+2zu-z,
1462xt+2zt+2yu-y,
1472x+2y+2z+2t+u-1;
148groebner(i);
149facstd(i);
150
151
152ring r =32003,(a,b,c,d,e,h),(C,dp);
153ideal i=
154a+b+c+d+e,
155de+1cd+1bc+1ae+1ab,
156cde+1bcd+1ade+1abe+1abc,
157bcde+1acde+1abde+1abce+1abcd,
158abcde-h5;
159std(i);
160facstd(i);
161
162
163ring r=0,(a,b,c,d,e,f,g,h,k,o),lp;
164ideal i=
165o+1,
166k4+k,
167hk,
168h4+h,
169gk,
170gh,
171g3+h3+k3+1,
172fk,
173f4+f,
174eh,
175ef,
176f3h3+e3k3+e3+f3+h3+k3+1,
177e3g+f3g+g,
178e4+e,
179dh3+dk3+d,
180dg,
181df,
182de,
183d3+e3+f3+1,
184e2g2+d2h2+c,
185f2g2+d2k2+b,
186f2h2+e2k2+a;
187groebner(i);
188facstd(i);
189
190
191ring r=32003,(a,b,c,d,e,f,g,h,j,k,l),(C,dp);
192ideal i=
193-2hjk+4ef+bj+ak,
194-2hjl+4eg+cj+al,
195-4fhj-4ehk-djk+2be+2af,
196-4ghj-4ehl-djl+2ce+2ag,
197-2dfj-2dek+ab,
198-2dgj-2del+ac;
199std(i);
200facstd(i);
201
202ring r=0,(t,u,v,w,x,y,z),(C,dp);
203ideal i=
204yw-1/2zw+tw,
205-2/7uw2+10/7vw2-20/7w3+tu-5tv+10tw,
2062/7yw2-2/7zw2+6/7tw2-yt+zt-3t2,
207-2v3+4uvw+5v2w-6uw2-7vw2+15w3+42yv,
208-14zv-63yw+21zw-42tw+147x,
209-9/7uw3+45/7vw3-135/7w4+2zv2-2tv2-4zuw+10tuw-2zvw-28tvw+4zw2+86tw2-42yz
210+14z2+42yt-14zt-21xu+105xv-315xw,
2116/7yw3-9/7zw3+36/7tw3-2xv2-4ytw+6ztw-24t2w+4xuw+2xvw-4xw2+56xy-35xz+84xt,
2122uvw-6v2w-uw2+13vw2-5w3+14yw-28tw,
213u2w-3uvw+5uw2+14yw-28tw,
214-2zuw-2tuw+4yvw+6zvw-2tvw-16yw2-10zw2+22tw2+42xw,
21528/3yuw+8/3zuw-20/3tuw-88/3yvw-8zvw+68/3tvw+52yw2+40/3zw2-44tw2-84xw,
216-4yzw+10ytw+8ztw-20t2w+12xuw-30xvw+15xw2,
217-y2w+1/2yzw+ytw-ztw+2t2w-3xuw+6xvw-3xw2,
2188xyw-4xzw+8xtw;
219std(i);
220facstd(i);
221
222
223
224ring r=0,(a,b,c,d,u,v,w,x),lp;
225ideal i=
226a+b+c+d,
227u+v+w+x,
2283*(ab+ac+ad+bc+bd+cd)+2,
229a*(v+w+x)+b*(u+w+x)+c*(u+v+x)+d*(u+v+w),
230u*(bc+bd+cd)+v*(ac+ad+cd)+w*(ab+ad+bd)+x*(ab+ac+bc),
231abc+abd+acd+bcd,
232abcx+abwd+avcd+ubcd;
233groebner(i);
234facstd(i);
235
236
237
238tst_status(1);$
Note: See TracBrowser for help on using the repository browser.