6.2.31 9.2

6.2.31.1 [805] problem number 1
6.2.31.2 [806] problem number 2
6.2.31.3 [807] problem number 3
6.2.31.4 [808] problem number 4
6.2.31.5 [809] problem number 5
6.2.31.6 [810] problem number 6
6.2.31.7 [811] problem number 7
6.2.31.8 [812] problem number 8
6.2.31.9 [813] problem number 9
6.2.31.10 [814] problem number 10
6.2.31.11 [815] problem number 11
6.2.31.12 [816] problem number 12
6.2.31.13 [817] problem number 13
6.2.31.14 [818] problem number 14
6.2.31.15 [819] problem number 15
6.2.31.16 [820] problem number 16

6.2.31.1 [805] problem number 1

problem number 805

Added Feb. 7, 2019.

Problem 2.9.2.1 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ w_x + f(a x+b y + c) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], x] + f[a*x + b*y + c]*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=  diff(w(x,y),x)+ f(a*x+b*y+c)*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( -\int ^{{\frac {ax+by}{b}}}\! \left ( f \left ( b{\it \_a}+c \right ) b+a \right ) ^{-1}{d{\it \_a}}b+x \right ) \]

____________________________________________________________________________________

6.2.31.2 [806] problem number 2

problem number 806

Added Feb. 7, 2019.

Problem 2.9.2.2 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ w_x + f(\frac {y}{x}) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], x] + f[y/x]*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=  diff(w(x,y),x)+ f(y/x)*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( \int ^{{\frac {y}{x}}}\! \left ( f \left ( {\it \_a} \right ) -{\it \_a} \right ) ^{-1}{d{\it \_a}}-\ln \left ( x \right ) \right ) \]

____________________________________________________________________________________

6.2.31.3 [807] problem number 3

problem number 807

Added Feb. 7, 2019.

Problem 2.9.2.3 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ w_x + \left ( f(y+a x^n+b) - a n x^{n-1} \right ) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], x] + (f[y + a*x^n + b] - a*n*x^(n - 1))*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=  diff(w(x,y),x)+ (f(y+a*x^n+b) - a*n*x^(n-1))*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( \int _{{\it \_b}}^{y}\! \left ( f \left ( {\it \_a}+{x}^{n}a+b \right ) \right ) ^{-1}\,{\rm d}{\it \_a}-x \right ) \]

____________________________________________________________________________________

6.2.31.4 [808] problem number 4

problem number 808

Added Feb. 7, 2019.

Problem 2.9.2.4 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ x w_x + y f(x^n y^m) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  x*D[w[x, y], x] + y*f[x^n*y^m]*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=  x*diff(w(x,y),x)+ y*f(x^n*y^m)*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( {\frac {1}{m} \left ( \int _{{\it \_b}}^{y}\!{\frac {1}{ \left ( f \left ( {x}^{n}{{\it \_a}}^{m} \right ) m+n \right ) {\it \_a}}}\,{\rm d}{\it \_a}m-\ln \left ( x \right ) \right ) } \right ) \]

____________________________________________________________________________________

6.2.31.5 [809] problem number 5

problem number 809

Added Feb. 7, 2019.

Problem 2.9.2.5 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ y^{m-1} w_x + x^{n-1} f(a x^n+b y^m) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  y^(m - 1)*D[w[x, y], x] + x^(n - 1)*f[a*x^n + b*y^m]*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde := y^(m-1)*diff(w(x,y),x)+  x^(n-1)*f(a*x^n+b*y^m)*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

sol=()

____________________________________________________________________________________

6.2.31.6 [810] problem number 6

problem number 810

Added Feb. 7, 2019.

