'- - File: IV_Der4.txt
' A pulse command: 
Pu{a,t,b} = Unit[t - a]  - Unit[t - b]                                 '    a < b;     a < t < b
pi = 3.14159


Y{t} =  6 * Pu{3,t,6} * (Exp[-t/2] * Sin[2 * pi * t])  + 5   ' Offset of 5 only to compare.
Yd{t} = Diff[Y,t] / 3                                                         ' Reduce magnitude for graphing function.

Fc<t> = <t, Y, 0>
Hc<t> = <t, Yd, 0>

t0 = 0  :  tf = 10  :  n = 200
Plot[Fc, Hc, {t, t0, tf, n}]

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



