'- - File: IVDer8.txt

Ac{t} = Sin[t]
Fc{t} = Abs[Ac{t} - Unit[Sign[Ac{t}]] ]
D{t} = Diff[Fc,t]

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

pi = 3.14159
t0 = 0 :  tf = 4* pi  :  n = 200
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 as needed.


