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 |
;; Maintainers: D. Goel <deego@gnufans.org> |
;; Maintainers: D. Goel <deego@gnufans.org> |
7 |
;; Colin Walters <walters@debian.org> |
;; Colin Walters <walters@debian.org> |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
1314 |
|
|
1315 |
|
|
1316 |
;;; Open Romberg method; "qromo" in section 4.4. |
;;; Open Romberg method; "qromo" in section 4.4. |
1317 |
(defun math-ninteg-romberg (func expr lo hi mode) |
(defun math-ninteg-romberg (func expr lo hi mode) |
1318 |
(let ((curh '(float 1 0)) |
(let ((curh '(float 1 0)) |
1319 |
(h nil) |
(h nil) |
1320 |
(s nil) |
(s nil) |