Mathematica给出积分计算步骤

真心牛逼的不行了, 说实话我看着这个积分头疼, 但是MMA完全能搞定:

WolframAlpha["int -(t-Tanh[t])Sech[t]^2Tanh[t] over t", 
 IncludePods -> "IndefiniteIntegral", AppearanceElements -> {"Pods"}, 
 PodStates -> {"IndefiniteIntegral__Step-by-step solution"}]

输出结果如下, 虽然说有很多步骤它给得太详细了, 但是按着这个路子, 很容易就可以算出来了. 也许以后再也不怕算积分了?

int-wolfram-mma.png