Consider a “curve” defined by a list of points in finite dimension (here, four): pts = Table[{Cos[t], 0, Sin[2 t], Sin[t]}, {t, Subdivide[0, 1, 99]}] What would be a good approach to compute the local curvature? Several possibilities I thought of: interpolating pts and using ArcCurvature (introduced in Mathematica 10) using $ n+1$ consecutive pointsRead more