diff options
author | Allan Cornet <allan.cornet@scilab.org> | 2007-04-12 16:38:43 +0000 |
---|---|---|
committer | Allan Cornet <allan.cornet@scilab.org> | 2007-04-12 16:38:43 +0000 |
commit | 08ae6d303fe7688a01158cb500eb7fa8945b2f13 (patch) | |
tree | 81f31eb67607d4540f85f3b19ef7753196631a58 /tests | |
parent | 7172ee0ef248e5179dfad3eaa4f5c7e39fede285 (diff) | |
download | scilab-08ae6d303fe7688a01158cb500eb7fa8945b2f13.zip scilab-08ae6d303fe7688a01158cb500eb7fa8945b2f13.tar.gz |
update tests (localization) some messages aren't exactly the same than before ...
Diffstat (limited to 'tests')
-rw-r--r-- | tests/basic_tests/algebra.dia.ref | 13 | ||||
-rw-r--r-- | tests/basic_tests/basiclink.dia.ref | 2 | ||||
-rw-r--r-- | tests/basic_tests/breakpoints.dia.ref | 188 | ||||
-rw-r--r-- | tests/basic_tests/clause.dia.ref | 16 | ||||
-rw-r--r-- | tests/basic_tests/links.dia.ref | 2 | ||||
-rw-r--r-- | tests/basic_tests/matode.dia.ref | 44 | ||||
-rw-r--r-- | tests/basic_tests/matopt.dia.ref | 8 | ||||
-rw-r--r-- | tests/basic_tests/matsys.dia.ref | 24 | ||||
-rw-r--r-- | tests/basic_tests/matsys.tst | 2 | ||||
-rw-r--r-- | tests/basic_tests/specfun.dia.ref | 116 |
10 files changed, 208 insertions, 207 deletions
diff --git a/tests/basic_tests/algebra.dia.ref b/tests/basic_tests/algebra.dia.ref index 3393941..ea3f57d 100644 --- a/tests/basic_tests/algebra.dia.ref +++ b/tests/basic_tests/algebra.dia.ref | |||
@@ -1988,6 +1988,7 @@ if U<>[]|S<>[]|V<>[]|rk<>0 then bugmes();quit;end | |||
1988 | 1988 | ||
1989 | 1989 | ||
1990 | if execstr('[U,S,V,rk]=svd([],'"e'")','errcatch') == 0 then bugmes();quit;end | 1990 | if execstr('[U,S,V,rk]=svd([],'"e'")','errcatch') == 0 then bugmes();quit;end |
1991 | |||
1991 | 1992 | ||
1992 | 1993 | ||
1993 | //Small dimension | 1994 | //Small dimension |
@@ -2434,7 +2435,7 @@ if rk<>30 then bugmes();quit;end | |||
2434 | function c=cond(A) | 2435 | function c=cond(A) |
2435 | if A==[] then c=1,else S=svd(A);c=S($)/S(1),end | 2436 | if A==[] then c=1,else S=svd(A);c=S($)/S(1),end |
2436 | endfunction | 2437 | endfunction |
2437 | Warning :redefining function: cond | 2438 | Warning : redefining function : cond |
2438 | 2439 | ||
2439 | 2440 | ||
2440 | 2441 | ||
@@ -3022,7 +3023,7 @@ if Err(x*A*A'-b*A')>1000*%eps then bugmes();quit;end | |||
3022 | //========================================================================== | 3023 | //========================================================================== |
3023 | 3024 | ||
3024 | function x=ldiv(A,B),x=A\B,endfunction | 3025 | function x=ldiv(A,B),x=A\B,endfunction |
3025 | Warning :redefining function: ldiv | 3026 | Warning : redefining function : ldiv |
3026 | 3027 | ||
3027 | 3028 | ||
3028 | //scalar division | 3029 | //scalar division |
@@ -3335,7 +3336,7 @@ A=testmat3(10000,5); | |||
3335 | if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end | 3336 | if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end |
3336 | 3337 | ||
3337 | if Err(Ab-inv(X)*A*X)>200*%eps then bugmes();quit;end | 3338 | if Err(Ab-inv(X)*A*X)>200*%eps then bugmes();quit;end |
3338 | warning | 3339 | Warning : |
3339 | matrix is close to singular or badly scaled. rcond = 8.8818D-16 | 3340 | matrix is close to singular or badly scaled. rcond = 8.8818D-16 |
3340 | 3341 | ||
3341 | 3342 | ||
@@ -3349,7 +3350,7 @@ A=testmat3(10000+0.01*%i,5); | |||
3349 | if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end | 3350 | if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end |
3350 | 3351 | ||
3351 | if Err(Ab-inv(X)*A*X)>200*%eps then bugmes();quit;end | 3352 | if Err(Ab-inv(X)*A*X)>200*%eps then bugmes();quit;end |
3352 | warning | 3353 | Warning : |
3353 | matrix is close to singular or badly scaled. rcond = 8.8818D-16 | 3354 | matrix is close to singular or badly scaled. rcond = 8.8818D-16 |
3354 | 3355 | ||
3355 | 3356 | ||
@@ -3363,7 +3364,7 @@ A=testmat3(10000,30); | |||
3363 | if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end | 3364 | if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end |
3364 | 3365 | ||
3365 | if Err(Ab-inv(X)*A*X)>1000*%eps then bugmes();quit;end | 3366 | if Err(Ab-inv(X)*A*X)>1000*%eps then bugmes();quit;end |
3366 | warning | 3367 | Warning : |
3367 | matrix is close to singular or badly scaled. rcond = 1.6313D-55 | 3368 | matrix is close to singular or badly scaled. rcond = 1.6313D-55 |
3368 | 3369 | ||
3369 | 3370 | ||
@@ -3377,7 +3378,7 @@ A=testmat3(10000+0.01*%i,30); | |||
3377 | if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end | 3378 | if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end |
3378 | 3379 | ||
3379 | if Err(Ab-inv(X)*A*X)>1000*%eps then bugmes();quit;end | 3380 | if Err(Ab-inv(X)*A*X)>1000*%eps then bugmes();quit;end |
3380 | warning | 3381 | Warning : |
3381 | matrix is close to singular or badly scaled. rcond = 1.6313D-55 | 3382 | matrix is close to singular or badly scaled. rcond = 1.6313D-55 |
3382 | 3383 | ||
3383 | 3384 | ||
diff --git a/tests/basic_tests/basiclink.dia.ref b/tests/basic_tests/basiclink.dia.ref index 2339a35..ea60c01 100644 --- a/tests/basic_tests/basiclink.dia.ref +++ b/tests/basic_tests/basiclink.dia.ref | |||
@@ -25,7 +25,7 @@ if ~c_link('foo') then | |||
25 | building shared library (be patient) | 25 | building shared library (be patient) |
26 | exec loader.sce ; | 26 | exec loader.sce ; |
27 | shared archive loaded | 27 | shared archive loaded |
28 | Link done | 28 | Link done. |
29 | chdir(path) | 29 | chdir(path) |
30 | ans = | 30 | ans = |
31 | 31 | ||
diff --git a/tests/basic_tests/breakpoints.dia.ref b/tests/basic_tests/breakpoints.dia.ref index 511ac67..ea9701f 100644 --- a/tests/basic_tests/breakpoints.dia.ref +++ b/tests/basic_tests/breakpoints.dia.ref | |||
@@ -79,91 +79,91 @@ MACRO NOT COMPILED | |||
79 | lig() | 79 | lig() |
80 | ligne 2 | 80 | ligne 2 |
81 | ligne 8 | 81 | ligne 8 |
82 | Stop after row 8 in function lig : | 82 | Stop after row 8 in function lig. |
83 | 83 | ||
84 | 84 | ||
85 | resume | 85 | resume |
86 | ligne 9 | 86 | ligne 9 |
87 | ligne 11 | 87 | ligne 11 |
88 | Stop after row 11 in function lig : | 88 | Stop after row 11 in function lig. |
89 | 89 | ||
90 | 90 | ||
91 | resume | 91 | resume |
92 | ligne 11 | 92 | ligne 11 |
93 | Stop after row 11 in function lig : | 93 | Stop after row 11 in function lig. |
94 | 94 | ||
95 | 95 | ||
96 | resume | 96 | resume |
97 | ligne 11 | 97 | ligne 11 |
98 | Stop after row 11 in function lig : | 98 | Stop after row 11 in function lig. |
99 | 99 | ||
100 | 100 | ||
101 | resume | 101 | resume |
102 | ligne 12 | 102 | ligne 12 |
103 | Stop after row 12 in function lig : | 103 | Stop after row 12 in function lig. |
104 | 104 | ||
105 | 105 | ||
106 | resume | 106 | resume |
107 | ligne 17 | 107 | ligne 17 |
108 | Stop after row 17 in function lig : | 108 | Stop after row 17 in function lig. |
109 | 109 | ||
110 | 110 | ||
111 | resume | 111 | resume |
112 | ligne 18 | 112 | ligne 18 |
113 | ligne 23 | 113 | ligne 23 |
114 | Stop after row 23 in function lig : | 114 | Stop after row 23 in function lig. |
115 | 115 | ||
116 | 116 | ||
117 | resume | 117 | resume |
118 | ligne 28 | 118 | ligne 28 |
119 | Stop after row 28 in function lig : | 119 | Stop after row 28 in function lig. |
120 | 120 | ||
121 | 121 | ||
122 | resume | 122 | resume |
123 | ligne 29 | 123 | ligne 29 |
124 | ligne 38 | 124 | ligne 38 |
125 | Stop after row 38 in function lig : | 125 | Stop after row 38 in function lig. |
126 | 126 | ||
127 | 127 | ||
128 | resume | 128 | resume |
129 | ligne 39 | 129 | ligne 39 |
130 | Stop after row 39 in function lig : | 130 | Stop after row 39 in function lig. |
131 | 131 | ||
132 | 132 | ||
133 | resume | 133 | resume |
134 | ligne 40 | 134 | ligne 40 |
135 | Stop after row 40 in function lig : | 135 | Stop after row 40 in function lig. |
136 | 136 | ||
137 | 137 | ||
138 | resume | 138 | resume |
139 | ligne 43 | 139 | ligne 43 |
140 | Stop after row 43 in function lig : | 140 | Stop after row 43 in function lig. |
141 | 141 | ||
142 | 142 | ||
143 | resume | 143 | resume |
144 | ligne 43 | 144 | ligne 43 |
145 | Stop after row 43 in function lig : | 145 | Stop after row 43 in function lig. |
146 | 146 | ||
147 | 147 | ||
148 | resume | 148 | resume |
149 | ligne 43 | 149 | ligne 43 |
150 | Stop after row 43 in function lig : | 150 | Stop after row 43 in function lig. |
151 | 151 | ||
152 | 152 | ||
153 | resume | 153 | resume |
154 | ligne 44 | 154 | ligne 44 |
155 | Stop after row 44 in function lig : | 155 | Stop after row 44 in function lig. |
156 | 156 | ||
157 | 157 | ||
158 | resume | 158 | resume |
159 | ligne 47 | 159 | ligne 47 |
160 | ligne 48 | 160 | ligne 48 |
161 | Stop after row 48 in function lig : | 161 | Stop after row 48 in function lig. |
162 | 162 | ||
163 | 163 | ||
164 | resume | 164 | resume |
165 | comp(lig) | 165 | comp(lig) |
166 | Warning :redefining function: lig | 166 | Warning : redefining function : lig |
167 | 167 | ||
168 | write(%io(2),[' ';'COMPILED MACRO';'-----------------';' ']) | 168 | write(%io(2),[' ';'COMPILED MACRO';'-----------------';' ']) |
169 | 169 | ||
@@ -173,86 +173,86 @@ COMPILED MACRO | |||
173 | lig() | 173 | lig() |
174 | ligne 2 | 174 | ligne 2 |
175 | ligne 8 | 175 | ligne 8 |
176 | Stop after row 8 in function lig : | 176 | Stop after row 8 in function lig. |
177 | 177 | ||
178 | 178 | ||
179 | resume | 179 | resume |
180 | ligne 9 | 180 | ligne 9 |
181 | ligne 11 | 181 | ligne 11 |
182 | Stop after row 11 in function lig : | 182 | Stop after row 11 in function lig. |
183 | 183 | ||
184 | 184 | ||
185 | resume | 185 | resume |
186 | ligne 11 | 186 | ligne 11 |
187 | Stop after row 11 in function lig : | 187 | Stop after row 11 in function lig. |
188 | 188 | ||
189 | 189 | ||
190 | resume | 190 | resume |
191 | ligne 11 | 191 | ligne 11 |
192 | Stop after row 11 in function lig : | 192 | Stop after row 11 in function lig. |
193 | 193 | ||
194 | 194 | ||
195 | resume | 195 | resume |
196 | ligne 12 | 196 | ligne 12 |
197 | Stop after row 12 in function lig : | 197 | Stop after row 12 in function lig. |
198 | 198 | ||
199 | 199 | ||
200 | resume | 200 | resume |
201 | ligne 17 | 201 | ligne 17 |
202 | Stop after row 17 in function lig : | 202 | Stop after row 17 in function lig. |
203 | 203 | ||
204 | 204 | ||
205 | resume | 205 | resume |
206 | ligne 18 | 206 | ligne 18 |
207 | ligne 23 | 207 | ligne 23 |
208 | Stop after row 23 in function lig : | 208 | Stop after row 23 in function lig. |
209 | 209 | ||
210 | 210 | ||
211 | resume | 211 | resume |
212 | ligne 28 | 212 | ligne 28 |
213 | Stop after row 28 in function lig : | 213 | Stop after row 28 in function lig. |
214 | 214 | ||
215 | 215 | ||
216 | resume | 216 | resume |
217 | ligne 29 | 217 | ligne 29 |
218 | ligne 38 | 218 | ligne 38 |
219 | Stop after row 38 in function lig : | 219 | Stop after row 38 in function lig. |
220 | 220 | ||
221 | 221 | ||
222 | resume | 222 | resume |
223 | ligne 39 | 223 | ligne 39 |
224 | Stop after row 39 in function lig : | 224 | Stop after row 39 in function lig. |
225 | 225 | ||
226 | 226 | ||
227 | resume | 227 | resume |
228 | ligne 40 | 228 | ligne 40 |
229 | Stop after row 40 in function lig : | 229 | Stop after row 40 in function lig. |
230 | 230 | ||
231 | 231 | ||
232 | resume | 232 | resume |
233 | ligne 43 | 233 | ligne 43 |
234 | Stop after row 43 in function lig : | 234 | Stop after row 43 in function lig. |
235 | 235 | ||
236 | 236 | ||
237 | resume | 237 | resume |
238 | ligne 43 | 238 | ligne 43 |
239 | Stop after row 43 in function lig : | 239 | Stop after row 43 in function lig. |
240 | 240 | ||
241 | 241 | ||
242 | resume | 242 | resume |
243 | ligne 43 | 243 | ligne 43 |
244 | Stop after row 43 in function lig : | 244 | Stop after row 43 in function lig. |
245 | 245 | ||
246 | 246 | ||
247 | resume | 247 | resume |
248 | ligne 44 | 248 | ligne 44 |
249 | Stop after row 44 in function lig : | 249 | Stop after row 44 in function lig. |
250 | 250 | ||
251 | 251 | ||
252 | resume | 252 | resume |
253 | ligne 47 | 253 | ligne 47 |
254 | ligne 48 | 254 | ligne 48 |
255 | Stop after row 48 in function lig : | 255 | Stop after row 48 in function lig. |
256 | 256 | ||
257 | 257 | ||
258 | resume | 258 | resume |
@@ -264,69 +264,69 @@ clear lig shlig | |||
264 | delbpt(),dispbpt() // should display no output | 264 | delbpt(),dispbpt() // should display no output |
265 | setbpt("foo1",0) // should spit error 9997 | 265 | setbpt("foo1",0) // should spit error 9997 |
266 | !--error 9997 | 266 | !--error 9997 |
267 | Breakpoint line number must be a positive integer | 267 | Breakpoint line number must be a positive integer |
268 | 268 | ||
269 | 269 | ||
270 | setbpt("foo1",-3) // should spit error 9997 | 270 | setbpt("foo1",-3) // should spit error 9997 |
271 | !--error 9997 | 271 | !--error 9997 |
272 | Breakpoint line number must be a positive integer | 272 | Breakpoint line number must be a positive integer |
273 | 273 | ||
274 | 274 | ||
275 | setbpt("foo1",3.2) // should spit error 9997 | 275 | setbpt("foo1",3.2) // should spit error 9997 |
276 | !--error 9997 | 276 | !--error 9997 |
277 | Breakpoint line number must be a positive integer | 277 | Breakpoint line number must be a positive integer |
278 | 278 | ||
279 | 279 | ||
280 | setbpt("foo1"),dispbpt() // set at line 1 (default) | 280 | setbpt("foo1"),dispbpt() // set at line 1 (default) |
281 | breakpoints of function :foo1 | 281 | breakpoints of function : foo1 |
282 | 282 | ||
283 | 1 | 283 | 1 |
284 | 284 | ||
285 | setbpt("foo1",5),dispbpt() // add another bpt to a macro that already has bpts, and that is the last one | 285 | setbpt("foo1",5),dispbpt() // add another bpt to a macro that already has bpts, and that is the last one |
286 | breakpoints of function :foo1 | 286 | breakpoints of function : foo1 |
287 | 287 | ||
288 | 1 | 288 | 1 |
289 | 5 | 289 | 5 |
290 | 290 | ||
291 | setbpt("foo2",5),setbpt("foo2",8),dispbpt() // add bpts to a new macro (will always be placed at the end) | 291 | setbpt("foo2",5),setbpt("foo2",8),dispbpt() // add bpts to a new macro (will always be placed at the end) |
292 | breakpoints of function :foo1 | 292 | breakpoints of function : foo1 |
293 | 293 | ||
294 | 1 | 294 | 1 |
295 | 5 | 295 | 5 |
296 | breakpoints of function :foo2 | 296 | breakpoints of function : foo2 |
297 | 297 | ||
298 | 5 | 298 | 5 |
299 | 8 | 299 | 8 |
300 | 300 | ||
301 | setbpt("foo1",9),dispbpt() // add another bpt to a macro that already has bpts, and that is NOT the last one | 301 | setbpt("foo1",9),dispbpt() // add another bpt to a macro that already has bpts, and that is NOT the last one |
302 | breakpoints of function :foo1 | 302 | breakpoints of function : foo1 |
303 | 303 | ||
304 | 9 | 304 | 9 |
305 | 1 | 305 | 1 |
306 | 5 | 306 | 5 |
307 | breakpoints of function :foo2 | 307 | breakpoints of function : foo2 |
308 | 308 | ||
309 | 5 | 309 | 5 |
310 | 8 | 310 | 8 |
311 | 311 | ||
312 | setbpt("foo1",5),dispbpt() // check duplicates removal - line 5 should appear only once in foo1 | 312 | setbpt("foo1",5),dispbpt() // check duplicates removal - line 5 should appear only once in foo1 |
313 | breakpoints of function :foo1 | 313 | breakpoints of function : foo1 |
314 | 314 | ||
315 | 9 | 315 | 9 |
316 | 1 | 316 | 1 |
317 | 5 | 317 | 5 |
318 | breakpoints of function :foo2 | 318 | breakpoints of function : foo2 |
319 | 319 | ||
320 | 5 | 320 | 5 |
321 | 8 | 321 | 8 |
322 | 322 | ||
323 | setbpt("foo2",5),dispbpt() // check duplicates removal - line 5 should appear only once in foo2 | 323 | setbpt("foo2",5),dispbpt() // check duplicates removal - line 5 should appear only once in foo2 |
324 | breakpoints of function :foo1 | 324 | breakpoints of function : foo1 |
325 | 325 | ||
326 | 9 | 326 | 9 |
327 | 1 | 327 | 1 |
328 | 5 | 328 | 5 |
329 | breakpoints of function :foo2 | 329 | breakpoints of function : foo2 |
330 | 330 | ||
331 | 5 | 331 | 5 |
332 | 8 | 332 | 8 |
@@ -342,27 +342,27 @@ delbpt(),dispbpt() // should display no output | |||
342 | 342 | ||
343 | setbpt("foo1",[1,0,5]) // should spit error 9997 | 343 | setbpt("foo1",[1,0,5]) // should spit error 9997 |
344 | !--error 9997 | 344 | !--error 9997 |
345 | Breakpoint line number must be a positive integer | 345 | Breakpoint line number must be a positive integer |
346 | 346 | ||
347 | 347 | ||
348 | setbpt("foo1",[-3,2,7]) // should spit error 9997 | 348 | setbpt("foo1",[-3,2,7]) // should spit error 9997 |
349 | !--error 9997 | 349 | !--error 9997 |
350 | Breakpoint line number must be a positive integer | 350 | Breakpoint line number must be a positive integer |
351 | 351 | ||
352 | 352 | ||
353 | setbpt("foo1",[1,3.2]) // should spit error 9997 | 353 | setbpt("foo1",[1,3.2]) // should spit error 9997 |
354 | !--error 9997 | 354 | !--error 9997 |
355 | Breakpoint line number must be a positive integer | 355 | Breakpoint line number must be a positive integer |
356 | 356 | ||
357 | 357 | ||
358 | setbpt("foo1",[8,9]),dispbpt() // add 2 bpts at once to a new macro | 358 | setbpt("foo1",[8,9]),dispbpt() // add 2 bpts at once to a new macro |
359 | breakpoints of function :foo1 | 359 | breakpoints of function : foo1 |
360 | 360 | ||
361 | 8 | 361 | 8 |
362 | 9 | 362 | 9 |
363 | 363 | ||
364 | setbpt("foo1",5),setbpt("foo1",[2,3]),dispbpt() // add further bpts to a macro that already has bpts, and that is the last one | 364 | setbpt("foo1",5),setbpt("foo1",[2,3]),dispbpt() // add further bpts to a macro that already has bpts, and that is the last one |
365 | breakpoints of function :foo1 | 365 | breakpoints of function : foo1 |
366 | 366 | ||
367 | 8 | 367 | 8 |
368 | 9 | 368 | 9 |
@@ -371,21 +371,21 @@ setbpt("foo1",5),setbpt("foo1",[2,3]),dispbpt() // add further bpts to a macro | |||
371 | 3 | 371 | 3 |
372 | 372 | ||
373 | setbpt("foo2",[5,8]),setbpt("foo2",7),dispbpt() // add bpts to a new macro (will always be placed at the end) | 373 | setbpt("foo2",[5,8]),setbpt("foo2",7),dispbpt() // add bpts to a new macro (will always be placed at the end) |
374 | breakpoints of function :foo1 | 374 | breakpoints of function : foo1 |
375 | 375 | ||
376 | 8 | 376 | 8 |
377 | 9 | 377 | 9 |
378 | 5 | 378 | 5 |
379 | 2 | 379 | 2 |
380 | 3 | 380 | 3 |
381 | breakpoints of function :foo2 | 381 | breakpoints of function : foo2 |
382 | 382 | ||
383 | 5 | 383 | 5 |
384 | 8 | 384 | 8 |
385 | 7 | 385 | 7 |
386 | 386 | ||
387 | setbpt("foo1",[10,15,20]),dispbpt() // add bpts to a macro that already has bpts, and that is NOT the last one | 387 | setbpt("foo1",[10,15,20]),dispbpt() // add bpts to a macro that already has bpts, and that is NOT the last one |
388 | breakpoints of function :foo1 | 388 | breakpoints of function : foo1 |
389 | 389 | ||
390 | 10 | 390 | 10 |
391 | 15 | 391 | 15 |
@@ -395,14 +395,14 @@ setbpt("foo1",[10,15,20]),dispbpt() // add bpts to a macro that already has bpt | |||
395 | 5 | 395 | 5 |
396 | 2 | 396 | 2 |
397 | 3 | 397 | 3 |
398 | breakpoints of function :foo2 | 398 | breakpoints of function : foo2 |
399 | 399 | ||
400 | 5 | 400 | 5 |
401 | 8 | 401 | 8 |
402 | 7 | 402 | 7 |
403 | 403 | ||
404 | setbpt("foo1",[50,50,50,60,50,80,60]),dispbpt() // check duplicates removal in vector input, not the last macro - lines 50 and 60 should appear only once in foo1 | 404 | setbpt("foo1",[50,50,50,60,50,80,60]),dispbpt() // check duplicates removal in vector input, not the last macro - lines 50 and 60 should appear only once in foo1 |
405 | breakpoints of function :foo1 | 405 | breakpoints of function : foo1 |
406 | 406 | ||
407 | 50 | 407 | 50 |
408 | 60 | 408 | 60 |
@@ -415,14 +415,14 @@ setbpt("foo1",[50,50,50,60,50,80,60]),dispbpt() // check duplicates removal in | |||
415 | 5 | 415 | 5 |
416 | 2 | 416 | 2 |
417 | 3 | 417 | 3 |
418 | breakpoints of function :foo2 | 418 | breakpoints of function : foo2 |
419 | 419 | ||
420 | 5 | 420 | 5 |
421 | 8 | 421 | 8 |
422 | 7 | 422 | 7 |
423 | 423 | ||
424 | setbpt("foo1",[9,5,8,100,3,2]),dispbpt() // check duplicates removal wrt existing bpts, not the last macro - all lines should appear only once in foo1 | 424 | setbpt("foo1",[9,5,8,100,3,2]),dispbpt() // check duplicates removal wrt existing bpts, not the last macro - all lines should appear only once in foo1 |
425 | breakpoints of function :foo1 | 425 | breakpoints of function : foo1 |
426 | 426 | ||
427 | 100 | 427 | 100 |
428 | 50 | 428 | 50 |
@@ -436,14 +436,14 @@ setbpt("foo1",[9,5,8,100,3,2]),dispbpt() // check duplicates removal wrt existi | |||
436 | 5 | 436 | 5 |
437 | 2 | 437 | 2 |
438 | 3 | 438 | 3 |
439 | breakpoints of function :foo2 | 439 | breakpoints of function : foo2 |
440 | 440 | ||
441 | 5 | 441 | 5 |
442 | 8 | 442 | 8 |
443 | 7 | 443 | 7 |
444 | 444 | ||
445 | setbpt("foo2",[50,50,50,60,50,80,60]),dispbpt() // check duplicates removal in vector input, last macro - lines 50 and 60 should appear only once in foo1 | 445 | setbpt("foo2",[50,50,50,60,50,80,60]),dispbpt() // check duplicates removal in vector input, last macro - lines 50 and 60 should appear only once in foo1 |
446 | breakpoints of function :foo1 | 446 | breakpoints of function : foo1 |
447 | 447 | ||
448 | 100 | 448 | 100 |
449 | 50 | 449 | 50 |
@@ -457,7 +457,7 @@ setbpt("foo2",[50,50,50,60,50,80,60]),dispbpt() // check duplicates removal in | |||
457 | 5 | 457 | 5 |
458 | 2 | 458 | 2 |
459 | 3 | 459 | 3 |
460 | breakpoints of function :foo2 | 460 | breakpoints of function : foo2 |
461 | 461 | ||
462 | 5 | 462 | 5 |
463 | 8 | 463 | 8 |
@@ -467,7 +467,7 @@ setbpt("foo2",[50,50,50,60,50,80,60]),dispbpt() // check duplicates removal in | |||
467 | 80 | 467 | 80 |
468 | 468 | ||
469 | setbpt("foo2",[9,5,8,100,7,2]),dispbpt() // check duplicates removal wrt existing bpts, last macro - all lines should appear only once in foo2 | 469 | setbpt("foo2",[9,5,8,100,7,2]),dispbpt() // check duplicates removal wrt existing bpts, last macro - all lines should appear only once in foo2 |
470 | breakpoints of function :foo1 | 470 | breakpoints of function : foo1 |
471 | 471 | ||
472 | 100 | 472 | 100 |
473 | 50 | 473 | 50 |
@@ -481,7 +481,7 @@ setbpt("foo2",[9,5,8,100,7,2]),dispbpt() // check duplicates removal wrt existi | |||
481 | 5 | 481 | 5 |
482 | 2 | 482 | 2 |
483 | 3 | 483 | 3 |
484 | breakpoints of function :foo2 | 484 | breakpoints of function : foo2 |
485 | 485 | ||
486 | 5 | 486 | 5 |
487 | 8 | 487 | 8 |
@@ -505,17 +505,17 @@ delbpt(),dispbpt() // should display no output | |||
505 | 505 | ||
506 | delbpt("foo1",0) // should spit error 9997 | 506 | delbpt("foo1",0) // should spit error 9997 |
507 | !--error 9997 | 507 | !--error 9997 |
508 | Breakpoint line number must be a positive integer | 508 | Breakpoint line number must be a positive integer |
509 | 509 | ||
510 | 510 | ||
511 | delbpt("foo1",-3) // should spit error 9997 | 511 | delbpt("foo1",-3) // should spit error 9997 |
512 | !--error 9997 | 512 | !--error 9997 |
513 | Breakpoint line number must be a positive integer | 513 | Breakpoint line number must be a positive integer |
514 | 514 | ||
515 | 515 | ||
516 | delbpt("foo1",3.2) // should spit error 9997 | 516 | delbpt("foo1",3.2) // should spit error 9997 |
517 | !--error 9997 | 517 | !--error 9997 |
518 | Breakpoint line number must be a positive integer | 518 | Breakpoint line number must be a positive integer |
519 | 519 | ||
520 | 520 | ||
521 | delbpt("foo1"),dispbpt() // should display no output | 521 | delbpt("foo1"),dispbpt() // should display no output |
@@ -523,14 +523,14 @@ delbpt("foo1"),dispbpt() // should display no output | |||
523 | setbpt("foo1",[5,8,11]),delbpt("foo1"),dispbpt() // should display no output | 523 | setbpt("foo1",[5,8,11]),delbpt("foo1"),dispbpt() // should display no output |
524 | 524 | ||
525 | setbpt("foo1",[5,8,11]),setbpt("foo2",[55,88,111]),delbpt("foo1"),dispbpt() // should display the 3 bpts for foo2 only | 525 | setbpt("foo1",[5,8,11]),setbpt("foo2",[55,88,111]),delbpt("foo1"),dispbpt() // should display the 3 bpts for foo2 only |
526 | breakpoints of function :foo2 | 526 | breakpoints of function : foo2 |
527 | 527 | ||
528 | 55 | 528 | 55 |
529 | 88 | 529 | 88 |
530 | 111 | 530 | 111 |
531 | 531 | ||
532 | setbpt("foo1",[5,8,11]),setbpt("foo2",[55,88,111]),delbpt("foo2"),dispbpt() // should display the 3 bpts for foo1 only | 532 | setbpt("foo1",[5,8,11]),setbpt("foo2",[55,88,111]),delbpt("foo2"),dispbpt() // should display the 3 bpts for foo1 only |
533 | breakpoints of function :foo1 | 533 | breakpoints of function : foo1 |
534 | 534 | ||
535 | 5 | 535 | 5 |
536 | 8 | 536 | 8 |
@@ -541,13 +541,13 @@ delbpt() | |||
541 | setbpt("foo1",5),delbpt("foo1",5),dispbpt() // should display no output | 541 | setbpt("foo1",5),delbpt("foo1",5),dispbpt() // should display no output |
542 | 542 | ||
543 | setbpt("foo1",[5,6,8]),delbpt("foo1",5),dispbpt() // lines 6 and 8 should appear only | 543 | setbpt("foo1",[5,6,8]),delbpt("foo1",5),dispbpt() // lines 6 and 8 should appear only |
544 | breakpoints of function :foo1 | 544 | breakpoints of function : foo1 |
545 | 545 | ||
546 | 6 | 546 | 6 |
547 | 8 | 547 | 8 |
548 | 548 | ||
549 | setbpt("foo1",[5,10,11]),delbpt("foo1",10),dispbpt() // lines 5, 6, 8 and 11 should appear only | 549 | setbpt("foo1",[5,10,11]),delbpt("foo1",10),dispbpt() // lines 5, 6, 8 and 11 should appear only |
550 | breakpoints of function :foo1 | 550 | breakpoints of function : foo1 |
551 | 551 | ||
552 | 6 | 552 | 6 |
553 | 8 | 553 | 8 |
@@ -555,18 +555,18 @@ setbpt("foo1",[5,10,11]),delbpt("foo1",10),dispbpt() // lines 5, 6, 8 and 11 | |||
555 | 11 | 555 | 11 |
556 | 556 | ||
557 | delbpt("foo1",11),dispbpt() // lines 5, 6 and 8 should appear only | 557 | delbpt("foo1",11),dispbpt() // lines 5, 6 and 8 should appear only |
558 | breakpoints of function :foo1 | 558 | breakpoints of function : foo1 |
559 | 559 | ||
560 | 6 | 560 | 6 |
561 | 8 | 561 | 8 |
562 | 5 | 562 | 5 |
563 | 563 | ||
564 | setbpt("foo2",[20,21,22,23]),delbpt("foo1",6),dispbpt() // lines 5 and 8 for foo1, and 20 to 23 for foo2 | 564 | setbpt("foo2",[20,21,22,23]),delbpt("foo1",6),dispbpt() // lines 5 and 8 for foo1, and 20 to 23 for foo2 |
565 | breakpoints of function :foo1 | 565 | breakpoints of function : foo1 |
566 | 566 | ||
567 | 8 | 567 | 8 |
568 | 5 | 568 | 5 |
569 | breakpoints of function :foo2 | 569 | breakpoints of function : foo2 |
570 | 570 | ||
571 | 20 | 571 | 20 |
572 | 21 | 572 | 21 |
@@ -574,11 +574,11 @@ setbpt("foo2",[20,21,22,23]),delbpt("foo1",6),dispbpt() // lines 5 and 8 for | |||
574 | 23 | 574 | 23 |
575 | 575 | ||
576 | delbpt("foo2",21),dispbpt() // lines 5, and 8 for foo1, and 20, 22, 23 for foo2 | 576 | delbpt("foo2",21),dispbpt() // lines 5, and 8 for foo1, and 20, 22, 23 for foo2 |
577 | breakpoints of function :foo1 | 577 | breakpoints of function : foo1 |
578 | 578 | ||
579 | 8 | 579 | 8 |
580 | 5 | 580 | 5 |
581 | breakpoints of function :foo2 | 581 | breakpoints of function : foo2 |
582 | 582 | ||
583 | 20 | 583 | 20 |
584 | 22 | 584 | 22 |
@@ -595,38 +595,38 @@ delbpt(),dispbpt() // should display no output | |||
595 | 595 | ||
596 | delbpt("foo1",[1,0,5]) // should spit error 9997 | 596 | delbpt("foo1",[1,0,5]) // should spit error 9997 |
597 | !--error 9997 | 597 | !--error 9997 |
598 | Breakpoint line number must be a positive integer | 598 | Breakpoint line number must be a positive integer |
599 | 599 | ||
600 | 600 | ||
601 | delbpt("foo1",[-3,2,7]) // should spit error 9997 | 601 | delbpt("foo1",[-3,2,7]) // should spit error 9997 |
602 | !--error 9997 | 602 | !--error 9997 |
603 | Breakpoint line number must be a positive integer | 603 | Breakpoint line number must be a positive integer |
604 | 604 | ||
605 | 605 | ||
606 | delbpt("foo1",[1,3.2]) // should spit error 9997 | 606 | delbpt("foo1",[1,3.2]) // should spit error 9997 |
607 | !--error 9997 | 607 | !--error 9997 |
608 | Breakpoint line number must be a positive integer | 608 | Breakpoint line number must be a positive integer |
609 | 609 | ||
610 | 610 | ||
611 | delbpt("foo1",[8,9]),dispbpt() // should display no output | 611 | delbpt("foo1",[8,9]),dispbpt() // should display no output |
612 | 612 | ||
613 | setbpt("foo1",[5,6,8,9]),delbpt("foo1",[8,5]),dispbpt() // lines 6 and 9 should appear only | 613 | setbpt("foo1",[5,6,8,9]),delbpt("foo1",[8,5]),dispbpt() // lines 6 and 9 should appear only |
614 | breakpoints of function :foo1 | 614 | breakpoints of function : foo1 |
615 | 615 | ||
616 | 6 | 616 | 6 |
617 | 9 | 617 | 9 |
618 | 618 | ||
619 | setbpt("foo1",[5,6,8,9]),delbpt("foo1",[8,5,8,8,6,5]),dispbpt() // check duplicates removal in vector input - line 9 should appear only | 619 | setbpt("foo1",[5,6,8,9]),delbpt("foo1",[8,5,8,8,6,5]),dispbpt() // check duplicates removal in vector input - line 9 should appear only |
620 | breakpoints of function :foo1 | 620 | breakpoints of function : foo1 |
621 | 621 | ||
622 | 9 | 622 | 9 |
623 | 623 | ||
624 | setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo1",[8,5,8,10]),dispbpt() // not the last macro, check duplicates removal in vector input - lines 6 and 9 should appear for foo1, plus all the 5 bpts for foo2 | 624 | setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo1",[8,5,8,10]),dispbpt() // not the last macro, check duplicates removal in vector input - lines 6 and 9 should appear for foo1, plus all the 5 bpts for foo2 |
625 | breakpoints of function :foo1 | 625 | breakpoints of function : foo1 |
626 | 626 | ||
627 | 9 | 627 | 9 |
628 | 6 | 628 | 6 |
629 | breakpoints of function :foo2 | 629 | breakpoints of function : foo2 |
630 | 630 | ||
631 | 10 | 631 | 10 |
632 | 12 | 632 | 12 |
@@ -635,7 +635,7 @@ setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo1",[8,5,8,10 | |||
635 | 18 | 635 | 18 |
636 | 636 | ||
637 | setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo1",[8,5,6,9]),dispbpt() // remove all, not the last macro - should display no bpt for foo1, but all the 5 bpts for foo2 | 637 | setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo1",[8,5,6,9]),dispbpt() // remove all, not the last macro - should display no bpt for foo1, but all the 5 bpts for foo2 |
638 | breakpoints of function :foo2 | 638 | breakpoints of function : foo2 |
639 | 639 | ||
640 | 10 | 640 | 10 |
641 | 12 | 641 | 12 |
@@ -644,11 +644,11 @@ setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo1",[8,5,6,9] | |||
644 | 18 | 644 | 18 |
645 | 645 | ||
646 | setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo2",[14,18,10,20]),dispbpt() // last macro - should display all the 4 bpts for foo1, but only lines 12 and 16 for foo2 | 646 | setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo2",[14,18,10,20]),dispbpt() // last macro - should display all the 4 bpts for foo1, but only lines 12 and 16 for foo2 |
647 | breakpoints of function :foo2 | 647 | breakpoints of function : foo2 |
648 | 648 | ||
649 | 12 | 649 | 12 |
650 | 16 | 650 | 16 |
651 | breakpoints of function :foo1 | 651 | breakpoints of function : foo1 |
652 | 652 | ||
653 | 5 | 653 | 5 |
654 | 6 | 654 | 6 |
@@ -656,7 +656,7 @@ setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo2",[14,18,10 | |||
656 | 9 | 656 | 9 |
657 | 657 | ||
658 | setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo2",[14,18,10,12,16]),dispbpt() // remove all, last macro - should display all the 4 bpts for foo1, but no bpt for foo2 | 658 | setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo2",[14,18,10,12,16]),dispbpt() // remove all, last macro - should display all the 4 bpts for foo1, but no bpt for foo2 |
659 | breakpoints of function :foo1 | 659 | breakpoints of function : foo1 |
660 | 660 | ||
661 | 5 | 661 | 5 |
662 | 6 | 662 | 6 |
@@ -687,7 +687,7 @@ endfunction | |||
687 | setbpt("foo2",1) | 687 | setbpt("foo2",1) |
688 | 688 | ||
689 | foo2() | 689 | foo2() |
690 | Stop after row 1 in function foo2 : | 690 | Stop after row 1 in function foo2. |
691 | 691 | ||
692 | 692 | ||
693 | delbpt("foo2",1) | 693 | delbpt("foo2",1) |
@@ -697,14 +697,14 @@ dispbpt | |||
697 | setbpt("foo1",[1:5]);setbpt("foo2",[1:5]); | 697 | setbpt("foo1",[1:5]);setbpt("foo2",[1:5]); |
698 | 698 | ||
699 | dispbpt | 699 | dispbpt |
700 | breakpoints of function :foo1 | 700 | breakpoints of function : foo1 |
701 | 701 | ||
702 | 1 | 702 | 1 |
703 | 2 | 703 | 2 |
704 | 3 | 704 | 3 |
705 | 4 | 705 | 4 |
706 | 5 | 706 | 5 |
707 | breakpoints of function :foo2 | 707 | breakpoints of function : foo2 |
708 | 708 | ||
709 | 1 | 709 | 1 |
710 | 2 | 710 | 2 |
@@ -719,7 +719,7 @@ dispbpt | |||
719 | // and not Stop after row 2 in function foo1 : | 719 | // and not Stop after row 2 in function foo1 : |
720 | 720 | ||
721 | resume(0) | 721 | resume(0) |
722 | Stop after row 2 in function foo2 : | 722 | Stop after row 2 in function foo2. |
723 | 723 | ||
724 | 724 | ||
725 | abort | 725 | abort |
@@ -731,7 +731,7 @@ delbpt() | |||
731 | 731 | ||
732 | function foo1 | 732 | function foo1 |
733 | endfunction | 733 | endfunction |
734 | Warning :redefining function: foo1 | 734 | Warning : redefining function : foo1 |
735 | 735 | ||
736 | 736 | ||
737 | function foo2 | 737 | function foo2 |
@@ -744,13 +744,13 @@ function foo2 | |||
744 | b=foo3(); | 744 | b=foo3(); |
745 | disp("After"); | 745 | disp("After"); |
746 | endfunction | 746 | endfunction |
747 | Warning :redefining function: foo2 | 747 | Warning : redefining function : foo2 |
748 | 748 | ||
749 | 749 | ||
750 | setbpt("foo2",[1:10]); | 750 | setbpt("foo2",[1:10]); |
751 | 751 | ||
752 | foo2() | 752 | foo2() |
753 | Stop after row 1 in function foo2 : | 753 | Stop after row 1 in function foo2. |
754 | 754 | ||
755 | 755 | ||
756 | delbpt("foo2",[1:10]) | 756 | delbpt("foo2",[1:10]) |
@@ -764,7 +764,7 @@ setbpt("foo1",[1:2]);setbpt("foo2",[1:10]);setbpt("foo3",[1:5]); | |||
764 | // and not Stop after row 1 in function foo3 : | 764 | // and not Stop after row 1 in function foo3 : |
765 | 765 | ||
766 | resume | 766 | resume |
767 | Stop after row 6 in function foo2 : | 767 | Stop after row 6 in function foo2. |
768 | 768 | ||
769 | 769 | ||
770 | 770 | ||
diff --git a/tests/basic_tests/clause.dia.ref b/tests/basic_tests/clause.dia.ref index e8820ce..92867dc 100644 --- a/tests/basic_tests/clause.dia.ref +++ b/tests/basic_tests/clause.dia.ref | |||
@@ -39,7 +39,7 @@ if t(-1)<>1 then bugmes();quit;end | |||
39 | t1=t; | 39 | t1=t; |
40 | 40 | ||
41 | comp(t1) | 41 | comp(t1) |
42 | Warning :redefining function: t1 | 42 | Warning : redefining function : t1 |
43 | 43 | ||
44 | 44 | ||
45 | if t(0)-t1(0)<>0 then bugmes();quit;end | 45 | if t(0)-t1(0)<>0 then bugmes();quit;end |
@@ -104,7 +104,7 @@ if tt1()<>4 then bugmes();quit;end | |||
104 | //---------------------------------------- | 104 | //---------------------------------------- |
105 | 105 | ||
106 | deff('[k]=tt1()','k=0,while k<10 ,k=k+1;if k==3 then break,end,end,k=k+1','n') | 106 | deff('[k]=tt1()','k=0,while k<10 ,k=k+1;if k==3 then break,end,end,k=k+1','n') |
107 | Warning :redefining function: tt1 | 107 | Warning : redefining function : tt1 |
108 | 108 | ||
109 | 109 | ||
110 | if tt1()<>4 then bugmes();quit;end | 110 | if tt1()<>4 then bugmes();quit;end |
@@ -234,7 +234,7 @@ if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end | |||
234 | if or(foo(5)<>[1 2 3 4]) then bugmes();quit;end | 234 | if or(foo(5)<>[1 2 3 4]) then bugmes();quit;end |
235 | 235 | ||
236 | comp(foo) | 236 | comp(foo) |
237 | Warning :redefining function: foo | 237 | Warning : redefining function : foo |
238 | 238 | ||
239 | 239 | ||
240 | if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end | 240 | if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end |
@@ -257,7 +257,7 @@ if or(c<> [1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end | |||
257 | 257 | ||
258 | 258 | ||
259 | deff('c=foo(n)','c=[];for i=1:3,for k=1:4,if k==n&i==2 then continue,end,c=[c,k];end;end','n') | 259 | deff('c=foo(n)','c=[];for i=1:3,for k=1:4,if k==n&i==2 then continue,end,c=[c,k];end;end','n') |
260 | Warning :redefining function: foo | 260 | Warning : redefining function : foo |
261 | 261 | ||
262 | 262 | ||
263 | if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end | 263 | if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end |
@@ -265,7 +265,7 @@ if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end | |||
265 | if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end | 265 | if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end |
266 | 266 | ||
267 | comp(foo) | 267 | comp(foo) |
268 | Warning :redefining function: foo | 268 | Warning : redefining function : foo |
269 | 269 | ||
270 | 270 | ||
271 | if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end | 271 | if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end |
@@ -293,7 +293,7 @@ c=[];k=0;while k<5,k=k+1;if k==n then continue,end,c=[c,k];end | |||
293 | if or(c<>[1 2 3 4]) then bugmes();quit;end | 293 | if or(c<>[1 2 3 4]) then bugmes();quit;end |
294 | 294 | ||
295 | deff('c=foo(n)','c=[];k=0;while k<5,k=k+1;if k==n then continue,end,c=[c,k],end','n') | 295 | deff('c=foo(n)','c=[];k=0;while k<5,k=k+1;if k==n then continue,end,c=[c,k],end','n') |
296 | Warning :redefining function: foo | 296 | Warning : redefining function : foo |
297 | 297 | ||
298 | 298 | ||
299 | if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end | 299 | if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end |
@@ -302,7 +302,7 @@ if or(foo(5)<>[1 2 3 4]) then bugmes();quit;end | |||
302 | 302 | ||
303 | 303 | ||
304 | comp(foo) | 304 | comp(foo) |
305 | Warning :redefining function: foo | 305 | Warning : redefining function : foo |
306 | 306 | ||
307 | 307 | ||
308 | if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end | 308 | if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end |
@@ -332,7 +332,7 @@ if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end | |||
332 | if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end | 332 | if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end |
333 | 333 | ||
334 | comp(foo) | 334 | comp(foo) |
335 | Warning :redefining function: foo | 335 | Warning : redefining function : foo |
336 | 336 | ||
337 | 337 | ||
338 | if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end | 338 | if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end |
diff --git a/tests/basic_tests/links.dia.ref b/tests/basic_tests/links.dia.ref index 00001e6..e2f3197 100644 --- a/tests/basic_tests/links.dia.ref +++ b/tests/basic_tests/links.dia.ref | |||
@@ -20,7 +20,7 @@ ilib_for_link(routines,'externals.o',[],"f"); | |||
20 | 20 | ||
21 | exec loader.sce ; | 21 | exec loader.sce ; |
22 | shared archive loaded | 22 | shared archive loaded |
23 | Link done | 23 | Link done. |
24 | 24 | ||
25 | //=========================================================== | 25 | //=========================================================== |
26 | 26 | ||
diff --git a/tests/basic_tests/matode.dia.ref b/tests/basic_tests/matode.dia.ref index af5e3e3..7ec843d 100644 --- a/tests/basic_tests/matode.dia.ref +++ b/tests/basic_tests/matode.dia.ref | |||
@@ -109,7 +109,7 @@ if (y6-yref) > 2*0.00001 then bugmes();quit;end | |||
109 | a=rand(3,3);ea=expm(a); | 109 | a=rand(3,3);ea=expm(a); |
110 | 110 | ||
111 | deff('[ydot]=f(t,y)','ydot=a*y') | 111 | deff('[ydot]=f(t,y)','ydot=a*y') |
112 | Warning :redefining function: f | 112 | Warning : redefining function : f |
113 | 113 | ||
114 | 114 | ||
115 | t1=1;y=ode('adams',eye(a),t0,t1,f); | 115 | t1=1;y=ode('adams',eye(a),t0,t1,f); |
@@ -152,11 +152,11 @@ rand('seed',0);rand('normal'); | |||
152 | nx=20;A=rand(nx,nx);A=A-4.5*eye(); | 152 | nx=20;A=rand(nx,nx);A=A-4.5*eye(); |
153 | 153 | ||
154 | deff('y=f(t,x)','y=A*x') | 154 | deff('y=f(t,x)','y=A*x') |
155 | Warning :redefining function: f | 155 | Warning : redefining function : f |
156 | 156 | ||
157 | 157 | ||
158 | deff('J=j(t,x)','J=A') | 158 | deff('J=j(t,x)','J=A') |
159 | Warning :redefining function: j | 159 | Warning : redefining function : j |
160 | 160 | ||
161 | 161 | ||
162 | x0=ones(nx,1);t0=0;t=[1,2,3,4,5]; | 162 | x0=ones(nx,1);t0=0;t=[1,2,3,4,5]; |
@@ -184,8 +184,8 @@ xf=ode(x0,t0,t,f); //lsoda | |||
184 | if norm(xf(:,nt)-eAt*x0)>Leps then bugmes();quit;end | 184 | if norm(xf(:,nt)-eAt*x0)>Leps then bugmes();quit;end |
185 | 185 | ||
186 | xfj=ode(x0,t0,t,f,j); //lsoda with jacobian | 186 | xfj=ode(x0,t0,t,f,j); //lsoda with jacobian |
187 | Warning: Jacobian external is given, but | 187 | Warning: Jacobian external is given, but |
188 | not used!, see %ODEOPTIONS(6) | 188 | not used!, see %ODEOPTIONS(6). |
189 | 189 | ||
190 | 190 | ||
191 | if norm(xfj(:,nt)-eAt*x0)>Leps then bugmes();quit;end | 191 | if norm(xfj(:,nt)-eAt*x0)>Leps then bugmes();quit;end |
@@ -232,7 +232,7 @@ deff('y=fcrit(t,x)',['if t<=tcrit then' | |||
232 | ' y=A*x;chk=resume(1);end']) | 232 | ' y=A*x;chk=resume(1);end']) |
233 | 233 | ||
234 | x42=ode(x0,t0,t,fcrit); | 234 | x42=ode(x0,t0,t,fcrit); |
235 | Warning: integration up to tcrit | 235 | Warning : integration up to tcrit |
236 | 236 | ||
237 | 237 | ||
238 | if chk==1 then bugmes();quit;end | 238 | if chk==1 then bugmes();quit;end |
@@ -287,8 +287,8 @@ if norm(x61-xf,1)>10*Leps then bugmes();quit;end | |||
287 | %ODEOPTIONS(6)=0; // jacobian nor called nor estimated | 287 | %ODEOPTIONS(6)=0; // jacobian nor called nor estimated |
288 | 288 | ||
289 | x60=ode('st',x0,t0,t,f,j); //Jacobian not used (warning) | 289 | x60=ode('st',x0,t0,t,f,j); //Jacobian not used (warning) |
290 | Warning: Jacobian external is given, but | 290 | Warning: Jacobian external is given, but |
291 | not used!, see %ODEOPTIONS(6) | 291 | not used!, see %ODEOPTIONS(6). |
292 | 292 | ||
293 | 293 | ||
294 | x60=ode('st',x0,t0,t,f); //Jacobian not used | 294 | x60=ode('st',x0,t0,t,f); //Jacobian not used |
@@ -300,8 +300,8 @@ if norm(x60-x61,1)>10*Leps then bugmes();quit;end | |||
300 | %ODEOPTIONS(6)=1;//Jacobian estimated | 300 | %ODEOPTIONS(6)=1;//Jacobian estimated |
301 | 301 | ||
302 | x60=ode('st',x0,t0,t,f) ; | 302 | x60=ode('st',x0,t0,t,f) ; |
303 | Warning: No Jacobian external given but | 303 | Warning: No Jacobian external given but |
304 | one is required by %ODEOPTIONS(6) value! | 304 | one is required by %ODEOPTIONS(6) value ! |
305 | 305 | ||
306 | 306 | ||
307 | if norm(x60-x61,1)>10*Leps then bugmes();quit;end | 307 | if norm(x60-x61,1)>10*Leps then bugmes();quit;end |
@@ -320,8 +320,8 @@ if norm(x60-x61,1)>10*Leps then bugmes();quit;end | |||
320 | %ODEOPTIONS(6)=0;// jacobian nor called nor estimated | 320 | %ODEOPTIONS(6)=0;// jacobian nor called nor estimated |
321 | 321 | ||
322 | x60=ode('ad',x0,t0,t,f,j); //Jacobian not used (warning) | 322 | x60=ode('ad',x0,t0,t,f,j); //Jacobian not used (warning) |
323 | Warning: Jacobian external is given, but | 323 | Warning: Jacobian external is given, but |
324 | not used!, see %ODEOPTIONS(6) | 324 | not used!, see %ODEOPTIONS(6). |
325 | 325 | ||
326 | 326 | ||
327 | x60=ode('ad',x0,t0,t,f); //Jacobian not used | 327 | x60=ode('ad',x0,t0,t,f); //Jacobian not used |
@@ -341,8 +341,8 @@ if norm(x60-x61,1)>10*Leps then bugmes();quit;end | |||
341 | %ODEOPTIONS(6)=1;//Jacobian estimated | 341 | %ODEOPTIONS(6)=1;//Jacobian estimated |
342 | 342 | ||
343 | x60=ode(x0,t0,t,f); | 343 | x60=ode(x0,t0,t,f); |
344 | Warning: No Jacobian external given but | 344 | Warning: No Jacobian external given but |
345 | one is required by %ODEOPTIONS(6) value! | 345 | one is required by %ODEOPTIONS(6) value ! |
346 | 346 | ||
347 | 347 | ||
348 | if norm(x60-x61,1)>10*Leps then bugmes();quit;end | 348 | if norm(x60-x61,1)>10*Leps then bugmes();quit;end |
@@ -377,7 +377,7 @@ for k=1:nx-2, A(k+2,k)=2;end | |||
377 | for k=1:nx-3, A(k+3,k)=-3;end | 377 | for k=1:nx-3, A(k+3,k)=-3;end |
378 | 378 | ||
379 | deff('xd=f(t,x)','xd=A*x') | 379 | deff('xd=f(t,x)','xd=A*x') |
380 | Warning :redefining function: f | 380 | Warning : redefining function : f |
381 | 381 | ||
382 | 382 | ||
383 | ml=3;mu=2; | 383 | ml=3;mu=2; |
@@ -388,7 +388,7 @@ for i=1:nx; | |||
388 | for j=1:nx; | 388 | for j=1:nx; |
389 | if A(i,j)<>0 then J(i-j+mu+1,j)=A(i,j);end | 389 | if A(i,j)<>0 then J(i-j+mu+1,j)=A(i,j);end |
390 | end;end; | 390 | end;end; |
391 | Warning :redefining function: j | 391 | Warning : redefining function : j |
392 | 392 | ||
393 | 393 | ||
394 | // J is a ml+mu+1 x ny matrix. | 394 | // J is a ml+mu+1 x ny matrix. |
@@ -427,8 +427,8 @@ if norm(xnotband-xband,1)>Leps then bugmes();quit;end | |||
427 | deff('jj=j(t,x)','jj=J') | 427 | deff('jj=j(t,x)','jj=J') |
428 | 428 | ||
429 | xband=ode('st',x0,t0,t,f,j); | 429 | xband=ode('st',x0,t0,t,f,j); |
430 | Warning: Jacobian external is given, but | 430 | Warning: Jacobian external is given, but |
431 | not used!, see %ODEOPTIONS(6) | 431 | not used!, see %ODEOPTIONS(6). |
432 | 432 | ||
433 | 433 | ||
434 | if norm(xnotband-xband,1)>Leps then bugmes();quit;end | 434 | if norm(xnotband-xband,1)>Leps then bugmes();quit;end |
@@ -531,7 +531,7 @@ deff('uu=u(t)','uu=sin(t)'); | |||
531 | B=rand(3,1); | 531 | B=rand(3,1); |
532 | 532 | ||
533 | deff('y=f(t,x)','y=A*x+B*u(t)') | 533 | deff('y=f(t,x)','y=A*x+B*u(t)') |
534 | Warning :redefining function: f | 534 | Warning : redefining function : f |
535 | 535 | ||
536 | 536 | ||
537 | %ODEOPTIONS(1)=2; | 537 | %ODEOPTIONS(1)=2; |
@@ -554,11 +554,11 @@ rand('seed',0);rand('normal'); | |||
554 | nx=20;A=rand(nx,nx);A=A-4.5*eye(); | 554 | nx=20;A=rand(nx,nx);A=A-4.5*eye(); |
555 | 555 | ||
556 | deff('y=f(t,x)','y=A*x') | 556 | deff('y=f(t,x)','y=A*x') |
557 | Warning :redefining function: f | 557 | Warning : redefining function : f |
558 | 558 | ||
559 | 559 | ||
560 | deff('J=j(t,x)','J=A') | 560 | deff('J=j(t,x)','J=A') |
561 | Warning :redefining function: j | 561 | Warning : redefining function : j |
562 | 562 | ||
563 | 563 | ||
564 | //%ODEOPTIONS(1)=1; | 564 | //%ODEOPTIONS(1)=1; |
@@ -583,7 +583,7 @@ ysj=ode('stiff',ones(nx,1),0,2,f,j); | |||
583 | 583 | ||
584 | 584 | ||
585 | deff('xd=f(t,x)','xd=A*x+B*sin(3*t)') | 585 | deff('xd=f(t,x)','xd=A*x+B*sin(3*t)') |
586 | Warning :redefining function: f | 586 | Warning : redefining function : f |
587 | 587 | ||
588 | 588 | ||
589 | A=rand(10,10)-4.5*eye();B=rand(10,1); | 589 | A=rand(10,10)-4.5*eye();B=rand(10,1); |
diff --git a/tests/basic_tests/matopt.dia.ref b/tests/basic_tests/matopt.dia.ref index 9c1d108..ff70834 100644 --- a/tests/basic_tests/matopt.dia.ref +++ b/tests/basic_tests/matopt.dia.ref | |||
@@ -144,7 +144,7 @@ deff('[f,g,ind]=rose(x,ind)', 'a=x(2)-x(1)^2 , b=1-x(2) ,... | |||
144 | f=50.*a^2 + b^2 , g(1)=-400.*x(1)*a , g(2)=200.*a -2.*b '); | 144 | f=50.*a^2 + b^2 , g(1)=-400.*x(1)*a , g(2)=200.*a -2.*b '); |
145 | 145 | ||
146 | comp(rose); | 146 | comp(rose); |
147 | Warning: function is already compiled | 147 | Warning: function is already compiled. |
148 | 148 | ||
149 | 149 | ||
150 | //[f,x,g,tr]=optim(rose,x0,'qn','ar',50);if abs(f+norm(x-xopt)) > Leps then bugmes();quit;end | 150 | //[f,x,g,tr]=optim(rose,x0,'qn','ar',50);if abs(f+norm(x-xopt)) > Leps then bugmes();quit;end |
@@ -207,7 +207,7 @@ deff('[fpen,gpen,ind]=sipn(x,ind,sip1,ne,nc,cpen)',... | |||
207 | ' for i=ne+1:nc, if f(i) > 0 then gpen=gpen + cpen*f(i)*g(:,i),end,end;end;']) | 207 | ' for i=ne+1:nc, if f(i) > 0 then gpen=gpen + cpen*f(i)*g(:,i),end,end;end;']) |
208 | 208 | ||
209 | comp(sipn); | 209 | comp(sipn); |
210 | Warning: function is already compiled | 210 | Warning: function is already compiled. |
211 | 211 | ||
212 | 212 | ||
213 | [f,x,g]=optim(list(sipn,sip2,ne,nc,cpen),... | 213 | [f,x,g]=optim(list(sipn,sip2,ne,nc,cpen),... |
@@ -227,7 +227,7 @@ if norm(X-inv(A))>Leps then bugmes();quit;end | |||
227 | 227 | ||
228 | 228 | ||
229 | deff('[f,g,ind]=ndsim(x,ind)', 'y=A*x-b;f=sum(abs(y));g=A''*sign(y)') | 229 | deff('[f,g,ind]=ndsim(x,ind)', 'y=A*x-b;f=sum(abs(y));g=A''*sign(y)') |
230 | Warning :redefining function: ndsim | 230 | Warning : redefining function : ndsim |
231 | 231 | ||
232 | 232 | ||
233 | A=rand(2,2);b=[1;0];Ai=inv(A); | 233 | A=rand(2,2);b=[1;0];Ai=inv(A); |
@@ -240,7 +240,7 @@ if norm(x-Ai(:,1))>Leps then bugmes();quit;end | |||
240 | deff('[f,g,ind]=ndsim(x,ind)', [ | 240 | deff('[f,g,ind]=ndsim(x,ind)', [ |
241 | 'y=A*x-b;f=max(abs(y)),sel=abs(y)==f' | 241 | 'y=A*x-b;f=max(abs(y)),sel=abs(y)==f' |
242 | 'g=A(sel,:)''*sign(y(sel))']); | 242 | 'g=A(sel,:)''*sign(y(sel))']); |
243 | Warning :redefining function: ndsim | 243 | Warning : redefining function : ndsim |
244 | 244 | ||
245 | 245 | ||
246 | //A=rand(2,2);b=[1;0];Ai=inv(A); | 246 | //A=rand(2,2);b=[1;0];Ai=inv(A); |
diff --git a/tests/basic_tests/matsys.dia.ref b/tests/basic_tests/matsys.dia.ref index 41ceb03..b02dfd6 100644 --- a/tests/basic_tests/matsys.dia.ref +++ b/tests/basic_tests/matsys.dia.ref | |||
@@ -54,7 +54,7 @@ if or(foo()<>[1 0]) then bugmes();quit;end | |||
54 | [x,y]=foo();if or(x<>[2 0]) then bugmes();quit;end | 54 | [x,y]=foo();if or(x<>[2 0]) then bugmes();quit;end |
55 | 55 | ||
56 | deff('[x,y]=foo(a,b)','lhs=argn(0);x=lhs;y=-1') | 56 | deff('[x,y]=foo(a,b)','lhs=argn(0);x=lhs;y=-1') |
57 | Warning :redefining function: foo | 57 | Warning : redefining function : foo |
58 | 58 | ||
59 | 59 | ||
60 | if foo(1)<>1 then bugmes();quit;end | 60 | if foo(1)<>1 then bugmes();quit;end |
@@ -66,7 +66,7 @@ if foo(1,2)<>1 then bugmes();quit;end | |||
66 | // | 66 | // |
67 | 67 | ||
68 | deff('[x,y]=foo(a,b)','[lhs,rhs]=argn();x=[lhs,rhs];y=-1') | 68 | deff('[x,y]=foo(a,b)','[lhs,rhs]=argn();x=[lhs,rhs];y=-1') |
69 | Warning :redefining function: foo | 69 | Warning : redefining function : foo |
70 | 70 | ||
71 | 71 | ||
72 | if or(foo(1)<>[1 1]) then bugmes();quit;end | 72 | if or(foo(1)<>[1 1]) then bugmes();quit;end |
@@ -82,7 +82,7 @@ if or(foo()<>[1 0]) then bugmes();quit;end | |||
82 | [x,y]=foo();if or(x<>[2 0]) then bugmes();quit;end | 82 | [x,y]=foo();if or(x<>[2 0]) then bugmes();quit;end |
83 | 83 | ||
84 | deff('[x,y]=foo(a,b)','lhs=argn();x=lhs;y=-1') | 84 | deff('[x,y]=foo(a,b)','lhs=argn();x=lhs;y=-1') |
85 | Warning :redefining function: foo | 85 | Warning : redefining function : foo |
86 | 86 | ||
87 | 87 | ||
88 | if foo(1)<>1 then bugmes();quit;end | 88 | if foo(1)<>1 then bugmes();quit;end |
@@ -312,7 +312,7 @@ errclear();errcatch(); | |||
312 | 312 | ||
313 | //whereis | 313 | //whereis |
314 | 314 | ||
315 | if whereis('sci2exp')<>'m2scilib' then bugmes();quit;end | 315 | if whereis('sci2exp')<>'stringlib' then bugmes();quit;end |
316 | 316 | ||
317 | if whereis('aaa')<>[] then bugmes();quit;end | 317 | if whereis('aaa')<>[] then bugmes();quit;end |
318 | 318 | ||
@@ -320,7 +320,7 @@ if whereis('aaa')<>[] then bugmes();quit;end | |||
320 | //where | 320 | //where |
321 | 321 | ||
322 | deff('[a,b]=foo()','[a,b]=where()') | 322 | deff('[a,b]=foo()','[a,b]=where()') |
323 | Warning :redefining function: foo | 323 | Warning : redefining function : foo |
324 | 324 | ||
325 | 325 | ||
326 | [a,b]=foo(); | 326 | [a,b]=foo(); |
@@ -337,7 +337,7 @@ deff('foo()','a=1') | |||
337 | funcprot(1) | 337 | funcprot(1) |
338 | 338 | ||
339 | deff('foo()','a=2') | 339 | deff('foo()','a=2') |
340 | Warning :redefining function: foo | 340 | Warning : redefining function : foo |
341 | 341 | ||
342 | 342 | ||
343 | errcatch(111,'continue','nomessage') | 343 | errcatch(111,'continue','nomessage') |
@@ -363,11 +363,11 @@ timer();for i=1:100000,end;if timer()<=0 then bugmes();quit;end | |||
363 | // comp | 363 | // comp |
364 | 364 | ||
365 | deff('[a]=foo()','a=1','n') | 365 | deff('[a]=foo()','a=1','n') |
366 | Warning :redefining function: foo | 366 | Warning : redefining function : foo |
367 | 367 | ||
368 | 368 | ||
369 | comp(foo) | 369 | comp(foo) |
370 | Warning :redefining function: foo | 370 | Warning : redefining function : foo |
371 | 371 | ||
372 | 372 | ||
373 | if foo()<>1 then bugmes();quit;end | 373 | if foo()<>1 then bugmes();quit;end |
@@ -386,7 +386,7 @@ y=stacksize();if y(1)<>a+1000 then bugmes();quit;end | |||
386 | //non compiled functions | 386 | //non compiled functions |
387 | 387 | ||
388 | deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)','n') | 388 | deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)','n') |
389 | Warning :redefining function: foo | 389 | Warning : redefining function : foo |
390 | 390 | ||
391 | 391 | ||
392 | a=stacksize();a=a(1); | 392 | a=stacksize();a=a(1); |
@@ -421,7 +421,7 @@ a=y; | |||
421 | // compiled functions | 421 | // compiled functions |
422 | 422 | ||
423 | deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)') | 423 | deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)') |
424 | Warning :redefining function: foo | 424 | Warning : redefining function : foo |
425 | 425 | ||
426 | 426 | ||
427 | y=foo(a); | 427 | y=foo(a); |
@@ -431,7 +431,7 @@ if y<>a+1000 then bugmes();quit;end | |||
431 | a=y; | 431 | a=y; |
432 | 432 | ||
433 | deff('y=toto()','a=stacksize();a=a(1);y=foo(a)') | 433 | deff('y=toto()','a=stacksize();a=a(1);y=foo(a)') |
434 | Warning :redefining function: toto | 434 | Warning : redefining function : toto |
435 | 435 | ||
436 | 436 | ||
437 | y=toto(); | 437 | y=toto(); |
@@ -491,7 +491,7 @@ if 1/0<>%inf then bugmes();quit;end | |||
491 | ieee(1) | 491 | ieee(1) |
492 | 492 | ||
493 | if 1/0<>%inf then bugmes();quit;end | 493 | if 1/0<>%inf then bugmes();quit;end |
494 | Warning :division by zero... | 494 | Warning : division by zero... |
495 | 495 | ||
496 | 496 | ||
497 | ieee(0) | 497 | ieee(0) |
diff --git a/tests/basic_tests/matsys.tst b/tests/basic_tests/matsys.tst index 8bc723f..8a9b70b 100644 --- a/tests/basic_tests/matsys.tst +++ b/tests/basic_tests/matsys.tst | |||
@@ -157,7 +157,7 @@ if iserror()<>1 then pause,end | |||
157 | errclear();errcatch(); | 157 | errclear();errcatch(); |
158 | 158 | ||
159 | //whereis | 159 | //whereis |
160 | if whereis('sci2exp')<>'m2scilib' then pause,end | 160 | if whereis('sci2exp')<>'stringlib' then pause,end |
161 | if whereis('aaa')<>[] then pause,end | 161 | if whereis('aaa')<>[] then pause,end |
162 | 162 | ||
163 | //where | 163 | //where |
diff --git a/tests/basic_tests/specfun.dia.ref b/tests/basic_tests/specfun.dia.ref index aedf58b..a5f65eb 100644 --- a/tests/basic_tests/specfun.dia.ref +++ b/tests/basic_tests/specfun.dia.ref | |||
@@ -1241,7 +1241,7 @@ yref=[ 0 | |||
1241 | -%inf]; | 1241 | -%inf]; |
1242 | 1242 | ||
1243 | y=besseli(alpha,x); | 1243 | y=besseli(alpha,x); |
1244 | Warning :division by zero... | 1244 | Warning : division by zero... |
1245 | 1245 | ||
1246 | 1246 | ||
1247 | if testresult() then bugmes();quit;end | 1247 | if testresult() then bugmes();quit;end |
@@ -1250,7 +1250,7 @@ yref=[ 0 | |||
1250 | -%inf]; | 1250 | -%inf]; |
1251 | 1251 | ||
1252 | y=besseli(alpha,x,1); | 1252 | y=besseli(alpha,x,1); |
1253 | Warning :division by zero... | 1253 | Warning : division by zero... |
1254 | 1254 | ||
1255 | 1255 | ||
1256 | if testresult() then bugmes();quit;end | 1256 | if testresult() then bugmes();quit;end |
@@ -1576,7 +1576,7 @@ yref=[-%inf | |||
1576 | 0]; | 1576 | 0]; |
1577 | 1577 | ||
1578 | y=besseli(alpha,x); | 1578 | y=besseli(alpha,x); |
1579 | Warning :division by zero... | 1579 | Warning : division by zero... |
1580 | 1580 | ||
1581 | 1581 | ||
1582 | if testresult() then bugmes();quit;end | 1582 | if testresult() then bugmes();quit;end |
@@ -1587,7 +1587,7 @@ yref=[-%inf | |||
1587 | 0]; | 1587 | 0]; |
1588 | 1588 | ||
1589 | y=besseli(alpha,x,1); | 1589 | y=besseli(alpha,x,1); |
1590 | Warning :division by zero... | 1590 | Warning : division by zero... |
1591 | 1591 | ||
1592 | 1592 | ||
1593 | if testresult() then bugmes();quit;end | 1593 | if testresult() then bugmes();quit;end |
@@ -1742,7 +1742,7 @@ yref=[-%inf | |||
1742 | 0]; | 1742 | 0]; |
1743 | 1743 | ||
1744 | y=besseli(alpha,x); | 1744 | y=besseli(alpha,x); |
1745 | Warning :division by zero... | 1745 | Warning : division by zero... |
1746 | 1746 | ||
1747 | 1747 | ||
1748 | if testresult() then bugmes();quit;end | 1748 | if testresult() then bugmes();quit;end |
@@ -1754,7 +1754,7 @@ yref=[-%inf | |||
1754 | 0]; | 1754 | 0]; |
1755 | 1755 | ||
1756 | y=besseli(alpha,x,1); | 1756 | y=besseli(alpha,x,1); |
1757 | Warning :division by zero... | 1757 | Warning : division by zero... |
1758 | 1758 | ||
1759 | 1759 | ||
1760 | if testresult() then bugmes();quit;end | 1760 | if testresult() then bugmes();quit;end |
@@ -3109,7 +3109,7 @@ yref=[ -0 | |||
3109 | -%inf]; | 3109 | -%inf]; |
3110 | 3110 | ||
3111 | y=besselj(alpha,x); | 3111 | y=besselj(alpha,x); |
3112 | Warning :division by zero... | 3112 | Warning : division by zero... |
3113 | 3113 | ||
3114 | 3114 | ||
3115 | if testresult() then bugmes();quit;end | 3115 | if testresult() then bugmes();quit;end |
@@ -3118,7 +3118,7 @@ yref=[ -0 | |||
3118 | -%inf]; | 3118 | -%inf]; |
3119 | 3119 | ||
3120 | y=besselj(alpha,x,1); | 3120 | y=besselj(alpha,x,1); |
3121 | Warning :division by zero... | 3121 | Warning : division by zero... |
3122 | 3122 | ||
3123 | 3123 | ||
3124 | if testresult() then bugmes();quit;end | 3124 | if testresult() then bugmes();quit;end |
@@ -3601,7 +3601,7 @@ yref=[-%inf | |||
3601 | -0]; | 3601 | -0]; |
3602 | 3602 | ||
3603 | y=besselj(alpha,x); | 3603 | y=besselj(alpha,x); |
3604 | Warning :division by zero... | 3604 | Warning : division by zero... |
3605 | 3605 | ||
3606 | 3606 | ||
3607 | if testresult() then bugmes();quit;end | 3607 | if testresult() then bugmes();quit;end |
@@ -3612,7 +3612,7 @@ yref=[-%inf | |||
3612 | -0]; | 3612 | -0]; |
3613 | 3613 | ||
3614 | y=besselj(alpha,x,1); | 3614 | y=besselj(alpha,x,1); |
3615 | Warning :division by zero... | 3615 | Warning : division by zero... |
3616 | 3616 | ||
3617 | 3617 | ||
3618 | if testresult() then bugmes();quit;end | 3618 | if testresult() then bugmes();quit;end |
@@ -3767,7 +3767,7 @@ yref=[-%inf | |||
3767 | -0]; | 3767 | -0]; |
3768 | 3768 | ||
3769 | y=besselj(alpha,x); | 3769 | y=besselj(alpha,x); |
3770 | Warning :division by zero... | 3770 | Warning : division by zero... |
3771 | 3771 | ||
3772 | 3772 | ||
3773 | if testresult() then bugmes();quit;end | 3773 | if testresult() then bugmes();quit;end |
@@ -3779,7 +3779,7 @@ yref=[-%inf | |||
3779 | -0]; | 3779 | -0]; |
3780 | 3780 | ||
3781 | y=besselj(alpha,x,1); | 3781 | y=besselj(alpha,x,1); |
3782 | Warning :division by zero... | 3782 | Warning : division by zero... |
3783 | 3783 | ||
3784 | 3784 | ||
3785 | if testresult() then bugmes();quit;end | 3785 | if testresult() then bugmes();quit;end |
@@ -4088,7 +4088,7 @@ x=[0]; | |||
4088 | yref=[%inf]; | 4088 | yref=[%inf]; |
4089 | 4089 | ||
4090 | y=besselk(alpha,x); | 4090 | y=besselk(alpha,x); |
4091 | Warning :division by zero... | 4091 | Warning : division by zero... |
4092 | 4092 | ||
4093 | 4093 | ||
4094 | if testresult() then bugmes();quit;end | 4094 | if testresult() then bugmes();quit;end |
@@ -4096,7 +4096,7 @@ if testresult() then bugmes();quit;end | |||
4096 | yref=[%inf]; | 4096 | yref=[%inf]; |
4097 | 4097 | ||
4098 | y=besselk(alpha,x,1); | 4098 | y=besselk(alpha,x,1); |
4099 | Warning :division by zero... | 4099 | Warning : division by zero... |
4100 | 4100 | ||
4101 | 4101 | ||
4102 | if testresult() then bugmes();quit;end | 4102 | if testresult() then bugmes();quit;end |
@@ -4245,7 +4245,7 @@ x=[0]; | |||
4245 | yref=[%inf]; | 4245 | yref=[%inf]; |
4246 | 4246 | ||
4247 | y=besselk(alpha,x); | 4247 | y=besselk(alpha,x); |
4248 | Warning :division by zero... | 4248 | Warning : division by zero... |
4249 | 4249 | ||
4250 | 4250 | ||
4251 | if testresult() then bugmes();quit;end | 4251 | if testresult() then bugmes();quit;end |
@@ -4253,7 +4253,7 @@ if testresult() then bugmes();quit;end | |||
4253 | yref=[%inf]; | 4253 | yref=[%inf]; |
4254 | 4254 | ||
4255 | y=besselk(alpha,x,1); | 4255 | y=besselk(alpha,x,1); |
4256 | Warning :division by zero... | 4256 | Warning : division by zero... |
4257 | 4257 | ||
4258 | 4258 | ||
4259 | if testresult() then bugmes();quit;end | 4259 | if testresult() then bugmes();quit;end |
@@ -4402,7 +4402,7 @@ x=[0]; | |||
4402 | yref=[%inf %inf %inf]; | 4402 | yref=[%inf %inf %inf]; |
4403 | 4403 | ||
4404 | y=besselk(alpha,x); | 4404 | y=besselk(alpha,x); |
4405 | Warning :division by zero... | 4405 | Warning : division by zero... |
4406 | 4406 | ||
4407 | 4407 | ||
4408 | if testresult() then bugmes();quit;end | 4408 | if testresult() then bugmes();quit;end |
@@ -4410,7 +4410,7 @@ if testresult() then bugmes();quit;end | |||
4410 | yref=[%inf %inf %inf]; | 4410 | yref=[%inf %inf %inf]; |
4411 | 4411 | ||
4412 | y=besselk(alpha,x,1); | 4412 | y=besselk(alpha,x,1); |
4413 | Warning :division by zero... | 4413 | Warning : division by zero... |
4414 | 4414 | ||
4415 | 4415 | ||
4416 | if testresult() then bugmes();quit;end | 4416 | if testresult() then bugmes();quit;end |
@@ -4527,7 +4527,7 @@ x=[0]; | |||
4527 | yref=[%inf %inf %inf]; | 4527 | yref=[%inf %inf %inf]; |
4528 | 4528 | ||
4529 | y=besselk(alpha,x); | 4529 | y=besselk(alpha,x); |
4530 | Warning :division by zero... | 4530 | Warning : division by zero... |
4531 | 4531 | ||
4532 | 4532 | ||
4533 | if testresult() then bugmes();quit;end | 4533 | if testresult() then bugmes();quit;end |
@@ -4535,7 +4535,7 @@ if testresult() then bugmes();quit;end | |||
4535 | yref=[%inf %inf %inf]; | 4535 | yref=[%inf %inf %inf]; |
4536 | 4536 | ||
4537 | y=besselk(alpha,x,1); | 4537 | y=besselk(alpha,x,1); |
4538 | Warning :division by zero... | 4538 | Warning : division by zero... |
4539 | 4539 | ||
4540 | 4540 | ||
4541 | if testresult() then bugmes();quit;end | 4541 | if testresult() then bugmes();quit;end |
@@ -4658,7 +4658,7 @@ yref=[%inf | |||
4658 | %inf]; | 4658 | %inf]; |
4659 | 4659 | ||
4660 | y=besselk(alpha,x); | 4660 | y=besselk(alpha,x); |
4661 | Warning :division by zero... | 4661 | Warning : division by zero... |
4662 | 4662 | ||
4663 | 4663 | ||
4664 | if testresult() then bugmes();quit;end | 4664 | if testresult() then bugmes();quit;end |
@@ -4668,7 +4668,7 @@ yref=[%inf | |||
4668 | %inf]; | 4668 | %inf]; |
4669 | 4669 | ||
4670 | y=besselk(alpha,x,1); | 4670 | y=besselk(alpha,x,1); |
4671 | Warning :division by zero... | 4671 | Warning : division by zero... |
4672 | 4672 | ||
4673 | 4673 | ||
4674 | if testresult() then bugmes();quit;end | 4674 | if testresult() then bugmes();quit;end |
@@ -4832,7 +4832,7 @@ yref=[%inf | |||
4832 | %inf]; | 4832 | %inf]; |
4833 | 4833 | ||
4834 | y=besselk(alpha,x); | 4834 | y=besselk(alpha,x); |
4835 | Warning :division by zero... | 4835 | Warning : division by zero... |
4836 | 4836 | ||
4837 | 4837 | ||
4838 | if testresult() then bugmes();quit;end | 4838 | if testresult() then bugmes();quit;end |
@@ -4842,7 +4842,7 @@ yref=[%inf | |||
4842 | %inf]; | 4842 | %inf]; |
4843 | 4843 | ||
4844 | y=besselk(alpha,x,1); | 4844 | y=besselk(alpha,x,1); |
4845 | Warning :division by zero... | 4845 | Warning : division by zero... |
4846 | 4846 | ||
4847 | 4847 | ||
4848 | if testresult() then bugmes();quit;end | 4848 | if testresult() then bugmes();quit;end |
@@ -5000,7 +5000,7 @@ x=[0]; | |||
5000 | yref=[%inf]; | 5000 | yref=[%inf]; |
5001 | 5001 | ||
5002 | y=besselk(alpha,x); | 5002 | y=besselk(alpha,x); |
5003 | Warning :division by zero... | 5003 | Warning : division by zero... |
5004 | 5004 | ||
5005 | 5005 | ||
5006 | if testresult() then bugmes();quit;end | 5006 | if testresult() then bugmes();quit;end |
@@ -5008,7 +5008,7 @@ if testresult() then bugmes();quit;end | |||
5008 | yref=[%inf]; | 5008 | yref=[%inf]; |
5009 | 5009 | ||
5010 | y=besselk(alpha,x,1); | 5010 | y=besselk(alpha,x,1); |
5011 | Warning :division by zero... | 5011 | Warning : division by zero... |
5012 | 5012 | ||
5013 | 5013 | ||
5014 | if testresult() then bugmes();quit;end | 5014 | if testresult() then bugmes();quit;end |
@@ -5160,7 +5160,7 @@ yref=[%inf | |||
5160 | %inf]; | 5160 | %inf]; |
5161 | 5161 | ||
5162 | y=besselk(alpha,x); | 5162 | y=besselk(alpha,x); |
5163 | Warning :division by zero... | 5163 | Warning : division by zero... |
5164 | 5164 | ||
5165 | 5165 | ||
5166 | if testresult() then bugmes();quit;end | 5166 | if testresult() then bugmes();quit;end |
@@ -5169,7 +5169,7 @@ yref=[%inf | |||
5169 | %inf]; | 5169 | %inf]; |
5170 | 5170 | ||
5171 | y=besselk(alpha,x,1); | 5171 | y=besselk(alpha,x,1); |
5172 | Warning :division by zero... | 5172 | Warning : division by zero... |
5173 | 5173 | ||
5174 | 5174 | ||
5175 | if testresult() then bugmes();quit;end | 5175 | if testresult() then bugmes();quit;end |
@@ -5326,7 +5326,7 @@ yref=[%inf | |||
5326 | %inf]; | 5326 | %inf]; |
5327 | 5327 | ||
5328 | y=besselk(alpha,x); | 5328 | y=besselk(alpha,x); |
5329 | Warning :division by zero... | 5329 | Warning : division by zero... |
5330 | 5330 | ||
5331 | 5331 | ||
5332 | if testresult() then bugmes();quit;end | 5332 | if testresult() then bugmes();quit;end |
@@ -5338,7 +5338,7 @@ yref=[%inf | |||
5338 | %inf]; | 5338 | %inf]; |
5339 | 5339 | ||
5340 | y=besselk(alpha,x,1); | 5340 | y=besselk(alpha,x,1); |
5341 | Warning :division by zero... | 5341 | Warning : division by zero... |
5342 | 5342 | ||
5343 | 5343 | ||
5344 | if testresult() then bugmes();quit;end | 5344 | if testresult() then bugmes();quit;end |
@@ -5499,7 +5499,7 @@ yref=[%inf | |||
5499 | %inf]; | 5499 | %inf]; |
5500 | 5500 | ||
5501 | y=besselk(alpha,x); | 5501 | y=besselk(alpha,x); |
5502 | Warning :division by zero... | 5502 | Warning : division by zero... |
5503 | 5503 | ||
5504 | 5504 | ||
5505 | if testresult() then bugmes();quit;end | 5505 | if testresult() then bugmes();quit;end |
@@ -5510,7 +5510,7 @@ yref=[%inf | |||
5510 | %inf]; | 5510 | %inf]; |
5511 | 5511 | ||
5512 | y=besselk(alpha,x,1); | 5512 | y=besselk(alpha,x,1); |
5513 | Warning :division by zero... | 5513 | Warning : division by zero... |
5514 | 5514 | ||
5515 | 5515 | ||
5516 | if testresult() then bugmes();quit;end | 5516 | if testresult() then bugmes();quit;end |
@@ -5665,7 +5665,7 @@ yref=[%inf | |||
5665 | %inf]; | 5665 | %inf]; |
5666 | 5666 | ||
5667 | y=besselk(alpha,x); | 5667 | y=besselk(alpha,x); |
5668 | Warning :division by zero... | 5668 | Warning : division by zero... |
5669 | 5669 | ||
5670 | 5670 | ||
5671 | if testresult() then bugmes();quit;end | 5671 | if testresult() then bugmes();quit;end |
@@ -5677,7 +5677,7 @@ yref=[%inf | |||
5677 | %inf]; | 5677 | %inf]; |
5678 | 5678 | ||
5679 | y=besselk(alpha,x,1); | 5679 | y=besselk(alpha,x,1); |
5680 | Warning :division by zero... | 5680 | Warning : division by zero... |
5681 | 5681 | ||
5682 | 5682 | ||
5683 | if testresult() then bugmes();quit;end | 5683 | if testresult() then bugmes();quit;end |
@@ -5986,7 +5986,7 @@ x=[0]; | |||
5986 | yref=[-%inf]; | 5986 | yref=[-%inf]; |
5987 | 5987 | ||
5988 | y=bessely(alpha,x); | 5988 | y=bessely(alpha,x); |
5989 | Warning :division by zero... | 5989 | Warning : division by zero... |
5990 | 5990 | ||
5991 | 5991 | ||
5992 | if testresult() then bugmes();quit;end | 5992 | if testresult() then bugmes();quit;end |
@@ -5994,7 +5994,7 @@ if testresult() then bugmes();quit;end | |||
5994 | yref=[-%inf]; | 5994 | yref=[-%inf]; |
5995 | 5995 | ||
5996 | y=bessely(alpha,x,1); | 5996 | y=bessely(alpha,x,1); |
5997 | Warning :division by zero... | 5997 | Warning : division by zero... |
5998 | 5998 | ||
5999 | 5999 | ||
6000 | if testresult() then bugmes();quit;end | 6000 | if testresult() then bugmes();quit;end |
@@ -6143,7 +6143,7 @@ x=[0]; | |||
6143 | yref=[-%inf]; | 6143 | yref=[-%inf]; |
6144 | 6144 | ||
6145 | y=bessely(alpha,x); | 6145 | y=bessely(alpha,x); |
6146 | Warning :division by zero... | 6146 | Warning : division by zero... |
6147 | 6147 | ||
6148 | 6148 | ||
6149 | if testresult() then bugmes();quit;end | 6149 | if testresult() then bugmes();quit;end |
@@ -6151,7 +6151,7 @@ if testresult() then bugmes();quit;end | |||
6151 | yref=[-%inf]; | 6151 | yref=[-%inf]; |
6152 | 6152 | ||
6153 | y=bessely(alpha,x,1); | 6153 | y=bessely(alpha,x,1); |
6154 | Warning :division by zero... | 6154 | Warning : division by zero... |
6155 | 6155 | ||
6156 | 6156 | ||
6157 | if testresult() then bugmes();quit;end | 6157 | if testresult() then bugmes();quit;end |
@@ -6300,7 +6300,7 @@ x=[0]; | |||
6300 | yref=[-%inf -%inf -%inf]; | 6300 | yref=[-%inf -%inf -%inf]; |
6301 | 6301 | ||
6302 | y=bessely(alpha,x); | 6302 | y=bessely(alpha,x); |
6303 | Warning :division by zero... | 6303 | Warning : division by zero... |
6304 | 6304 | ||
6305 | 6305 | ||
6306 | if testresult() then bugmes();quit;end | 6306 | if testresult() then bugmes();quit;end |
@@ -6308,7 +6308,7 @@ if testresult() then bugmes();quit;end | |||
6308 | yref=[-%inf -%inf -%inf]; | 6308 | yref=[-%inf -%inf -%inf]; |
6309 | 6309 | ||
6310 | y=bessely(alpha,x,1); | 6310 | y=bessely(alpha,x,1); |
6311 | Warning :division by zero... | 6311 | Warning : division by zero... |
6312 | 6312 | ||
6313 | 6313 | ||
6314 | if testresult() then bugmes();quit;end | 6314 | if testresult() then bugmes();quit;end |
@@ -6425,7 +6425,7 @@ x=[0]; | |||
6425 | yref=[-%inf -%inf -%inf]; | 6425 | yref=[-%inf -%inf -%inf]; |
6426 | 6426 | ||
6427 | y=bessely(alpha,x); | 6427 | y=bessely(alpha,x); |
6428 | Warning :division by zero... | 6428 | Warning : division by zero... |
6429 | 6429 | ||
6430 | 6430 | ||
6431 | if testresult() then bugmes();quit;end | 6431 | if testresult() then bugmes();quit;end |
@@ -6433,7 +6433,7 @@ if testresult() then bugmes();quit;end | |||
6433 | yref=[-%inf -%inf -%inf]; | 6433 | yref=[-%inf -%inf -%inf]; |
6434 | 6434 | ||
6435 | y=bessely(alpha,x,1); | 6435 | y=bessely(alpha,x,1); |
6436 | Warning :division by zero... | 6436 | Warning : division by zero... |
6437 | 6437 | ||
6438 | 6438 | ||
6439 | if testresult() then bugmes();quit;end | 6439 | if testresult() then bugmes();quit;end |
@@ -6556,7 +6556,7 @@ yref=[-%inf | |||
6556 | -%inf]; | 6556 | -%inf]; |
6557 | 6557 | ||
6558 | y=bessely(alpha,x); | 6558 | y=bessely(alpha,x); |
6559 | Warning :division by zero... | 6559 | Warning : division by zero... |
6560 | 6560 | ||
6561 | 6561 | ||
6562 | if testresult() then bugmes();quit;end | 6562 | if testresult() then bugmes();quit;end |
@@ -6566,7 +6566,7 @@ yref=[-%inf | |||
6566 | -%inf]; | 6566 | -%inf]; |
6567 | 6567 | ||
6568 | y=bessely(alpha,x,1); | 6568 | y=bessely(alpha,x,1); |
6569 | Warning :division by zero... | 6569 | Warning : division by zero... |
6570 | 6570 | ||
6571 | 6571 | ||
6572 | if testresult() then bugmes();quit;end | 6572 | if testresult() then bugmes();quit;end |
@@ -6730,7 +6730,7 @@ yref=[-%inf | |||
6730 | -%inf]; | 6730 | -%inf]; |
6731 | 6731 | ||
6732 | y=bessely(alpha,x); | 6732 | y=bessely(alpha,x); |
6733 | Warning :division by zero... | 6733 | Warning : division by zero... |
6734 | 6734 | ||
6735 | 6735 | ||
6736 | if testresult() then bugmes();quit;end | 6736 | if testresult() then bugmes();quit;end |
@@ -6740,7 +6740,7 @@ yref=[-%inf | |||
6740 | -%inf]; | 6740 | -%inf]; |
6741 | 6741 | ||
6742 | y=bessely(alpha,x,1); | 6742 | y=bessely(alpha,x,1); |
6743 | Warning :division by zero... | 6743 | Warning : division by zero... |
6744 | 6744 | ||
6745 | 6745 | ||
6746 | if testresult() then bugmes();quit;end | 6746 | if testresult() then bugmes();quit;end |
@@ -6898,7 +6898,7 @@ x=[0]; | |||
6898 | yref=[-%inf]; | 6898 | yref=[-%inf]; |
6899 | 6899 | ||
6900 | y=bessely(alpha,x); | 6900 | y=bessely(alpha,x); |
6901 | Warning :division by zero... | 6901 | Warning : division by zero... |
6902 | 6902 | ||
6903 | 6903 | ||
6904 | if testresult() then bugmes();quit;end | 6904 | if testresult() then bugmes();quit;end |
@@ -6906,7 +6906,7 @@ if testresult() then bugmes();quit;end | |||
6906 | yref=[-%inf]; | 6906 | yref=[-%inf]; |
6907 | 6907 | ||
6908 | y=bessely(alpha,x,1); | 6908 | y=bessely(alpha,x,1); |
6909 | Warning :division by zero... | 6909 | Warning : division by zero... |
6910 | 6910 | ||
6911 | 6911 | ||
6912 | if testresult() then bugmes();quit;end | 6912 | if testresult() then bugmes();quit;end |
@@ -7058,7 +7058,7 @@ yref=[-%inf | |||
7058 | -%inf]; | 7058 | -%inf]; |
7059 | 7059 | ||
7060 | y=bessely(alpha,x); | 7060 | y=bessely(alpha,x); |
7061 | Warning :division by zero... | 7061 | Warning : division by zero... |
7062 | 7062 | ||
7063 | 7063 | ||
7064 | if testresult() then bugmes();quit;end | 7064 | if testresult() then bugmes();quit;end |
@@ -7067,7 +7067,7 @@ yref=[-%inf | |||
7067 | -%inf]; | 7067 | -%inf]; |
7068 | 7068 | ||
7069 | y=bessely(alpha,x,1); | 7069 | y=bessely(alpha,x,1); |
7070 | Warning :division by zero... | 7070 | Warning : division by zero... |
7071 | 7071 | ||
7072 | 7072 | ||
7073 | if testresult() then bugmes();quit;end | 7073 | if testresult() then bugmes();quit;end |
@@ -7224,7 +7224,7 @@ yref=[-%inf | |||
7224 | -%inf]; | 7224 | -%inf]; |
7225 | 7225 | ||
7226 | y=bessely(alpha,x); | 7226 | y=bessely(alpha,x); |
7227 | Warning :division by zero... | 7227 | Warning : division by zero... |
7228 | 7228 | ||
7229 | 7229 | ||
7230 | if testresult() then bugmes();quit;end | 7230 | if testresult() then bugmes();quit;end |
@@ -7236,7 +7236,7 @@ yref=[-%inf | |||
7236 | -%inf]; | 7236 | -%inf]; |
7237 | 7237 | ||
7238 | y=bessely(alpha,x,1); | 7238 | y=bessely(alpha,x,1); |
7239 | Warning :division by zero... | 7239 | Warning : division by zero... |
7240 | 7240 | ||
7241 | 7241 | ||
7242 | if testresult() then bugmes();quit;end | 7242 | if testresult() then bugmes();quit;end |
@@ -7397,7 +7397,7 @@ yref=[-%inf | |||
7397 | -%inf]; | 7397 | -%inf]; |
7398 | 7398 | ||
7399 | y=bessely(alpha,x); | 7399 | y=bessely(alpha,x); |
7400 | Warning :division by zero... | 7400 | Warning : division by zero... |
7401 | 7401 | ||
7402 | 7402 | ||
7403 | if testresult() then bugmes();quit;end | 7403 | if testresult() then bugmes();quit;end |
@@ -7408,7 +7408,7 @@ yref=[-%inf | |||
7408 | -%inf]; | 7408 | -%inf]; |
7409 | 7409 | ||
7410 | y=bessely(alpha,x,1); | 7410 | y=bessely(alpha,x,1); |
7411 | Warning :division by zero... | 7411 | Warning : division by zero... |
7412 | 7412 | ||
7413 | 7413 | ||
7414 | if testresult() then bugmes();quit;end | 7414 | if testresult() then bugmes();quit;end |
@@ -7560,7 +7560,7 @@ yref=[-%inf | |||
7560 | -%inf]; | 7560 | -%inf]; |
7561 | 7561 | ||
7562 | y=bessely(alpha,x); | 7562 | y=bessely(alpha,x); |
7563 | Warning :division by zero... | 7563 | Warning : division by zero... |
7564 | 7564 | ||
7565 | 7565 | ||
7566 | if testresult() then bugmes();quit;end | 7566 | if testresult() then bugmes();quit;end |
@@ -7571,7 +7571,7 @@ yref=[-%inf | |||
7571 | -%inf]; | 7571 | -%inf]; |
7572 | 7572 | ||
7573 | y=bessely(alpha,x,1); | 7573 | y=bessely(alpha,x,1); |
7574 | Warning :division by zero... | 7574 | Warning : division by zero... |
7575 | 7575 | ||
7576 | 7576 | ||
7577 | if testresult() then bugmes();quit;end | 7577 | if testresult() then bugmes();quit;end |
@@ -7726,7 +7726,7 @@ yref=[-%inf | |||
7726 | -%inf]; | 7726 | -%inf]; |
7727 | 7727 | ||
7728 | y=bessely(alpha,x); | 7728 | y=bessely(alpha,x); |
7729 | Warning :division by zero... | 7729 | Warning : division by zero... |
7730 | 7730 | ||
7731 | 7731 | ||
7732 | if testresult() then bugmes();quit;end | 7732 | if testresult() then bugmes();quit;end |
@@ -7738,7 +7738,7 @@ yref=[-%inf | |||
7738 | -%inf]; | 7738 | -%inf]; |
7739 | 7739 | ||
7740 | y=bessely(alpha,x,1); | 7740 | y=bessely(alpha,x,1); |
7741 | Warning :division by zero... | 7741 | Warning : division by zero... |
7742 | 7742 | ||
7743 | 7743 | ||
7744 | if testresult() then bugmes();quit;end | 7744 | if testresult() then bugmes();quit;end |