diff options
| author | Jay Belanger | 2007-07-08 00:01:06 +0000 |
|---|---|---|
| committer | Jay Belanger | 2007-07-08 00:01:06 +0000 |
| commit | 3bf971143f247f7a9fe61390dbf1d23b1794c5f4 (patch) | |
| tree | a6b8b030fcd5fe6110efc1efe7a92710da4cb50b | |
| parent | 98e9ffe31e85c749172a58e4dfcc6503cb39a0d1 (diff) | |
| download | emacs-3bf971143f247f7a9fe61390dbf1d23b1794c5f4.tar.gz emacs-3bf971143f247f7a9fe61390dbf1d23b1794c5f4.zip | |
(math-gammap1-raw): Add docstring.
| -rw-r--r-- | lisp/calc/calc-funcs.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calc/calc-funcs.el b/lisp/calc/calc-funcs.el index 9af2322ba1e..78d0df34cdb 100644 --- a/lisp/calc/calc-funcs.el +++ b/lisp/calc/calc-funcs.el | |||
| @@ -147,7 +147,8 @@ | |||
| 147 | (or (math-numberp x) (math-reject-arg x 'numberp)) | 147 | (or (math-numberp x) (math-reject-arg x 'numberp)) |
| 148 | (calcFunc-fact (math-add x -1))) | 148 | (calcFunc-fact (math-add x -1))) |
| 149 | 149 | ||
| 150 | (defun math-gammap1-raw (x &optional fprec nfprec) ; compute gamma(1 + x) | 150 | (defun math-gammap1-raw (x &optional fprec nfprec) |
| 151 | "Compute gamma(1+X) to the appropriate precision." | ||
| 151 | (or fprec | 152 | (or fprec |
| 152 | (setq fprec (math-float calc-internal-prec) | 153 | (setq fprec (math-float calc-internal-prec) |
| 153 | nfprec (math-float (- calc-internal-prec)))) | 154 | nfprec (math-float (- calc-internal-prec)))) |