Question

我有一个不定积分积分：

Rm = 50; d = 3; W = 1.2;
f = 1/(1 - R^2/Rm^2)
A = W*(d - 1 + X)/d*R^(X - 1) - R*f - (1 - d)/R;
B=W/d*R^X + 1;
Integrate[A/B, R]

Mathematica仅针对X = 0,1和2评估上述积分，但不针对其他非整数值。（注意：对于我的问题，X属于[0,2]。）我还在Maple 11中评估了这个积分.Maple给出了X的所有值的结果。但我想在Mathematica中得到这些结果。

谢谢，

Answer 1

问题是W=1.2的'不精确'浮点值。如果您使用W=12/10，则会得到结果。请注意，在这种情况下，如果在集成之后将所有数值除X之外的所有数值，则实际上会获得更快/更清晰的结果：

 Clear[d,W,Rm,X];
 f = 1/(1 - R^2/Rm^2);
 A = W*(d - 1 + X)/d*R^(X - 1) - R*f - (1 - d)/R;
 B = W/d*R^X + 1;
 Block[{X = 3}, 
     Simplify[Integrate[A/B, R] /. {d -> 3, W -> 1.2, Rm -> 50}]]

1.0627 ArcTan [0.57735 - 0.850791 R] - 0.05 ArcTanh [0.02 R] + 2.记录[R] + 0.614458 Log [1.44225 + 1.06266 R] - 5. * 10 ^ -7 Log [-2500。 + R ^ 2] - 0。307229 Log [2.08008 - 1.53262 R + 1.12924 R ^ 2] + 1.记录[3。 + 1.2 R ^ 3]

除此之外，您应该避免使用大写字母来启动自己的变量名称，以避免与内置符号发生冲突。

在Mathematica中未评估的无限积分

1 个答案: