Mercurial > hg > octave-nkf
diff 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 |
line wrap: on
line diff
--- a/src/mappers.cc +++ b/src/mappers.cc @@ -363,6 +363,21 @@ return retval; } +DEFUN (expm1, args, , + "-*- texinfo -*-\n\ +@deftypefn {Mapping Function} {} expm1 (@var{x})\n\ +Compute exp (@var{x}) - 1 accurately in neighbourhood of zero.\n\ +@end deftypefn") +{ + octave_value retval; + if (args.length () == 1) + retval = args(0).expm1 (); + else + print_usage (); + + return retval; +} + DEFUN (finite, args, , "-*- texinfo -*-\n\ @deftypefn {Mapping Function} {} finite (@var{x})\n\ @@ -771,6 +786,21 @@ return retval; } +DEFUN (log1p, args, , + "-*- texinfo -*-\n\ +@deftypefn {Mapping Function} {} log1p (@var{x})\n\ +Compute log (1 + @var{x}) accurately in neighbourhood of zero.\n\ +@end deftypefn") +{ + octave_value retval; + if (args.length () == 1) + retval = args(0).log1p (); + else + print_usage (); + + return retval; +} + DEFUN (real, args, , "-*- texinfo -*-\n\ @deftypefn {Mapping Function} {} real (@var{z})\n\