Mercurial > hg > octave-nkf
comparison src/mappers.cc @ 7638:2df457529cfa
implement expm1 and log1p functions
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Tue, 25 Mar 2008 19:47:21 -0400 |
parents | 99c410f7f0b0 |
children | fb3a6c53c2b2 |
comparison
equal
deleted
inserted
replaced
7637:2be056f03720 | 7638:2df457529cfa |
---|---|
361 print_usage (); | 361 print_usage (); |
362 | 362 |
363 return retval; | 363 return retval; |
364 } | 364 } |
365 | 365 |
366 DEFUN (expm1, args, , | |
367 "-*- texinfo -*-\n\ | |
368 @deftypefn {Mapping Function} {} expm1 (@var{x})\n\ | |
369 Compute exp (@var{x}) - 1 accurately in neighbourhood of zero.\n\ | |
370 @end deftypefn") | |
371 { | |
372 octave_value retval; | |
373 if (args.length () == 1) | |
374 retval = args(0).expm1 (); | |
375 else | |
376 print_usage (); | |
377 | |
378 return retval; | |
379 } | |
380 | |
366 DEFUN (finite, args, , | 381 DEFUN (finite, args, , |
367 "-*- texinfo -*-\n\ | 382 "-*- texinfo -*-\n\ |
368 @deftypefn {Mapping Function} {} finite (@var{x})\n\ | 383 @deftypefn {Mapping Function} {} finite (@var{x})\n\ |
369 Return 1 for elements of @var{x} that are finite values and zero\n\ | 384 Return 1 for elements of @var{x} that are finite values and zero\n\ |
370 otherwise. For example,\n\ | 385 otherwise. For example,\n\ |
769 print_usage (); | 784 print_usage (); |
770 | 785 |
771 return retval; | 786 return retval; |
772 } | 787 } |
773 | 788 |
789 DEFUN (log1p, args, , | |
790 "-*- texinfo -*-\n\ | |
791 @deftypefn {Mapping Function} {} log1p (@var{x})\n\ | |
792 Compute log (1 + @var{x}) accurately in neighbourhood of zero.\n\ | |
793 @end deftypefn") | |
794 { | |
795 octave_value retval; | |
796 if (args.length () == 1) | |
797 retval = args(0).log1p (); | |
798 else | |
799 print_usage (); | |
800 | |
801 return retval; | |
802 } | |
803 | |
774 DEFUN (real, args, , | 804 DEFUN (real, args, , |
775 "-*- texinfo -*-\n\ | 805 "-*- texinfo -*-\n\ |
776 @deftypefn {Mapping Function} {} real (@var{z})\n\ | 806 @deftypefn {Mapping Function} {} real (@var{z})\n\ |
777 Return the real part of @var{z}.\n\ | 807 Return the real part of @var{z}.\n\ |
778 @seealso{imag, conj}\n\ | 808 @seealso{imag, conj}\n\ |