[1112]如何判读出一个小数点后面有几个数字呢?

xyz518mm

[1112]如何判读出一个小数点后面有几个数字呢?
如数值为 25.51243
希望可以返回 5
代表小数后五位

请问各位该怎样解决
烦请帮忙一下
谢谢

fsxm

(1- (length
      (member 46 (vl-string->list (rtos real 2 100)))
    )
)

aeo

最初由 fsxm 发布
[B](1- (length
      (member 46 (vl-string->list (rtos real 2 100)))
    )
) [/B]

先要设一下dimzin

2. 
   
3. (defun wwww (k / j)
   
4. (setq j 0)
   
5. (while (>= (- k (fix k))0.1)
   
6.    (setq j (1+ j) k(* 10 k))
   
7. ) j
   
8. )
   

<br /> (defun wwww (k / j)<br /> (setq j 0)<br /> (while (>= (- k (fix k))0.1)<br />    (setq j (1+ j) k(* 10 k))<br /> ) j<br /> )<br />

雨箭风刀

(wwww 232.320043) ->2
楼上的算法是错误的.

fengjianwei

3楼的算法只适合正数

xyz518mm

现在还有一个问题会发生就是当使用cal命令计算时出现的精度不一样
指令: CAL
>> 表示式: 79.64/3
26.546666666667

指令: (/ 79.64 3.0)
26.5467

指令: (CAL "79.64/3.0")
26.5467

为何会有这样的结果产生呢?
有人可以解答一下吗?

Underway

Command: (/ 79.64 3.0)
26.5467

Command: (rtos (/ 79.64 3.0) 2 16)
"26.54666666666667"

Don't worry!

xyp1964

2. [FONT=courier new]
   
3. (defun wwww (k / j)
   
4.   (setq j 0)
   
5.   (while (> (- k (fix k)) 0)
   
6.     (setq j (1+ j)
   
7.           k (* 10 k)
   
8.     )
   
9.   )
   
10.   j
    
11. )[/FONT]

[FONT=courier new]<br /> (defun wwww (k / j)<br />   (setq j 0)<br />   (while (> (- k (fix k)) 0)<br />     (setq j (1+ j)<br />           k (* 10 k)<br />     )<br />   )<br />   j<br /> )[/FONT]

测试：
_$ (wwww 232.320043)
6

fsxm

2. 
   
3. (defun wwww (real)
   
4.   (1- (length
   
5.         (member        46
   
6.                 (vl-string->list
   
7.                   (vl-string-right-trim "0" (rtos real 2 100))
   
8.                 )
   
9.         )
   
10.       )
    
11.   )
    
12. )
    

<br /> (defun wwww (real)<br />   (1- (length<br />         (member        46<br />                 (vl-string->list<br />                   (vl-string-right-trim "0" (rtos real 2 100))<br />                 )<br />         )<br />       )<br />   )<br /> )<br />

不用fix之理由： real的取值远大于int,所以不是每一个real都可以用fix

xyz518mm

谢谢各位的解答
不过好像还是有些问题,
因为小数无法超过某个限定值
如: xyp1964  版大的程序如果用

(setq k 123.12345678901234567890)

返回
_$  1.23123e+016

fsxm 楼主的 返回为
_$ 13

但如果是这样
(setq STR "123.12345678901234567890")
(SETQ STPTNB (- (STRLEN STR) (1+ (vl-string-search "." STR))))
_$ 20
返回是正常的
所以问题应该是在于实数转字串上发生问题
而(rtos 8) 好像也只能到 13 位数
不知道是不是一个软体上面的问题呢?

小算盘在计算时也小数点也可以超过12位以上~
真是厉害~

fsxm

(setq k 123.12345678901234567890)
??????????
以这种精度CAD是没法计算到的！当然上面的程序全部出错~
要不来个计算pi的小数位就是windos小算盘也算不出来啊！
这不是程序问题了是CAD的浮点运算精度问题了

xyz518mm

最初由 fsxm 发布
[B](setq k 123.12345678901234567890)
??????????
以这种精度CAD是没法计算到的！当然上面的程序全部出错~
要不来个计算pi的小数位就是windos小算盘也算不出来啊！
这不是程序问题了是CAD的浮点运算精度问题了 [/B]

不懂楼主说的出错
可以说明一下吗
谢谢~

libo2000

(rtos (- pi 3) 2 100)就知道了。最多16小数。。。
任何程序都有精度的，包括window

(rtos r 2 100)会有精度上的bug，(rtos 0.1234 2 100)="0.1233999999999999"

2. 
   
3.   [FONT=courier new]
   
4. ;;; 将字符串转换为字符代码表，也适合R14
   
5. (defun Chengs_vl-string->list (string / char char-codes-list i)
   
6.   (setq i 1
   
7.         char-codes-list '()
   
8.   )
   
9.   (repeat (strlen string)
   
10.     (setq char (ascii (substr string i 1))
    
11.           char-codes-list (append
    
12.                             (list char)
    
13.                             char-codes-list
    
14.                           )
    
15.           i (1+ i)
    
16.     )
    
17.   )                                     ; endrepeat
    
18.   (reverse char-codes-list)
    
19. )
    
20. ;;; endfun
    
21. ;;; eg (chengs_vl-string->list "123")=(49 50 51)
    
22. ;;; 小数位个数
    
23. (defun Chengs_DecNum (r / ct)
    
24.   (setq ct (1- (length (member 46 (chengs_vl-string->list (rtos r 2 16))))))
    
25.   (if (< ct 0) (setq ct 0))
    
26.   ct
    
27. );endfun
    
28. ;;; eg (chengs_DecNum pi) = 15
    
29. 
    
30.     [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; 将字符串转换为字符代码表，也适合R14<br /> (defun Chengs_vl-string->list (string / char char-codes-list i)<br />   (setq i 1<br />         char-codes-list '()<br />   )<br />   (repeat (strlen string)<br />     (setq char (ascii (substr string i 1))<br />           char-codes-list (append<br />                             (list char)<br />                             char-codes-list<br />                           )<br />           i (1+ i)<br />     )<br />   )                                     ; endrepeat<br />   (reverse char-codes-list)<br /> )<br /> ;;; endfun<br /> ;;; eg (chengs_vl-string->list "123")=(49 50 51)<br /> ;;; 小数位个数<br /> (defun Chengs_DecNum (r / ct)<br />   (setq ct (1- (length (member 46 (chengs_vl-string->list (rtos r 2 16))))))<br />   (if (< ct 0) (setq ct 0))<br />   ct<br /> );endfun<br /> ;;; eg (chengs_DecNum pi) = 15<br /> <br />     [/FONT]<br />

xyz518mm

看来是只有这样的精度了
谢谢各位高手的解答

phoenixdjq

刚刚编了一个，希望能满足你的要求
但是必须是选择的一个文字。