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 | |
---|
1 | LIB "tst.lib"; |
---|
2 | tst_init(); |
---|
3 | // segmentation violation during change of tailRing in completeReduce |
---|
4 | |
---|
5 | option(redSB,prot); |
---|
6 | int k = 3; |
---|
7 | ring R = 0, (z11, z12, z13, z21, z22, z23, z31, z32, z33), lp; |
---|
8 | proc g(int i) |
---|
9 | { |
---|
10 | return (var(i)^k-1); |
---|
11 | } |
---|
12 | proc h(int i, int j) |
---|
13 | { |
---|
14 | return ((var(i)^k-var(j)^k)/(var(i)-var(j))); |
---|
15 | } |
---|
16 | ideal I = |
---|
17 | h(1,5), |
---|
18 | h(2,4), |
---|
19 | h(1,6), |
---|
20 | h(3,4), |
---|
21 | h(2,6), |
---|
22 | h(3,5), |
---|
23 | h(1,8), |
---|
24 | h(2,7), |
---|
25 | h(1,9), |
---|
26 | h(3,7), |
---|
27 | h(2,9), |
---|
28 | h(3,8), |
---|
29 | h(4,8), |
---|
30 | h(5,7), |
---|
31 | h(4,9), |
---|
32 | h(6,7), |
---|
33 | h(5,9), |
---|
34 | h(6,8), |
---|
35 | g(1), g(2), g(3), g(4), g(5), g(6), g(7), g(8), g(9); |
---|
36 | I; |
---|
37 | |
---|
38 | matrix m= lift(I, h(1,4)*h(1,2)); |
---|
39 | //m; |
---|
40 | matrix(h(1,4)*h(1,2))-matrix(I)*m; |
---|
41 | tst_status(1);$ |
---|
Note: See
TracBrowser
for help on using the repository browser.