Wolfram mathematica Mathematica不计算积分

我有下面的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 = 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也许能做得更多