1 | Singular for x86_64-Linux version 3-0-4 (3044-2008080713) Aug 7 2008 13:20:08 |
---|
2 | with |
---|
3 | factory(@(#) factoryVersion = 3.0.4),libfac(3.0.4,Mar 2008), |
---|
4 | GMP(4.2),NTL(5.4.2),static readline,Plural,DBM, |
---|
5 | namespaces,dynamic modules,dynamic p_Procs,OM_CHECK=0,OM_TRACK=0,random=1227193821 |
---|
6 | CC= gcc -O3 -w -fomit-frame-pointer -pipe -DNDEBUG -DOM_NDEBUG -Dx86_64_Linux -DHAVE_CONFIG_H, |
---|
7 | CXX= g++ -O3 -w -fomit-frame-pointer --no-rtti -pipe -DNDEBUG -DOM_NDEBUG -Dx86_64_Linux -DHAVE_CONFIG_H (4.1.2 (Gentoo 4.1.2 p1.0.2)) |
---|
8 | argv[0] : Singular |
---|
9 | SearchPath: /usr/local/Singular/3-0-4/x86_64-Linux/MOD:/usr/local/Singular/3-0-4/LIB:/users/urmel/alggeom/hannes/murrumesh/LIB |
---|
10 | Singular : /usr/local/Singular/3-0-4/x86_64-Linux/Singular |
---|
11 | BinDir : /usr/local/Singular/3-0-4/x86_64-Linux |
---|
12 | RootDir : /usr/local/Singular/3-0-4 |
---|
13 | DefaultDir: /users/urmel/alggeom/hannes/murrumesh |
---|
14 | InfoFile : /usr/local/Singular/3-0-4/info/singular.hlp |
---|
15 | IdxFile : /usr/local/Singular/3-0-4/doc/singular.idx |
---|
16 | HtmlDir : /usr/local/Singular/3-0-4/html |
---|
17 | ManualUrl : http://www.singular.uni-kl.de/Manual/3-0-4 |
---|
18 | ExDir : /usr/local/Singular/3-0-4/examples |
---|
19 | Path : /usr/local/Singular/3-0-4/x86_64-Linux:/usr/local/bin:/bin:/sbin:/usr/bin:/usr/sbin:/usr/bin/X11:/users/schlupp/guest/motsak/bin:. |
---|
20 | EmacsDir : /usr/local/Singular/3-0-4/emacs |
---|
21 | Available HelpBrowsers: xinfo, info, lynx, builtin, dummy, emacs, |
---|
22 | Current HelpBrowser: xinfo |
---|
23 | SINGULAR / |
---|
24 | A Computer Algebra System for Polynomial Computations / version 3-0-4 |
---|
25 | 0< |
---|
26 | by: G.-M. Greuel, G. Pfister, H. Schoenemann \ Nov 2007 |
---|
27 | FB Mathematik der Universitaet, D-67653 Kaiserslautern \ |
---|
28 | test.sing 1> proc getRingWithVar() |
---|
29 | test.sing 2. { |
---|
30 | test.sing 3. ring T = 0,(t),dp; ideal B = maxideal(2); |
---|
31 | test.sing 5. |
---|
32 | test.sing 7. export B; //!!! ok here!!! |
---|
33 | test.sing 9. return(T); |
---|
34 | test.sing 11. } |
---|
35 | test.sing 12> |
---|
36 | test.sing 13. proc BugHere(def T) |
---|
37 | test.sing 14. { |
---|
38 | test.sing 15. "mapPower"; |
---|
39 | test.sing 17. |
---|
40 | test.sing 19. def save = basering; |
---|
41 | test.sing 21. |
---|
42 | test.sing 23. "/-------T----------"; listvar(T); "/////////////////"; |
---|
43 | test.sing 25. |
---|
44 | test.sing 27. setring T; |
---|
45 | test.sing 29. "ring T:", T; |
---|
46 | test.sing 31. |
---|
47 | test.sing 33. "/-------T----------"; listvar(T); "/////////////////"; |
---|
48 | test.sing 35. |
---|
49 | test.sing 37. |
---|
50 | test.sing 39. listvar(); |
---|
51 | test.sing 41. |
---|
52 | test.sing 43. "Defined(A)?: ", defined(A); |
---|
53 | test.sing 45. B; |
---|
54 | test.sing 47. A; |
---|
55 | test.sing 49. |
---|
56 | test.sing 51. return(1); |
---|
57 | test.sing 53. } |
---|
58 | test.sing 54> |
---|
59 | test.sing 55. proc Test() |
---|
60 | test.sing 56. { |
---|
61 | test.sing 57. def save = basering; |
---|
62 | test.sing 59. |
---|
63 | test.sing 61. def T = getRingWithVar(); setring T; |
---|
64 | test.sing 63. |
---|
65 | test.sing 65. ideal A = B; |
---|
66 | test.sing 67. |
---|
67 | test.sing 69. if(Export == 1) |
---|
68 | test.sing 71. { |
---|
69 | test.sing 73. export A; //??? Why ????? |
---|
70 | test.sing 75. } |
---|
71 | test.sing 77. |
---|
72 | test.sing 79. "Temporary Source Ring", T; |
---|
73 | test.sing 81. "S^k(Source Basis)", A; |
---|
74 | test.sing 83. |
---|
75 | test.sing 85. listvar(); |
---|
76 | test.sing 87. "/-------Tn----------"; listvar(T); "/////////////////"; |
---|
77 | test.sing 89. |
---|
78 | test.sing 91. setring save; |
---|
79 | test.sing 93. |
---|
80 | test.sing 95. listvar(); |
---|
81 | test.sing 97. "/-------T----------"; listvar(T); "/////////////////"; |
---|
82 | test.sing 99. |
---|
83 | test.sing 101. setring T; |
---|
84 | test.sing 103. A; |
---|
85 | test.sing 105. B; // still here after all these setrings... |
---|
86 | test.sing 107. |
---|
87 | test.sing 109. setring save; |
---|
88 | test.sing 111. |
---|
89 | test.sing 113. return(BugHere(T)); |
---|
90 | test.sing 115. } |
---|
91 | test.sing 116> |
---|
92 | test.sing 117. |
---|
93 | test.sing 118. |
---|
94 | test.sing 119. // "main" |
---|
95 | test.sing 120. ring r; |
---|
96 | test.sing 121> int Export = 1; |
---|
97 | test.sing 122> Test(); |
---|
98 | ::Test 1. |
---|
99 | ::Test 2. |
---|
100 | ::Test 3. def save = basering; |
---|
101 | ::Test 4> |
---|
102 | ::Test 5. def T = getRingWithVar(); setring T; |
---|
103 | ::Test 6> |
---|
104 | ::Test 7. ideal A = B; |
---|
105 | ::Test 8> |
---|
106 | ::Test 9. if(Export == 1) |
---|
107 | ::Test 10. { |
---|
108 | ::Test 12. export A; //??? Why ????? |
---|
109 | ::Test 13. |
---|
110 | ::Test 14. "Temporary Source Ring", T; |
---|
111 | Temporary Source Ring // characteristic : 0 |
---|
112 | // number of vars : 1 |
---|
113 | // block 1 : ordering dp |
---|
114 | // : names t |
---|
115 | // block 2 : ordering C |
---|
116 | ::Test 15> "S^k(Source Basis)", A; |
---|
117 | S^k(Source Basis) A[1]=t2 |
---|
118 | ::Test 16> |
---|
119 | ::Test 17. listvar(); |
---|
120 | // T [1] *ring |
---|
121 | // A [0] ideal (SB), 1 generator(s) |
---|
122 | // B [0] ideal (SB), 1 generator(s) |
---|
123 | // save [1] ring |
---|
124 | // Export [0] int 1 |
---|
125 | // r [0] ring |
---|
126 | ::Test 18> "/-------Tn----------"; listvar(T); "/////////////////"; |
---|
127 | /-------Tn---------- |
---|
128 | // T [1] *ring |
---|
129 | // A [0] ideal (SB), 1 generator(s) |
---|
130 | // B [0] ideal (SB), 1 generator(s) |
---|
131 | ///////////////// |
---|
132 | ::Test 19> |
---|
133 | ::Test 20. setring save; |
---|
134 | ::Test 21> |
---|
135 | ::Test 22. listvar(); |
---|
136 | // T [1] ring |
---|
137 | // save [1] *ring |
---|
138 | // Export [0] int 1 |
---|
139 | // r [0] ring(*) |
---|
140 | ::Test 23> "/-------T----------"; listvar(T); "/////////////////"; |
---|
141 | /-------T---------- |
---|
142 | // T [1] ring |
---|
143 | // A [0] ideal (SB), 1 generator(s) |
---|
144 | // B [0] ideal (SB), 1 generator(s) |
---|
145 | ///////////////// |
---|
146 | ::Test 24> |
---|
147 | ::Test 25. setring T; |
---|
148 | ::Test 26> A; |
---|
149 | A[1]=t2 |
---|
150 | ::Test 27> B; // still here after all these setrings... |
---|
151 | B[1]=t2 |
---|
152 | ::Test 28> |
---|
153 | ::Test 29. setring save; |
---|
154 | ::Test 30> |
---|
155 | ::Test 31. return(BugHere(T)); |
---|
156 | mapPower |
---|
157 | /-------T---------- |
---|
158 | // T [2] ring |
---|
159 | // A [0] ideal (SB), 1 generator(s) |
---|
160 | // B [0] ideal (SB), 1 generator(s) |
---|
161 | ///////////////// |
---|
162 | ring T: // characteristic : 0 |
---|
163 | // number of vars : 1 |
---|
164 | // block 1 : ordering dp |
---|
165 | // : names t |
---|
166 | // block 2 : ordering C |
---|
167 | /-------T---------- |
---|
168 | // T [2] *ring |
---|
169 | // A [0] ideal (SB), 1 generator(s) |
---|
170 | // B [0] ideal (SB), 1 generator(s) |
---|
171 | ///////////////// |
---|
172 | // save [2] ring |
---|
173 | // T [2] *ring |
---|
174 | // A [0] ideal (SB), 1 generator(s) |
---|
175 | // B [0] ideal (SB), 1 generator(s) |
---|
176 | // T [1] ring(*) |
---|
177 | // save [1] ring |
---|
178 | // Export [0] int 1 |
---|
179 | // r [0] ring |
---|
180 | Defined(A)?: 1 |
---|
181 | B[1]=t2 |
---|
182 | A[1]=t2 |
---|
183 | 1 |
---|
184 | test.sing 123> |
---|
185 | test.sing 124. |
---|
186 | test.sing 125. int Export = 0; |
---|
187 | // ** redefining Export ** |
---|
188 | test.sing 126> Test(); |
---|
189 | ::Test 1. |
---|
190 | ::Test 2. |
---|
191 | ::Test 3. def save = basering; |
---|
192 | ::Test 4> |
---|
193 | ::Test 5. def T = getRingWithVar(); setring T; |
---|
194 | ::Test 6> |
---|
195 | ::Test 7. ideal A = B; |
---|
196 | ::Test 8> |
---|
197 | ::Test 9. if(Export == 1) |
---|
198 | ::Test 10. { |
---|
199 | ::Test 12. export A; //??? Why ????? |
---|
200 | ::Test 13> |
---|
201 | ::Test 14. "Temporary Source Ring", T; |
---|
202 | Temporary Source Ring // characteristic : 0 |
---|
203 | // number of vars : 1 |
---|
204 | // block 1 : ordering dp |
---|
205 | // : names t |
---|
206 | // block 2 : ordering C |
---|
207 | ::Test 15> "S^k(Source Basis)", A; |
---|
208 | S^k(Source Basis) A[1]=t2 |
---|
209 | ::Test 16> |
---|
210 | ::Test 17. listvar(); |
---|
211 | // T [1] *ring |
---|
212 | // A [1] ideal (SB), 1 generator(s) |
---|
213 | // B [0] ideal (SB), 1 generator(s) |
---|
214 | // save [1] ring |
---|
215 | // Export [0] int 0 |
---|
216 | // r [0] ring |
---|
217 | ::Test 18> "/-------Tn----------"; listvar(T); "/////////////////"; |
---|
218 | /-------Tn---------- |
---|
219 | // T [1] *ring |
---|
220 | // A [1] ideal (SB), 1 generator(s) |
---|
221 | // B [0] ideal (SB), 1 generator(s) |
---|
222 | ///////////////// |
---|
223 | ::Test 19> |
---|
224 | ::Test 20. setring save; |
---|
225 | ::Test 21> |
---|
226 | ::Test 22. listvar(); |
---|
227 | // T [1] ring |
---|
228 | // save [1] *ring |
---|
229 | // Export [0] int 0 |
---|
230 | // r [0] ring(*) |
---|
231 | ::Test 23> "/-------T----------"; listvar(T); "/////////////////"; |
---|
232 | /-------T---------- |
---|
233 | // T [1] ring |
---|
234 | // A [1] ideal (SB), 1 generator(s) |
---|
235 | // B [0] ideal (SB), 1 generator(s) |
---|
236 | ///////////////// |
---|
237 | ::Test 24> |
---|
238 | ::Test 25. setring T; |
---|
239 | ::Test 26> A; |
---|
240 | A[1]=t2 |
---|
241 | ::Test 27> B; // still here after all these setrings... |
---|
242 | B[1]=t2 |
---|
243 | ::Test 28> |
---|
244 | ::Test 29. setring save; |
---|
245 | ::Test 30> |
---|
246 | ::Test 31. return(BugHere(T)); |
---|
247 | mapPower |
---|
248 | /-------T---------- |
---|
249 | // T [2] ring |
---|
250 | // A [1] ideal (SB), 1 generator(s) |
---|
251 | // B [0] ideal (SB), 1 generator(s) |
---|
252 | ///////////////// |
---|
253 | ring T: // characteristic : 0 |
---|
254 | // number of vars : 1 |
---|
255 | // block 1 : ordering dp |
---|
256 | // : names t |
---|
257 | // block 2 : ordering C |
---|
258 | /-------T---------- |
---|
259 | // T [2] *ring |
---|
260 | // A [1] ideal (SB), 1 generator(s) |
---|
261 | // B [0] ideal (SB), 1 generator(s) |
---|
262 | ///////////////// |
---|
263 | // save [2] ring |
---|
264 | // T [2] *ring |
---|
265 | // A [1] ideal (SB), 1 generator(s) |
---|
266 | // B [0] ideal (SB), 1 generator(s) |
---|
267 | // T [1] ring(*) |
---|
268 | // save [1] ring |
---|
269 | // Export [0] int 0 |
---|
270 | // r [0] ring |
---|
271 | Defined(A)?: 0 |
---|
272 | B[1]=t2 |
---|
273 | ? `A` is undefined |
---|
274 | ? error occurred in ::BugHere line 18: ` A; ` |
---|
275 | 1 |
---|
276 | test.sing 127> |
---|
277 | test.sing 128. |
---|
278 | test.sing 129. $ |
---|
279 | $Bye. |
---|