如何判定这两个数相等

0.4694817600789397`
0.4694817600789395`
理论上是相等的，但是因为原始数据的偏差而等到差距极小的两个数
Chop[0.4694817600789397`, 10^-12] ===
Chop[0.4694817600789395`, 10^-12]
NumberForm[0.4694817600789397`, 10^-10] ===
NumberForm[0.4694817600789395`, 10^-10]
N[0.4694817600789397`, 12] === NumberForm[0.4694817600789395`, 12]
都是返回false

Chop[0.4694817600789397` - 0.4694817600789395`, 10^-10] === 0
这个可以，但并不方便一些依赖于取等判定的操作，比如
{0.597415437550162`, 0.4694817600789397`, 0.4694817600789395`, \
0.3903471289235375`}//. {___, m_, ___, m_, ___} -> m
有没有输入0.4694817600789397`，输出0.46948的函数

Abs[x-y]<eps

数永远不会和它自身的NumberForm相等。
ReplaceAll进行的是模式匹配，只比较表达式的散列码，不像某些函数具有调SameTest或Tolerance的功能。
你要找的是SetPrecision。

SetPrecision[0.4694817600789397`, 10] ===
SetPrecision[0.4694817600789395`, 10]
判定为true

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

5回复贴，共1页

<<返回mathematica吧

分享到:

日	一	二	三	四	五	六