1 | //an error of 0.8.9a (intersect in char 0) |
---|
2 | //(kreusler) |
---|
3 | ring r=0,(x,y,z),(c,lp); |
---|
4 | vector v(1)=[xy+y2,x,1]; |
---|
5 | vector v(2)=[x2+z2,x-y,0,1]; |
---|
6 | vector v(3)=[xz,y,0,0,1]; |
---|
7 | module M=v(1),v(2),v(3); |
---|
8 | module Ms=std(M); |
---|
9 | Ms; |
---|
10 | module N=gen(3),gen(4),gen(5); |
---|
11 | intersect(Ms,N); |
---|
12 | kill r; |
---|
13 | //-------------------------------------------------------------- |
---|
14 | //an error of 0.8.9a (undefined names output for block C) |
---|
15 | ring r=0,x,(dp,C); |
---|
16 | r; |
---|
17 | kill r; |
---|
18 | //-------------------------------------------------------------- |
---|
19 | //an error of 0.8.9a (crash: deg(0) was undefined) |
---|
20 | // (B.Martin) |
---|
21 | ring r=0,x,(dp,C); |
---|
22 | poly f; |
---|
23 | deg(f); |
---|
24 | kill r; |
---|
25 | //-------------------------------------------------------------- |
---|
26 | //an error of 0.8.9a (crash for gmp/i386/-O2) |
---|
27 | // (B.Martin) |
---|
28 | ring r=0,(x,y,z),(dp); |
---|
29 | poly f=(x+y)^11; |
---|
30 | subst(f,x,2); |
---|
31 | kill r; |
---|
32 | //--------------------------------------------------------------- |
---|
33 | //an error of 0.8.9b (incorrect) and 0.8.9c (crash) |
---|
34 | // (H.S.) |
---|
35 | ring r; |
---|
36 | ideal i=1; |
---|
37 | degree(i); |
---|
38 | dim(i); |
---|
39 | mult(i); |
---|
40 | i=0; |
---|
41 | degree(i); |
---|
42 | dim(i); |
---|
43 | mult(i); |
---|
44 | //--------------------------------------------------------------- |
---|
45 | //an error of 0.8.9c (crash) |
---|
46 | // (Cottbus) |
---|
47 | // |
---|
48 | // test script for var command |
---|
49 | // |
---|
50 | pagelength = 10000; |
---|
51 | ring r4=0,(x(1..10),y(1..9),z(1..8)),dp; |
---|
52 | r4; |
---|
53 | varstr(r4,28); |
---|
54 | kill r4; |
---|
55 | // ----------------------------------------------------------- |
---|
56 | //an error of 0.8.9c (crash/undef output) |
---|
57 | // (Cottbus) |
---|
58 | // |
---|
59 | // test script for nameof command |
---|
60 | // |
---|
61 | int i=9; |
---|
62 | string st=nameof(i+1); |
---|
63 | st; |
---|
64 | // ----------------------------------------------------------- |
---|
65 | //an error of 0.8.9c (crash for det of nonsquare) |
---|
66 | // GMG |
---|
67 | ring r; |
---|
68 | ideal I =x,y,z,zy; |
---|
69 | matrix m =jacob(I); |
---|
70 | det(m); |
---|
71 | kill r; |
---|
72 | // ----------------------------------------------------------- |
---|
73 | //an error of 0.8.9c (crash if proc paramter is a ring) |
---|
74 | // GMG |
---|
75 | ring r; |
---|
76 | r; |
---|
77 | r; |
---|
78 | proc t |
---|
79 | { |
---|
80 | listvar(all); |
---|
81 | ; |
---|
82 | } |
---|
83 | t(r); |
---|
84 | listvar(all); |
---|
85 | r; |
---|
86 | kill r;kill t; |
---|
87 | // ----------------------------------------------------------- |
---|
88 | // test automatic set of options for various rings |
---|
89 | // GP/HS |
---|
90 | option(); |
---|
91 | option(intStrategy); |
---|
92 | option(); |
---|
93 | option(nointStrategy); |
---|
94 | option(); |
---|
95 | ring r=32003,x,dp; |
---|
96 | r; |
---|
97 | option(); |
---|
98 | option(intStrategy); |
---|
99 | option(); |
---|
100 | option(nointStrategy); |
---|
101 | option(); |
---|
102 | kill r; |
---|
103 | ring r=0,x,dp; |
---|
104 | r; |
---|
105 | option(); |
---|
106 | option(intStrategy); |
---|
107 | option(); |
---|
108 | option(nointStrategy); |
---|
109 | option(); |
---|
110 | kill r; |
---|
111 | ring r=(0,a),x,dp; |
---|
112 | r; |
---|
113 | option(); |
---|
114 | option(intStrategy); |
---|
115 | option(); |
---|
116 | option(nointStrategy); |
---|
117 | option(); |
---|
118 | kill r; |
---|
119 | ring r=(7,a),x,dp; |
---|
120 | r; |
---|
121 | option(); |
---|
122 | option(intStrategy); |
---|
123 | option(); |
---|
124 | option(nointStrategy); |
---|
125 | option(); |
---|
126 | kill r; |
---|
127 | // ----------------------------------------------------------- |
---|
128 | // could not display number from lists (sleftv::String()) |
---|
129 | // OB/HS |
---|
130 | ring r=0,x,dpi;list l=1/2;l[1]; |
---|
131 | $ |
---|
132 | |
---|