Added Oct 18, 2019.
Problem Chapter 8.6.2.1, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for
Mathematica ✓
ClearAll["Global`*"]; pde = D[w[x, y,z], x] + a*D[w[x, y,z], y] + b*D[w[x,y,z],z]== c*Cos[beta*x]^n*w[x,y,z]; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x,y,z}], 60*10]];
Maple ✓
restart; local gamma; pde := diff(w(x,y,z),x)+a*diff(w(x,y,z),y)+ b*diff(w(x,y,z),z)= c*cos(beta*x)^n*w(x,y,z); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
____________________________________________________________________________________
Added Oct 18, 2019.
Problem Chapter 8.6.2.2, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for
Mathematica ✓
ClearAll["Global`*"]; pde = a*D[w[x, y,z], x] + b*D[w[x, y,z], y] + c*Cos[beta*z]*D[w[x,y,z],z]== (k*Cos[lambda*x]+s*Cos[gamma*y])*w[x,y,z]; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x,y,z}], 60*10]];
Maple ✓
restart; local gamma; pde := a*diff(w(x,y,z),x)+b*diff(w(x,y,z),y)+ c*cos(beta*z)*diff(w(x,y,z),z)= (k*cos(lambda*x)+s*cos(gamma*y))*w(x,y,z); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
____________________________________________________________________________________
Added Oct 18, 2019.
Problem Chapter 8.6.2.3, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for
Mathematica ✓
ClearAll["Global`*"]; pde = D[w[x, y,z], x] + a*Cos[beta*x]^n*D[w[x, y,z], y] + b*Cos[lambda*x]^k*D[w[x,y,z],z]== c*Cos[gamma*x]^m*w[x,y,z]; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x,y,z}], 60*10]];
Maple ✓
restart; local gamma; pde := diff(w(x,y,z),x)+a*cos(beta*x)^n*diff(w(x,y,z),y)+ b*cos(lambda*x)^k*diff(w(x,y,z),z)= c*cos(gamma*x)^m*w(x,y,z); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
____________________________________________________________________________________
Added Oct 18, 2019.
Problem Chapter 8.6.2.4, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for
Mathematica ✗
ClearAll["Global`*"]; pde = D[w[x, y,z], x] + a*Cos[beta*x]^n*D[w[x, y,z], y] + b*Cos[gamma*y]^m*D[w[x,y,z],z]== (c*Cos[gamma*y]^k+s*Cos[mu*z]^r)*w[x,y,z]; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x,y,z}], 60*10]];
Failed
Maple ✓
restart; local gamma; pde := diff(w(x,y,z),x)+a*cos(beta*x)^n*diff(w(x,y,z),y)+ b*cos(gamma*y)^m*diff(w(x,y,z),z)= (c*cos(gamma*y)^k+s*cos(mu*z)^r)*w(x,y,z); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
____________________________________________________________________________________
Added Oct 18, 2019.
Problem Chapter 8.6.2.5, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for
Mathematica ✓
ClearAll["Global`*"]; pde = a*D[w[x, y,z], x] + b*Cos[beta*y]*D[w[x, y,z], y] + c*Cos[lambda*x]^m*D[w[x,y,z],z]== k*Cos[gamma*z]*w[x,y,z]; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x,y,z}], 60*10]];
Maple ✓
restart; local gamma; pde := a*diff(w(x,y,z),x)+b*cos(beta*y)*diff(w(x,y,z),y)+ c*cos(lambda*x)^m*diff(w(x,y,z),z)= k*cos(gamma*z)*w(x,y,z); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
____________________________________________________________________________________
Added Oct 18, 2019.
Problem Chapter 8.6.2.6, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for
Mathematica ✗
ClearAll["Global`*"]; pde = a1*Cos[lambda1*z]^n1*D[w[x, y,z], x] + b1*Cos[beta1*y]^m1*D[w[x, y,z], y] + c1*Cos[gamma1*z]^k1*D[w[x,y,z],z]== (a2*Cos[lambda2*z]^n2 + b2*Cos[beta2*y]^m2 + c2*Cos[gamma2*z]^k2)*w[x,y,z]; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x,y,z}], 60*10]];
$Aborted
Maple ✓
restart; local gamma; pde := a1*cos(lambda1*z)^n1*diff(w(x,y,z),x)+ b1*cos(beta1*y)^m1*diff(w(x,y,z),y)+ c1*cos(gamma1*z)^k1*diff(w(x,y,z),z)= (a2*cos(lambda2*z)^n2 + b2*cos(beta2*y)^m2 + c2*cos(gamma2*z)^k2)*w(x,y,z); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
____________________________________________________________________________________