Added May 26, 2019.
Problem Chapter 6.5.2.1, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y,z)\)
\[ w_x + a x^n w_y + b \ln ^k(\lambda x) w_z = 0 \]
Mathematica ✓
ClearAll["Global`*"]; pde = D[w[x, y,z], x] + a*x^n*D[w[x, y,z], y] +b*Log[lambda*x]^k*D[w[x,y,z],z]==0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x, y,z}], 60*10]];
\[\left \{\left \{w(x,y,z)\to c_1\left (\frac {-a x^{n+1}+n y+y}{n+1},z-\frac {b (-\log (\lambda x))^{-k} \log ^k(\lambda x) \text {Gamma}(k+1,-\log (\lambda x))}{\lambda }\right )\right \}\right \}\]
Maple ✓
restart; pde := diff(w(x,y,z),x)+ a*x^n*diff(w(x,y,z),y)+b*ln(lambda*x)*diff(w(x,y,z),z)= 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
\[w \left ( x,y,z \right ) ={\it \_F1} \left ( {\frac {-{x}^{n}ax+y \left ( n+1 \right ) }{n+1}},-bx\ln \left ( \lambda \,x \right ) +bx+z \right ) \]
____________________________________________________________________________________
Added May 26, 2019.
Problem Chapter 6.5.2.2, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y,z)\)
\[ w_x + (a y + c \ln ^k(\lambda x)) w_y + (b z+ s \ln ^n(\lambda x)) w_z = 0 \]
Mathematica ✓
ClearAll["Global`*"]; pde = D[w[x, y,z], x] + (a*y+c*Log[lambda*x]^k)*D[w[x, y,z], y] +(b*z+s*Log[lambda*x]^n)*D[w[x,y,z],z]==0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x, y,z}], 60*10]];
\[\left \{\left \{w(x,y,z)\to c_1\left (y e^{-a x}-\int _1^xc e^{-a K[1]} (\log (\lambda )+\log (K[1]))^kdK[1],z e^{-b x}-\int _1^xe^{-b K[2]} s (\log (\lambda )+\log (K[2]))^ndK[2]\right )\right \}\right \}\]
Maple ✓
restart; pde := diff(w(x,y,z),x)+ (a*y+c*ln(lambda*x)^k)*diff(w(x,y,z),y)+(b*z+s*log(lambda*x)^n)*diff(w(x,y,z),z)= 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
\[w \left ( x,y,z \right ) ={\it \_F1} \left ( -c\int \! \left ( \ln \left ( \lambda \,x \right ) \right ) ^{k}{{\rm e}^{-ax}}\,{\rm d}x+y{{\rm e}^{-ax}},-s\int \! \left ( \ln \left ( \lambda \,x \right ) \right ) ^{n}{{\rm e}^{-bx}}\,{\rm d}x+z{{\rm e}^{-bx}} \right ) \]
____________________________________________________________________________________
Added May 26, 2019.
Problem Chapter 6.5.2.3, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y,z)\)
\[ a x w_x + b y w_y + (c \ln ^n(\lambda x)+ s \ln ^k(\beta y) ) w_z = 0 \]
Mathematica ✓
ClearAll["Global`*"]; pde = a*x*D[w[x, y,z], x] + b*y*D[w[x, y,z], y] +(c*Log[lambda*x]^n+s*Log[beta*y]^k)*D[w[x,y,z],z]==0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x, y,z}], 60*10]];
\[\left \{\left \{w(x,y,z)\to c_1\left (y x^{-\frac {b}{a}},-\frac {c \log ^{n+1}(\lambda x)}{a n+a}-\frac {s \log ^{k+1}(\beta y)}{b k+b}+z\right )\right \}\right \}\]
Maple ✓
restart; pde := a*x*diff(w(x,y,z),x)+ b*y*diff(w(x,y,z),y)+(c*ln(lambda*x)^n+s*ln(beta*y)^k)*diff(w(x,y,z),z)= 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
\[w \left ( x,y,z \right ) ={\it \_F1} \left ( y{x}^{-{\frac {b}{a}}},1/2\,{\frac {1}{a \left ( n+1 \right ) b \left ( k+1 \right ) } \left ( \left ( -i\pi \, \left ( {\it csgn} \left ( iy \right ) -{\it csgn} \left ( i{x}^{{\frac {b}{a}}} \right ) \right ) {\it csgn} \left ( iy \right ) {\it csgn} \left ( iy{x}^{-{\frac {b}{a}}} \right ) -2\,\ln \left ( y{x}^{-{\frac {b}{a}}} \right ) -i\pi \, \left ( {\it csgn} \left ( iy \right ) \right ) ^{2}{\it csgn} \left ( i{x}^{{\frac {b}{a}}} \right ) -2\,\ln \left ( {x}^{{\frac {b}{a}}} \right ) +i\pi \, \left ( {\it csgn} \left ( i\beta \,y \right ) \right ) ^{3}+ \left ( -i\pi \,{\it csgn} \left ( iy \right ) -i{\it csgn} \left ( i\beta \right ) \pi \right ) \left ( {\it csgn} \left ( i\beta \,y \right ) \right ) ^{2}+i\pi \,{\it csgn} \left ( iy \right ) {\it csgn} \left ( i\beta \right ) {\it csgn} \left ( i\beta \,y \right ) +i\pi \, \left ( {\it csgn} \left ( iy \right ) \right ) ^{3}-2\,\ln \left ( \beta \right ) \right ) \left ( n+1 \right ) as \left ( i/2 \left ( {\it csgn} \left ( iy \right ) -{\it csgn} \left ( i{x}^{{\frac {b}{a}}} \right ) \right ) {\it csgn} \left ( iy \right ) \pi \,{\it csgn} \left ( iy{x}^{-{\frac {b}{a}}} \right ) +\ln \left ( y{x}^{-{\frac {b}{a}}} \right ) +i/2{\it csgn} \left ( i{x}^{{\frac {b}{a}}} \right ) \pi \, \left ( {\it csgn} \left ( iy \right ) \right ) ^{2}+\ln \left ( {x}^{{\frac {b}{a}}} \right ) -i/2\pi \, \left ( {\it csgn} \left ( i\beta \,y \right ) \right ) ^{3}+1/2\, \left ( i{\it csgn} \left ( iy \right ) \pi +i{\it csgn} \left ( i\beta \right ) \pi \right ) \left ( {\it csgn} \left ( i\beta \,y \right ) \right ) ^{2}-i/2{\it csgn} \left ( i\beta \right ) \pi \,{\it csgn} \left ( iy \right ) {\it csgn} \left ( i\beta \,y \right ) -i/2\pi \, \left ( {\it csgn} \left ( iy \right ) \right ) ^{3}+\ln \left ( \beta \right ) \right ) ^{k}+b \left ( \left ( i\pi \, \left ( {\it csgn} \left ( i\lambda \,x \right ) \right ) ^{3}-i \left ( {\it csgn} \left ( ix \right ) +{\it csgn} \left ( i\lambda \right ) \right ) \pi \, \left ( {\it csgn} \left ( i\lambda \,x \right ) \right ) ^{2}+i\pi \,{\it csgn} \left ( i\lambda \,x \right ) {\it csgn} \left ( i\lambda \right ) {\it csgn} \left ( ix \right ) -2\,\ln \left ( x \right ) -2\,\ln \left ( \lambda \right ) \right ) c \left ( -i/2\pi \, \left ( {\it csgn} \left ( i\lambda \,x \right ) \right ) ^{3}+i/2\pi \, \left ( {\it csgn} \left ( ix \right ) +{\it csgn} \left ( i\lambda \right ) \right ) \left ( {\it csgn} \left ( i\lambda \,x \right ) \right ) ^{2}-i/2\pi \,{\it csgn} \left ( i\lambda \,x \right ) {\it csgn} \left ( i\lambda \right ) {\it csgn} \left ( ix \right ) +\ln \left ( x \right ) +\ln \left ( \lambda \right ) \right ) ^{n}+2\,za \left ( n+1 \right ) \right ) \left ( k+1 \right ) \right ) } \right ) \]
____________________________________________________________________________________
Added May 26, 2019.
Problem Chapter 6.5.2.4, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y,z)\)
\[ a x \ln (\lambda x) w_x + b y \ln (\beta y) w_y + c z \ln (\gamma z)w_z = 0 \]
Mathematica ✓
ClearAll["Global`*"]; pde = a*x*Log[lambda*x]*D[w[x, y,z], x] + b*y*Log[beta*y]*D[w[x, y,z], y] +c*Log[gamma*z]*D[w[x,y,z],z]==0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x, y,z}], 60*10]];
\[\left \{\left \{w(x,y,z)\to c_1\left (\log \left ((\log (\beta )+\log (y)) (\log (\lambda )+\log (x))^{-\frac {b}{a}}\right ),\frac {\text {li}(\gamma z)}{\gamma }-\frac {c \log (\log (\lambda x))}{a}\right )\right \}\right \}\]
Maple ✓
restart; pde := a*x*ln(lambda*x)*diff(w(x,y,z),x)+ b*y*ln(beta*y)*diff(w(x,y,z),y)+c*ln(gamma*z)*diff(w(x,y,z),z)= 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
\[w \left ( x,y,z \right ) ={\it \_F1} \left ( {\frac {\ln \left ( \ln \left ( \lambda \,x \right ) \right ) b-\ln \left ( \ln \left ( \beta \,y \right ) \right ) a}{a}},{\frac {-8\,b\Ei \left ( 1,3\,\ln \left ( 2 \right ) -\ln \left ( z \right ) \right ) -\ln \left ( \ln \left ( \beta \,y \right ) \right ) c}{c}} \right ) \]
____________________________________________________________________________________
Added May 26, 2019.
Problem Chapter 6.5.2.5, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y,z)\)
\[ a x \ln (\lambda x) w_x + b y \ln (\beta y) w_y + c z \ln (\gamma x)w_z = 0 \]
Mathematica ✓
ClearAll["Global`*"]; pde = a*x*Log[lambda*x]*D[w[x, y,z], x] + b*y*Log[beta*y]*D[w[x, y,z], y] +c*Log[gamma*x]*D[w[x,y,z],z]==0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x, y,z}], 60*10]];
\[\left \{\left \{w(x,y,z)\to c_1\left (\frac {a z-c \log (\gamma x) \log (\log (\lambda x))+c \log (\lambda x) \log (\log (\lambda x))-c \log (x)}{a},\log \left ((\log (\beta )+\log (y)) (\log (\lambda )+\log (x))^{-\frac {b}{a}}\right )\right )\right \}\right \}\]
Maple ✓
restart; pde := a*x*ln(lambda*x)*diff(w(x,y,z),x)+ b*y*ln(beta*y)*diff(w(x,y,z),y)+c*ln(gamma*x)*diff(w(x,y,z),z)= 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
\[w \left ( x,y,z \right ) ={\it \_F1} \left ( {\frac {\ln \left ( \ln \left ( \beta \,y \right ) \right ) a-\ln \left ( \ln \left ( \lambda \,x \right ) \right ) b}{b}},1/2\,{\frac {- \left ( i\pi \, \left ( {\it csgn} \left ( i\lambda \,x \right ) \right ) ^{3}-i \left ( {\it csgn} \left ( ix \right ) +{\it csgn} \left ( i\lambda \right ) \right ) \pi \, \left ( {\it csgn} \left ( i\lambda \,x \right ) \right ) ^{2}+i\pi \,{\it csgn} \left ( i\lambda \,x \right ) {\it csgn} \left ( i\lambda \right ) {\it csgn} \left ( ix \right ) -6\,\ln \left ( 2 \right ) -2\,\ln \left ( \lambda \right ) \right ) c\ln \left ( -i/2\pi \, \left ( {\it csgn} \left ( i\lambda \,x \right ) \right ) ^{3}+i/2\pi \, \left ( {\it csgn} \left ( ix \right ) +{\it csgn} \left ( i\lambda \right ) \right ) \left ( {\it csgn} \left ( i\lambda \,x \right ) \right ) ^{2}-i/2\pi \,{\it csgn} \left ( i\lambda \,x \right ) {\it csgn} \left ( i\lambda \right ) {\it csgn} \left ( ix \right ) +\ln \left ( x \right ) +\ln \left ( \lambda \right ) \right ) +2\,za-2\,c\ln \left ( x \right ) }{a}} \right ) \]
____________________________________________________________________________________
Added May 26, 2019.
Problem Chapter 6.5.2.6, from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.
Solve for \(w(x,y,z)\)
\[ a x \ln ^n(x) w_x + b y \ln ^m(y) w_y + c z \ln ^k(z)w_z = 0 \]
Mathematica ✓
ClearAll["Global`*"]; pde = a*x*Log[x]^n*D[w[x, y,z], x] + b*y*Log[y]^m*D[w[x, y,z], y] +c*z*Log[z]^k*D[w[x,y,z],z]==0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x, y,z}], 60*10]];
\[\left \{\left \{w(x,y,z)\to c_1\left (\frac {b \log ^{1-n}(x)}{a (n-1)}-(m-1)^{\frac {1}{m-1}} \log (y) \left (\frac {(m-1)^{\frac {1}{1-m}}}{\log (y)}\right )^m,\frac {c \log ^{1-n}(x)}{a (n-1)}-(k-1)^{\frac {1}{k-1}} \log (z) \left (\frac {(k-1)^{\frac {1}{1-k}}}{\log (z)}\right )^k\right )\right \}\right \}\]
Maple ✓
restart; pde := a*x*ln(x)^n*diff(w(x,y,z),x)+ b*y*ln(y)^m*diff(w(x,y,z),y)+c*z*ln(z)^k*diff(w(x,y,z),z)= 0; cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
\[w \left ( x,y,z \right ) ={\it \_F1} \left ( {\frac {b \left ( m-1 \right ) \left ( \ln \left ( x \right ) \right ) ^{-n+1}-a \left ( \ln \left ( y \right ) \right ) ^{-m+1} \left ( n-1 \right ) }{ \left ( n-1 \right ) b \left ( m-1 \right ) }},{\frac {c \left ( k-1 \right ) \left ( \ln \left ( x \right ) \right ) ^{-n+1}-a \left ( \ln \left ( z \right ) \right ) ^{1-k} \left ( n-1 \right ) }{ \left ( n-1 \right ) c \left ( k-1 \right ) }} \right ) \]
____________________________________________________________________________________