6.6.22 7.4

6.6.22.1 [1545] Problem 1

problem number 1545

Added May 31, 2019.

Problem Chapter 6.7.4.1, 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 \arccot ^n(\lambda x) \arccot ^k(\beta z) w_z = 0 \]

Mathematica ✓

ClearAll["Global`*"]; 
pde =  a*D[w[x, y,z], x] + b*D[w[x, y,z], y] +c*ArcCot[lambda*x]^n*ArcCot[beta*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 (y-\frac {b x}{a},\int _1^z\cot ^{-1}(\beta K[1])^{-k}dK[1]-\int _1^x\frac {c \cot ^{-1}(\lambda K[2])^n}{a}dK[2]\right )\right \}\right \}\]

Maple ✓

restart; 
pde :=  a*diff(w(x,y,z),x)+ b*diff(w(x,y,z),y)+c*arccot(lambda*x)^n*arccot(beta*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 {ay-xb}{a}},-\int \! \left ( {\frac {\pi }{2}}-\arctan \left ( x\lambda \right ) \right ) ^{n}\,{\rm d}x+\int \!{\frac {a}{c} \left ( {\frac {\pi }{2}}-\arctan \left ( \beta \,z \right ) \right ) ^{-k}}\,{\rm d}z \right ) \]

____________________________________________________________________________________

6.6.22.2 [1546] Problem 2

problem number 1546

Added May 31, 2019.

Problem Chapter 6.7.4.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 \arccot ^n(\lambda x) \arccot ^m(\beta y) \arccot ^k(\gamma z) w_z = 0 \]

Mathematica ✓

ClearAll["Global`*"]; 
pde =  a*D[w[x, y,z], x] + b*D[w[x, y,z], y] +c*ArcCot[lambda*x]^n*ArcCot[beta*y]^m*ArcCot[gamma*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 (y-\frac {b x}{a},\int _1^z\cot ^{-1}(\gamma K[1])^{-k}dK[1]-\int _1^x\frac {c \cot ^{-1}(\lambda K[2])^n \left (\left (\frac {a \cot ^{-1}(\lambda K[2])^{-n} \text {InverseFunction}[\text {Inactive}[\text {Integrate}],1,2]\left [\int _1^x\frac {c \cot ^{-1}(\lambda K[2])^n \cot ^{-1}\left (\beta \left (y+\frac {b (K[2]-x)}{a}\right )\right )^m}{a}dK[2],\{K[2],1,x\}\right ]}{c}\right ){}^{\frac {1}{m}}\right ){}^m}{a}dK[2]\right )\right \}\right \}\]

Maple ✓

restart; 
pde :=  a*diff(w(x,y,z),x)+ b*diff(w(x,y,z),y)+c*arccot(lambda*x)^n*arccot(beta*y)^m*arccot(gamma1*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 {ay-xb}{a}},-\int ^{x}\! \left ( {\frac {\pi }{2}}-\arctan \left ( {\it \_a}\,\lambda \right ) \right ) ^{n} \left ( {\frac {\pi }{2}}-\arctan \left ( {\frac {\beta \, \left ( ay-b \left ( x-{\it \_a} \right ) \right ) }{a}} \right ) \right ) ^{m}{d{\it \_a}}+\int \!{\frac {a}{c} \left ( {\frac {\pi }{2}}-\arctan \left ( \gamma 1\,z \right ) \right ) ^{-k}}\,{\rm d}z \right ) \]

____________________________________________________________________________________

6.6.22.3 [1547] Problem 3

problem number 1547

Added May 31, 2019.

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

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

\[ a w_x + b \arccot ^n(\lambda x) w_y + c \arccot ^k(\beta x) w_z = 0 \]

Mathematica ✓

ClearAll["Global`*"]; 
pde =  a*D[w[x, y,z], x] + b*ArcCot[lambda*x]^n*D[w[x, y,z], y] +c*ArcCot[beta*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 (y-\int _1^x\frac {b \cot ^{-1}(\lambda K[1])^n}{a}dK[1],z-\int _1^x\frac {c \cot ^{-1}(\beta K[2])^k}{a}dK[2]\right )\right \}\right \}\]

