level 2
默默吃瓜77
楼主
我正在用mathematica11.3解一个常微分方程，输入代码如下
DSolve[(h - r*Exp[-W[r]])*W''[r] + (h - 3*r*Exp[-W[r]])*W'[r]/r + r*Exp[-W[r]]*(W'[r])^2 == 0, W[r], r]
点了shift+回车，运算了蛮久的，大概有二十秒以上，输出的结果只是把公式化简了一下
DSolve[((h - 3 E^-W[r] r) Derivative[1][W][r])/r + E^-W[r] r Derivative[1][W][r]^2 + (h - E^-W[r] r) (W^\[Prime]\[Prime])[r] == 0, W[r], r]
这是截图
求指教，非常感谢。
2019年03月23日 08点03分
1
DSolve[(h - r*Exp[-W[r]])*W''[r] + (h - 3*r*Exp[-W[r]])*W'[r]/r + r*Exp[-W[r]]*(W'[r])^2 == 0, W[r], r]
点了shift+回车，运算了蛮久的，大概有二十秒以上，输出的结果只是把公式化简了一下
DSolve[((h - 3 E^-W[r] r) Derivative[1][W][r])/r + E^-W[r] r Derivative[1][W][r]^2 + (h - E^-W[r] r) (W^\[Prime]\[Prime])[r] == 0, W[r], r]
这是截图
求指教，非常感谢。
