6.8.12 5.1

6.8.12.1 [1832] Problem 1

problem number 1832

Added Oct 17, 2019.

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

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

\[ w_x + a w_y + b w_z = c \ln ^n(\beta x) w \]

Mathematica ✓

ClearAll["Global`*"]; 
pde =  D[w[x, y,z], x] + a*D[w[x, y,z], y] +  b*D[w[x,y,z],z]== c*Log[beta*x]^n*w[x,y,z]; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x,y,z}], 60*10]];
 

\[\left \{\left \{w(x,y,z)\to \exp \left (\frac {c (-\log (\beta x))^{-n} \log ^n(\beta x) \Gamma (n+1,-\log (\beta x))}{\beta }\right ) c_1(y-a x,z-b x)\right \}\right \}\]

Maple ✓

restart; 
local gamma; 
pde :=  diff(w(x,y,z),x)+a*diff(w(x,y,z),y)+ b*diff(w(x,y,z),z)= c*ln(beta*x)^n*w(x,y,z); 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
 

\[w \left (x , y , z\right ) = f_{1} \left (-a x +y , -b x +z \right ) {\mathrm e}^{c \int \ln \left (\beta x \right )^{n}d x}\]

___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

6.8.12.2 [1833] Problem 2

problem number 1833

Added Oct 17, 2019.

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

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

\[ a w_x + b w_y + c \ln ^n(\beta x) w_z = s \ln ^m(\lambda y) w \]

Mathematica ✓

ClearAll["Global`*"]; 
pde =  a*D[w[x, y,z], x] + b*D[w[x, y,z], y] +  c*Log[beta*x]^n*D[w[x,y,z],z]== s*Log[lambda*y]^m*w[x,y,z]; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x,y,z}], 60*10]];
 

\[\left \{\left \{w(x,y,z)\to \exp \left (\frac {s (-\log (\lambda y))^{-m} \log ^m(\lambda y) \Gamma (m+1,-\log (\lambda y))}{b \lambda }\right ) c_1\left (y-\frac {b x}{a},z-\frac {c (-\log (\beta x))^{-n} \log ^n(\beta x) \Gamma (n+1,-\log (\beta x))}{a \beta }\right )\right \}\right \}\]

Maple ✓

restart; 
local gamma; 
pde :=  a*diff(w(x,y,z),x)+b*diff(w(x,y,z),y)+ c*ln(beta*x)^n*diff(w(x,y,z),z)= s*ln(lambda*y)^m*w(x,y,z); 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
 

\[w \left (x , y , z\right ) = f_{1} \left (\frac {y a -b x}{a}, -\frac {c \int \ln \left (\beta x \right )^{n}d x}{a}+z \right ) {\mathrm e}^{\frac {s \int _{}^{x}\ln \left (\frac {\left (y a -b \left (x -\textit {\_a} \right )\right ) \lambda }{a}\right )^{m}d \textit {\_a}}{a}}\]

___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

6.8.12.3 [1834] Problem 3

problem number 1834

Added Oct 17, 2019.

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

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

\[ w_x + a \ln ^n(\beta x) w_y + b \ln ^k(\lambda x) w_z = c \ln ^m(\gamma x) w \]

Mathematica ✓

ClearAll["Global`*"]; 
pde =  D[w[x, y,z], x] + a*Log[beta*x]^n*D[w[x, y,z], y] +  b*Log[lambda*x]^k*D[w[x,y,z],z]== c*Log[gamma*x]^m*w[x,y,z]; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x,y,z}], 60*10]];
 

\[\left \{\left \{w(x,y,z)\to \exp \left (\frac {c (-\log (\gamma x))^{-m} \log ^m(\gamma x) \Gamma (m+1,-\log (\gamma x))}{\gamma }\right ) c_1\left (y-\frac {a (-\log (\beta x))^{-n} \log ^n(\beta x) \Gamma (n+1,-\log (\beta x))}{\beta },z-\frac {b (-\log (\lambda x))^{-k} \log ^k(\lambda x) \Gamma (k+1,-\log (\lambda x))}{\lambda }\right )\right \}\right \}\]

Maple ✓

restart; 
local gamma; 
pde :=  diff(w(x,y,z),x)+a*ln(beta*x)^n*diff(w(x,y,z),y)+ b*ln(lambda*x)^k*diff(w(x,y,z),z)= c*ln(gamma*x)^m*w(x,y,z); 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
 

\[w \left (x , y , z\right ) = f_{1} \left (-a \int \ln \left (\beta x \right )^{n}d x +y , -b \int \ln \left (\lambda x \right )^{k}d x +z \right ) {\mathrm e}^{c \int \ln \left (\gamma x \right )^{m}d x}\]

___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

6.8.12.4 [1835] Problem 4

problem number 1835

Added Oct 17, 2019.

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

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

\[ w_x + a \ln ^n(\beta x) w_y + b \ln ^k(\lambda y) w_z = c \ln ^m(\gamma x) w \]

Mathematica ✗

