6.7.21 7.2

6.7.21.1 [1708] Problem 1
6.7.21.2 [1709] Problem 2
6.7.21.3 [1710] Problem 3
6.7.21.4 [1711] Problem 4
6.7.21.5 [1712] Problem 5

6.7.21.1 [1708] Problem 1

problem number 1708

Added June 26, 2019.

Problem Chapter 7.7.2.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 \arccos ^k(\lambda x)+s \]

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*ArcCos[lambda*x]^k+s; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y,z], {x, y,z}], 60*10]];
 

\[\left \{\left \{w(x,y,z)\to c_1(y-a x,z-b x)+\frac {\left (\cos ^{-1}(\lambda x)^2\right )^{-k} \left (c \left (i \cos ^{-1}(\lambda x)\right )^k \cos ^{-1}(\lambda x)^k \text {Gamma}\left (k+1,-i \cos ^{-1}(\lambda x)\right )+c \left (-i \cos ^{-1}(\lambda x)\right )^k \cos ^{-1}(\lambda x)^k \text {Gamma}\left (k+1,i \cos ^{-1}(\lambda x)\right )+2 \lambda s x \left (\cos ^{-1}(\lambda x)^2\right )^k\right )}{2 \lambda }\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*arccos(lambda*x)^k+s; 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
 

\[w \left ( x,y,z \right ) =\int \!c \left ( \arccos \left ( \lambda \,x \right ) \right ) ^{k}\,{\rm d}x+sx+{\it \_F1} \left ( -ax+y,-bx+z \right ) \] Answer contains unresolved integrals

____________________________________________________________________________________

6.7.21.2 [1709] Problem 2

problem number 1709

Added June 26, 2019.

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

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

\[ a_1 w_x + a_2 w_y + a_3 w_z = b_1 \arccos (\lambda _1 x)+b_2 \arccos (\lambda _2 y)+b_3 \arccos (\lambda _3 z) \]

Mathematica

ClearAll["Global`*"]; 
pde =  a1*D[w[x, y,z], x] + a2*D[w[x, y,z], y] + a3*D[w[x,y,z],z]== b1*ArcCos[lambda1*x]+b2*ArcCos[lambda2*y]+b3*ArcCos[lambda3*z]; 
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 {\text {a2} x}{\text {a1}},z-\frac {\text {a3} x}{\text {a1}}\right )-\frac {\text {b1} \sqrt {1-\text {lambda1}^2 x^2}}{\text {a1} \text {lambda1}}+\frac {\text {b1} x \cos ^{-1}(\text {lambda1} x)}{\text {a1}}+\frac {\text {b2} x \sin ^{-1}(\text {lambda2} y)}{\text {a1}}+\frac {\text {b2} x \cos ^{-1}(\text {lambda2} y)}{\text {a1}}+\frac {\text {b3} x \sin ^{-1}(\text {lambda3} z)}{\text {a1}}+\frac {\text {b3} x \cos ^{-1}(\text {lambda3} z)}{\text {a1}}-\frac {\text {b2} \sqrt {1-\text {lambda2}^2 y^2}}{\text {a2} \text {lambda2}}-\frac {\text {b2} y \sin ^{-1}(\text {lambda2} y)}{\text {a2}}-\frac {\text {b3} \sqrt {1-\text {lambda3}^2 z^2}}{\text {a3} \text {lambda3}}-\frac {\text {b3} z \sin ^{-1}(\text {lambda3} z)}{\text {a3}}\right \}\right \}\]

Maple

restart; 
local gamma; 
pde :=  a1*diff(w(x,y,z),x)+ a2*diff(w(x,y,z),y)+ a3*diff(w(x,y,z),z)= b1*arccos(lambda1*x)+b2*arccos(lambda2*y)+b3*arccos(lambda3*z); 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y,z))),output='realtime'));
 

