如何用mathematica解一条方程？

楼上的ln错了。

代码，

FindRoot[T*Log[6.2*3.5*T^3] - 8.62 == 0, {T, 1}]

直接拷贝即可运行。

FindRoot，找到方程在给定点附近的一个解。这里找1附近的解。

很显然，原函数只在>0的区间有定义，且单调，故只有一个根。

可以画一下图看一下交点，

Plot[T*Log[6.2*3.5*T^3] - 8.62, {T, 0.001, 10}]

FindRoot[T*ln(6.2*3.5*T^3)-8.62==0,{T,T0}]
其中T0为初始值，可以找一个离真实根T不太远的值开始。