Mathematica的Integrate只是吐出输入......不解决Integral

Question

只是寻找一些mathematica的帮助。当我尝试计算机这个积分：

Integrate[Cos[t]/(1 + b^2 t^2 - (2*b*c*t)/a + c^2/a^2)^(3/2), { t, -Infinity, Infinity}, Assumptions -> {a, b, c} \[Element] Reals]

Mathematica刚吐出来：

Integrate[Cos[t]/(1 + c^2/a^2 - (2 b c t)/a + b^2 t^2)^(3/2), {t, -\[Infinity], \[Infinity]}, Assumptions -> (a | b | c) \[Element] Reals]

我将如何评估此积分？

Answer 1

简化。首先，你不需要3个独立的参数，只需要两个。那么这个积分相当于（通过变量的变化和参数的重新缩放）

Integrate[Cos[(a - b t)]/(1 + t^2)^(3/2), {t, -Infinity, Infinity}, 
          Assumptions -> {a, b} \[Element] Reals]

回答：

  

2 Abs [b] BesselK [1，Abs [b]] Cos [a]

常量a，b与原始常量不同，但如果您进行简单的重新缩放和变量更改，则可以通过它们表示。这是你在参数空间中的漂亮功能：

Plot3D[2 Abs[b] BesselK[1, Abs[b]] Cos[a], {a, -5, 5}, {b, -5, 5}, 
 PlotRange -> All, Mesh -> All, ColorFunction -> "DarkRainbow", 
 MeshStyle -> Opacity[.1], AxesLabel -> {a, b}]