Added March 23, 2019.
Problem Chapter 1.1.1.1, from Handbook of nonlinear partial differential equations by Andrei D. Polyanin, Valentin F. Zaitsev.
Solve for
Mathematica ✗
ClearAll["Global`*"]; pde = D[w[x, t], t] == a*D[w[x, t], {x, 2}] + b*w[x, t]^2; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, t], {x, t}], 60*10]];
Failed
Maple ✗
restart; pde := diff(w(x,t),t)= a*diff(w(x,t),x$2) + b*w(x,t)^2; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,t))),output='realtime'));
sol=()
____________________________________________________________________________________
Added March 23, 2019.
Problem Chapter 1.1.1.2, from Handbook of nonlinear partial differential equations by Andrei D. Polyanin, Valentin F. Zaitsev.
Solve for
Mathematica ✓
ClearAll["Global`*"]; pde = D[w[x, t], t] == D[w[x, t], {x, 2}] + a*w[x, t]*(1 - w[x, t]); sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, t], {x, t}], 60*10]];
Maple ✓
restart; pde := diff(w(x,t),t)= diff(w(x,t),x$2) + a*w(x,t)*(1-w(x,t)); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,t))),output='realtime'));
____________________________________________________________________________________