20/09/27 15:48:51.21 UvrSN88Y.net
>>775
体感してみた。
f <- function(x) (sqrt(1+x)-sqrt(1+x^2))/(sqrt(1-x^2)-sqrt(1-x))
> f(1/10)
[1] 0.9463795
> f(1/100)
[1] 0.9949626
> f(1/1000)
[1] 0.9994996
> f(1/10000)
[1] 0.99995
> f(1/100000)
[1] 0.999995
> f(1/1000000)
[1] 0.9999995