我正在求解 Mathematica 中的微分方程。这是我要解决的问题：
DSolve[{-(r V[w])+u V'[w]+s V''[w]==-E^(g w)},V[w],w]
当我使用 Wolfram Alpha 解决它时，它给了我一个很好的解决方案：
solve u*V'(w) + s*V''(w) - r * V = -exp(g*w)
V(w) = c_1 e^((w (-sqrt(4 r s+u^2)-u))/(2 s))+c_2 e^((w (sqrt(4 r s+u^2)-u))/(2 s))+e^(g w)/(r-g (g s+u))
但是当我使用 Mathematica 时，解决方案又长又丑：
{{V[w] ->(2 s (2 E^(((2 gs + u - Sqrt[4 rs + u^2]) w)/( 2 s) + ((-u + Sqrt[4 rs + u^2]) w) /(2 s)) gs - 2 E^(((-u - Sqrt[4 rs + u^2]) w)/( 2 s) + ((2 gs + u + Sqrt[4 rs + u^2 ]) w)/(2 s)) gs + E^(((2 gs + u - Sqrt[4 rs + u^2]) w)/( 2 s) + ((-u + Sqrt[4 rs + u^2]) w)/(2 s)) u - E^(((-u - Sqrt[4 rs + u^2]) w)/( 2 s) + ((2 gs + u + Sqrt[ 4 rs + u^2]) w)/(2 s)) u + E^(((2 gs + u - Sqrt[4 rs + u^2]) w)/( 2 s) + ((-u + Sqrt[4 rs + u^2]) w)/(2 s)) Sqrt[ 4 rs + u^2] + E^(((-u - Sqrt[4 rs + u^2]) w)/ ( 2 s) + ((2 gs + u + Sqrt[4 rs + u^2]) w)/(2 s)) Sqrt[ 4 rs + u^2]))/(Sqrt[ 4 rs + u^ 2] (-2 gs - u + Sqrt[4 rs + u^2]) (2 gs + u + Sqrt[4 rs + u^2])) +E^(((-u - Sqrt[4 rs + u^2]) w)/(2 s)) C[1] + E^(((-u + Sqrt[4 rs + u^2]) w )/(2 秒)) C[2]}}
哇！
一般来说，我希望 Mathematica 给我一个很好的解决方案，就像 Wolfram Alpha 所做的那样。有谁知道我是否失踪和条件？还是我做错了？谢谢！