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 |
|
|
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 |
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)))))) |
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))))))) |