#ex 11 page 303:

burnout <- 1000 / 100
burnout #10Hours
## [1] 10
# ex 1 page 320-321

#A.
k <- 2 / sqrt(100 / 3)
round((1 / k^2), 3)
## [1] 8.333
#B.
k <- 5 / sqrt(100 / 3)
round((1 / k^2), 3)
## [1] 1.333
#C.
k <- 9 / sqrt(100 / 3)
round((1 / k^2), 3)
## [1] 0.412
#D.
k <- 20 / sqrt(100 / 3)
round((1 / k^2), 3)
## [1] 0.083