surface to volume ratio exercise,

#surface to volume ratio

surface_to_volome = function(r) { 3/r }
r= seq(1 ,100,by=1/10)
ratio = surface_to_volome(r)
plot( ratio ~ r, lwd=3, type='l')

y2 = 3- r
plot( y2 ~ r, lwd=3, type='l', ylab='ratio')

y3 = 3.2 - r^2
plot( y3 ~ r, lwd=3, type='l', ylab='ratio')