'- - File: IV_Der3.txt

Fc{t} = Abs[1 - Abs[Sin[t]] ] 
Ad{t} = Diff[Fc,t]

P<t> = <t, Fc, 0>
H<t> = <t, Ad, 0>

pi = 3.14159
t0 = 0  :  tf = 2* pi  :  n = 300

Plot[P, H, {t, t0, tf, n }]

' You may want to set the y-scale to 0.5 units after using Shift-z to enlarge the graph.


