请问如何判断一个数的小数部分的位数？

tq0196_cn

请问如何判断一个数的小数部分的位数？

如：1.123 时，返回3。

       1.0时，返回1。

        1时，返回0。

chenbh2

lazybug 发表于 2006-7-28 16:32
(defun c:test (/ a tt n)    (setq a 1.0)    (setq tt (vl-prin1-to-stri ...

谢谢解答！收用了！

ZZXXQQ

无法判断。如果只判断尾数，则1.0与1相同，当1是整数时，可以用判断数据类型的方法直接返回0。

lazybug

vl-prin1-to-string

先转换成字符串再处理

不过对于1.00、1.1230之类返回的值还是“1.0”、“1.123”

Andyhon

如果是："1.123 时，返回3。

       "1.0" 时，返回1。

        "1" 时，返回0。
即成

 

lazybug

(defun c:test (/ a tt n)
    (setq a 1.0)
    (setq tt (vl-prin1-to-string a))
    (if (setq n (vl-string-position 46 tt))
 (setq n (- (strlen tt) n 1))
 (setq n 0)
    )
)

zxq651007z

大家请看这样是否可以：

1）先把实数转化成字符串这是一定的(seq b（rtos a 2 16))

2)判断小数点的位置：(setq c （vl-string-position （ascii ".")  b))

3)截掉整数部分：（setq d (substr b 1 (1+ c)))

4取剩余部分的长度,（setq n (strlen d))

50,ok!

 

 

zxq651007z

完整的程序就不写了

ZZXXQQ

谁能区分1.25和1.250?

lazybug

我认为,(setq a 1.25)跟(setq a 1.250)是等价的

应该是区分不开的

blue123

1.25 与1.250如果是real，哪没什么意思，如果是string，就用楼上的提供的