为什么Round [2.75,0.1]返回2.800000000003?

时间:2011-06-13 13:11:30

标签: wolfram-mathematica

Mathematica 8.0.1

任何人都可以解释这个结果背后的逻辑

In[24]:= Round[10.75, .1]

Out[24]= 10.8

In[29]:= Round[2.75, .1]

Out[29]= 2.8000000000000003

我原以为第二个结果是2.8?

编辑1:

我尝试将上述操作仅用于格式化,以使数字适合空格。我最终做了以下工作以获得我想要的结果:

In[41]:= NumberForm[2.75,2]
Out[41]   2.8

我希望Mathematica有printf()之类的格式化功能。我在Mathematica中找到了确切字段宽度的格式数字,与使用printf()格式规则相比,形成了一点尴尬。

编辑2: 我试过$ MaxExtraPrecision = 1000我尝试格式/回合,但它没有用,这就是我发布这个问题的原因。这是

In[42]:= $MaxExtraPrecision=1000;
Round[2035.7520395261859,.1]

Out[43]= 2035.8000000000002


In[46]:= $MaxExtraPrecision=50;
Round[2.75,.1]

Out[47]= 2.8000000000000003

编辑3:

我发现这样,只能将数字格式化为一个小数点。使用Numberform,但首先需要通过计算小数点左边的位数来找到要使用的n位精度,然后加1。

In[56]:= x=2035.7520395261859;
NumberForm[x,IntegerLength[Round@x]+1]

Out[57]//NumberForm= 2035.8

编辑4:

以上(编辑3)不适用于

等数字
a=2.67301785 10^7

经过一些试验,我发现会计表格可以做我想要的。 AccountingForm摆脱了NumberForm没有的10 ^ n形式:

In[76]:= x=2035.7520395261859;
AccountingForm[x,IntegerLength[Round@x]+1]

Out[77]//AccountingForm= 2035.8

In[78]:= x=2.67301785 10^7;
AccountingForm[x,IntegerLength[Round@x]+1]

Out[79]//AccountingForm= 26730178.5

为了格式化数值,我找到的最好的语言是Fortran,遵循COBOL以及那些使用或支持printf()标准格式的语言。使用Mathematica,我可以肯定会做这样的格式化,但对我来说这看起来确实太复杂了。我从未理解为什么数学没有Printf []。

3 个答案:

答案 0 :(得分:11)

并非所有具有有限位数的十进制(基数10)数字都可以用有限位数的二进制(基数2)表示。例如。 0.1不能用二进制表示,就像1/3~ = 0.33333 ...不能用十进制表示。 Mathematica(和其他软件)在显示隐藏此效果的数字时仅使用有限数量的十进制数字。但是,偶尔会出现足够的十进制数字,表明不匹配变得可见。

http://en.wikipedia.org/wiki/Floating_point#Representable_numbers.2C_conversion_and_rounding

修改

此命令将显示当您使用20个二进制数字找到0.1的结束二进制表示形式时会发生什么,然后将其转换回十进制:

RealDigits[FromDigits[RealDigits[1/10, 2, 20], 2], 10]

答案 1 :(得分:7)

该数字存储在基数2中,而不是基数10(十进制)。在基数2中代表2.8是不可能的,因此它使用最接近的值:2.8000000000000003

答案 2 :(得分:3)

Number/AccountingForm可以在第二个参数中列出一个列表,第二个参数是小数点后面的位数:

In[61]:= x=2035.7520395261859;

In[62]:= AccountingForm[x,{Infinity,3}]

Out[62]//AccountingForm= 2035.752

也许这很有用。