' - -File: IX_Extra3.txt
'  Given F{t}, find theRadius of curvature = | R'{t} |^3  /  |R'{t} x R''{t}| and plot.
pi=3.14159
F<t> = <t, Cos[2*pi*t] , 0>

R{t} = sDiv[sPwr[sMag[vDiff[F]],3], sMag[vCross[vDiff[F],vDiff[F,2]]]]

' - - - - -
C{t} =R{t} / 20  ' Radius of curvature function.
Cu<t> = <t, C, 0>

t0 = 0  :  tf = 2  :  n = 50
Plot[F, Cu, {t, t0, tf, n}]
' - - - - - - - - - - - - - - Set X-Scale/Unit  = 0.2 on the graph options.& key Update Graph.

<t=1>


