diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-06-22 05:48:07 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-06-22 05:48:07 +0000 |
| commit | 4903b28a1208cc6ad9e00d250d8e670908902f27 (patch) | |
| tree | 2f99c30c3edf89241c7253ff2048e163aba64c35 /lisp/calc | |
| parent | a8775b6dcf9bcf193fe040b2eb9c7825e9c370c1 (diff) | |
| download | emacs-4903b28a1208cc6ad9e00d250d8e670908902f27.tar.gz | |
(math-besJ0): Replace math-read-number-simple by math-read-number.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-funcs.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/calc/calc-funcs.el b/lisp/calc/calc-funcs.el index 00cadf69920..6ac1810cfbc 100644 --- a/lisp/calc/calc-funcs.el +++ b/lisp/calc/calc-funcs.el @@ -569,29 +569,29 @@ (y (math-sqr z)) (xx (math-add x (eval-when-compile - (math-read-number-simple "-0.785398164")))) + (math-read-number "-0.785398164")))) (a1 (math-poly-eval y (eval-when-compile (list - (math-read-number-simple "0.0000002093887211") - (math-read-number-simple "-0.000002073370639") - (math-read-number-simple "0.00002734510407") - (math-read-number-simple "-0.001098628627") + (math-read-number "0.0000002093887211") + (math-read-number "-0.000002073370639") + (math-read-number "0.00002734510407") + (math-read-number "-0.001098628627") '(float 1 0))))) (a2 (math-poly-eval y (eval-when-compile (list - (math-read-number-simple "-0.0000000934935152") - (math-read-number-simple "0.0000007621095161") - (math-read-number-simple "-0.000006911147651") - (math-read-number-simple "0.0001430488765") - (math-read-number-simple "-0.01562499995"))))) + (math-read-number "-0.0000000934935152") + (math-read-number "0.0000007621095161") + (math-read-number "-0.000006911147651") + (math-read-number "0.0001430488765") + (math-read-number "-0.01562499995"))))) (sc (math-sin-cos-raw xx))) (if yflag (setq sc (cons (math-neg (cdr sc)) (car sc)))) (math-mul (math-sqrt (math-div (eval-when-compile - (math-read-number-simple "0.636619722")) + (math-read-number "0.636619722")) x)) (math-sub (math-mul (cdr sc) a1) (math-mul (car sc) (math-mul z a2)))))) |