' - - File: XXX2.txt

pi = 3.14159
R<t> = <2cos[t], sin[t], 0>                                    ' Given: Position vector.
T<t> = vTan[R]

Ke{t} = sMag[vDiv[vDiff[T],sMag[vDiff[R]] ]]       ' k{t} = |dT/dt| / (ds/dt) = dT/ds

Ea<t> = vAdd[R, vDiv[Ke, vNorm[R]] ]                ' Ea<t> = R<t> + N<t> / Ke{t}

t0 = -pi  :  tf = pi  :  n = 100
Plot[R, Ea, {t, t0, tf, n}]



