200 + 2000 = 2.0*10^2 + 2.0*10^3
= 2.0*10^2 + 20*10^2
= 22*10^2
= 2.2*10^3
200 * 2000 = (2.0*10^2)*(2.0*10^3)
= (2.0*2.0)*(10^2*10^5)
= 4.0*10^5
\[ \begin{align*} (200)(2000) & = (2.0 \times 10^2 ) (2.0 \times 10^3 ) \\ & =(2.0*2.0) \times (10^2*10^3) \\ & = 4.0 \times 10^{5} \end{align*} \]
200 / 2000 = (2.0*10^2)/(2.0*10^3)
= (2.0/2.0)*(10^2/10^3)
= 1.0*10^(-1)
\[ \begin{align*} \frac{200}{2000} & = \frac{2.0 \times 10^2}{2.0 \times 10^3}\\ & = \left( \frac{2.0}{2.0} \right) \times \left(\frac{10^2}{10^3} \right) \\ & = 1 \times 10^{-1} \end{align*} \]
50 + 500 =
=
=
=
200 + 2000 = 2.0*10^2 + 2.0*10^3
= 2.0*10^2 + 20*10^2
= 22*10^2
= 2.2*10^3
50 + 500 = 5.0*10^1 + 5.0*10^2
= 5.0*10^1 + 50*10^1
= 55*10^1
= 5.5*10^2
50 * 500 =
=
=
=
200 * 2000 = (2.0*10^2)*(2.0*10^3)
= (2.0*2.0)*(10^2*10^5)
= 4.0*10^5
50 * 500 = 5.0*10^1 * 5.0*10^2
= (5.0*5.0)*(10^1*10^2)
= 25.0*10^3
= 2.5*10^4
50 / 500 =
=
=
200 / 2000 = (2.0*10^2)/(2.0*10^3)
= (2.0/2.0)*(10^2/10^3)
= 1.0*10^(-1)
50 / 500 = (5.0*10^1)/(5.0*10^2)
= (5.0/5.0)*(10^1/10^2)
= 1.0*10^(-1)
0/0
[1] NaN
sqrt(-1)
[1] NaN
(x <- 0/0)
[1] NaN
sqrt(5) + cos(x)
[1] NaN
NaN+5
[1] NaN
NaN*5
[1] NaN
NaN/5
[1] NaN
NaN/NaN
[1] NaN
NaN^2
[1] NaN
NaN^0
[1] 1
(x <- 0/0)
[1] NaN
is.nan(x)
[1] TRUE
is.nan(2)
[1] FALSE
NaN == NaN
[1] NA
x <- c(3,1,4,NA,5,9)
x[2:4]
[1] 1 4 NA
x > 3
[1] FALSE FALSE TRUE NA TRUE TRUE
1/0
[1] Inf
1/Inf
[1] 0
.Machine$double.xmax
[1] 1.797693e+308
2*(.Machine$double.xmax)
[1] Inf
1 / 0
[1] Inf
Inf - Inf
[1] NaN
Inf + Inf
[1] Inf
-1 / 0
[1] -Inf
Inf * Inf
[1] Inf
Inf/Inf
[1] NaN
1/Inf
[1] 0
1+1/Inf
[1] 1
(1+1/Inf)^Inf
[1] 1
(1+1/Inf)^Inf
[1] 1
n <- seq(1,100,by = 20)
(1+1/n)^n
[1] 2.000000 2.656263 2.685856 2.696330 2.701690
n <- seq(1,100,by = 20)
(y <- (1+1/n)^n)
[1] 2.000000 2.656263 2.685856 2.696330 2.701690
plot(n,y)
n <- seq(1,100,by = 20)
(y <- (1+1/n)^n)
[1] 2.000000 2.656263 2.685856 2.696330 2.701690
plot(n,y, type = "b", pch = 10, frame = FALSE,
col = "blue", xlab = "n", ylab = "y",
lty = 2, lwd = 2)
3/(-0)
[1] -Inf
3*(-0)
[1] 0
1/0
[1] Inf