\[w \left ( x,y,z \right ) ={\frac {1}{\lambda 1\,{\it a1}\,{\it a2}\,\lambda 2\,{\it a3}\,\lambda 3} \left ( {\it \_F1} \left ( {\frac {y{\it a1}-{\it a2}\,x}{{\it a1}}},{\frac {z{\it a1}-x{\it a3}}{{\it a1}}} \right ) {\it a1}\,\lambda 1\,{\it a2}\,\lambda 2\,{\it a3}\,\lambda 3-\sqrt {-{\lambda 1}^{2}{x}^{2}+1}{\it a2}\,{\it a3}\,{\it b1}\,\lambda 2\,\lambda 3-\lambda 1\, \left ( \lambda 3\,{\it a1}\,{\it a3}\,{\it b2}\,\sqrt {-{\lambda 2}^{2}{y}^{2}+1}+ \left ( -x\lambda 3\,\arccos \left ( \lambda 1\,x \right ) {\it a2}\,{\it a3}\,{\it b1}+{\it a1}\, \left ( -\lambda 3\,\arccos \left ( \lambda 2\,y \right ) y{\it a3}\,{\it b2}+{\it b3}\, \left ( -\lambda 3\,\arccos \left ( \lambda 3\,z \right ) z+\sqrt {-{\lambda 3}^{2}{z}^{2}+1} \right ) {\it a2} \right ) \right ) \lambda 2 \right ) \right ) }\]

____________________________________________________________________________________

6.7.21.3 [1710] Problem 3

problem number 1710

Added June 26, 2019.

Problem Chapter 7.7.2.3, 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 \arccos ^n(\lambda x) \arccos ^k(\beta z) w_z = s \arccos ^m(\gamma x) \]

Mathematica

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

Failed

Maple

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

\[w \left ( x,y,z \right ) ={\frac {1}{\sqrt {\arccos \left ( x/8 \right ) }a \left ( m+2 \right ) } \left ( a\sqrt {\arccos \left ( x/8 \right ) } \left ( m+2 \right ) {\it \_F1} \left ( {\frac {ya-bx}{a}},{\frac {{2}^{n}\sqrt {\pi }}{\lambda } \left ( {\frac { \left ( \arccos \left ( \lambda \,x \right ) \right ) ^{n+1}{2}^{-n}\sqrt {-{\lambda }^{2}{x}^{2}+1}}{\sqrt {\pi } \left ( n+2 \right ) }}-{\frac {{2}^{-n}\sqrt {\arccos \left ( \lambda \,x \right ) }\LommelS 1 \left ( n+3/2,3/2,\arccos \left ( \lambda \,x \right ) \right ) \sqrt {-{\lambda }^{2}{x}^{2}+1}}{\sqrt {\pi } \left ( n+2 \right ) }}-3\,{\frac {{2}^{-n-1} \left ( 2/3\,n+4/3 \right ) \left ( x\lambda \,\arccos \left ( \lambda \,x \right ) -\sqrt {-{\lambda }^{2}{x}^{2}+1} \right ) \LommelS 1 \left ( n+1/2,1/2,\arccos \left ( \lambda \,x \right ) \right ) }{\sqrt {\pi } \left ( n+2 \right ) \sqrt {\arccos \left ( \lambda \,x \right ) }}} \right ) }+{\frac {a{2}^{-k} \left ( 2\,{2}^{k-1}z\arccos \left ( \beta \,z \right ) \LommelS 1 \left ( -k+1/2,1/2,\arccos \left ( \beta \,z \right ) \right ) \beta \,k-4\,{2}^{k-1}z\arccos \left ( \beta \,z \right ) \LommelS 1 \left ( -k+1/2,1/2,\arccos \left ( \beta \,z \right ) \right ) \beta -{2}^{k}\arccos \left ( \beta \,z \right ) \LommelS 1 \left ( -k+3/2,3/2,\arccos \left ( \beta \,z \right ) \right ) \sqrt {-{\beta }^{2}{z}^{2}+1}-2\,{2}^{k-1}\LommelS 1 \left ( -k+1/2,1/2,\arccos \left ( \beta \,z \right ) \right ) \sqrt {-{\beta }^{2}{z}^{2}+1}k+ \left ( \arccos \left ( \beta \,z \right ) \right ) ^{1-k}{2}^{k}\sqrt {-{\beta }^{2}{z}^{2}+1}\sqrt {\arccos \left ( \beta \,z \right ) }+4\,{2}^{k-1}\LommelS 1 \left ( -k+1/2,1/2,\arccos \left ( \beta \,z \right ) \right ) \sqrt {-{\beta }^{2}{z}^{2}+1} \right ) }{ \left ( k-2 \right ) \beta \,c\sqrt {\arccos \left ( \beta \,z \right ) }}} \right ) +1/8\,s{2}^{m+3} \left ( \left ( -2\,{2}^{-1-m} \left ( m+2 \right ) \LommelS 1 \left ( 1/2+m,1/2,\arccos \left ( x/8 \right ) \right ) +{2}^{-m} \left ( \arccos \left ( x/8 \right ) \LommelS 1 \left ( m+3/2,3/2,\arccos \left ( x/8 \right ) \right ) -\sqrt {\arccos \left ( x/8 \right ) } \left ( \arccos \left ( x/8 \right ) \right ) ^{m+1} \right ) \right ) \sqrt {-{x}^{2}+64}+2\,{2}^{-1-m}\arccos \left ( x/8 \right ) \LommelS 1 \left ( 1/2+m,1/2,\arccos \left ( x/8 \right ) \right ) x \left ( m+2 \right ) \right ) \right ) }\]

