2.15.13 Estevez Mansfield Clarkson utyyy+βuyuyt+βuyyut+utt=0

problem number 122

Added December 27, 2018.

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

Estevez Mansfield Clarkson equation. Solve for u(x,y,t) utyyy+βuyuyt+βuyyut+utt=0

Mathematica

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

{{u(x,y,t)6c1(x)tanh(4t(c1(x))3+yc1(x)+c3(x))β+c4(x)}}

Maple

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

u(x,y,t)=6tanh(4_C33t+_C2x+_C3y+_C1)_C3β+_C5

____________________________________________________________________________________