f(x) = cos(x) * x / 20
g(x) = sin(x) * x / 20
h(x) = x / 10
list1 = Sequence((f(t), g(t), h(t)), t, -20, 40, 0.05)
f_x = Derivative(f, x)
g_x = Derivative(g, x)
h_x = Derivative(h, x)
t = -4 (slider from -20 to 40, step 0.05)
A: (f(t), g(t), h(t))
u = Vector(A, A + (f_x(t), g_x(t), h_x(t)))
f_{xx} = Derivative(f_x, x)
g_{xx} = Derivative(g_x, x)
h_{xx} = Derivative(h_x, x)
v = Vector(A, A + (f_{xx}(t), g_{xx}(t), h_{xx}(t)))
w = Vector(A, A + (y(u) * z(v) - y(v) * z(u), z(u) * x(v) - x(u) * z(v), x(u) * y(v) - x(v) * y(u)))
a = 0.1 (slider from 0.1 to 1, step 0.1)
list2 = Sequence(Segment[(f(t), g(t), h(t)), (f(t + a), g(t + a), h(t + a))], t, -20, 40, a)