Mercurial > octave-nkf
comparison src/DLD-FUNCTIONS/besselj.cc @ 5823:080c08b192d8
[project @ 2006-05-19 05:32:17 by jwe]
author | jwe |
---|---|
date | Fri, 19 May 2006 05:32:19 +0000 |
parents | 8d7162924bd3 |
children | 93c65f2a5668 |
comparison
equal
deleted
inserted
replaced
5822:4fdc2515ebad | 5823:080c08b192d8 |
---|---|
269 gripe_bessel_arg (fn, "first"); | 269 gripe_bessel_arg (fn, "first"); |
270 } | 270 } |
271 } | 271 } |
272 } | 272 } |
273 else | 273 else |
274 print_usage (fn); | 274 print_usage (); |
275 | 275 |
276 return retval; | 276 return retval; |
277 } | 277 } |
278 | 278 |
279 DEFUN_DLD (besselj, args, nargout, | 279 DEFUN_DLD (besselj, args, nargout, |
401 } | 401 } |
402 else | 402 else |
403 error ("besselh: invalid value of K"); | 403 error ("besselh: invalid value of K"); |
404 } | 404 } |
405 else | 405 else |
406 print_usage ("besselh"); | 406 print_usage (); |
407 | 407 |
408 return retval; | 408 return retval; |
409 } | 409 } |
410 | 410 |
411 DEFUN_DLD (airy, args, nargout, | 411 DEFUN_DLD (airy, args, nargout, |
496 else | 496 else |
497 error ("airy: expecting complex matrix for Z"); | 497 error ("airy: expecting complex matrix for Z"); |
498 } | 498 } |
499 } | 499 } |
500 else | 500 else |
501 print_usage ("airy"); | 501 print_usage (); |
502 | 502 |
503 return retval; | 503 return retval; |
504 } | 504 } |
505 | 505 |
506 /* | 506 /* |