dumme vase rumfang beregner

areal <- function(x) {
  v <- (pi*((9*x)/2 - (cos(x)*sin(x))/2 - 4*cos(x)))
  return(v)
}
rumfang = 0
xs = seq (0, 150, 0.001)
ys = 0
for(i in 2:length(xs)){
  ys[i] = areal(xs[i])

  q = i-1

  if(ys[q] < 1500 & ys[i] >= 1500){
    print(ys[i])
    result = rumfang[i]
    print(xs[i])
    break()
  }
}