Wolfram Mathematica NDSolve ошибка

Question

Я получаю сообщение об ошибке для БК в этом уравнении:

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: Уравнение или список уравнений вместо ожидаемых Правда в первом аргументе {2/3 Cos [[Степень] x] h [t, x]^3 + h [t, x]^2 Sin [[Степень] x] (h^(0,1)) [t, x] + (h^(1,0)) [т, х] == 0, ч [0, х] == 1, True}. >>

Любые советы?

Answer 1

Последнее условие:

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

всегда Правда, как вы на производные постоянная. Если вы имеете в виду это

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}] 

работает с несколькими предупреждениями о недоопределенной системе.