autolisp中除法的一点问题

刘向飞

最近发现使用除法时两数相除的结果如果小于1的话，给出的结果直接就是0，，不知道有没有办法还是让现实其真实的小数结果？

例如：(setq pt1(/ 5 9))
(setq ptt2(rtos pt1 2 4))

显示的结果一个是0，一个是“0”，而想要的结果应该是个小数才对。

lsjj

(setq pt1(/ 5. 9))
(setq pt1(/ 5 9.))
(setq pt1(/ 5. 9.))

刘向飞

lsjj 发表于 2014-3-11 23:43
(setq pt1(/ 5. 9))
(setq pt1(/ 5 9.))
(setq pt1(/ 5. 9.))

太好了，问题解决了，楼主的LISP一定学的很好，向您学习了，谢谢。
能否告知是什么原因导致出现这样的情况？

kwok

整數乘除＝取整數，帶有小數点乘除才會显示小數點,如2x5.0=10.0        2x5=10

刘向飞

kwok 发表于 2014-3-12 09:24
整數乘除＝取整數，帶有小數点乘除才會显示小數點,如2x5.0=10.0        2x5=10

原来是这样，学习了，谢谢您，没想到看起来这么简单的东西还有这些需要注意的细节。