9 lines
397 B
Mathematica
9 lines
397 B
Mathematica
syms a b t % Define a, b, and t as symbolic variables
|
|
assume(a > 0) % Assume a is a positive real number
|
|
f = exp(-a*abs(t)); % Define f(t) = e^(-a|t|)
|
|
ff = fourier(f) % Take the Fourier transform of f(t)
|
|
|
|
assume(b > 0) % Assume b is a positive real number
|
|
g = f*cos(b*t); % Define g(t) = e^(-a|t|)*cos(bt)
|
|
gg = simplify(fourier(g)) % Take the Fourier transform of g(t)
|