1 |
;;; calc-alg.el --- algebraic functions for Calc |
;;; calc-alg.el --- algebraic functions for Calc |
2 |
|
|
3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainer: Colin Walters <walters@debian.org> |
;; Maintainers: D. Goel <deego@gnufans.org> |
7 |
|
;; Colin Walters <walters@debian.org> |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
70 |
(calc-with-default-simplification |
(calc-with-default-simplification |
71 |
(let ((math-simplify-only nil)) |
(let ((math-simplify-only nil)) |
72 |
(calc-modify-simplify-mode arg) |
(calc-modify-simplify-mode arg) |
73 |
(calc-enter-result 1 "expf" |
(calc-enter-result 1 "expf" |
74 |
(if (> arg 0) |
(if (> arg 0) |
75 |
(let ((math-expand-formulas t)) |
(let ((math-expand-formulas t)) |
76 |
(calc-top-n 1)) |
(calc-top-n 1)) |
1086 |
(and calc-symbolic-mode |
(and calc-symbolic-mode |
1087 |
(math-known-negp (nth 1 expr)) |
(math-known-negp (nth 1 expr)) |
1088 |
(math-add (list 'calcFunc-ln (math-neg (nth 1 expr))) |
(math-add (list 'calcFunc-ln (math-neg (nth 1 expr))) |
1089 |
'(var pi var-pi))) |
'(* (var pi var-pi) (var i var-i)))) |
1090 |
(and calc-symbolic-mode |
(and calc-symbolic-mode |
1091 |
(math-known-imagp (nth 1 expr)) |
(math-known-imagp (nth 1 expr)) |
1092 |
(let* ((ip (calcFunc-im (nth 1 expr))) |
(let* ((ip (calcFunc-im (nth 1 expr))) |
1257 |
(if (Math-objvecp expr) |
(if (Math-objvecp expr) |
1258 |
(and (eq always 1) |
(and (eq always 1) |
1259 |
(list expr 1)) |
(list expr 1)) |
1260 |
(and always |
(and always |
1261 |
(list 1 expr))))) |
(list 1 expr))))) |
1262 |
|
|
1263 |
(defun calcFunc-lin (expr &optional var) |
(defun calcFunc-lin (expr &optional var) |
1295 |
|
|
1296 |
;;; Simple operations on expressions. |
;;; Simple operations on expressions. |
1297 |
|
|
1298 |
;;; Return number of ocurrences of thing in expr, or nil if none. |
;;; Return number of occurrences of thing in expr, or nil if none. |
1299 |
(defun math-expr-contains-count (expr thing) |
(defun math-expr-contains-count (expr thing) |
1300 |
(cond ((equal expr thing) 1) |
(cond ((equal expr thing) 1) |
1301 |
((Math-primp expr) nil) |
((Math-primp expr) nil) |