> i1 := exp(t)*cos(t);

> j1 := exp(t)*sin(t);

> k1 := t;

> with(plots);

> path := spacecurve([i1,j1,t],t=-1..1, axes=normal, color=red, numpoints=100); point1 := PLOT3D(POINTS([1,0,0],SYMBOL(DIAMOND))); display3d({point1, path});

> i2 := diff(i1,t);

> j2 := diff(j1, t);

> k2 := diff(k1, t);

> D1 := simplify(i2^2 + j2^2 + k2^2);

> i3 := diff(i2, t);

> j3 := diff(j2, t);

> k3 := diff(k2, t);

> i22 := simplify(i2^2);

> C1 := simplify(i2^2 + j2^2 + k2^2);

> Ia := simplify( (i2 * k3) - (i3 * k2));

> Ja := simplify( (j2 * k3) - (j3 * k2));

> Ka := simplify( (i2 * j3) - (i3 * j2));

> D2 := simplify(Ia^2 + Ja^2 + Ka^2);

> K0 := simplify( (D2^(1/2))/(D1^(3/2)));

> Ksolve := evalf(subs( t=0, K0));

>