老问题，始终没解决，又出现了，怎么办?

挚友01

老问题，始终没解决，又出现了，怎么办?
(setq val1 55.1)
(setq tem1 (- val1 (fix val1)))
(setq c 0 cc 10)
(while (/= (- (setq tem3 (* cc tem1))(fix tem3)) 0)
(prin1 tem3)(prin1 "　")(prin1 (fix tem3))(terpri)
   (setq c (+ c 1))
   (setq cc (* cc 10))
)

命令: (vale_jd1 55.1)

1.0"　"1  ;(/= (- (setq tem3 (* cc tem1))(fix tem3)) 0)居然不等于=0 equal也试过....
10.0"　"10
100.0"　"100
1000.0"　"1000
10000.0"　"10000
100000.0"　"100000
1.0e+006"　"1000000
1.0e+007"　"10000000
1.0e+008"　"100000000
1.41007e+008"　"141006540
1.21575e+008"　"121575219
-7.2738e+007"　"-72737996
1.31613e+008"　"131613491
2.76447e+007"　"27644723
-1.53049e+008"　"-153049497
1.87492e+008"　"187491942
1.56933e+008"　"156932505
-1.48662e+008"　"-148661862
-1.98128e+008"　"-198128435
1.66199e+008"　"166199296
-5.5994e+007"　"-55993958
-1.30443e+008"　"-130442854
-1.59384e+007"　"-15938355
-1.59384e+008"　"-159383552
1.24151e+008"　"124151398
-4.69762e+007"　"-46976204
-4.02653e+007"　"-40265318
2.68435e+007"　"26843545
-1.61061e+008"　"-161061273
1.07374e+008"　"107374182
-2.14748e+008"　"-214748364

/db_自贡黄明儒_

什么意思，写得乱七八糟的。用equal,误差取大一点，不就行了？

挚友01

楼上的，没看出来吗，这就是求精度的....

ll_j

我也没看懂程序到底要做什么，不过可以试着把(- (setq tem3 (* cc tem1))(fix tem3))中的setq tem3提到while前面，这里的setq和fix是并列的，是不是开始后面的tem3并没有赋值的缘故。

Lispboy

楼主，你想要做什么，你写个实例。

挚友01

将数字转换成字符，“原封不动”，有多少个小数位就显示，例:
123.123123123 转换成 "123.123123123"

Lispboy

挚友01 发表于 2018-3-4 19:00

命令: (setq a 123.123123123)
123.123

命令: (rtos a 2 100)
"123.123123123"

挚友01

"123.1231231230000" 多出了后面的4个0，要原封不动

ll_j

看看系统变量dimzin

Lispboy

挚友01 发表于 2018-3-4 21:36

(setvar "dimzin" 8)
然后你再试上面的。

sicky111

学习了。      

挚友01

要的是"原封不动" ,后面有几个0就要加几个0

挚友01

这类方法都下绕行   关建要解决的是
(setq val1 55.1)
(setq tem1 (- val1 (fix val1)))
(setq c 0 cc 10)
(while (/= (- (setq tem3 (* cc tem1))(fix tem3)) 0)

tem3=10.0　(fix tem3)=10时
为什么  (/= (- (setq tem3 (* cc tem1))(fix tem3)) 0)  不等于0

ll_j

这是浮点运算的结果，浮点运算在有限范围内是按精度取的，假的保留4位，那么0.99996和1.00004都被视为1，但使用fix函数的时候，结果是不同的，32位的acad浮点数是16位，虽然误差很小很小，但仍旧是有差别的。

挚友01

那么如何解决呢?我就想求出实数后面有多少个小数位