找回密码
 快速注册
搜索
查看: 49|回复: 2

mma 给出太复杂的积分结果

[复制链接]

3149

主题

8386

回帖

6万

积分

$\style{scale:11;fill:#eff}꩜$

积分
65391
QQ

显示全部楼层

hbghlyj 发表于 2023-6-3 05:23 |阅读模式
本帖最后由 hbghlyj 于 2023-6-3 08:10 编辑 $a\inR,$$$I(a)=\int_{-\infty }^{\infty } \frac{\cos (a x)}{x^2+2 x+2} \, dx$$
  1. Integrate[Cos[a x]/(x^2 + 2 x + 2), {x, -Infinity, Infinity}, Assumptions -> a \[Element] Reals]
复制代码

Mathematica
  1. (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])])))
复制代码

3149

主题

8386

回帖

6万

积分

$\style{scale:11;fill:#eff}꩜$

积分
65391
QQ

显示全部楼层

 楼主| hbghlyj 发表于 2023-6-3 05:24

通过计算留数

For $a>0$, by Jordan's lemma, the integral $\int{e^{iaz}\over z^2+2z+2}$ on semicircle contour $\to0$.
  1. Re[2Pi I Residue[Exp[I a x]/(x^2+2x+2),{x,-1+I}]]//ComplexExpand
复制代码

$I(a)=\pi e^{-a}\cos (a)$
So, for $a\inR$, $I(a)=\pi e^{-\abs a}\cos (a)$

119

主题

446

回帖

3179

积分

积分
3179

显示全部楼层

TSC999 发表于 2023-8-22 17:18
本帖最后由 TSC999 于 2023-8-22 17:26 编辑 用你的代码在我的 9.0 版本 MMA 上运行,结果是不用留数也行:
积分.png

手机版|悠闲数学娱乐论坛(第3版)

GMT+8, 2025-3-4 12:04

Powered by Discuz!

× 快速回复 返回顶部 返回列表