____________________________________________________________________________________

6.7.21.4 [1711] Problem 4

problem number 1711

Added June 26, 2019.

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

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

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

Mathematica

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

Failed

Maple

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

\[w \left ( x,y,z \right ) =\int ^{y}\!{\frac {s}{b} \left ( \arccos \left ( 1/8\,\RootOf \left ( \LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) \arccos \left ( {\it \_Z}\,\lambda \right ) {\it \_Z}\,b\lambda \,n+2\,\LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) \arccos \left ( {\it \_Z}\,\lambda \right ) {\it \_Z}\,b\lambda -a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }n\int \!{\frac {b \left ( \arccos \left ( \lambda \,x \right ) \right ) ^{n}}{a}}\,{\rm d}x-a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }n{\it \_a}+a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }ny+\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}\LommelS 1 \left ( n+3/2,3/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) \arccos \left ( {\it \_Z}\,\lambda \right ) b-2\,a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }\int \!{\frac {b \left ( \arccos \left ( \lambda \,x \right ) \right ) ^{n}}{a}}\,{\rm d}x-2\,a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }{\it \_a}+2\,a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }y-\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}\LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) bn- \left ( \arccos \left ( {\it \_Z}\,\lambda \right ) \right ) ^{n+3/2}\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}b-2\,\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}\LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) b \right ) \right ) \right ) ^{m} \left ( \arccos \left ( \lambda \,\RootOf \left ( \LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) \arccos \left ( {\it \_Z}\,\lambda \right ) {\it \_Z}\,b\lambda \,n+2\,\LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) \arccos \left ( {\it \_Z}\,\lambda \right ) {\it \_Z}\,b\lambda -a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }n\int \!{\frac {b \left ( \arccos \left ( \lambda \,x \right ) \right ) ^{n}}{a}}\,{\rm d}x-a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }n{\it \_a}+a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }ny+\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}\LommelS 1 \left ( n+3/2,3/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) \arccos \left ( {\it \_Z}\,\lambda \right ) b-2\,a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }\int \!{\frac {b \left ( \arccos \left ( \lambda \,x \right ) \right ) ^{n}}{a}}\,{\rm d}x-2\,a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }{\it \_a}+2\,a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }y-\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}\LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) bn- \left ( \arccos \left ( {\it \_Z}\,\lambda \right ) \right ) ^{n+3/2}\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}b-2\,\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}\LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) b \right ) \right ) \right ) ^{-n}}{d{\it \_a}}+{\it \_F1} \left ( {\frac {1}{ \left ( n+2 \right ) a\lambda } \left ( -{\frac {{2}^{-n}b \left ( \left ( n+2 \right ) \LommelS 1 \left ( n+1/2,1/2,\arccos \left ( \lambda \,x \right ) \right ) -\LommelS 1 \left ( n+3/2,3/2,\arccos \left ( \lambda \,x \right ) \right ) \arccos \left ( \lambda \,x \right ) + \left ( \arccos \left ( \lambda \,x \right ) \right ) ^{n+3/2} \right ) {2}^{n}\sqrt {-{\lambda }^{2}{x}^{2}+1}}{\sqrt {\arccos \left ( \lambda \,x \right ) }}}-\lambda \, \left ( n+2 \right ) \left ( -\sqrt {\arccos \left ( \lambda \,x \right ) }bx{2}^{n}{2}^{-n}\LommelS 1 \left ( n+1/2,1/2,\arccos \left ( \lambda \,x \right ) \right ) +ya \right ) \right ) },{\frac {1}{ \left ( k-2 \right ) \beta \,c} \left ( -\int ^{y}\! \left ( \arccos \left ( \lambda \,\RootOf \left ( \LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) \arccos \left ( {\it \_Z}\,\lambda \right ) {\it \_Z}\,b\lambda \,n+2\,\LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) \arccos \left ( {\it \_Z}\,\lambda \right ) {\it \_Z}\,b\lambda -a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }n\int \!{\frac {b \left ( \arccos \left ( \lambda \,x \right ) \right ) ^{n}}{a}}\,{\rm d}x-{\it \_b}\,a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }n+a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }ny-\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}\LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) bn+\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}\LommelS 1 \left ( n+3/2,3/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) \arccos \left ( {\it \_Z}\,\lambda \right ) b-2\,a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }\int \!{\frac {b \left ( \arccos \left ( \lambda \,x \right ) \right ) ^{n}}{a}}\,{\rm d}x-2\,{\it \_b}\,a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }+2\,a\lambda \,\sqrt {\arccos \left ( {\it \_Z}\,\lambda \right ) }y-2\,\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}\LommelS 1 \left ( n+1/2,1/2,\arccos \left ( {\it \_Z}\,\lambda \right ) \right ) b- \left ( \arccos \left ( {\it \_Z}\,\lambda \right ) \right ) ^{n+3/2}\sqrt {-{{\it \_Z}}^{2}{\lambda }^{2}+1}b \right ) \right ) \right ) ^{-n}{d{\it \_b}}c\beta \, \left ( k-2 \right ) +{\frac { \left ( \left ( \left ( 2-k \right ) \LommelS 1 \left ( -k+1/2,1/2,\arccos \left ( \beta \,z \right ) \right ) -\arccos \left ( \beta \,z \right ) \LommelS 1 \left ( -k+3/2,3/2,\arccos \left ( \beta \,z \right ) \right ) + \left ( \arccos \left ( \beta \,z \right ) \right ) ^{-k+3/2} \right ) \sqrt {-{\beta }^{2}{z}^{2}+1}+\beta \,\arccos \left ( \beta \,z \right ) \LommelS 1 \left ( -k+1/2,1/2,\arccos \left ( \beta \,z \right ) \right ) z \left ( k-2 \right ) \right ) b{2}^{k}{2}^{-k}}{\sqrt {\arccos \left ( \beta \,z \right ) }}} \right ) } \right ) \]

