6.2.13 5.1

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

6.2.13.1 [613] problem number 1

problem number 613

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} \operatorname {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 ) = \mathit {\_F1} \left (-b x +y -\left (\int a \ln \left (\lambda x \right )^{k}d x \right )\right )\]

____________________________________________________________________________________

6.2.13.2 [614] problem number 3

problem number 614

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 ) = \mathit {\_F1} \left (x -\left (\int \frac {1}{a \ln \left (\lambda y \right )^{k}+b}d y \right )\right )\]

____________________________________________________________________________________

6.2.13.3 [615] problem number 4

problem number 615

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 ) = \mathit {\_F1} \left (-\lambda \left (\int _{}^{\frac {\lambda y +x}{\lambda }}\frac {1}{a \lambda \ln \left (\mathit {\_a} \lambda \right )^{k}+1}d\mathit {\_a} \right )+x \right )\]

____________________________________________________________________________________