Problem 2.9.2.6 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ w_x + e^{-\lambda x} f(e^{\lambda x} y) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], x] + Exp[-(lambda*x)]*f[Exp[lambda*x]*y]*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=  diff(w(x,y),x)+   exp(-lambda*x)*f(exp(lambda*x)*y)*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( x-\int ^{y{{\rm e}^{\lambda \,x}}}\! \left ( {\it \_a}\,\lambda +f \left ( {\it \_a} \right ) \right ) ^{-1}{d{\it \_a}} \right ) \]

____________________________________________________________________________________

6.2.31.7 [811] problem number 7

problem number 811

Added Feb. 7, 2019.

Problem 2.9.2.7 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ w_x + e^{\lambda y} f(e^{\lambda y} x) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], x] + Exp[lambda*y]*f[Exp[lambda*y]*x]*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=  diff(w(x,y),x)+   exp(lambda*y)*f(exp(lambda*y)*x)*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( {\frac {1}{\lambda } \left ( -\int ^{{\frac {y\lambda +\ln \left ( x \right ) }{\lambda }}}\! \left ( 1+f \left ( {{\rm e}^{{\it \_a}\,\lambda }} \right ) \lambda \,{{\rm e}^{{\it \_a}\,\lambda }} \right ) ^{-1}{d{\it \_a}}\lambda +\ln \left ( x \right ) \right ) } \right ) \]

____________________________________________________________________________________

6.2.31.8 [812] problem number 8

problem number 812

Added Feb. 7, 2019.

Problem 2.9.2.8 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ w_x + y f(e^{\alpha x} y^m) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], x] + y*f[Exp[alpha*x]*y^m]*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=  diff(w(x,y),x)+   y*f(exp(alpha*x)*y^m)*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( {\frac {1}{m} \left ( \int _{{\it \_b}}^{y}\!{\frac {1}{{\it \_a}\, \left ( f \left ( {{\rm e}^{\alpha \,x}}{{\it \_a}}^{m} \right ) m+\alpha \right ) }}\,{\rm d}{\it \_a}m-x \right ) } \right ) \]

____________________________________________________________________________________

6.2.31.9 [813] problem number 9

problem number 813

Added Feb. 7, 2019.

Problem 2.9.2.9 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ x w_x + f(x^n e^{\alpha y}) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  x*D[w[x, y], x] + f[x^n*Exp[alpha*y]]*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=  x*diff(w(x,y),x)+   f(x^n*exp(alpha*y))*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( {\frac {\int _{{\it \_b}}^{y}\! \left ( \alpha \,f \left ( {x}^{n}{{\rm e}^{{\it \_a}\,\alpha }} \right ) +n \right ) ^{-1}\,{\rm d}{\it \_a}\alpha -\ln \left ( x \right ) }{\alpha }} \right ) \]

____________________________________________________________________________________

6.2.31.10 [814] problem number 10

problem number 814

Added Feb. 7, 2019.

Problem 2.9.2.10 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ w_x + e^{\lambda x - \beta y} f(a e^{\lambda x} + b e^{\beta y}) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], x] + Exp[lambda*x - beta*y]*f[a*Exp[lambda*x] + b*Exp[beta*y]]*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=  diff(w(x,y),x)+  exp(lambda*x-beta*y)*f(a*exp(lambda*x)+b*exp(beta*y))*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( {\frac {1}{\lambda } \left ( \int ^{{\frac {-a{{\rm e}^{\lambda \,x}}-b{{\rm e}^{\beta \,y}}}{a\lambda }}}\! \left ( bf \left ( -{\it \_a}\,a\lambda \right ) \beta +a\lambda \right ) ^{-1}{d{\it \_a}}{\lambda }^{2}a+{{\rm e}^{\lambda \,x}} \right ) } \right ) \]

____________________________________________________________________________________

6.2.31.11 [815] problem number 11

problem number 815

Added Feb. 7, 2019.

