2
;;;; Author: Paul Dietz
3
;;;; Created: Mon Sep 1 21:30:38 2003
4
;;;; Contains: Aux. functions for testing EXP, EXPT
9
"Compute e^x in the appropriate float result type, summing
10
the first n terms of the Taylor series."
15
for i from (1- n) downto 1
16
do (setq result (+ 1 (/ (* xrat result) i))))
19
(float result 1.0f0))))