/[emacs]/emacs/lisp/calc/calcalg2.el
ViewVC logotype

Diff of /emacs/lisp/calc/calcalg2.el

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

revision 1.5 by walters, Sun Feb 24 01:14:55 2002 UTC revision 1.5.4.1 by miles, Fri Apr 4 06:20:15 2003 UTC
# Line 3  Line 3 
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 1291  Line 1292 
1292      (unwind-protect      (unwind-protect
1293          (let ((p math-integral-cache)          (let ((p math-integral-cache)
1294                cur-record)                cur-record)
1295            (display-buffer (get-buffer-create "*Integral Cache*"))            (display-buffer (get-buffer-create "*Integral Cache*"))
1296            (set-buffer (get-buffer "*Integral Cache*"))            (set-buffer (get-buffer "*Integral Cache*"))
1297            (erase-buffer)            (erase-buffer)
1298            (while p            (while p
# Line 2115  Line 2116 
2116                                         (setq t2 (math-simplify                                         (setq t2 (math-simplify
2117                                                   (math-sub (car t1)                                                   (math-sub (car t1)
2118                                                             (math-mul high 2)))                                                             (math-mul high 2)))
2119                                               t3 (math-simplify                                               t3 (math-simplify
2120                                                   (math-sub (car t1)                                                   (math-sub (car t1)
2121                                                             (math-mul low                                                             (math-mul low
2122                                                                       2))))))                                                                       2))))))
# Line 3094  Line 3095 
3095                      (mapcar (function (lambda (x) (cons 'vec (cdr x)))) solns)                      (mapcar (function (lambda (x) (cons 'vec (cdr x)))) solns)
3096                    (mapcar (function (lambda (x) (cons 'vec x))) eqn-list)))))                    (mapcar (function (lambda (x) (cons 'vec x))) eqn-list)))))
3097        (math-normalize        (math-normalize
3098         (cons 'vec         (cons 'vec
3099               (if solns               (if solns
3100                   (mapcar (function (lambda (x) (cons 'calcFunc-eq x))) solns)                   (mapcar (function (lambda (x) (cons 'calcFunc-eq x))) solns)
3101                 (mapcar 'car eqn-list)))))))                 (mapcar 'car eqn-list)))))))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.5.4.1

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