____________________________________________________________________________________
Added January 10, 2019.
Problem 2.4.4.1 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for
Mathematica ✓
ClearAll[w, x, y, n, a, b, m, c, k, alpha, beta, gamma, A, C0, s, lambda, B, s, mu, d]; pde = D[w[x, y], x] + a*Coth[lambda*x]*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Maple ✓
w:='w';x:='x';y:='y';a:='a';b:='b';n:='n';m:='m';c:='c';k:='k';alpha:='alpha';beta:='beta';g:='g';A:='A'; C:='C';lambda:='lambda';s:='s';B:='B';mu:='mu';d:='d'; pde := diff(w(x,y),x)+a*coth(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.4.2 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for
Mathematica ✓
ClearAll[w, x, y, n, a, b, m, c, k, alpha, beta, gamma, A, C0, s, lambda, B, s, mu, d]; pde = D[w[x, y], x] + a*Coth[lambda*y]*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Maple ✓
w:='w';x:='x';y:='y';a:='a';b:='b';n:='n';m:='m';c:='c';k:='k';alpha:='alpha';beta:='beta';g:='g';A:='A'; C:='C';lambda:='lambda';s:='s';B:='B';mu:='mu';d:='d'; pde := diff(w(x,y),x)+a*coth(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.4.3 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for
Mathematica ✓
ClearAll[w, x, y, n, a, b, m, c, k, alpha, beta, gamma, A, C0, s, lambda, B, s, mu, d]; pde = D[w[x, y], x] + (y^2 + a*lambda - a*(a + lambda)*Coth[lambda*x]^2)*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Maple ✓
w:='w';x:='x';y:='y';a:='a';b:='b';n:='n';m:='m';c:='c';k:='k';alpha:='alpha';beta:='beta';g:='g';A:='A'; C:='C';lambda:='lambda';s:='s';B:='B';mu:='mu';d:='d'; pde := diff(w(x,y),x)+(y^2 + a*lambda - a*(a+lambda)*coth(lambda*x)^2)*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.4.4 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for
Mathematica ✗
ClearAll[w, x, y, n, a, b, m, c, k, alpha, beta, gamma, A, C0, s, lambda, B, s, mu, d]; pde = D[w[x, y], x] + (y^2 + 3*a*lambda - lambda^2 - a*(a + lambda)*Coth[lambda*x]^2)*D[w[x, y], y] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
Maple ✓
w:='w';x:='x';y:='y';a:='a';b:='b';n:='n';m:='m';c:='c';k:='k';alpha:='alpha';beta:='beta';g:='g';A:='A'; C:='C';lambda:='lambda';s:='s';B:='B';mu:='mu';d:='d'; pde := diff(w(x,y),x)+(y^2 + a*lambda -lambda^2 - a*(a+lambda)*coth(lambda*x)^2)*diff(w(x,y),y) = 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y))),output='realtime'));