Question

mathematica计算积分为什么算不出来

a := 0.9
var := 0.085760932176
f[x_] := 1/0.140529615*Integrate[\!\(TraditionalForm\`\*
SuperscriptBox["e",
RowBox[{"\[Minus]",
FractionBox[
SuperscriptBox[
RowBox[{
StyleBox["(",
SpanMinSize->1,
SpanMaxSize->1],
RowBox[{
StyleBox["t",
SpanMinSize->1,
SpanMaxSize->1], "\[Minus]", "0.013913043"}],
StyleBox[")",
SpanMinSize->1,
SpanMaxSize->1]}], "2"], "0.006286166"]}]]\), {t, -\[Infinity], x}]
Integrate[x*(f[x] - a)/(1 - a), {x, var, \[Infinity]}]

Answer 1

因为f[x_]这个反常积分并不收敛啊，软件不是给了警告信息吗。顺便你贴代码怎么贴了TraditionalForm，这种形式是没法用于计算的……