I've beein trying to solve this problem but somehow I just can't combine Manipulate and ParametricPlot3D.
trobrid[g_, t_, a_, b_] := Module[{X, Y, Z, tang, norm, binorm, k, l},
g == {X[t], Y[t], Z[t]};
tang = D[g, t]/Simplify[Sqrt[D[g, t].D[g, t]]];
norm = D[tang, t]/Simplify[Sqrt[D[tang, t].D[tang, t]]];
binorm = FullSimplify[Cross[tang, norm], t > 0];
Manipulate[
ParametricPlot3D[g, {t, a, b}],
Graphics3D[{
Red, Arrow[{g, tang + g} /. {t -> s}],
Blue, Arrow[{g, norm + g} /. {t -> s}],
Purple, Arrow[{g, binorm + g} /. {t -> s}]
}], {s, a, b}]
]
This is the error: