curvature k(s)=

torsion τ(s) =

initial time t_0=

end time t_1=

e.g. 1. k=4s+1, τ=sin(s)
       2. k=-s^2-4, τ=cos(s) from -10 to 10

r1'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = t1
r2'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = t2
r3'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = t3
k(s) = s^(2) - 4
τ(s) = cos(s)
inputBox1 = Textfield(k)
inputBox2 = Textfield(τ)
t_0 = -10
t_1 = 10
inputBox3 = Textfield(t_0)
inputBox4 = Textfield(t_1)
t1'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = (k(s) * n1)
t2'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = (k(s) * n2)
t3'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = (k(s) * n3)
n1'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = ((-k(s)) * t1) - (τ(s) * b1)
n2'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = ((-k(s)) * t2) - (τ(s) * b2)
n3'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = ((-k(s)) * t3) - (τ(s) * b3)
b1'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = (τ(s) * n1)
b2'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = (τ(s) * n2)
b3'(s, r1, r2, r3, t1, t2, t3, n1, n2, n3, b1, b2, b3) = (τ(s) * n3)
InitialCondition: {1, 0, 0, 0, 1, 0, 0, 0, 1}
nu1, nu2, nu3, nu4, nu5, nu6, nu7, nu8, nu9, nu10, nu11, nu12 = NSolveODE({r1', r2', r3', t1', t2', t3', n1', n2', n3', b1', b2', b3'}, t_0, {0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1}, t_1)
len = Length(nu1)
t = 0.939885496183206 (slider from 0 to 1, step 1 / len)
R: (y(Point[nu1, t]), y(Point[nu2, t]), y(Point[nu3, t]))
list1 = Sequence(Segment[(y(Point[nu1, s1]), y(Point[nu2, s1]), y(Point[nu3, s1])), (y(Point[nu1, s1 + 1 / len]), y(Point[nu2, s1 + 1 / len]), y(Point[nu3, s1 + 1 / len]))], s1, 0, t, 1 / len)