' - - File: III_Abs3.txt    
' We want to avoid divide by zero. Set F{t} = 0 when  a < t < b.

F{t} = Abs[t] / t^2                                         '  t <>0.

a = -0.005  :  b = 0.005                               ' Set Fa{t} = 0 about (-0.005,0.005)

' We want to EXCLUDE the range: a < t < b; so we modify our Unit[ function.
Pu{t} = Unit[t -a ] - Unit[t - b]                      ' Pu = a unit pulse in this range.

' However, 1 - Pu{t} = 0 WITHIN a < t < b rather than unity.

Fa{t} = (1 - Pu{t} ) * F{t} 

A<t> = <t, Fa, 0>

t0 = -4  :  tf = 4  :   n = 400
Plot[A, {t, t0, tf, n}]

' Adjust y-scale to 5 units per grid. Click the 2D box if you wish.

