/[emacs]/emacs/lisp/calc/calc-alg.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-alg.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by walters, Mon Nov 19 07:31:38 2001 UTC revision 1.3.4.1 by miles, Fri Apr 4 06:20:15 2003 UTC
# Line 1  Line 1 
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    
# Line 69  Line 70 
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))
# Line 1085  Line 1086 
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)))
# Line 1256  Line 1257 
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)
# Line 1294  Line 1295 
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)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26