source: git/Tst/Long/bug_45.tst @ 887634

spielwiese
Last change on this file since 887634 was a589e6, checked in by Hans Schönemann <hannes@…>, 17 years ago
*hannes: no prot n,b git-svn-id: file:///usr/local/Singular/svn/trunk@10263 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 608 bytes
Line 
1LIB "tst.lib";
2tst_init();
3// segmentation violation during change of tailRing in completeReduce
4
5option(redSB,prot);
6int k = 3;
7ring R = 0, (z11, z12, z13, z21, z22, z23, z31, z32, z33), lp;
8proc g(int i)
9{
10  return (var(i)^k-1);
11}
12proc h(int i, int j)
13{
14  return ((var(i)^k-var(j)^k)/(var(i)-var(j)));
15}
16ideal I =
17h(1,5),
18h(2,4),
19h(1,6),
20h(3,4),
21h(2,6),
22h(3,5),
23h(1,8),
24h(2,7),
25h(1,9),
26h(3,7),
27h(2,9),
28h(3,8),
29h(4,8),
30h(5,7),
31h(4,9),
32h(6,7),
33h(5,9),
34h(6,8),
35g(1), g(2), g(3), g(4), g(5), g(6), g(7), g(8), g(9);
36I;
37
38matrix m= lift(I, h(1,4)*h(1,2));
39//m;
40matrix(h(1,4)*h(1,2))-matrix(I)*m;
41tst_status(1);$
Note: See TracBrowser for help on using the repository browser.