Maple ✓

restart; 
pde :=  a*diff(w(x,y,z),x)+ b*arccot(lambda*x)^n*diff(w(x,y,z),y)+c*arccot(beta*x)^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 ( -\int \!{\frac {b}{a} \left ( {\frac {\pi }{2}}-\arctan \left ( x\lambda \right ) \right ) ^{n}}\,{\rm d}x+y,-\int \!{\frac {c}{a} \left ( {\frac {\pi }{2}}-\arctan \left ( \beta \,x \right ) \right ) ^{k}}\,{\rm d}x+z \right ) \]

____________________________________________________________________________________

6.6.22.4 [1548] Problem 4

problem number 1548

Added May 31, 2019.

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

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

\[ a w_x + b \arccot ^n(\lambda x) w_y + c \arccot ^k(\beta z) w_z = 0 \]

Mathematica ✓

ClearAll["Global`*"]; 
pde =  a*D[w[x, y,z], x] + b*ArcCot[lambda*x]^n*D[w[x, y,z], y] +c*ArcCot[beta*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 (y-\int _1^x\frac {b \cot ^{-1}(\lambda K[1])^n}{a}dK[1],\int _1^z\cot ^{-1}(\beta K[2])^{-k}dK[2]-\frac {c x}{a}\right )\right \}\right \}\]

Maple ✓

restart; 
pde :=  a*diff(w(x,y,z),x)+ b*arccot(lambda*x)^n*diff(w(x,y,z),y)+c*arccot(beta*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 ( -y+\int \!{\frac {b}{a} \left ( {\frac {\pi }{2}}-\arctan \left ( x\lambda \right ) \right ) ^{n}}\,{\rm d}x,-\int ^{y}\! \left ( {\frac {\pi }{2}}-\arctan \left ( \RootOf \left ( {\it \_b}-\int ^{{\it \_Z}}\!{\frac {b}{a} \left ( {\frac {\pi }{2}}-\arctan \left ( {\it \_b}\,\lambda \right ) \right ) ^{n}}{d{\it \_b}}-y+\int \!{\frac {b}{a} \left ( {\frac {\pi }{2}}-\arctan \left ( x\lambda \right ) \right ) ^{n}}\,{\rm d}x \right ) \lambda \right ) \right ) ^{-n}{d{\it \_b}}+\int \!{\frac {b}{c} \left ( {\frac {\pi }{2}}-\arctan \left ( \beta \,z \right ) \right ) ^{-k}}\,{\rm d}z \right ) \]

____________________________________________________________________________________

6.6.22.5 [1549] Problem 5

problem number 1549

Added May 31, 2019.

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

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

\[ a w_x + b \arccot ^n(\lambda y) w_y + c \arccot ^k(\beta z) w_z = 0 \]

Mathematica ✓

ClearAll["Global`*"]; 
pde =  a*D[w[x, y,z], x] + b*ArcCot[lambda*y]^n*D[w[x, y,z], y] +c*ArcCot[beta*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 (\int _1^y\cot ^{-1}(\lambda K[1])^{-n}dK[1]-\frac {b x}{a},\int _1^z\cot ^{-1}(\beta K[2])^{-k}dK[2]-\frac {c x}{a}\right )\right \}\right \}\]

Maple ✓

restart; 
pde :=  a*diff(w(x,y,z),x)+ b*arccot(lambda*y)^n*diff(w(x,y,z),y)+c*arccot(beta*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 {a}{b}\int \! \left ( {\frac {\pi }{2}}-\arctan \left ( \lambda \,y \right ) \right ) ^{-n}\,{\rm d}y}+x,-\int \! \left ( {\frac {\pi }{2}}-\arctan \left ( \lambda \,y \right ) \right ) ^{-n}\,{\rm d}y+\int \!{\frac {b}{c} \left ( {\frac {\pi }{2}}-\arctan \left ( \beta \,z \right ) \right ) ^{-k}}\,{\rm d}z \right ) \]

____________________________________________________________________________________