> 0.1 ==0.3 / 3
[1] FALSE
> print(0.3 / 3,digits=20)
[1] 0.099999999999999992
> unique(c(0.3, 0.4 - 0.1,0.5 - 0.2, 0.6 - 0.3, 0.7 - 0.4))
[1] 0.3 0.3 0.3
> print(0.3,digits=20)
[1] 0.29999999999999999
> print(0.4 - 0.1,digits=20)
[1] 0.30000000000000004
> print(0.5 - 0.2,digits=20)
[1] 0.29999999999999999
> print(0.6 - 0.3,digits=20)
[1] 0.29999999999999999
> print(0.7 - 0.4,digits=20)
[1] 0.29999999999999993
> seq(0, 1, by=0.1) == .3
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
R版本:3.2.3
运行平台:windows 10 ,x64