alias(v=vector): i:=v([1,0,0]): j:=v([0,1,0]): k:=v([0,0,1]): a := 10: h := 17/Pi: r := a*cos(t)*i + a*sin(t)*j + h*t*k; V := diff(r,t); L := Int(len(evalm(V)),t=0..2*Pi); L := evalf(L); TotL := 2.9*L;