Das begleitende Zweibein einer Funktion animieren 

Definieren Sie die Funktion und stellen Sie diese graphisch dar.

In[1]:=

X f[t_] := 2 t - 3 t^2 + t^3 p = Plot[f[t], {t, -1, 3}, AspectRatio -> Automatic, PlotRange -> {{-1.5, 3}, {-2, 2}}];

Berechnen Sie den Tangenteneinheitsvektor, den Hauptnormaleneinheitsvektor und die Kurvenpunkte.

In[2]:=

X b[t_] = Last[FrenetSerretSystem[f[t], t]]; c[t_] = {t, f[t]};

Erzeugen Sie die Animation.

In[3]:=

X Animate[Show[p, Graphics[{Locator[c[t]], Thick, Blue, Arrow[{c[t], c[t] + b[t][[1]]}], Red, Arrow[{c[t], c[t] + b[t][[2]]}]}], ImageSize -> Medium], {{t, 0}, -1, 3}]

Animation abspielen Abspielung unterbrechen