Visualize a base TNB de um nó 

FrenetSerretSystem vai computar a base ortonormal associada a uma curva em qualquer dimensão. Em três dimensões, esta base é usualmente chamada de base tangente/normal/binormal ou TNB.

Procure a função para o nó.

In[1]:=

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

Compute a base TNB associada.

In[2]:=

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

Visualize a curva e sua 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"}}]

Reproduzir Parar