diff options
| author | David Kastrup | 2002-10-09 16:00:16 +0000 |
|---|---|---|
| committer | David Kastrup | 2002-10-09 16:00:16 +0000 |
| commit | 2c6dfebbbb7c32458e1a8901d0a9b54f4c4aeaaa (patch) | |
| tree | c44e9696ed98d6457684048c65fa387b648d6a37 | |
| parent | 9ceab7df5d7a73add3924aa48e845ae5da8fae14 (diff) | |
| download | emacs-2c6dfebbbb7c32458e1a8901d0a9b54f4c4aeaaa.tar.gz emacs-2c6dfebbbb7c32458e1a8901d0a9b54f4c4aeaaa.zip | |
(calcFunc-ln): In symbolic manipulations,
ln(-1) should be i*pi, not pi.
| -rw-r--r-- | lisp/calc/calc-alg.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el index f1a08c7e235..0a3634b1db5 100644 --- a/lisp/calc/calc-alg.el +++ b/lisp/calc/calc-alg.el | |||
| @@ -1085,7 +1085,7 @@ | |||
| 1085 | (and calc-symbolic-mode | 1085 | (and calc-symbolic-mode |
| 1086 | (math-known-negp (nth 1 expr)) | 1086 | (math-known-negp (nth 1 expr)) |
| 1087 | (math-add (list 'calcFunc-ln (math-neg (nth 1 expr))) | 1087 | (math-add (list 'calcFunc-ln (math-neg (nth 1 expr))) |
| 1088 | '(var pi var-pi))) | 1088 | '(* (var pi var-pi) (var i var-i)))) |
| 1089 | (and calc-symbolic-mode | 1089 | (and calc-symbolic-mode |
| 1090 | (math-known-imagp (nth 1 expr)) | 1090 | (math-known-imagp (nth 1 expr)) |
| 1091 | (let* ((ip (calcFunc-im (nth 1 expr))) | 1091 | (let* ((ip (calcFunc-im (nth 1 expr))) |