|
本帖最后由 hbghlyj 于 2023-6-3 08:10 编辑 $a\inR,$$$I(a)=\int_{-\infty }^{\infty } \frac{\cos (a x)}{x^2+2 x+2} \, dx$$- Integrate[Cos[a x]/(x^2 + 2 x + 2), {x, -Infinity, Infinity}, Assumptions -> a \[Element] Reals]
复制代码
Mathematica
- (1/(4 a))E^((-1-I) a) \[Pi] (-((1+E^(2 I a)) (-1+E^(2 a)) Abs[a])+a (-1+E^(2 I a)+E^(2 a)-E^((2+2 I) a)-2 (1+E^((2+2 I) a)) Ceiling[(\[Pi]-4 Arg[a])/(8 \[Pi])] Floor[(\[Pi]+Arg[a])/(2 \[Pi])]-2 Floor[(\[Pi]-4 Arg[a])/(8 \[Pi])] Floor[(\[Pi]+Arg[a])/(2 \[Pi])]-2 E^((2+2 I) a) Floor[(\[Pi]-4 Arg[a])/(8 \[Pi])] Floor[(\[Pi]+Arg[a])/(2 \[Pi])]+2 E^(2 I a) Floor[3/8-Arg[a]/(2 \[Pi])]+2 E^(2 a) Floor[3/8-Arg[a]/(2 \[Pi])]-2 E^(2 I a) Floor[(\[Pi]+Arg[a])/(2 \[Pi])] Floor[3/8-Arg[a]/(2 \[Pi])]-2 E^(2 a) Floor[(\[Pi]+Arg[a])/(2 \[Pi])] Floor[3/8-Arg[a]/(2 \[Pi])]+2 Ceiling[Arg[a]/(2 \[Pi])] ((-1+E^(2 I a)) (-1+E^(2 a))-(E^(2 I a)+E^(2 a)) Floor[3/8-Arg[a]/(2 \[Pi])])))
复制代码 |
|