' File: XIX_ArcLen2
' Find the arc length:  

X{t} =  t                      :  Xp{t} = Diff[X,t]
Y{t} =  0.2Cosh[t]     :  Yp{t} = Diff[Y,t]

a = -5  : b = 5 :  n = 10

F{t} = Sqrt[Xp{t}^2 + Yp{t}^2]

ln = Integ[F, {a, b, n, 2}]

A<t> = <t, Y{t}, 0>
Plot[A, {t, a,b,10}]

'@Length = @ln, Units.!



