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\