'- - File: IV_Der6.txt

Ac{t} = Sinh[t]
D{t} = Diff[Ac,t]

B<t> = <t, Ac, 0>
C<t> = <t, D, 0>

t0 = -3 :  tf = 3  :  n = 100
Plot[B, C, {t, t0, tf, n}]

<t = 4>   ' Optional--use to check worksheet output.



