StrangeGirlMurph

norm[x_] := Sqrt[Simplify[x . x]];

interval = 1.4;
f[t_] = {t^2, t^3 - t}; (* Kurve *)

v[t_] = D[f[t], t]; (* Geschwindigkeitsvektor *)
V[t_] = norm[v[t]]; (* Geschwindigkeit *)
a[t_] = D[v[t], t]; (* Beschleunigungsvektor *)

T[t_] = v[t]/

StrangeGirlMurph

interval = 1.4;
f[t_] = {t^2, t^3 - t} (* Kurve *)

tf[t_] = D[f[t], t]; (* Tangentialvektor *)
ntf[t_] = tf[t]/Sqrt[tf[t] . tf[t]]; (* Normierter Tangentialvektor *)

af[t_] = D[ntf[t], t]; (* Normalvektor aber nicht normiert*)
kf[t_] = Norm[af[t]]; (* Krümmung *)
nf[t_] = af[t]/kf[t];(* Normalvektor *)