Question

我有以下Mathematica代码，但它没有给我任何输出。有人可以帮助我。

\[Alpha] = 3;
 F[s_] := Exp[-A*s^(2/\[Alpha])]; 
 integral = Re[Assuming[{A > 0, t > 0, {t, A} \[Element] Reals}, 
 Integrate[F[s]*Exp[s*t] /. s -> I*y, {y, 0, Infinity}]/Pi]]

我还想运行以下代码：

\[Alpha] = 4;
 f[s_] := Exp[-A*s^(2/\[Alpha])]; 
 integral =Re[Assuming[{A > 0, t > 0, {t, A} \[Element] Reals}, 
 Integrate[f[s]*Exp[s*t] /. s -> I*y, {y, -Infinity, Infinity}]/Pi]]

这里A由

给出

A = Pi*\[Lambda]*P^(2/\[Alpha])*Gamma[1 + 2/\[Alpha]]*Gamma[1 - 2/\[Alpha]];

Lambda和P是已知值。

Answer 1

至少在版本10下，这似乎有效

α = 3;
A = Pi*λ*P^(2/α)*Gamma[1+2/α]*Gamma[1-2/α];
integral = Re[Assuming[{A > 0, t > 0},
   Integrate[Exp[-A*(I*y)^(2/α)]*Exp[I*y*t], {y, 0, Infinity}]]/Pi]

α = 4;
A = Pi*λ*P^(2/α)*Gamma[1+2/α]*Gamma[1-2/α];
integral = Re[Assuming[{A > 0, t > 0},
  Integrate[Exp[-A*(I*y)^(2/α)]*Exp[I*y*t], {y, -Infinity, Infinity}]]/Pi]

如果您可以提供有关P和λ值的更多信息，那么也许Re可以做更多。

Mathematica不评估积分

1 个答案: