Wolfram Matematica DSolve системы уравнений не дает результа

[olya.lv]

ввожу DSolve для системы уравнений, однако не получаю ни ответа ни ошибки. выводит то, что я ввела

DSolve[{D[u[x, t], t] - D[h[x, t], x, x, x] + u[x, t]*D[u[x, t], x] ==0 , D[h[x, t], t] + D[u[x, t], x]*h[x, t] +
 D[h[x, t], x]*u[x, t] == 0}, {u[x, t], h[x, t]}, {x, t}]

[Vince Diesel]

Это означает, что математика не может решить эту систему. В частных производных, нелинейная к тому же. Да еще требование найти общее решение Ничего удивительного, в общем.

[olya.lv]

есть такая программа, которая может найти результат?

[Vince Diesel]

Ничего не могу сказать о таком скромном запросе. Есть какие-то основания полагать, что произвольное решение такой нелинейной системы может быть записано в обозримом виде? А то ведь уже для одного уравнения теплопроводности $u_t-u_{xx}=0$ что-то непонятно, как выписать общее решение.