spielwiese
Last change
on this file since ad3dfe was
e25b474,
checked in by Hans Schönemann <hannes@…>, 19 years ago
|
*hannes: tests from 2-0 branch
git-svn-id: file:///usr/local/Singular/svn/trunk@7876 2c84dea3-7e68-4137-9b89-c4e89433aadc
|
-
Property mode set to
100644
|
File size:
1.5 KB
|
Line | |
---|
1 | LIB "tst.lib"; |
---|
2 | tst_init(); |
---|
3 | proc kuddelmuddel(poly p) |
---|
4 | { |
---|
5 | ideal i=jacob(p); |
---|
6 | list I=list(nres(i,0)); |
---|
7 | module M=I[2]; |
---|
8 | list I=list(nres(i,0)); |
---|
9 | int ii=1; |
---|
10 | vector v,tv; |
---|
11 | while (ii<=nvars(basering)) |
---|
12 | { |
---|
13 | tv = deg(var(ii))*var(ii)*gen(ii); |
---|
14 | v = v+tv; |
---|
15 | ii = ii+1; |
---|
16 | } |
---|
17 | M = M,v; |
---|
18 | return (minor(M,nvars(basering))); |
---|
19 | } |
---|
20 | |
---|
21 | ring r=0,(x,y,z),dp; |
---|
22 | poly f=x3+y3+z3+xyz; |
---|
23 | ideal g=kuddelmuddel(f),f; |
---|
24 | print(syz(g)); |
---|
25 | kill r; |
---|
26 | |
---|
27 | ring RR=0,(A,B,C,D,E),wp(6,3,2,5,4); |
---|
28 | poly p=11664A5-5832A4B2+729A3B4-864A4C3-216A3B2C3+16A3C6+2592A3BC2D-16200A3CD2+5670A2B2CD2-729AB4CD2+888A2C4D2+216AB2C4D2-16AC7D2+13500A2BD3-6075AB3D3+729B5D3-3420ABC3D3-216B3C3D3+16BC6D3+4125AC2D4+2700B2C2D4-16C5D4-5625BCD5+3125D6+27216A4CE-9720A3B2CE+729A2B4CE-1440A3C4E-216A2B2C4E+16A2C7E+38880A3BDE-18468A2B3DE+2187AB5DE+144A2BC3DE-648AB3C3DE+48ABC6DE-33480A2C2D2E+17226AB2C2D2E-729B4C2D2E+1480AC5D2E+216B2C5D2E-16C8D2E+1800ABCD3E-3645B3CD3E-3204BC4D3E+22500AD4E-3375B2D4E+3925C3D4E+19872A3C2E2-4104A2B2C2E2-544A2C5E2+76896A2BCDE2-23976AB3CDE2+1458B5CDE2-3360ABC4DE2-432B3C4DE2+32BC7DE2+43200A2D2E2-11880AB2D2E2+243B4D2E2-24568AC3D2E2+8820B2C3D2E2+608C6D2E2-4980BC2D3E2+18500CD4E2+13824A3E3-19008A2B2E3+6804AB4E3-729B6E3+3232A2C3E3+504AB2C3E3+216B4C3E3+32AC6E3-16B2C6E3+49440ABC2DE3-10692B3C2DE3-1104BC5DE3+65280ACD2E3-2088B2CD2E3-7096C4D2E3-3200BD3E3+23040A2CE4-23040AB2CE4+4212B4CE4-1072AC4E4+528B2C4E4-13824ABDE4+3456B3DE4+10656BC3DE4+22848C2D2E4+8704AC2E5-4800B2C2E5+16C5E5-14848BCDE5+1024D2E5+4096AE6-1024B2E6-512C3E6+4096CE7; |
---|
29 | option(prot); |
---|
30 | ideal g=kuddelmuddel(p),p; |
---|
31 | g; |
---|
32 | syz(g); |
---|
33 | kill RR; |
---|
34 | tst_status(1);$; |
---|
Note: See
TracBrowser
for help on using the repository browser.