ClearAll["Global`*"]; 
pde =  D[w[x, y,z], x] + a*Log[beta*x]^n*D[w[x, y,z], y] +  b*Log[lambda*y]^k*D[w[x,y,z],z]== c*Log[gamma*x]^m*w[x,y,z]; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x,y,z}], 60*10]];
 

Failed

Maple ✓

restart; 
local gamma; 
pde :=  diff(w(x,y,z),x)+a*ln(beta*x)^n*diff(w(x,y,z),y)+ b*ln(lambda*y)^k*diff(w(x,y,z),z)= c*ln(gamma*x)^m*w(x,y,z); 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
 

\[w \left (x , y , z\right ) = f_{1} \left (-a \int \ln \left (\beta x \right )^{n}d x +y , -b \int _{}^{x}{\ln \left (\lambda \left (a \int \ln \left (\beta \textit {\_b} \right )^{n}d \textit {\_b} -a \int \ln \left (\beta x \right )^{n}d x +y \right )\right )}^{k}d \textit {\_b} +z \right ) {\mathrm e}^{c \int \ln \left (\gamma x \right )^{m}d x}\]

___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

6.8.12.5 [1836] Problem 5

problem number 1836

Added Oct 17, 2019.

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

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

\[ a_1 \ln ^{n_1}(\lambda _1 x) w_x + b_1 \ln ^{m_1}(\beta _1 y) w_y + c_1 \ln ^{k_1}(\gamma _1 z) w_z = \left ( a_2 \ln ^{n_2}(\lambda _2 x) + b_2 \ln ^{m_2}(\beta _2 y)+ c_2 \ln ^{k_2}(\gamma _2 z) \right ) w \]

Mathematica ✗

ClearAll["Global`*"]; 
pde =   a1*Log[lambda1*x]^n1*D[w[x, y,z], x] + b1*Log[beta1*y]^m1*D[w[x, y,z], x]*D[w[x, y,z], y] + c1*Log[gamma1*z]^k1*D[w[x,y,z],z]== ( a2*Log[lambda2*x]^n2+ b2*Log[beta2*y]^m2+ c2*Log[gamma2*z]^k2)*w[x,y,z]; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x,y,z}], 60*10]];
 

Failed

Maple ✓

restart; 
local gamma; 
pde :=   a1*ln(lambda1*x)^n1*diff(w(x,y,z),x)+ b1*ln(beta1*y)^m1*diff(w(x,y,z),y)+  c1*ln(gamma1*z)^k1*diff(w(x,y,z),z)= (a2*ln(lambda2*x)^n2+ b2*ln(beta2*y)^m2+ c2*ln(gamma2*z)^k2)*w(x,y,z); 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
 

\[w \left (x , y , z\right ) = f_{1} \left (-\int \ln \left (\lambda \operatorname {1} x \right )^{-\operatorname {n1}}d x +\frac {\operatorname {a1} \int \ln \left (\beta \operatorname {1} y \right )^{-\operatorname {m1}}d y}{\operatorname {b1}}, -\int \ln \left (\lambda \operatorname {1} x \right )^{-\operatorname {n1}}d x +\frac {\operatorname {a1} \int \ln \left (\gamma \operatorname {1} z \right )^{-\operatorname {k1}}d z}{\operatorname {c1}}\right ) {\mathrm e}^{\frac {\int _{}^{x}\left (\operatorname {a2} \ln \left (\lambda \operatorname {2} \textit {\_f} \right )^{\operatorname {n2}}+\operatorname {b2} {\ln \left (\beta \operatorname {2} \operatorname {RootOf}\left (\operatorname {a1} \int \ln \left (\beta \operatorname {1} y \right )^{-\operatorname {m1}}d y +\int \ln \left (\lambda \operatorname {1} \textit {\_f} \right )^{-\operatorname {n1}}d \textit {\_f} \operatorname {b1} -\int \ln \left (\lambda \operatorname {1} x \right )^{-\operatorname {n1}}d x \operatorname {b1} -\operatorname {a1} \int _{}^{\textit {\_Z}}\ln \left (\beta \operatorname {1} \textit {\_f} \right )^{-\operatorname {m1}}d \textit {\_f} \right )\right )}^{\operatorname {m2}}+\operatorname {c2} {\ln \left (\gamma \operatorname {2} \operatorname {RootOf}\left (\int \ln \left (\lambda \operatorname {1} \textit {\_f} \right )^{-\operatorname {n1}}d \textit {\_f} \operatorname {c1} +\operatorname {a1} \int \ln \left (\gamma \operatorname {1} z \right )^{-\operatorname {k1}}d z -\int \ln \left (\lambda \operatorname {1} x \right )^{-\operatorname {n1}}d x \operatorname {c1} -\operatorname {a1} \int _{}^{\textit {\_Z}}\ln \left (\gamma \operatorname {1} \textit {\_f} \right )^{-\operatorname {k1}}d \textit {\_f} \right )\right )}^{\operatorname {k2}}\right ) \ln \left (\lambda \operatorname {1} \textit {\_f} \right )^{-\operatorname {n1}}d \textit {\_f}}{\operatorname {a1}}}\]

___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________