NiRRMy91c2Vycy9EYXZpZC9tYXBsZTYiUVQvTGlicmFyeS9GcmFtZXdvcmtzL01hcGxlLmZyYW1ld29yay9WZXJzaW9ucy8xMS9saWJGJA==

curvature:= proc(alpha,t) with(LinearAlgebra); alphap:=map(diff,alpha,t); alphapp:=map(diff,alphap,t); ap_cross_app:= CrossProduct(alphap,alphapp); norm_alphap:=simplify(LinearAlgebra[Norm](alphap,2,conjugate=false)); return simplify(LinearAlgebra[Norm](ap_cross_app,2,conjugate=false)/norm_alphap^3); end;

Warning, `alphap` is implicitly declared local to procedure `curvature`

Warning, `alphapp` is implicitly declared local to procedure `curvature`

Warning, `ap_cross_app` is implicitly declared local to procedure `curvature`

Warning, `norm_alphap` is implicitly declared local to procedure `curvature`

Zio2JEkmYWxwaGFHNiJJInRHRiU2JkknYWxwaGFwR0YlSShhbHBoYXBwR0YlSS1hcF9jcm9zc19hcHBHRiVJLG5vcm1fYWxwaGFwR0YlRiVGJUMoLUkld2l0aEc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkdGJTYjSS5MaW5lYXJBbGdlYnJhRzYkRjFGMD44JC1JJG1hcEdGMDYlSSVkaWZmR0YwOSQ5JT44JS1GODYlRjpGNkY8PjgmLV9GM0ktQ3Jvc3NQcm9kdWN0R0YlNiRGNkY+PjgnLUkpc2ltcGxpZnlHRi82Iy0mRjM2I19GM0klTm9ybUdGLzYlRjYiIiMvSSpjb25qdWdhdGVHRjBJJmZhbHNlR0YwTy1GSjYjKiYtRk02JUZCRlJGUyIiIkZIISIkRiVGJUYl

alpha:=<a*cos(t),a*sin(t),b*t>;

LSZJJ1ZlY3Rvckc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYjSSdjb2x1bW5HRig2Iy9JJCVpZEdGKCIoY3FVKg==

curvature(alpha,t) assuming a>0, b>0;

KiZJImFHNiIiIiIsJiokSSJiR0YkIiIjRiUqJEYjRilGJSEiIg==

TTdSMApJNFJUQUJMRV9TQVZFLzk0MjcwNTZYKiUpYW55dGhpbmdHNiI2IltnbCEjJSEhISIkIiQqJiUiYUciIiItJSRjb3NHNiMlI3R8aXJHRikqJkYoRiktJSRzaW5HRixGKSomJSJiR0YpRi1GKUYm