6.2.13 5.1

6.2.13.1 [614] problem number 1
6.2.13.2 [615] problem number 3
6.2.13.3 [616] problem number 4

6.2.13.1 [614] problem number 1

problem number 614

Added January 14, 2019.

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

Solve for \(w(x,y)\) \[ w_x + \left ( a \ln ^k(\lambda x)+ b\right ) w_y = 0 \]

Mathematica

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

\[\left \{\left \{w(x,y)\to c_1\left (-\frac {a \log ^k(\lambda x) (-\log (\lambda x))^{-k} \text {Gamma}(k+1,-\log (\lambda x))}{\lambda }-b x+y\right )\right \}\right \}\]

Maple

restart; 
pde := diff(w(x,y),x)+(a*ln(lambda*x)^k+b)*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 ( -bx+y-\int \!a \left ( \ln \left ( \lambda \,x \right ) \right ) ^{k}\,{\rm d}x \right ) \]

____________________________________________________________________________________

6.2.13.2 [615] problem number 3

problem number 615

Added January 14, 2019.

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

Solve for \(w(x,y)\) \[ w_x + \left ( a \ln ^k(\lambda y)+ b\right ) w_y = 0 \]

Mathematica

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

\[\left \{\left \{w(x,y)\to c_1\left (\int _1^y\frac {1}{a \log ^k(\lambda K[1])+b}dK[1]-x\right )\right \}\right \}\]

Maple

restart; 
pde := diff(w(x,y),x)+(a*ln(lambda*y)^k+b)*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 \! \left ( a \left ( \ln \left ( y\lambda \right ) \right ) ^{k}+b \right ) ^{-1}\,{\rm d}y+x \right ) \]

____________________________________________________________________________________

6.2.13.3 [616] problem number 4

problem number 616

Added January 14, 2019.

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

Solve for \(w(x,y)\) \[ w_x + \left ( a \ln ^k(x+\lambda y)\right ) w_y = 0 \]

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], x] + a*Log[x + 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 := diff(w(x,y),x)+a*ln(x+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'));
 

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

____________________________________________________________________________________