Added January 10, 2019.
Problem 2.4.2.1 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y)\)
Mathematica ✓
ClearAll["Global`*"]; pde = D[w[x, y], x] + a*Cosh[lambda*x]*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Maple ✓
restart; pde := diff(w(x,y),x)+ a*cosh(lambda*x)*diff(w(x,y),y) = 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y))),output='realtime'));
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Added January 10, 2019.
Problem 2.4.2.2 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y)\)
Mathematica ✓
ClearAll["Global`*"]; pde = D[w[x, y], x] + a*Cosh[lambda*y]*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Maple ✓
restart; pde := diff(w(x,y),x)+ a*cosh(lambda*y)*diff(w(x,y),y) = 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y))),output='realtime'));
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Added January 10, 2019.
Problem 2.4.2.3 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y)\)
Mathematica ✓
ClearAll["Global`*"]; pde = D[w[x, y], x] + ((a*Cosh[lambda*x]^2 - lambda)*y^2 - a*Cosh[lambda*x]^2 + lambda + a)*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Maple ✓
restart; pde := diff(w(x,y),x)+ ( (a *cosh(lambda*x)^2-lambda)*y^2 - a*cosh(lambda*x)^2+ lambda + a)*diff(w(x,y),y) = 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y))),output='realtime'));
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Added January 10, 2019.
Problem 2.4.2.4 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y)\)
Mathematica ✓
ClearAll["Global`*"]; pde = 2*D[w[x, y], x] + ((a - lambda + a*Cosh[lambda*x])*y^2 + a + lambda - a*Cosh[lambda*x])*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Maple ✓
restart; pde := 2*diff(w(x,y),x)+ ( (a - lambda + a*cosh(lambda*x))*y^2 + a+ lambda- a *cosh(lambda*x))*diff(w(x,y),y) = 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y))),output='realtime'));
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Added January 10, 2019.
Problem 2.4.2.5 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y)\)
Mathematica ✗
ClearAll["Global`*"]; pde = (a*x^n + b*x*Cosh[y]^m)*D[w[x, y], x] + y^k*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Failed
Maple ✓
restart; pde := (a*x^n+ b*x*cosh(y)^m)*diff(w(x,y),x)+ y^k*diff(w(x,y),y) = 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y))),output='realtime'));
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Added January 10, 2019.
Problem 2.4.2.6 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y)\)
Mathematica ✗
ClearAll["Global`*"]; pde = (a*x^n + b*x*Cosh[y]^m)*D[w[x, y], x] + Cosh[lambda*y]^k*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Failed
Maple ✓
restart; pde := (a*x^n+ b*x*cosh(y)^m)*diff(w(x,y),x)+cosh(lambda*y)^k*diff(w(x,y),y) = 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y))),output='realtime'));
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Added January 10, 2019.
Problem 2.4.2.7 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y)\)
Mathematica ✗
ClearAll["Global`*"]; pde = (a*x^n*y^m + b*x)*D[w[x, y], x] + Cosh[lambda*y]^k*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Failed
Maple ✓
restart; pde := (a*x^n*y^m+ b*x)*diff(w(x,y),x)+cosh(lambda*y)^k*diff(w(x,y),y) = 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y))),output='realtime'));
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Added January 10, 2019.
Problem 2.4.2.8 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y)\)
Mathematica ✓
ClearAll["Global`*"]; pde = Cosh[mu*y]*D[w[x, y], x] + a*Cosh[lambda*x]*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Maple ✓
restart; pde := cosh(mu*y)*diff(w(x,y),x)+a*cosh(lambda*x)*diff(w(x,y),y) = 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y))),output='realtime'));
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________