Båndlængde rscript

x = seq (0, 106.998, 0.001)

y = sin(x*4*pi/106.994)*(sin(x)+2)

z = cos(x*4*pi/106.994)*(sin(x)+2)

l = sin(x)+2

l2 = (y^2+z^2)^(1/2)

long = 0

t = length(x)-2

for(i in 2:t){

  long = long+((x[i]-x[i-1])^2+(y[i]-y[i-1])^2+(z[i]-z[i-1])^2)^(1/2)


}

print(long)