Visualice la base TNB de un nudo 

FrenetSerretSystem computará la base ortonormal asociada a una curva en cualquier dimensión. En tres dimensiones, la base es usualmente llamada la Tangente/Normal/Binormal o base TNB.

Busque la función para el nudo.

In[1]:=

X knot = KnotData["Trefoil", "SpaceCurve"];

Calcule la base TNB asociada.

In[2]:=

X basis = Last[FrenetSerretSystem[knot[t], t]] // Simplify; {tangent, normal, binormal} = Map[Arrow[{knot[t], knot[t] + #}] &, basis];

Visualice la curva y su base.

In[3]:=

X Manipulate[ Show[ParametricPlot3D[knot[s], {s, 0, 2 Pi}, PlotStyle -> Thick], Graphics3D[{Thick, Blue, tangent, Red, normal, Purple, binormal}], PlotRange -> 3, ImageSize -> Medium] // Evaluate, {t, 0, 2 Pi, Appearance -> {"Open", "Labelled"}}]

Reproducir Detener