7.5 - Exercise 8
A 20m rope with mass density of 0.5kg/m hangs over the edge of a 10m building. How much work is done pulling the rope to the top?
W = F*d
d = h F = 0.5 x delta h
W = h x 0.5 x delta h
Now we need to integrate the above between 0 and 20.
fh <- function(h){ 0.5*h }
integrate(fh, lower = 0, upper = 20)## 100 with absolute error < 1.1e-12