10 lines
130 B
Mathematica
10 lines
130 B
Mathematica
syms a b t
|
|
assume(a > 0)
|
|
f = exp(-a*abs(t));
|
|
ff = fourier(f);
|
|
|
|
assume(b > 0)
|
|
g = f*cos(b*t);
|
|
gg = simplify(fourier(g));
|
|
|