我有以下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是已知值。
最佳答案
至少在版本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可以做更多的事情。
关于wolfram-mathematica - Mathematica不评估积分，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/35475905/