在不同CAD版本中相同算式为何结果不同？

ynhh

在32位CAD2018和CAD2007中，用相同的计算式，对比结果：

CAD2007到2016和64位CAD2017和2018用此式计算，结果均相同
(rem (ATOF "20107019021211566") 56789) = 51447.0  32位CAD2007


32位CAD2017和2018计算出来却不同？不知是什么原因？
(rem (ATOF "20107019021211566") 56789) = 51451.0   32位CAD2017

请教各位大师，给指点一下，如何修改才能与CAD2007得到相同的计算结果？

谢谢

ynhh

32位CAD2007到2016和64位CAD2017和2018用此式计算，结果均相同，也就是说在64位系统上所有版本的计算结果均相同。
(rem (ATOF "20107019021211566") 56789) = 51447.0  32位CAD2007

xinxirong

x64的2013 2008都是 51447.0，我怀疑跟系统变量有关

ynhh

64位系统CAD2007-2018的结果都相同

就是32位的CAD2017和2018不同

请大师指点一下，在32位系统中如何修改，才能使CAD2017与CAD2007得到相同的计算结果  51447.0 ？

marting

2017 32位的 (ATOF "20107019021211566") 这个值是多少？

ynhh

marting 发表于 2017-3-28 17:39

将以上拆开分析如下               
               
(ATOF "20107019021211566") = 2.0107e+016 32位CAD2007                
(ATOF "20107019021211566") = 2.0107e+16  32位CAD2017               
               
(rem 2.0107e+016 56789) = 31488.0  32位CAD2007  此处是相同的               
(rem 2.0107e+16 56789) = 31488.0   32位CAD2017  此处是相同的


但合并在一起后，在32位的CAD2017上就不同了

(rem (ATOF "20107019021211566") 56789) = 51447.0  32位CAD2007

(rem (ATOF "20107019021211566") 56789) = 51451.0  32位CAD2017 为什么此处不同？？

ynhh

marting 发表于 2017-3-28 17:39

CAD2017  32位Win7系统

(rem (ATOF "20107019021211566") 56789) = 51451.0

如何设置才能与大多数(CAD2004---2016）的相同为 51447.0

marting

ynhh 发表于 2017-3-28 18:26

根据你的实验，那你就设置个变量看看

(setq a (ATOF "20107019021211566") )
(setq b (rem a 56789) )

看看这样结果如何？

ynhh

marting 发表于 2017-3-28 18:39

谢谢大师的指点
但在32位Win7系统中的CAD2018中
结果还是 51451.0

其它在32位Win7系统中的CAD2007，64位Win10系统中2007-2018
结果均是 51447.0


真是找不出是什么原因了。

newer

ynhh 发表于 2017-3-28 21:41

应该是浮点数计算的原因，机器没你那么多版本，不好说。

你试试把 atof 改成 distof 看看结果如何？

ynhh

newer 发表于 2017-3-28 22:13

感谢版主的指点
用你说的 distof

在32位Win7系统中的CAD2007和2018中
结果统一为 51451.0

虽然不能与大多数用 atof 的统一为 51477.0
但也算是一个在同一台电脑上能将多个CAD版本计算值统一的办法
衷心感谢版主的热心指导

newer

ynhh 发表于 2017-3-28 22:38

distof 和 atof 功能是一样的，能解决就好了。不用纠结atof，把你的代码都改成distof吧。

ynhh

newer 发表于 2017-3-28 22:43

衷心感谢版主的热心指导再次感谢

ynhh

newer 发表于 2017-3-28 22:43

请版主看一下

以下这个
http://bbs.mjtd.com/thread-174967-1-1.html

超大整数取余，不知对不对？


因无法验证，计算器和电子表都不能计算这么多的位数啊.

其结果和CAD计算的都不一样啊？

普通浏览复制代码

• (defun lrem (snum mod / r)
  
•   (while (/= "" snum)
  
•     (setq r    (rem (atoi (substr snum 1 9)) mod)
  
•     snum (substr snum 10 (- (strlen snum) 9))
  
•     snum (strcat (itoa r) snum)
  
•     )
  
•     (if (< (atoi snum) mod) (setq snum ""))
  
•   )
  
•   r
  
• )
  
  

_$ (lrem "20107019021211566" 56789)
51449

对字符串保存的超大整数取余，每次取9位，确保不超过32位整数范围进行操作

1、先取"201070190"取余为37130
2、从剩余的字符串中取出一定长度的数字与余数结合成一个九位的数字（32位最大整数是个10位的数字），即“371302121”
3、重复1，取余为15639; 重复2，数字为"156391566"，重复1，取余为51449
4、判断剩下的数字小于mod，结束。

Lisphk

ynhh 发表于 2017-3-29 15:40

你做这些是做理论研究，还是工作中要用到这么大的数？