Problem 2.9.2.11 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ w_x + \left ( f\left (y+a e^{\lambda x}+b \right ) -a \lambda e^{\lambda x} \right ) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], x] + (f[y + a*Exp[lambda*x] + b] - a*lambda*Exp[lambda*x])*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=  diff(w(x,y),x)+  (f(y+a*exp(lambda*x)+b)-a * lambda*exp(lambda*x))*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( \int _{{\it \_b}}^{y}\! \left ( f \left ( {\it \_a}+a{{\rm e}^{\lambda \,x}}+b \right ) \right ) ^{-1}\,{\rm d}{\it \_a}-x \right ) \]

____________________________________________________________________________________

6.2.31.12 [816] problem number 12

problem number 816

Added Feb. 7, 2019.

Problem 2.9.2.12 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ \alpha x y w_x + \left ( \alpha f(x^n e^{\alpha y}) - n y \right ) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  alpha*x*y*D[w[x, y], x] + (alpha*f[x^n*Exp[alpha*y]] - n*y)*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=  alpha*x*y*diff(w(x,y),x)+  (alpha*f(x^n*exp(alpha*y)) - n*y)*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

sol=()

____________________________________________________________________________________

6.2.31.13 [817] problem number 13

problem number 817

Added Feb. 7, 2019.

Problem 2.9.2.13 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ m x(\ln y) w_x + \left ( y f(x^n y^m) - n y \ln y \right ) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  m*x*Log[y]*D[w[x, y], x] + (y*f[x^n*y^m] - n*y*Log[y])*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=   m*x*ln(y)*diff(w(x,y),x)+  (y*f(x^n*y^m) - n*y*ln[y])*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

sol=()

____________________________________________________________________________________

6.2.31.14 [818] problem number 14

problem number 818

Added Feb. 7, 2019.

Problem 2.9.2.14 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ w_x + \left ( f(y+a \tan x) - a \tan ^2 x \right ) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], x] + (f[y + a*Tan[x]] - a*Tan[x]^2)*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=   diff(w(x,y),x)+  (f(y+a*tan(x)) - a*tan(x)^2)*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( -x+\int ^{y+a\tan \left ( x \right ) }\! \left ( f \left ( {\it \_a} \right ) +a \right ) ^{-1}{d{\it \_a}} \right ) \]

____________________________________________________________________________________

6.2.31.15 [819] problem number 15

problem number 819

Added Feb. 7, 2019.

Problem 2.9.2.15 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ e^{\lambda x} w_x + f(\lambda x+\ln y) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  Exp[lambda*x]*D[w[x, y], x] + f[lambda*x + Log[y]]*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=    exp(lambda*x)*diff(w(x,y),x)+  f(lambda*x+ln(y))*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( x-\int ^{y{{\rm e}^{\lambda \,x}}}\! \left ( f \left ( \ln \left ( {\it \_a} \right ) \right ) +{\it \_a}\,\lambda \right ) ^{-1}{d{\it \_a}} \right ) \]

____________________________________________________________________________________

6.2.31.16 [820] problem number 16

problem number 820

Added Feb. 7, 2019.

Problem 2.9.2.16 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for \(w(x,y)\)

\[ w_x + e^{\lambda y} f(\lambda y+\ln x) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], x] + Exp[lambda*y]*f[lambda*y + Log[x]]*D[w[x, y], y] == 0; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

Failed

Maple

restart; 
pde :=   diff(w(x,y),x)+  exp(lambda*y)*f(lambda*y+ln(x))*diff(w(x,y),y) = 0; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y)) ),output='realtime'));
 

\[w \left ( x,y \right ) ={\it \_F1} \left ( {\frac {1}{\lambda } \left ( -\int ^{{\frac {y\lambda +\ln \left ( x \right ) }{\lambda }}}\! \left ( 1+f \left ( {\it \_a}\,\lambda \right ) \lambda \,{{\rm e}^{{\it \_a}\,\lambda }} \right ) ^{-1}{d{\it \_a}}\lambda +\ln \left ( x \right ) \right ) } \right ) \]

____________________________________________________________________________________