Wolfram Mathematica NDSolve错误

时间:2013-08-20 21:09:20

标签: wolfram-mathematica

我在这个等式中得到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 [[Degree] x](h ^(0,1))[t,x] +(h ^(1,0))[t,x] == 0,h [0,x] == 1,True }。 >>

任何提示?

1 个答案:

答案 0 :(得分: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}]

对一些未确定的系统发出一些警告。