summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorAllan Cornet <allan.cornet@scilab.org>2007-04-12 16:38:43 +0000
committerAllan Cornet <allan.cornet@scilab.org>2007-04-12 16:38:43 +0000
commit08ae6d303fe7688a01158cb500eb7fa8945b2f13 (patch)
tree81f31eb67607d4540f85f3b19ef7753196631a58 /tests
parent7172ee0ef248e5179dfad3eaa4f5c7e39fede285 (diff)
downloadscilab-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.ref13
-rw-r--r--tests/basic_tests/basiclink.dia.ref2
-rw-r--r--tests/basic_tests/breakpoints.dia.ref188
-rw-r--r--tests/basic_tests/clause.dia.ref16
-rw-r--r--tests/basic_tests/links.dia.ref2
-rw-r--r--tests/basic_tests/matode.dia.ref44
-rw-r--r--tests/basic_tests/matopt.dia.ref8
-rw-r--r--tests/basic_tests/matsys.dia.ref24
-rw-r--r--tests/basic_tests/matsys.tst2
-rw-r--r--tests/basic_tests/specfun.dia.ref116
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
1990if execstr('[U,S,V,rk]=svd([],'"e'")','errcatch') == 0 then bugmes();quit;end 1990if 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
2434function c=cond(A) 2435function 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
2436endfunction 2437endfunction
2437Warning :redefining function: cond 2438Warning : 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
3024function x=ldiv(A,B),x=A\B,endfunction 3025function x=ldiv(A,B),x=A\B,endfunction
3025Warning :redefining function: ldiv 3026Warning : redefining function : ldiv
3026 3027
3027 3028
3028//scalar division 3029//scalar division
@@ -3335,7 +3336,7 @@ A=testmat3(10000,5);
3335if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end 3336if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
3336 3337
3337if Err(Ab-inv(X)*A*X)>200*%eps then bugmes();quit;end 3338if 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);
3349if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end 3350if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
3350 3351
3351if Err(Ab-inv(X)*A*X)>200*%eps then bugmes();quit;end 3352if 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);
3363if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end 3364if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
3364 3365
3365if Err(Ab-inv(X)*A*X)>1000*%eps then bugmes();quit;end 3366if 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);
3377if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end 3378if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
3378 3379
3379if Err(Ab-inv(X)*A*X)>1000*%eps then bugmes();quit;end 3380if 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 ;
27shared archive loaded 27shared archive loaded
28Link done 28Link 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
79lig() 79lig()
80ligne 2 80ligne 2
81ligne 8 81ligne 8
82Stop after row 8 in function lig : 82Stop after row 8 in function lig.
83 83
84 84
85resume 85resume
86ligne 9 86ligne 9
87ligne 11 87ligne 11
88Stop after row 11 in function lig : 88Stop after row 11 in function lig.
89 89
90 90
91resume 91resume
92ligne 11 92ligne 11
93Stop after row 11 in function lig : 93Stop after row 11 in function lig.
94 94
95 95
96resume 96resume
97ligne 11 97ligne 11
98Stop after row 11 in function lig : 98Stop after row 11 in function lig.
99 99
100 100
101resume 101resume
102ligne 12 102ligne 12
103Stop after row 12 in function lig : 103Stop after row 12 in function lig.
104 104
105 105
106resume 106resume
107ligne 17 107ligne 17
108Stop after row 17 in function lig : 108Stop after row 17 in function lig.
109 109
110 110
111resume 111resume
112ligne 18 112ligne 18
113ligne 23 113ligne 23
114Stop after row 23 in function lig : 114Stop after row 23 in function lig.
115 115
116 116
117resume 117resume
118ligne 28 118ligne 28
119Stop after row 28 in function lig : 119Stop after row 28 in function lig.
120 120
121 121
122resume 122resume
123ligne 29 123ligne 29
124ligne 38 124ligne 38
125Stop after row 38 in function lig : 125Stop after row 38 in function lig.
126 126
127 127
128resume 128resume
129ligne 39 129ligne 39
130Stop after row 39 in function lig : 130Stop after row 39 in function lig.
131 131
132 132
133resume 133resume
134ligne 40 134ligne 40
135Stop after row 40 in function lig : 135Stop after row 40 in function lig.
136 136
137 137
138resume 138resume
139ligne 43 139ligne 43
140Stop after row 43 in function lig : 140Stop after row 43 in function lig.
141 141
142 142
143resume 143resume
144ligne 43 144ligne 43
145Stop after row 43 in function lig : 145Stop after row 43 in function lig.
146 146
147 147
148resume 148resume
149ligne 43 149ligne 43
150Stop after row 43 in function lig : 150Stop after row 43 in function lig.
151 151
152 152
153resume 153resume
154ligne 44 154ligne 44
155Stop after row 44 in function lig : 155Stop after row 44 in function lig.
156 156
157 157
158resume 158resume
159ligne 47 159ligne 47
160ligne 48 160ligne 48
161Stop after row 48 in function lig : 161Stop after row 48 in function lig.
162 162
163 163
164resume 164resume
165comp(lig) 165comp(lig)
166Warning :redefining function: lig 166Warning : redefining function : lig
167 167
168write(%io(2),[' ';'COMPILED MACRO';'-----------------';' ']) 168write(%io(2),[' ';'COMPILED MACRO';'-----------------';' '])
169 169
@@ -173,86 +173,86 @@ COMPILED MACRO
173lig() 173lig()
174ligne 2 174ligne 2
175ligne 8 175ligne 8
176Stop after row 8 in function lig : 176Stop after row 8 in function lig.
177 177
178 178
179resume 179resume
180ligne 9 180ligne 9
181ligne 11 181ligne 11
182Stop after row 11 in function lig : 182Stop after row 11 in function lig.
183 183
184 184
185resume 185resume
186ligne 11 186ligne 11
187Stop after row 11 in function lig : 187Stop after row 11 in function lig.
188 188
189 189
190resume 190resume
191ligne 11 191ligne 11
192Stop after row 11 in function lig : 192Stop after row 11 in function lig.
193 193
194 194
195resume 195resume
196ligne 12 196ligne 12
197Stop after row 12 in function lig : 197Stop after row 12 in function lig.
198 198
199 199
200resume 200resume
201ligne 17 201ligne 17
202Stop after row 17 in function lig : 202Stop after row 17 in function lig.
203 203
204 204
205resume 205resume
206ligne 18 206ligne 18
207ligne 23 207ligne 23
208Stop after row 23 in function lig : 208Stop after row 23 in function lig.
209 209
210 210
211resume 211resume
212ligne 28 212ligne 28
213Stop after row 28 in function lig : 213Stop after row 28 in function lig.
214 214
215 215
216resume 216resume
217ligne 29 217ligne 29
218ligne 38 218ligne 38
219Stop after row 38 in function lig : 219Stop after row 38 in function lig.
220 220
221 221
222resume 222resume
223ligne 39 223ligne 39
224Stop after row 39 in function lig : 224Stop after row 39 in function lig.
225 225
226 226
227resume 227resume
228ligne 40 228ligne 40
229Stop after row 40 in function lig : 229Stop after row 40 in function lig.
230 230
231 231
232resume 232resume
233ligne 43 233ligne 43
234Stop after row 43 in function lig : 234Stop after row 43 in function lig.
235 235
236 236
237resume 237resume
238ligne 43 238ligne 43
239Stop after row 43 in function lig : 239Stop after row 43 in function lig.
240 240
241 241
242resume 242resume
243ligne 43 243ligne 43
244Stop after row 43 in function lig : 244Stop after row 43 in function lig.
245 245
246 246
247resume 247resume
248ligne 44 248ligne 44
249Stop after row 44 in function lig : 249Stop after row 44 in function lig.
250 250
251 251
252resume 252resume
253ligne 47 253ligne 47
254ligne 48 254ligne 48
255Stop after row 48 in function lig : 255Stop after row 48 in function lig.
256 256
257 257
258resume 258resume
@@ -264,69 +264,69 @@ clear lig shlig
264delbpt(),dispbpt() // should display no output 264delbpt(),dispbpt() // should display no output
265setbpt("foo1",0) // should spit error 9997 265setbpt("foo1",0) // should spit error 9997
266 !--error 9997 266 !--error 9997
267Breakpoint line number must be a positive integer 267Breakpoint line number must be a positive integer
268 268
269 269
270setbpt("foo1",-3) // should spit error 9997 270setbpt("foo1",-3) // should spit error 9997
271 !--error 9997 271 !--error 9997
272Breakpoint line number must be a positive integer 272Breakpoint line number must be a positive integer
273 273
274 274
275setbpt("foo1",3.2) // should spit error 9997 275setbpt("foo1",3.2) // should spit error 9997
276 !--error 9997 276 !--error 9997
277Breakpoint line number must be a positive integer 277Breakpoint line number must be a positive integer
278 278
279 279
280setbpt("foo1"),dispbpt() // set at line 1 (default) 280setbpt("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
285setbpt("foo1",5),dispbpt() // add another bpt to a macro that already has bpts, and that is the last one 285setbpt("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
291setbpt("foo2",5),setbpt("foo2",8),dispbpt() // add bpts to a new macro (will always be placed at the end) 291setbpt("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
301setbpt("foo1",9),dispbpt() // add another bpt to a macro that already has bpts, and that is NOT the last one 301setbpt("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
312setbpt("foo1",5),dispbpt() // check duplicates removal - line 5 should appear only once in foo1 312setbpt("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
323setbpt("foo2",5),dispbpt() // check duplicates removal - line 5 should appear only once in foo2 323setbpt("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
343setbpt("foo1",[1,0,5]) // should spit error 9997 343setbpt("foo1",[1,0,5]) // should spit error 9997
344 !--error 9997 344 !--error 9997
345Breakpoint line number must be a positive integer 345Breakpoint line number must be a positive integer
346 346
347 347
348setbpt("foo1",[-3,2,7]) // should spit error 9997 348setbpt("foo1",[-3,2,7]) // should spit error 9997
349 !--error 9997 349 !--error 9997
350Breakpoint line number must be a positive integer 350Breakpoint line number must be a positive integer
351 351
352 352
353setbpt("foo1",[1,3.2]) // should spit error 9997 353setbpt("foo1",[1,3.2]) // should spit error 9997
354 !--error 9997 354 !--error 9997
355Breakpoint line number must be a positive integer 355Breakpoint line number must be a positive integer
356 356
357 357
358setbpt("foo1",[8,9]),dispbpt() // add 2 bpts at once to a new macro 358setbpt("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
364setbpt("foo1",5),setbpt("foo1",[2,3]),dispbpt() // add further bpts to a macro that already has bpts, and that is the last one 364setbpt("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
373setbpt("foo2",[5,8]),setbpt("foo2",7),dispbpt() // add bpts to a new macro (will always be placed at the end) 373setbpt("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
387setbpt("foo1",[10,15,20]),dispbpt() // add bpts to a macro that already has bpts, and that is NOT the last one 387setbpt("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
404setbpt("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 404setbpt("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
424setbpt("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 424setbpt("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
445setbpt("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 445setbpt("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
469setbpt("foo2",[9,5,8,100,7,2]),dispbpt() // check duplicates removal wrt existing bpts, last macro - all lines should appear only once in foo2 469setbpt("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
506delbpt("foo1",0) // should spit error 9997 506delbpt("foo1",0) // should spit error 9997
507 !--error 9997 507 !--error 9997
508Breakpoint line number must be a positive integer 508Breakpoint line number must be a positive integer
509 509
510 510
511delbpt("foo1",-3) // should spit error 9997 511delbpt("foo1",-3) // should spit error 9997
512 !--error 9997 512 !--error 9997
513Breakpoint line number must be a positive integer 513Breakpoint line number must be a positive integer
514 514
515 515
516delbpt("foo1",3.2) // should spit error 9997 516delbpt("foo1",3.2) // should spit error 9997
517 !--error 9997 517 !--error 9997
518Breakpoint line number must be a positive integer 518Breakpoint line number must be a positive integer
519 519
520 520
521delbpt("foo1"),dispbpt() // should display no output 521delbpt("foo1"),dispbpt() // should display no output
@@ -523,14 +523,14 @@ delbpt("foo1"),dispbpt() // should display no output
523setbpt("foo1",[5,8,11]),delbpt("foo1"),dispbpt() // should display no output 523setbpt("foo1",[5,8,11]),delbpt("foo1"),dispbpt() // should display no output
524 524
525setbpt("foo1",[5,8,11]),setbpt("foo2",[55,88,111]),delbpt("foo1"),dispbpt() // should display the 3 bpts for foo2 only 525setbpt("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
532setbpt("foo1",[5,8,11]),setbpt("foo2",[55,88,111]),delbpt("foo2"),dispbpt() // should display the 3 bpts for foo1 only 532setbpt("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()
541setbpt("foo1",5),delbpt("foo1",5),dispbpt() // should display no output 541setbpt("foo1",5),delbpt("foo1",5),dispbpt() // should display no output
542 542
543setbpt("foo1",[5,6,8]),delbpt("foo1",5),dispbpt() // lines 6 and 8 should appear only 543setbpt("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
549setbpt("foo1",[5,10,11]),delbpt("foo1",10),dispbpt() // lines 5, 6, 8 and 11 should appear only 549setbpt("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
557delbpt("foo1",11),dispbpt() // lines 5, 6 and 8 should appear only 557delbpt("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
564setbpt("foo2",[20,21,22,23]),delbpt("foo1",6),dispbpt() // lines 5 and 8 for foo1, and 20 to 23 for foo2 564setbpt("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
576delbpt("foo2",21),dispbpt() // lines 5, and 8 for foo1, and 20, 22, 23 for foo2 576delbpt("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
596delbpt("foo1",[1,0,5]) // should spit error 9997 596delbpt("foo1",[1,0,5]) // should spit error 9997
597 !--error 9997 597 !--error 9997
598Breakpoint line number must be a positive integer 598Breakpoint line number must be a positive integer
599 599
600 600
601delbpt("foo1",[-3,2,7]) // should spit error 9997 601delbpt("foo1",[-3,2,7]) // should spit error 9997
602 !--error 9997 602 !--error 9997
603Breakpoint line number must be a positive integer 603Breakpoint line number must be a positive integer
604 604
605 605
606delbpt("foo1",[1,3.2]) // should spit error 9997 606delbpt("foo1",[1,3.2]) // should spit error 9997
607 !--error 9997 607 !--error 9997
608Breakpoint line number must be a positive integer 608Breakpoint line number must be a positive integer
609 609
610 610
611delbpt("foo1",[8,9]),dispbpt() // should display no output 611delbpt("foo1",[8,9]),dispbpt() // should display no output
612 612
613setbpt("foo1",[5,6,8,9]),delbpt("foo1",[8,5]),dispbpt() // lines 6 and 9 should appear only 613setbpt("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
619setbpt("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 619setbpt("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
624setbpt("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 624setbpt("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
637setbpt("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 637setbpt("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
646setbpt("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 646setbpt("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
658setbpt("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 658setbpt("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
687setbpt("foo2",1) 687setbpt("foo2",1)
688 688
689foo2() 689foo2()
690Stop after row 1 in function foo2 : 690Stop after row 1 in function foo2.
691 691
692 692
693delbpt("foo2",1) 693delbpt("foo2",1)
@@ -697,14 +697,14 @@ dispbpt
697setbpt("foo1",[1:5]);setbpt("foo2",[1:5]); 697setbpt("foo1",[1:5]);setbpt("foo2",[1:5]);
698 698
699dispbpt 699dispbpt
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
721resume(0) 721resume(0)
722Stop after row 2 in function foo2 : 722Stop after row 2 in function foo2.
723 723
724 724
725abort 725abort
@@ -731,7 +731,7 @@ delbpt()
731 731
732function foo1 732function foo1
733endfunction 733endfunction
734Warning :redefining function: foo1 734Warning : redefining function : foo1
735 735
736 736
737function foo2 737function foo2
@@ -744,13 +744,13 @@ function foo2
744 b=foo3(); 744 b=foo3();
745 disp("After"); 745 disp("After");
746endfunction 746endfunction
747Warning :redefining function: foo2 747Warning : redefining function : foo2
748 748
749 749
750setbpt("foo2",[1:10]); 750setbpt("foo2",[1:10]);
751 751
752foo2() 752foo2()
753Stop after row 1 in function foo2 : 753Stop after row 1 in function foo2.
754 754
755 755
756delbpt("foo2",[1:10]) 756delbpt("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
766resume 766resume
767Stop after row 6 in function foo2 : 767Stop 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
39t1=t; 39t1=t;
40 40
41comp(t1) 41comp(t1)
42Warning :redefining function: t1 42Warning : redefining function : t1
43 43
44 44
45if t(0)-t1(0)<>0 then bugmes();quit;end 45if t(0)-t1(0)<>0 then bugmes();quit;end
@@ -104,7 +104,7 @@ if tt1()<>4 then bugmes();quit;end
104//---------------------------------------- 104//----------------------------------------
105 105
106deff('[k]=tt1()','k=0,while k<10 ,k=k+1;if k==3 then break,end,end,k=k+1','n') 106deff('[k]=tt1()','k=0,while k<10 ,k=k+1;if k==3 then break,end,end,k=k+1','n')
107Warning :redefining function: tt1 107Warning : redefining function : tt1
108 108
109 109
110if tt1()<>4 then bugmes();quit;end 110if tt1()<>4 then bugmes();quit;end
@@ -234,7 +234,7 @@ if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end
234if or(foo(5)<>[1 2 3 4]) then bugmes();quit;end 234if or(foo(5)<>[1 2 3 4]) then bugmes();quit;end
235 235
236comp(foo) 236comp(foo)
237Warning :redefining function: foo 237Warning : redefining function : foo
238 238
239 239
240if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end 240if 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
259deff('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') 259deff('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')
260Warning :redefining function: foo 260Warning : redefining function : foo
261 261
262 262
263if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end 263if 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
265if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end 265if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end
266 266
267comp(foo) 267comp(foo)
268Warning :redefining function: foo 268Warning : redefining function : foo
269 269
270 270
271if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end 271if 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
293if or(c<>[1 2 3 4]) then bugmes();quit;end 293if or(c<>[1 2 3 4]) then bugmes();quit;end
294 294
295deff('c=foo(n)','c=[];k=0;while k<5,k=k+1;if k==n then continue,end,c=[c,k],end','n') 295deff('c=foo(n)','c=[];k=0;while k<5,k=k+1;if k==n then continue,end,c=[c,k],end','n')
296Warning :redefining function: foo 296Warning : redefining function : foo
297 297
298 298
299if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end 299if 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
304comp(foo) 304comp(foo)
305Warning :redefining function: foo 305Warning : redefining function : foo
306 306
307 307
308if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end 308if 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
332if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end 332if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end
333 333
334comp(foo) 334comp(foo)
335Warning :redefining function: foo 335Warning : redefining function : foo
336 336
337 337
338if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end 338if 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
21exec loader.sce ; 21exec loader.sce ;
22shared archive loaded 22shared archive loaded
23Link done 23Link 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
109a=rand(3,3);ea=expm(a); 109a=rand(3,3);ea=expm(a);
110 110
111deff('[ydot]=f(t,y)','ydot=a*y') 111deff('[ydot]=f(t,y)','ydot=a*y')
112Warning :redefining function: f 112Warning : redefining function : f
113 113
114 114
115t1=1;y=ode('adams',eye(a),t0,t1,f); 115t1=1;y=ode('adams',eye(a),t0,t1,f);
@@ -152,11 +152,11 @@ rand('seed',0);rand('normal');
152nx=20;A=rand(nx,nx);A=A-4.5*eye(); 152nx=20;A=rand(nx,nx);A=A-4.5*eye();
153 153
154deff('y=f(t,x)','y=A*x') 154deff('y=f(t,x)','y=A*x')
155Warning :redefining function: f 155Warning : redefining function : f
156 156
157 157
158deff('J=j(t,x)','J=A') 158deff('J=j(t,x)','J=A')
159Warning :redefining function: j 159Warning : redefining function : j
160 160
161 161
162x0=ones(nx,1);t0=0;t=[1,2,3,4,5]; 162x0=ones(nx,1);t0=0;t=[1,2,3,4,5];
@@ -184,8 +184,8 @@ xf=ode(x0,t0,t,f); //lsoda
184if norm(xf(:,nt)-eAt*x0)>Leps then bugmes();quit;end 184if norm(xf(:,nt)-eAt*x0)>Leps then bugmes();quit;end
185 185
186xfj=ode(x0,t0,t,f,j); //lsoda with jacobian 186xfj=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
191if norm(xfj(:,nt)-eAt*x0)>Leps then bugmes();quit;end 191if 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
234x42=ode(x0,t0,t,fcrit); 234x42=ode(x0,t0,t,fcrit);
235 Warning: integration up to tcrit 235 Warning : integration up to tcrit
236 236
237 237
238if chk==1 then bugmes();quit;end 238if 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
289x60=ode('st',x0,t0,t,f,j); //Jacobian not used (warning) 289x60=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
294x60=ode('st',x0,t0,t,f); //Jacobian not used 294x60=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
302x60=ode('st',x0,t0,t,f) ; 302x60=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
307if norm(x60-x61,1)>10*Leps then bugmes();quit;end 307if 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
322x60=ode('ad',x0,t0,t,f,j); //Jacobian not used (warning) 322x60=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
327x60=ode('ad',x0,t0,t,f); //Jacobian not used 327x60=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
343x60=ode(x0,t0,t,f); 343x60=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
348if norm(x60-x61,1)>10*Leps then bugmes();quit;end 348if 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
377for k=1:nx-3, A(k+3,k)=-3;end 377for k=1:nx-3, A(k+3,k)=-3;end
378 378
379deff('xd=f(t,x)','xd=A*x') 379deff('xd=f(t,x)','xd=A*x')
380Warning :redefining function: f 380Warning : redefining function : f
381 381
382 382
383ml=3;mu=2; 383ml=3;mu=2;
@@ -388,7 +388,7 @@ for i=1:nx;
388 for j=1:nx; 388 for j=1:nx;
389if A(i,j)<>0 then J(i-j+mu+1,j)=A(i,j);end 389if A(i,j)<>0 then J(i-j+mu+1,j)=A(i,j);end
390end;end; 390end;end;
391Warning :redefining function: j 391Warning : 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
427deff('jj=j(t,x)','jj=J') 427deff('jj=j(t,x)','jj=J')
428 428
429xband=ode('st',x0,t0,t,f,j); 429xband=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
434if norm(xnotband-xband,1)>Leps then bugmes();quit;end 434if norm(xnotband-xband,1)>Leps then bugmes();quit;end
@@ -531,7 +531,7 @@ deff('uu=u(t)','uu=sin(t)');
531B=rand(3,1); 531B=rand(3,1);
532 532
533deff('y=f(t,x)','y=A*x+B*u(t)') 533deff('y=f(t,x)','y=A*x+B*u(t)')
534Warning :redefining function: f 534Warning : redefining function : f
535 535
536 536
537%ODEOPTIONS(1)=2; 537%ODEOPTIONS(1)=2;
@@ -554,11 +554,11 @@ rand('seed',0);rand('normal');
554nx=20;A=rand(nx,nx);A=A-4.5*eye(); 554nx=20;A=rand(nx,nx);A=A-4.5*eye();
555 555
556deff('y=f(t,x)','y=A*x') 556deff('y=f(t,x)','y=A*x')
557Warning :redefining function: f 557Warning : redefining function : f
558 558
559 559
560deff('J=j(t,x)','J=A') 560deff('J=j(t,x)','J=A')
561Warning :redefining function: j 561Warning : 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
585deff('xd=f(t,x)','xd=A*x+B*sin(3*t)') 585deff('xd=f(t,x)','xd=A*x+B*sin(3*t)')
586Warning :redefining function: f 586Warning : redefining function : f
587 587
588 588
589A=rand(10,10)-4.5*eye();B=rand(10,1); 589A=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) ,...
144f=50.*a^2 + b^2 , g(1)=-400.*x(1)*a , g(2)=200.*a -2.*b '); 144f=50.*a^2 + b^2 , g(1)=-400.*x(1)*a , g(2)=200.*a -2.*b ');
145 145
146comp(rose); 146comp(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
209comp(sipn); 209comp(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
229deff('[f,g,ind]=ndsim(x,ind)', 'y=A*x-b;f=sum(abs(y));g=A''*sign(y)') 229deff('[f,g,ind]=ndsim(x,ind)', 'y=A*x-b;f=sum(abs(y));g=A''*sign(y)')
230Warning :redefining function: ndsim 230Warning : redefining function : ndsim
231 231
232 232
233A=rand(2,2);b=[1;0];Ai=inv(A); 233A=rand(2,2);b=[1;0];Ai=inv(A);
@@ -240,7 +240,7 @@ if norm(x-Ai(:,1))>Leps then bugmes();quit;end
240deff('[f,g,ind]=ndsim(x,ind)', [ 240deff('[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))']);
243Warning :redefining function: ndsim 243Warning : 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
56deff('[x,y]=foo(a,b)','lhs=argn(0);x=lhs;y=-1') 56deff('[x,y]=foo(a,b)','lhs=argn(0);x=lhs;y=-1')
57Warning :redefining function: foo 57Warning : redefining function : foo
58 58
59 59
60if foo(1)<>1 then bugmes();quit;end 60if foo(1)<>1 then bugmes();quit;end
@@ -66,7 +66,7 @@ if foo(1,2)<>1 then bugmes();quit;end
66// 66//
67 67
68deff('[x,y]=foo(a,b)','[lhs,rhs]=argn();x=[lhs,rhs];y=-1') 68deff('[x,y]=foo(a,b)','[lhs,rhs]=argn();x=[lhs,rhs];y=-1')
69Warning :redefining function: foo 69Warning : redefining function : foo
70 70
71 71
72if or(foo(1)<>[1 1]) then bugmes();quit;end 72if 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
84deff('[x,y]=foo(a,b)','lhs=argn();x=lhs;y=-1') 84deff('[x,y]=foo(a,b)','lhs=argn();x=lhs;y=-1')
85Warning :redefining function: foo 85Warning : redefining function : foo
86 86
87 87
88if foo(1)<>1 then bugmes();quit;end 88if foo(1)<>1 then bugmes();quit;end
@@ -312,7 +312,7 @@ errclear();errcatch();
312 312
313//whereis 313//whereis
314 314
315if whereis('sci2exp')<>'m2scilib' then bugmes();quit;end 315if whereis('sci2exp')<>'stringlib' then bugmes();quit;end
316 316
317if whereis('aaa')<>[] then bugmes();quit;end 317if 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
322deff('[a,b]=foo()','[a,b]=where()') 322deff('[a,b]=foo()','[a,b]=where()')
323Warning :redefining function: foo 323Warning : redefining function : foo
324 324
325 325
326[a,b]=foo(); 326[a,b]=foo();
@@ -337,7 +337,7 @@ deff('foo()','a=1')
337funcprot(1) 337funcprot(1)
338 338
339deff('foo()','a=2') 339deff('foo()','a=2')
340Warning :redefining function: foo 340Warning : redefining function : foo
341 341
342 342
343errcatch(111,'continue','nomessage') 343errcatch(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
365deff('[a]=foo()','a=1','n') 365deff('[a]=foo()','a=1','n')
366Warning :redefining function: foo 366Warning : redefining function : foo
367 367
368 368
369comp(foo) 369comp(foo)
370Warning :redefining function: foo 370Warning : redefining function : foo
371 371
372 372
373if foo()<>1 then bugmes();quit;end 373if 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
388deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)','n') 388deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)','n')
389Warning :redefining function: foo 389Warning : redefining function : foo
390 390
391 391
392a=stacksize();a=a(1); 392a=stacksize();a=a(1);
@@ -421,7 +421,7 @@ a=y;
421// compiled functions 421// compiled functions
422 422
423deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)') 423deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)')
424Warning :redefining function: foo 424Warning : redefining function : foo
425 425
426 426
427y=foo(a); 427y=foo(a);
@@ -431,7 +431,7 @@ if y<>a+1000 then bugmes();quit;end
431a=y; 431a=y;
432 432
433deff('y=toto()','a=stacksize();a=a(1);y=foo(a)') 433deff('y=toto()','a=stacksize();a=a(1);y=foo(a)')
434Warning :redefining function: toto 434Warning : redefining function : toto
435 435
436 436
437y=toto(); 437y=toto();
@@ -491,7 +491,7 @@ if 1/0<>%inf then bugmes();quit;end
491ieee(1) 491ieee(1)
492 492
493if 1/0<>%inf then bugmes();quit;end 493if 1/0<>%inf then bugmes();quit;end
494Warning :division by zero... 494Warning : division by zero...
495 495
496 496
497ieee(0) 497ieee(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
157errclear();errcatch(); 157errclear();errcatch();
158 158
159//whereis 159//whereis
160if whereis('sci2exp')<>'m2scilib' then pause,end 160if whereis('sci2exp')<>'stringlib' then pause,end
161if whereis('aaa')<>[] then pause,end 161if 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
1243y=besseli(alpha,x); 1243y=besseli(alpha,x);
1244Warning :division by zero... 1244Warning : division by zero...
1245 1245
1246 1246
1247if testresult() then bugmes();quit;end 1247if testresult() then bugmes();quit;end
@@ -1250,7 +1250,7 @@ yref=[ 0
1250-%inf]; 1250-%inf];
1251 1251
1252y=besseli(alpha,x,1); 1252y=besseli(alpha,x,1);
1253Warning :division by zero... 1253Warning : division by zero...
1254 1254
1255 1255
1256if testresult() then bugmes();quit;end 1256if testresult() then bugmes();quit;end
@@ -1576,7 +1576,7 @@ yref=[-%inf
1576 0]; 1576 0];
1577 1577
1578y=besseli(alpha,x); 1578y=besseli(alpha,x);
1579Warning :division by zero... 1579Warning : division by zero...
1580 1580
1581 1581
1582if testresult() then bugmes();quit;end 1582if testresult() then bugmes();quit;end
@@ -1587,7 +1587,7 @@ yref=[-%inf
1587 0]; 1587 0];
1588 1588
1589y=besseli(alpha,x,1); 1589y=besseli(alpha,x,1);
1590Warning :division by zero... 1590Warning : division by zero...
1591 1591
1592 1592
1593if testresult() then bugmes();quit;end 1593if testresult() then bugmes();quit;end
@@ -1742,7 +1742,7 @@ yref=[-%inf
1742 0]; 1742 0];
1743 1743
1744y=besseli(alpha,x); 1744y=besseli(alpha,x);
1745Warning :division by zero... 1745Warning : division by zero...
1746 1746
1747 1747
1748if testresult() then bugmes();quit;end 1748if testresult() then bugmes();quit;end
@@ -1754,7 +1754,7 @@ yref=[-%inf
1754 0]; 1754 0];
1755 1755
1756y=besseli(alpha,x,1); 1756y=besseli(alpha,x,1);
1757Warning :division by zero... 1757Warning : division by zero...
1758 1758
1759 1759
1760if testresult() then bugmes();quit;end 1760if testresult() then bugmes();quit;end
@@ -3109,7 +3109,7 @@ yref=[ -0
3109-%inf]; 3109-%inf];
3110 3110
3111y=besselj(alpha,x); 3111y=besselj(alpha,x);
3112Warning :division by zero... 3112Warning : division by zero...
3113 3113
3114 3114
3115if testresult() then bugmes();quit;end 3115if testresult() then bugmes();quit;end
@@ -3118,7 +3118,7 @@ yref=[ -0
3118-%inf]; 3118-%inf];
3119 3119
3120y=besselj(alpha,x,1); 3120y=besselj(alpha,x,1);
3121Warning :division by zero... 3121Warning : division by zero...
3122 3122
3123 3123
3124if testresult() then bugmes();quit;end 3124if testresult() then bugmes();quit;end
@@ -3601,7 +3601,7 @@ yref=[-%inf
3601 -0]; 3601 -0];
3602 3602
3603y=besselj(alpha,x); 3603y=besselj(alpha,x);
3604Warning :division by zero... 3604Warning : division by zero...
3605 3605
3606 3606
3607if testresult() then bugmes();quit;end 3607if testresult() then bugmes();quit;end
@@ -3612,7 +3612,7 @@ yref=[-%inf
3612 -0]; 3612 -0];
3613 3613
3614y=besselj(alpha,x,1); 3614y=besselj(alpha,x,1);
3615Warning :division by zero... 3615Warning : division by zero...
3616 3616
3617 3617
3618if testresult() then bugmes();quit;end 3618if testresult() then bugmes();quit;end
@@ -3767,7 +3767,7 @@ yref=[-%inf
3767 -0]; 3767 -0];
3768 3768
3769y=besselj(alpha,x); 3769y=besselj(alpha,x);
3770Warning :division by zero... 3770Warning : division by zero...
3771 3771
3772 3772
3773if testresult() then bugmes();quit;end 3773if testresult() then bugmes();quit;end
@@ -3779,7 +3779,7 @@ yref=[-%inf
3779 -0]; 3779 -0];
3780 3780
3781y=besselj(alpha,x,1); 3781y=besselj(alpha,x,1);
3782Warning :division by zero... 3782Warning : division by zero...
3783 3783
3784 3784
3785if testresult() then bugmes();quit;end 3785if testresult() then bugmes();quit;end
@@ -4088,7 +4088,7 @@ x=[0];
4088yref=[%inf]; 4088yref=[%inf];
4089 4089
4090y=besselk(alpha,x); 4090y=besselk(alpha,x);
4091Warning :division by zero... 4091Warning : division by zero...
4092 4092
4093 4093
4094if testresult() then bugmes();quit;end 4094if testresult() then bugmes();quit;end
@@ -4096,7 +4096,7 @@ if testresult() then bugmes();quit;end
4096yref=[%inf]; 4096yref=[%inf];
4097 4097
4098y=besselk(alpha,x,1); 4098y=besselk(alpha,x,1);
4099Warning :division by zero... 4099Warning : division by zero...
4100 4100
4101 4101
4102if testresult() then bugmes();quit;end 4102if testresult() then bugmes();quit;end
@@ -4245,7 +4245,7 @@ x=[0];
4245yref=[%inf]; 4245yref=[%inf];
4246 4246
4247y=besselk(alpha,x); 4247y=besselk(alpha,x);
4248Warning :division by zero... 4248Warning : division by zero...
4249 4249
4250 4250
4251if testresult() then bugmes();quit;end 4251if testresult() then bugmes();quit;end
@@ -4253,7 +4253,7 @@ if testresult() then bugmes();quit;end
4253yref=[%inf]; 4253yref=[%inf];
4254 4254
4255y=besselk(alpha,x,1); 4255y=besselk(alpha,x,1);
4256Warning :division by zero... 4256Warning : division by zero...
4257 4257
4258 4258
4259if testresult() then bugmes();quit;end 4259if testresult() then bugmes();quit;end
@@ -4402,7 +4402,7 @@ x=[0];
4402yref=[%inf %inf %inf]; 4402yref=[%inf %inf %inf];
4403 4403
4404y=besselk(alpha,x); 4404y=besselk(alpha,x);
4405Warning :division by zero... 4405Warning : division by zero...
4406 4406
4407 4407
4408if testresult() then bugmes();quit;end 4408if testresult() then bugmes();quit;end
@@ -4410,7 +4410,7 @@ if testresult() then bugmes();quit;end
4410yref=[%inf %inf %inf]; 4410yref=[%inf %inf %inf];
4411 4411
4412y=besselk(alpha,x,1); 4412y=besselk(alpha,x,1);
4413Warning :division by zero... 4413Warning : division by zero...
4414 4414
4415 4415
4416if testresult() then bugmes();quit;end 4416if testresult() then bugmes();quit;end
@@ -4527,7 +4527,7 @@ x=[0];
4527yref=[%inf %inf %inf]; 4527yref=[%inf %inf %inf];
4528 4528
4529y=besselk(alpha,x); 4529y=besselk(alpha,x);
4530Warning :division by zero... 4530Warning : division by zero...
4531 4531
4532 4532
4533if testresult() then bugmes();quit;end 4533if testresult() then bugmes();quit;end
@@ -4535,7 +4535,7 @@ if testresult() then bugmes();quit;end
4535yref=[%inf %inf %inf]; 4535yref=[%inf %inf %inf];
4536 4536
4537y=besselk(alpha,x,1); 4537y=besselk(alpha,x,1);
4538Warning :division by zero... 4538Warning : division by zero...
4539 4539
4540 4540
4541if testresult() then bugmes();quit;end 4541if testresult() then bugmes();quit;end
@@ -4658,7 +4658,7 @@ yref=[%inf
4658%inf]; 4658%inf];
4659 4659
4660y=besselk(alpha,x); 4660y=besselk(alpha,x);
4661Warning :division by zero... 4661Warning : division by zero...
4662 4662
4663 4663
4664if testresult() then bugmes();quit;end 4664if testresult() then bugmes();quit;end
@@ -4668,7 +4668,7 @@ yref=[%inf
4668%inf]; 4668%inf];
4669 4669
4670y=besselk(alpha,x,1); 4670y=besselk(alpha,x,1);
4671Warning :division by zero... 4671Warning : division by zero...
4672 4672
4673 4673
4674if testresult() then bugmes();quit;end 4674if testresult() then bugmes();quit;end
@@ -4832,7 +4832,7 @@ yref=[%inf
4832%inf]; 4832%inf];
4833 4833
4834y=besselk(alpha,x); 4834y=besselk(alpha,x);
4835Warning :division by zero... 4835Warning : division by zero...
4836 4836
4837 4837
4838if testresult() then bugmes();quit;end 4838if testresult() then bugmes();quit;end
@@ -4842,7 +4842,7 @@ yref=[%inf
4842%inf]; 4842%inf];
4843 4843
4844y=besselk(alpha,x,1); 4844y=besselk(alpha,x,1);
4845Warning :division by zero... 4845Warning : division by zero...
4846 4846
4847 4847
4848if testresult() then bugmes();quit;end 4848if testresult() then bugmes();quit;end
@@ -5000,7 +5000,7 @@ x=[0];
5000yref=[%inf]; 5000yref=[%inf];
5001 5001
5002y=besselk(alpha,x); 5002y=besselk(alpha,x);
5003Warning :division by zero... 5003Warning : division by zero...
5004 5004
5005 5005
5006if testresult() then bugmes();quit;end 5006if testresult() then bugmes();quit;end
@@ -5008,7 +5008,7 @@ if testresult() then bugmes();quit;end
5008yref=[%inf]; 5008yref=[%inf];
5009 5009
5010y=besselk(alpha,x,1); 5010y=besselk(alpha,x,1);
5011Warning :division by zero... 5011Warning : division by zero...
5012 5012
5013 5013
5014if testresult() then bugmes();quit;end 5014if testresult() then bugmes();quit;end
@@ -5160,7 +5160,7 @@ yref=[%inf
5160%inf]; 5160%inf];
5161 5161
5162y=besselk(alpha,x); 5162y=besselk(alpha,x);
5163Warning :division by zero... 5163Warning : division by zero...
5164 5164
5165 5165
5166if testresult() then bugmes();quit;end 5166if testresult() then bugmes();quit;end
@@ -5169,7 +5169,7 @@ yref=[%inf
5169%inf]; 5169%inf];
5170 5170
5171y=besselk(alpha,x,1); 5171y=besselk(alpha,x,1);
5172Warning :division by zero... 5172Warning : division by zero...
5173 5173
5174 5174
5175if testresult() then bugmes();quit;end 5175if testresult() then bugmes();quit;end
@@ -5326,7 +5326,7 @@ yref=[%inf
5326%inf]; 5326%inf];
5327 5327
5328y=besselk(alpha,x); 5328y=besselk(alpha,x);
5329Warning :division by zero... 5329Warning : division by zero...
5330 5330
5331 5331
5332if testresult() then bugmes();quit;end 5332if testresult() then bugmes();quit;end
@@ -5338,7 +5338,7 @@ yref=[%inf
5338%inf]; 5338%inf];
5339 5339
5340y=besselk(alpha,x,1); 5340y=besselk(alpha,x,1);
5341Warning :division by zero... 5341Warning : division by zero...
5342 5342
5343 5343
5344if testresult() then bugmes();quit;end 5344if testresult() then bugmes();quit;end
@@ -5499,7 +5499,7 @@ yref=[%inf
5499%inf]; 5499%inf];
5500 5500
5501y=besselk(alpha,x); 5501y=besselk(alpha,x);
5502Warning :division by zero... 5502Warning : division by zero...
5503 5503
5504 5504
5505if testresult() then bugmes();quit;end 5505if testresult() then bugmes();quit;end
@@ -5510,7 +5510,7 @@ yref=[%inf
5510%inf]; 5510%inf];
5511 5511
5512y=besselk(alpha,x,1); 5512y=besselk(alpha,x,1);
5513Warning :division by zero... 5513Warning : division by zero...
5514 5514
5515 5515
5516if testresult() then bugmes();quit;end 5516if testresult() then bugmes();quit;end
@@ -5665,7 +5665,7 @@ yref=[%inf
5665%inf]; 5665%inf];
5666 5666
5667y=besselk(alpha,x); 5667y=besselk(alpha,x);
5668Warning :division by zero... 5668Warning : division by zero...
5669 5669
5670 5670
5671if testresult() then bugmes();quit;end 5671if testresult() then bugmes();quit;end
@@ -5677,7 +5677,7 @@ yref=[%inf
5677%inf]; 5677%inf];
5678 5678
5679y=besselk(alpha,x,1); 5679y=besselk(alpha,x,1);
5680Warning :division by zero... 5680Warning : division by zero...
5681 5681
5682 5682
5683if testresult() then bugmes();quit;end 5683if testresult() then bugmes();quit;end
@@ -5986,7 +5986,7 @@ x=[0];
5986yref=[-%inf]; 5986yref=[-%inf];
5987 5987
5988y=bessely(alpha,x); 5988y=bessely(alpha,x);
5989Warning :division by zero... 5989Warning : division by zero...
5990 5990
5991 5991
5992if testresult() then bugmes();quit;end 5992if testresult() then bugmes();quit;end
@@ -5994,7 +5994,7 @@ if testresult() then bugmes();quit;end
5994yref=[-%inf]; 5994yref=[-%inf];
5995 5995
5996y=bessely(alpha,x,1); 5996y=bessely(alpha,x,1);
5997Warning :division by zero... 5997Warning : division by zero...
5998 5998
5999 5999
6000if testresult() then bugmes();quit;end 6000if testresult() then bugmes();quit;end
@@ -6143,7 +6143,7 @@ x=[0];
6143yref=[-%inf]; 6143yref=[-%inf];
6144 6144
6145y=bessely(alpha,x); 6145y=bessely(alpha,x);
6146Warning :division by zero... 6146Warning : division by zero...
6147 6147
6148 6148
6149if testresult() then bugmes();quit;end 6149if testresult() then bugmes();quit;end
@@ -6151,7 +6151,7 @@ if testresult() then bugmes();quit;end
6151yref=[-%inf]; 6151yref=[-%inf];
6152 6152
6153y=bessely(alpha,x,1); 6153y=bessely(alpha,x,1);
6154Warning :division by zero... 6154Warning : division by zero...
6155 6155
6156 6156
6157if testresult() then bugmes();quit;end 6157if testresult() then bugmes();quit;end
@@ -6300,7 +6300,7 @@ x=[0];
6300yref=[-%inf -%inf -%inf]; 6300yref=[-%inf -%inf -%inf];
6301 6301
6302y=bessely(alpha,x); 6302y=bessely(alpha,x);
6303Warning :division by zero... 6303Warning : division by zero...
6304 6304
6305 6305
6306if testresult() then bugmes();quit;end 6306if testresult() then bugmes();quit;end
@@ -6308,7 +6308,7 @@ if testresult() then bugmes();quit;end
6308yref=[-%inf -%inf -%inf]; 6308yref=[-%inf -%inf -%inf];
6309 6309
6310y=bessely(alpha,x,1); 6310y=bessely(alpha,x,1);
6311Warning :division by zero... 6311Warning : division by zero...
6312 6312
6313 6313
6314if testresult() then bugmes();quit;end 6314if testresult() then bugmes();quit;end
@@ -6425,7 +6425,7 @@ x=[0];
6425yref=[-%inf -%inf -%inf]; 6425yref=[-%inf -%inf -%inf];
6426 6426
6427y=bessely(alpha,x); 6427y=bessely(alpha,x);
6428Warning :division by zero... 6428Warning : division by zero...
6429 6429
6430 6430
6431if testresult() then bugmes();quit;end 6431if testresult() then bugmes();quit;end
@@ -6433,7 +6433,7 @@ if testresult() then bugmes();quit;end
6433yref=[-%inf -%inf -%inf]; 6433yref=[-%inf -%inf -%inf];
6434 6434
6435y=bessely(alpha,x,1); 6435y=bessely(alpha,x,1);
6436Warning :division by zero... 6436Warning : division by zero...
6437 6437
6438 6438
6439if testresult() then bugmes();quit;end 6439if testresult() then bugmes();quit;end
@@ -6556,7 +6556,7 @@ yref=[-%inf
6556-%inf]; 6556-%inf];
6557 6557
6558y=bessely(alpha,x); 6558y=bessely(alpha,x);
6559Warning :division by zero... 6559Warning : division by zero...
6560 6560
6561 6561
6562if testresult() then bugmes();quit;end 6562if testresult() then bugmes();quit;end
@@ -6566,7 +6566,7 @@ yref=[-%inf
6566-%inf]; 6566-%inf];
6567 6567
6568y=bessely(alpha,x,1); 6568y=bessely(alpha,x,1);
6569Warning :division by zero... 6569Warning : division by zero...
6570 6570
6571 6571
6572if testresult() then bugmes();quit;end 6572if testresult() then bugmes();quit;end
@@ -6730,7 +6730,7 @@ yref=[-%inf
6730-%inf]; 6730-%inf];
6731 6731
6732y=bessely(alpha,x); 6732y=bessely(alpha,x);
6733Warning :division by zero... 6733Warning : division by zero...
6734 6734
6735 6735
6736if testresult() then bugmes();quit;end 6736if testresult() then bugmes();quit;end
@@ -6740,7 +6740,7 @@ yref=[-%inf
6740-%inf]; 6740-%inf];
6741 6741
6742y=bessely(alpha,x,1); 6742y=bessely(alpha,x,1);
6743Warning :division by zero... 6743Warning : division by zero...
6744 6744
6745 6745
6746if testresult() then bugmes();quit;end 6746if testresult() then bugmes();quit;end
@@ -6898,7 +6898,7 @@ x=[0];
6898yref=[-%inf]; 6898yref=[-%inf];
6899 6899
6900y=bessely(alpha,x); 6900y=bessely(alpha,x);
6901Warning :division by zero... 6901Warning : division by zero...
6902 6902
6903 6903
6904if testresult() then bugmes();quit;end 6904if testresult() then bugmes();quit;end
@@ -6906,7 +6906,7 @@ if testresult() then bugmes();quit;end
6906yref=[-%inf]; 6906yref=[-%inf];
6907 6907
6908y=bessely(alpha,x,1); 6908y=bessely(alpha,x,1);
6909Warning :division by zero... 6909Warning : division by zero...
6910 6910
6911 6911
6912if testresult() then bugmes();quit;end 6912if testresult() then bugmes();quit;end
@@ -7058,7 +7058,7 @@ yref=[-%inf
7058-%inf]; 7058-%inf];
7059 7059
7060y=bessely(alpha,x); 7060y=bessely(alpha,x);
7061Warning :division by zero... 7061Warning : division by zero...
7062 7062
7063 7063
7064if testresult() then bugmes();quit;end 7064if testresult() then bugmes();quit;end
@@ -7067,7 +7067,7 @@ yref=[-%inf
7067-%inf]; 7067-%inf];
7068 7068
7069y=bessely(alpha,x,1); 7069y=bessely(alpha,x,1);
7070Warning :division by zero... 7070Warning : division by zero...
7071 7071
7072 7072
7073if testresult() then bugmes();quit;end 7073if testresult() then bugmes();quit;end
@@ -7224,7 +7224,7 @@ yref=[-%inf
7224-%inf]; 7224-%inf];
7225 7225
7226y=bessely(alpha,x); 7226y=bessely(alpha,x);
7227Warning :division by zero... 7227Warning : division by zero...
7228 7228
7229 7229
7230if testresult() then bugmes();quit;end 7230if testresult() then bugmes();quit;end
@@ -7236,7 +7236,7 @@ yref=[-%inf
7236-%inf]; 7236-%inf];
7237 7237
7238y=bessely(alpha,x,1); 7238y=bessely(alpha,x,1);
7239Warning :division by zero... 7239Warning : division by zero...
7240 7240
7241 7241
7242if testresult() then bugmes();quit;end 7242if testresult() then bugmes();quit;end
@@ -7397,7 +7397,7 @@ yref=[-%inf
7397-%inf]; 7397-%inf];
7398 7398
7399y=bessely(alpha,x); 7399y=bessely(alpha,x);
7400Warning :division by zero... 7400Warning : division by zero...
7401 7401
7402 7402
7403if testresult() then bugmes();quit;end 7403if testresult() then bugmes();quit;end
@@ -7408,7 +7408,7 @@ yref=[-%inf
7408-%inf]; 7408-%inf];
7409 7409
7410y=bessely(alpha,x,1); 7410y=bessely(alpha,x,1);
7411Warning :division by zero... 7411Warning : division by zero...
7412 7412
7413 7413
7414if testresult() then bugmes();quit;end 7414if testresult() then bugmes();quit;end
@@ -7560,7 +7560,7 @@ yref=[-%inf
7560-%inf]; 7560-%inf];
7561 7561
7562y=bessely(alpha,x); 7562y=bessely(alpha,x);
7563Warning :division by zero... 7563Warning : division by zero...
7564 7564
7565 7565
7566if testresult() then bugmes();quit;end 7566if testresult() then bugmes();quit;end
@@ -7571,7 +7571,7 @@ yref=[-%inf
7571-%inf]; 7571-%inf];
7572 7572
7573y=bessely(alpha,x,1); 7573y=bessely(alpha,x,1);
7574Warning :division by zero... 7574Warning : division by zero...
7575 7575
7576 7576
7577if testresult() then bugmes();quit;end 7577if testresult() then bugmes();quit;end
@@ -7726,7 +7726,7 @@ yref=[-%inf
7726-%inf]; 7726-%inf];
7727 7727
7728y=bessely(alpha,x); 7728y=bessely(alpha,x);
7729Warning :division by zero... 7729Warning : division by zero...
7730 7730
7731 7731
7732if testresult() then bugmes();quit;end 7732if testresult() then bugmes();quit;end
@@ -7738,7 +7738,7 @@ yref=[-%inf
7738-%inf]; 7738-%inf];
7739 7739
7740y=bessely(alpha,x,1); 7740y=bessely(alpha,x,1);
7741Warning :division by zero... 7741Warning : division by zero...
7742 7742
7743 7743
7744if testresult() then bugmes();quit;end 7744if testresult() then bugmes();quit;end