ERoman_Discussion13

Page 179 4.2

3. Water flows onto a flat surface at a rate of 5cm3/s forming a circular puddle 10mm deep. How fast is the radius growingwhen the radius is:

1. 1 cm?

ans <- function(r){
  50/(2 * pi * r)
}

ans(1)

## [1] 7.957747

2. 10 cm?

ans <- function(r){
  50/(2 * pi * r)
}

ans(10)

## [1] 0.7957747

3. 100 cm?

ans <- function(r){
  50/(2 * pi * r)
}

ans(100)

## [1] 0.07957747