I would like a help calculating the Inverse Fourier Transform of
Absolute cos[(2 pi f)/100]
As I noted in a comment above, this problem can be solved with Mathematica (or, of course, analytically). The function is periodic, so a single period of the function can be transformed, and then the transforms of all periods summed. It is convenient to begin by subtracting the average value of the function over the period, which is 2/Pi.
Integrate[(Cos[ω/100] - 2/Pi), {ω, -50 Pi, 50 Pi}]
(* 0 *)
Mathematica quickly can integrate the central period of the function.
InverseFourierTransform[
Piecewise[{{Cos[ω/100] - 2/π, -50 Pi < ω < 50 Pi}}, 0], ω, t]
(* (2 Sqrt[2] (-50 π t Cos[50 π t] + (1 - 10000 t^2) Sin[50 π t]))/
(π^(3/2) t (-1 + 10000 t^2)) *)
and one would hope that it could solve for any period by
InverseFourierTransform[Piecewise[{{Cos[ω/100] - 2/π,
100 (n - 1/2) Pi < ω < 100 (n + 1/2) Pi},
{Cos[ω/100] - 2/π, -100 (n + 1/2) Pi < ω < -100 (n - 1/2) Pi}}, 0], ω, t,
Assumptions -> n > 0]] // FullSimplify
but it seems unable to do so. However, for specific values of n, for instance, n = 1, it readily determines
(* (4 Sqrt[2] Cos[100 I π t] (50 π t Cos[50 π t] + (1 - 10000 t^2)
Sin[50 π t]))/(π^(3/2) t (-1 + 10000 t^2))
from which one can generalize that the term for n > 0 is
(* (4 n Sqrt[2] Cos[100 I π t] (50 π t Cos[50 π t] + (1 - 10000 t^2)
Sin[50 π t]))/(π^(3/2) t (-1 + 10000 t^2))
Thus, the sum of this term over n > 0 plus the n = 0 term obtained earlier, plus the delta function corresponding to the constant value 2/Pi is the desired transform.
InverseFourierTransform[Abs[Cos[Omega/100]], Omega, t, FourierParameters -> {0, -2 Pi}]is not sufficient. I shall investigate a few other options when I have time. – bbgodfrey Dec 12 '15 at 18:21