log(pi)
[1] 1.14473
c(1/4,pi,1/0,sqrt(-2),NA)
[1] 0.250000 3.141593 Inf NaN NA
.
\[ x = (-1)^s 2^{c-1023} (1 + f) \]
mantissa <- rep(1,52)
powers <- seq(from = 1, to = 52, by = 1)
f <- sum(mantissa*(1/2)^(powers))
2^(1023)*(1 + f)
[1] 1.797693e+308
c <- 0
f <- 2^(-52)
2^(c - 1023)*(1 + f)
[1] 1.112537e-308
[1] 1.112537e-308
[a, b] = [1, 1 + epsilon]
\[ 1 + \epsilon > 1 \]
(eps <- .Machine$double.eps)
[1] 2.220446e-16
\[ 1 + \epsilon > 1 \]
1 + eps
[1] 1
eps
[1] 2.220446e-16
print(1 + eps,digits = 20)
[1] 1.0000000000000002
\[ 1 + 0.5\epsilon \ngtr 1 \]
print(1 + eps/2,digits = 20)
[1] 1
eps
[1] 2.220446e-16
print(1 + 0.6*eps,digits = 20)
[1] 1.0000000000000002
\[ a + (b + c) = (a + b) + c \]
print((1 + eps/2) + eps/2, digits = 20)
[1] 1
print(1 + (eps/2 + eps/2), digits = 20)
[1] 1.0000000000000002
\[ 1 - \epsilon < 1 \]
.Machine$double.neg.eps
[1] 1.110223e-16
\[ x + \epsilon_x > x \]
print(8 + eps, digits = 20)
[1] 8
library(pracma)
eps(8)
[1] 1.776357e-15
(e <- eps(8))
[1] 1.776357e-15
print(8 + e, digits = 20)
[1] 8.0000000000000018
c(eps(4), eps(8))
[1] 8.881784e-16 1.776357e-15
2*0.8882
[1] 1.7764
c(1/4,22/7,pi,sqrt(2))
[1] 0.250000 3.142857 3.141593 1.414214
\[ E_R = |x - \mathrm{fl}(x)| \]
(x <- c(1/4,22/7,pi,sqrt(2)))
[1] 0.250000 3.142857 3.141593 1.414214
(y <- round(x,2))
[1] 0.25 3.14 3.14 1.41
(E <- abs(x-y))
[1] 0.000000000 0.002857143 0.001592654 0.004213562