Wolfram Mathematica NDSolve 错误

Question

我在这个等式中遇到了 BC 的错误：

s = NDSolve[{D[h[t, x], t] + Sin[x Degree] h[t, x]^2 D[h[t, x], x] + 
     2/3 Cos[x Degree] h[t, x]^3 == 0, h[0, x] == 1, 
   D[h[t, 0], x] == 0}, h, {t, 0, 100}, {x, 0, 90}]

NDSolve::deqn: 第一个参数中预期的方程或方程列表而不是 True {2/3 Cos[[Degree] x] h[t,x]^3+h[t,x]^2 Sin [[度数] x] (h^(0,1))[t,x]+(h^(1,0))[t,x]==0,h[0,x]==1,True }。 >>

有什么建议吗？

Answer 1

最后一个条件：

D[h[t, 0], x] == 0

始终为 True，因为您对常数进行了推导。如果你的意思是

D[ h[t,x], x]  /. x->0

那是另一回事。

暂时，只需将其删除（并可能找到另一个与您的方程顺序兼容的合理边界条件）。

NDSolve[{D[h[t, x], t] + Sin[x] h[t, x]^2 D[h[t, x], x] + 2/3 Cos[x] h[t, x]^3 == 0, h[0, x] == 1}, h, {t, 0, 100}, {x, 0, Pi/2}]

使用一些关于未确定系统的警告。