Lines Matching defs:power
89 8 - minus sign for power of ten
90 9 - power of ten
118 (defconst highest-power-of-10 (aref powers-of-10 decimal-digits))
329 (power 0) (result 0) (str "")
334 (if (f>= value _f1) ; find largest power of 10 <= value
335 (progn ; value >= 1, power is positive
336 (while (f<= (setq temp (f* pow10 highest-power-of-10)) value)
338 power (+ power decimal-digits)))
341 power (1+ power))))
342 (progn ; value < 1, power is negative
343 (while (f> (setq temp (f/ pow10 highest-power-of-10)) value)
345 power (- power decimal-digits)))
348 power (1- power)))))
358 (setq power (1+ power))))
362 "E" (int-to-string power)))
365 (cond ((>= power (1- decimal-digits))
366 ; large power, append zeroes
367 (let ((zeroes (- power decimal-digits)))
372 ; negative power, prepend decimal
373 ((< power 0) ; point and zeroes
374 (let ((zeroes (- (- power) 2)))
382 (substring str 0 (1+ power))
384 (substring str (1+ power)))))))
403 (let (power)
413 (setq power (- (length int-subst) decimal-digits))
417 (setq power (- power leading-0s)
424 (setq power (+ power (- decimal-digits (length digit-string)))))
431 ; calculate the exponent (power of ten)
441 power))
442 (if (< expt 0) ; if power of 10 negative
450 (setq exponent (funcall func exponent highest-power-of-10)
452 ; divide or multiply by remaining power of ten