'- - File: IV_Der7.txt

Ac{t} = Abs[Sin[t]] * Sin[t]
D{t} = Diff[Ac,t]

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

pi = 3.14159
t0 = 0 :  tf = 4* pi  :  n = 100
Plot[B, C, {t, t0, tf, n}]

<t = 4>   ' Optional--use to check worksheet output.
' Use Shift-z to enlarge the graph as needed. 
' Use the y-scale: try 0.2 units.


