TNB Frame

f(x) = sin((2 * x))
g(x) = cos((3 * x))
h(x) = sin(x)
a = CurveCartesian(f(t), g(t), h(t), t, 0, 6.28)
v = 3.67 (slider from 0 to 6.28, step 0.01)
u = Vector(a(v), a(v) + UnitVector[a'(v)])
A: a(v)
d(x) = sqrt((f'(x))^(2) + (g'(x))^(2) + (h'(x))^(2))
b = CurveCartesian(f'(t) / d(t), g'(t) / d(t), h'(t) / d(t), t, 0, (2 * pi))
w = Vector(a(v), a(v) + UnitVector[b'(v)])
c = Surface(x(A) + (t1 * x(u)) + (t2 * x(w)), y(A) + (t1 * y(u)) + (t2 * y(w)), z(A) + (t1 * z(u)) + (t2 * z(w)), t1, 0, 1, t2, 0, 1)
o = 1 (slider from -5 to 5)
e = Vector(a(v), a(v) + u ⊗ w)