7.1.1 1.1

7.1.1.1 [2001] Problem 1
7.1.1.2 [2002] Problem 2

7.1.1.1 [2001] Problem 1

problem number 2001

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 w(x,t) wt=awxx+bw2

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=()

____________________________________________________________________________________

7.1.1.2 [2002] Problem 2

problem number 2002

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 w(x,t)

wt=wxx+aw(1w)

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]];
 

{w(x,t)14(1+tanh(112(5at6ax12c3)))2}{w(x,t)14(3+tanh(112(5ati6ax12c3)))(1+tanh(112(5ati6ax12c3)))}{w(x,t)14(3+tanh(112(5at+i6ax12c3)))(1+tanh(112(5at+i6ax12c3)))}{w(x,t)14(1+tanh(112(5at+6ax12c3)))2}{w(x,t)14(1+tanh(5at12ax26+c3))2}{w(x,t)14(3+tanh(5at12iax26+c3))(1+tanh(5at12iax26+c3))}{w(x,t)14(3+tanh(5at12+iax26+c3))(1+tanh(5at12+iax26+c3))}{w(x,t)14(1+tanh(5at12+ax26+c3))2}

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'));
 

w(x,t)=(tanh2(5at12+c1+6ax12))4tanh(5at12+c1+6ax12)2+34

____________________________________________________________________________________