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> |
;; Maintainer: Jay Belanger <belanger@truman.edu> |
|
;; Colin Walters <walters@debian.org> |
|
7 |
|
|
8 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
9 |
|
|
655 |
(let ((fmt (car calc-float-format)) |
(let ((fmt (car calc-float-format)) |
656 |
(figs (nth 1 calc-float-format)) |
(figs (nth 1 calc-float-format)) |
657 |
(point calc-point-char) |
(point calc-point-char) |
658 |
(str nil)) |
(str nil) |
659 |
|
pos) |
660 |
(if (eq fmt 'fix) |
(if (eq fmt 'fix) |
661 |
(let* ((afigs (math-abs figs)) |
(let* ((afigs (math-abs figs)) |
662 |
(fp (math-float-parts a (> afigs 0))) |
(fp (math-float-parts a (> afigs 0))) |
751 |
(if explo |
(if explo |
752 |
(let ((estr (let ((calc-number-radix 10) |
(let ((estr (let ((calc-number-radix 10) |
753 |
(calc-group-digits nil)) |
(calc-group-digits nil)) |
754 |
(setq estr (math-format-number |
(math-format-number |
755 |
(math-sub explo eadj)))))) |
(math-sub explo eadj))))) |
756 |
(setq str (if (or (memq calc-language '(math maple)) |
(setq str (if (or (memq calc-language '(math maple)) |
757 |
(> calc-number-radix 14)) |
(> calc-number-radix 14)) |
758 |
(format "%s*%d.^%s" str calc-number-radix estr) |
(format "%s*%d.^%s" str calc-number-radix estr) |
774 |
math-radix-digits-cache)))))))) |
math-radix-digits-cache)))))))) |
775 |
|
|
776 |
(defvar math-radix-float-cache-tag nil) |
(defvar math-radix-float-cache-tag nil) |
777 |
|
(defvar math-radix-float-cache) |
778 |
|
|
779 |
(defun math-radix-float-power (n) |
(defun math-radix-float-power (n) |
780 |
(if (eq n 0) |
(if (eq n 0) |