____________________________________________________________________________________

6.7.21.5 [1712] Problem 5

problem number 1712

Added June 26, 2019.

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

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

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

Mathematica

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

Failed

Maple

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

\[w \left ( x,y,z \right ) =\int \!{\frac {s \left ( \arcsin \left ( y\lambda \right ) \right ) ^{-n}}{b}}\,{\rm d}y+{\it \_F1} \left ( -{\frac {a{2}^{n}{2}^{-n} \left ( \arcsin \left ( y\lambda \right ) \LommelS 1 \left ( -n+3/2,1/2,\arcsin \left ( y\lambda \right ) \right ) - \left ( \arcsin \left ( y\lambda \right ) \right ) ^{-n} \left ( \arcsin \left ( y\lambda \right ) \right ) ^{3/2} \right ) \sqrt {-{y}^{2}{\lambda }^{2}+1}+ \left ( -ay{2}^{n}{2}^{-n}\LommelS 1 \left ( -n+3/2,1/2,\arcsin \left ( y\lambda \right ) \right ) +a\arcsin \left ( y\lambda \right ) \LommelS 1 \left ( -n+1/2,3/2,\arcsin \left ( y\lambda \right ) \right ) ny{2}^{n}{2}^{-n}+\sqrt {\arcsin \left ( y\lambda \right ) } \left ( ay{2}^{-n} \left ( {2}^{n}-2\,{2}^{n-1} \right ) \left ( \arcsin \left ( y\lambda \right ) \right ) ^{-n}-bx \left ( n-1 \right ) \right ) \right ) \lambda }{\sqrt {\arcsin \left ( y\lambda \right ) }b\lambda \, \left ( n-1 \right ) }},-2\,{\frac {1}{\lambda \, \left ( n-1 \right ) \left ( {y}^{2}{\lambda }^{2}-1 \right ) c\beta \, \left ( k-1 \right ) } \left ( -1/2\,{2}^{n}\lambda \,{2}^{-n}cy\beta \, \left ( k-1 \right ) \left ( -{\frac {\LommelS 1 \left ( -n+3/2,1/2,\arcsin \left ( y\lambda \right ) \right ) }{\sqrt {\arcsin \left ( y\lambda \right ) }}}+ \left ( \arcsin \left ( y\lambda \right ) \right ) ^{-n} \right ) \left ( -{y}^{2}{\lambda }^{2}+1 \right ) -1/2\,{2}^{n}{2}^{-n}\arcsin \left ( y\lambda \right ) c\beta \, \left ( y\lambda -1 \right ) \left ( y\lambda +1 \right ) \left ( k-1 \right ) \left ( -{\frac {\LommelS 1 \left ( -n+3/2,1/2,\arcsin \left ( y\lambda \right ) \right ) }{\sqrt {\arcsin \left ( y\lambda \right ) }}}+ \left ( \arcsin \left ( y\lambda \right ) \right ) ^{-n} \right ) \sqrt {-{y}^{2}{\lambda }^{2}+1}+ \left ( y\lambda +1 \right ) \left ( -1/2\,{\frac {b{2}^{-k}{2}^{k} \left ( n-1 \right ) \left ( \arcsin \left ( \beta \,z \right ) \LommelS 1 \left ( -k+3/2,1/2,\arcsin \left ( \beta \,z \right ) \right ) - \left ( \arcsin \left ( \beta \,z \right ) \right ) ^{-k} \left ( \arcsin \left ( \beta \,z \right ) \right ) ^{3/2} \right ) \sqrt {-{\beta }^{2}{z}^{2}+1}}{\sqrt {\arcsin \left ( \beta \,z \right ) }}}+\beta \, \left ( 1/2\,{\frac {b{2}^{-k}z{2}^{k} \left ( n-1 \right ) \LommelS 1 \left ( -k+3/2,1/2,\arcsin \left ( \beta \,z \right ) \right ) }{\sqrt {\arcsin \left ( \beta \,z \right ) }}}+1/2\,{2}^{n}{2}^{-n}c\sqrt {\arcsin \left ( y\lambda \right ) }ny \left ( k-1 \right ) \LommelS 1 \left ( -n+1/2,3/2,\arcsin \left ( y\lambda \right ) \right ) -1/2\,b{2}^{-k}\sqrt {\arcsin \left ( \beta \,z \right ) }kz{2}^{k} \left ( n-1 \right ) \LommelS 1 \left ( -k+1/2,3/2,\arcsin \left ( \beta \,z \right ) \right ) + \left ( {2}^{k-1}-1/2\,{2}^{k} \right ) \left ( \arcsin \left ( \beta \,z \right ) \right ) ^{-k}{2}^{-k} \left ( n-1 \right ) bz-{2}^{-n}{2}^{n-1}c \left ( \arcsin \left ( y\lambda \right ) \right ) ^{-n}y \left ( k-1 \right ) \right ) \right ) \lambda \, \left ( y\lambda -1 \right ) \right ) } \right ) \]

____________________________________________________________________________________