From Mathematica symbolic PDE document.
viscous fluid flow with no initial conditions
Solve for
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]];
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'));
____________________________________________________________________________________