On 10/26/08, Peter A. Gustafson <peter.gustafson at wmich.edu> wrote:
> As far as I can tell, imaxima doesn't obey the fpprintprec variable.
Same basic problem as with t(s) --- divergence of Imaxima from src/mactex.lisp.
Try this:
(defun texnumformat(atom)
(let (r firstpart exponent)
(cond ((integerp atom)
atom)
(t
(setq r (exploden atom))
(setq exponent (member 'e r :test #'string-equal)) ;; is it ddd.ddde+EE
(cond
((null exponent)
(coerce r 'string))
(t
(setq firstpart
(nreverse (cdr (member 'e (reverse r) :test #'string-equal))))
(strcat (apply #'strcat firstpart )
" \\times 10^{"
(apply #'strcat (cdr exponent))
"}")))))))
This is slightly modified from the version in src/mactex.lisp
(which has a minor bug from what I can tell).
Robert Dodier