2.4.3 ut+uux=μuxx

problem number 86

From Mathematica symbolic PDE document.

viscous fluid flow with no initial conditions

Solve for u(x,t) ut+uux=μuxx

Mathematica

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

{{u(x,t)2c1μtanh(c2t+c1x+c3)c2c1}}

Maple

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

u(x,t)=2c22μtanh(c3t+c2x+c1)c3c2

____________________________________________________________________________________