2.15.11 Degasperis Procesi utuxxt+4uux=3uxuxx+uuxxx

problem number 120

Added December 27, 2018.

Taken from https://en.wikipedia.org/wiki/List_of_nonlinear_partial_differential_equations

Degasperis Procesi. Solve for u(x,t) utuxxt+4uux=3uxuxx+uuxxx

Mathematica

ClearAll["Global`*"]; 
pde =  D[u[x, t], t] - D[D[u[x, t], {x, 2}], t] + 4*u[x, t]*D[u[x, t], x] == 3*D[u[x, t], x]*D[u[x, t], {x, 2}] + u[x, t]*D[u[x, t], {x, 3}]; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, u[x, t], {x, t}], 60*10]];
 

Failed

Maple

restart; 
pde := diff(u(x,t),t)-diff(u(x,t),x,x,t)+4*u(x,t)*diff(u(x,t),x)=3*diff(u(x,t),x)*diff(u(x,t),x$2)+u(x,t)*diff(u(x,t),x$3); 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,u(x,t),'build')),output='realtime'));
 

PDESolStruc(u(x,t)=_F1(x)_c2t+_C2,[{{_F1(x)=ODESolStruc(_a,[{(d2d_a2_b(_a))(_b(_a))2_a+(dd_a_b(_a))2_b(_a)_a+_b(_a)(dd_a_b(_a))(_c2+3_b(_a))_a(_c2+4_b(_a))_a=0},{_a=_F1(x),_b(_a)=ddx_F1(x)},{x=(_b(_a))1d_a+_C1,_F1(x)=_a}])}}]) But still has unresolved ODE’s in solution

____________________________________________________________________________________