3145 |
(setq str (concat (substring str 0 (- figs)) point |
(setq str (concat (substring str 0 (- figs)) point |
3146 |
(substring str (- figs)))) |
(substring str (- figs)))) |
3147 |
(setq str (concat str point))) |
(setq str (concat str point))) |
3148 |
(if calc-group-digits |
(when calc-group-digits |
3149 |
(setq str (math-group-float str)))) |
(require 'calc-ext) |
3150 |
|
(setq str (math-group-float str)))) |
3151 |
(if (< figs 0) |
(if (< figs 0) |
3152 |
(setq figs (+ calc-internal-prec figs))) |
(setq figs (+ calc-internal-prec figs))) |
3153 |
(if (> figs 0) |
(if (> figs 0) |
3175 |
(t ; (< dpos 0) |
(t ; (< dpos 0) |
3176 |
(setq str (concat "0" point |
(setq str (concat "0" point |
3177 |
(make-string (- dpos) ?0) str)))) |
(make-string (- dpos) ?0) str)))) |
3178 |
(if calc-group-digits |
(when calc-group-digits |
3179 |
(setq str (math-group-float str)))) |
(require 'calc-ext) |
3180 |
|
(setq str (math-group-float str)))) |
3181 |
(let* ((eadj (+ exp len)) |
(let* ((eadj (+ exp len)) |
3182 |
(scale (if (eq fmt 'eng) |
(scale (if (eq fmt 'eng) |
3183 |
(1+ (math-mod (+ eadj 300002) 3)) |
(1+ (math-mod (+ eadj 300002) 3)) |
3188 |
(if (< scale (length str)) |
(if (< scale (length str)) |
3189 |
(setq str (concat (substring str 0 scale) point |
(setq str (concat (substring str 0 scale) point |
3190 |
(substring str scale)))) |
(substring str scale)))) |
3191 |
(if calc-group-digits |
(when calc-group-digits |
3192 |
(setq str (math-group-float str))) |
(require 'calc-ext) |
3193 |
|
(setq str (math-group-float str))) |
3194 |
(setq str (format (if (memq calc-language '(math maple)) |
(setq str (format (if (memq calc-language '(math maple)) |
3195 |
(if (and prec (> prec 191)) |
(if (and prec (> prec 191)) |
3196 |
"(%s*10.^%d)" "%s*10.^%d") |
"(%s*10.^%d)" "%s*10.^%d") |