Mercurial > octave-antonio
diff scripts/specfun/reallog.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:35:29 -0500 |
parents | fd0a3ac60b0e |
children | 72c96de7a403 |
line wrap: on
line diff
--- a/scripts/specfun/reallog.m Thu Jan 20 17:24:59 2011 -0500 +++ b/scripts/specfun/reallog.m Thu Jan 20 17:35:29 2011 -0500 @@ -18,7 +18,7 @@ ## -*- texinfo -*- ## @deftypefn {Function File} {} reallog (@var{x}) -## Return the real-valued natural logarithm of each element of @var{x}. Report +## Return the real-valued natural logarithm of each element of @var{x}. Report ## an error if any element results in a complex return value. ## @seealso{log, realpow, realsqrt} ## @end deftypefn @@ -28,7 +28,7 @@ print_usage (); elseif (iscomplex (x) || any (x(:) < 0)) error ("reallog: produced complex result"); - else + else y = log (x); endif endfunction