Results of Coulomb Functions

DLMF	Formula	Maple	Mathematica	Symbolic Maple	Symbolic Mathematica	Numeric Maple	Numeric Mathematica
33.2.E1	${\displaystyle{\displaystyle\frac{{\mathrm{d}}^{2}w}{{\mathrm{d}\rho}^{2}}+\left(1-\frac{2\eta}{\rho}-\frac{\ell(\ell+1)}{\rho^{2}}\right)w=0}}$	diff(w, [rho$(2)])+(1 -(2*eta)/(rho)-(ell*(ell + 1))/((rho)^(2)))* w = 0	D[w, {\[Rho], 2}]+(1 -Divide[2*\[Eta],\[Rho]]-Divide[\[ScriptL]*(\[ScriptL]+ 1),(\[Rho])^(2)])* w = 0	Failure	Failure	Fail -2.121320343-.7071067807*I <- {eta = 2^(1/2)+I*2^(1/2), rho = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), ell = 1} -3.535533906+.7071067824*I <- {eta = 2^(1/2)+I*2^(1/2), rho = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), ell = 2} -5.656854249+2.828427125*I <- {eta = 2^(1/2)+I*2^(1/2), rho = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), ell = 3} -.7071067807+2.121320343*I <- {eta = 2^(1/2)+I*2^(1/2), rho = 2^(1/2)+I*2^(1/2), w = 2^(1/2)-I*2^(1/2), ell = 1} ... skip entries to safe data	Fail Complex[-2.1213203435596424, -0.7071067811865475] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[-3.5355339059327373, 0.7071067811865475] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 2], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[-5.656854249492381, 2.8284271247461903] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 3], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[4.949747468305832, -2.1213203435596424] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} ... skip entries to safe data
33.5#Ex7	${\displaystyle{\displaystyle F_{\ell}\left(0,\rho\right)=(\pi\rho/2)^{1/2}J_{\ell+\frac{1}{2}}\left(\rho\right)}}$	CoulombF(ell, 0, rho)=(Pi*rho/ 2)^(1/ 2)* BesselJ(ell +(1)/(2), rho)	Error	Failure	Error	Successful	-
33.5#Ex9	${\displaystyle{\displaystyle F_{0}\left(0,\rho\right)=\sin\rho}}$	CoulombF(0, 0, rho)= sin(rho)	Error	Successful	Error	-	-
33.5.E6	${\displaystyle{\displaystyle\frac{2^{\ell}\ell!}{(2\ell+1)!}=\frac{1}{(2\ell+1)!!}}}$	((2)^(ell)* factorial(ell))/(factorial(2*ell + 1))=(1)/(doublefactorial(2*ell + 1))	Divide[(2)^(\[ScriptL])* (\[ScriptL])!,(2*\[ScriptL]+ 1)!]=Divide[1,(2*\[ScriptL]+ 1)!!]	Failure	Failure	Successful	Successful
33.6.E4	${\displaystyle{\displaystyle A_{k}^{\ell}(\eta)=\dfrac{(-\mathrm{i})^{k-\ell-1}}{(k-\ell-1)!}\*{{}_{2}F_{1}}\left(\ell+1-k,\ell+1-\mathrm{i}\eta;2\ell+2;2\right)}}$	(A[k])^(ell)*(eta)=((- I)^(k - ell - 1))/(factorial(k - ell - 1))* hypergeom([ell + 1 - k , ell + 1 - I*eta], [2*ell + 2], 2)	(Subscript[A, k])^(\[ScriptL])*(\[Eta])=Divide[(- I)^(k - \[ScriptL]- 1),(k - \[ScriptL]- 1)!]* HypergeometricPFQ[{\[ScriptL]+ 1 - k , \[ScriptL]+ 1 - I*\[Eta]}, {2*\[ScriptL]+ 2}, 2]	Failure	Failure	Fail 0.+3.999999998*I <- {eta = 2^(1/2)+I*2^(1/2), A[k] = 2^(1/2)+I*2^(1/2), ell = 1, k = 1} -1.000000000+3.999999998*I <- {eta = 2^(1/2)+I*2^(1/2), A[k] = 2^(1/2)+I*2^(1/2), ell = 1, k = 2} -.7071067810+3.292893217*I <- {eta = 2^(1/2)+I*2^(1/2), A[k] = 2^(1/2)+I*2^(1/2), ell = 1, k = 3} -5.656854245+5.656854245*I <- {eta = 2^(1/2)+I*2^(1/2), A[k] = 2^(1/2)+I*2^(1/2), ell = 2, k = 1} ... skip entries to safe data	Skip
33.7.E1	${\displaystyle{\displaystyle F_{\ell}\left(\eta,\rho\right)=\frac{\rho^{\ell+1}2^{\ell}e^{\mathrm{i}\rho-(\pi\eta/2)}}{|\Gamma\left(\ell+1+\mathrm{i}\eta\right)|}\int_{0}^{1}e^{-2\mathrm{i}\rho t}t^{\ell+\mathrm{i}\eta}(1-t)^{\ell-\mathrm{i}\eta}\mathrm{d}t}}$	CoulombF(ell, eta, rho)=((rho)^(ell + 1)* (2)^(ell)* exp(I*rho -(Pi*eta/ 2)))/(abs(GAMMA(ell + 1 + I*eta)))*int(exp(- 2*I*rho*t)*(t)^(ell + I*eta)*(1 - t)^(ell - I*eta), t = 0..1)	Error	Failure	Error	Skip	-
33.8#Ex1	${\displaystyle{\displaystyle a=1+\ell+\mathrm{i}\eta}}$	a = 1 + ell + I*eta	a = 1 + \[ScriptL]+ I*\[Eta]	Failure	Failure	Fail .828427124+0.*I <- {a = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 1} -.171572876+0.*I <- {a = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 2} -1.171572876+0.*I <- {a = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 3} -2.000000000+0.*I <- {a = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)-I*2^(1/2), ell = 1} ... skip entries to safe data	Fail 0.8284271247461903 <- {Rule[a, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} -0.1715728752538097 <- {Rule[a, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 2], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} -1.1715728752538097 <- {Rule[a, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 3], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} -2.0 <- {Rule[a, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} ... skip entries to safe data
33.8#Ex1	${\displaystyle{\displaystyle a=1+\ell-\mathrm{i}\eta}}$	a = 1 + ell - I*eta	a = 1 + \[ScriptL]- I*\[Eta]	Failure	Failure	Fail -2.000000000+2.828427124*I <- {a = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 1} -3.000000000+2.828427124*I <- {a = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 2} -4.000000000+2.828427124*I <- {a = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 3} .828427124+2.828427124*I <- {a = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)-I*2^(1/2), ell = 1} ... skip entries to safe data	Fail Complex[-2.0, 2.8284271247461903] <- {Rule[a, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[-3.0, 2.8284271247461903] <- {Rule[a, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 2], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[-4.0, 2.8284271247461903] <- {Rule[a, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 3], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[0.8284271247461903, 2.8284271247461903] <- {Rule[a, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} ... skip entries to safe data
33.8#Ex2	${\displaystyle{\displaystyle b=-\ell+\mathrm{i}\eta}}$	b = - ell + I*eta	b = - \[ScriptL]+ I*\[Eta]	Failure	Failure	Fail 3.828427124+0.*I <- {b = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 1} 4.828427124+0.*I <- {b = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 2} 5.828427124+0.*I <- {b = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 3} 1.000000000+0.*I <- {b = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)-I*2^(1/2), ell = 1} ... skip entries to safe data	Fail 3.8284271247461903 <- {Rule[b, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} 4.82842712474619 <- {Rule[b, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 2], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} 5.82842712474619 <- {Rule[b, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 3], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} 1.0 <- {Rule[b, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} ... skip entries to safe data
33.8#Ex2	${\displaystyle{\displaystyle b=-\ell-\mathrm{i}\eta}}$	b = - ell - I*eta	b = - \[ScriptL]- I*\[Eta]	Failure	Failure	Fail 1.000000000+2.828427124*I <- {b = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 1} 2.000000000+2.828427124*I <- {b = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 2} 3.000000000+2.828427124*I <- {b = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), ell = 3} 3.828427124+2.828427124*I <- {b = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)-I*2^(1/2), ell = 1} ... skip entries to safe data	Fail Complex[1.0, 2.8284271247461903] <- {Rule[b, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[2.0, 2.8284271247461903] <- {Rule[b, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 2], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[3.0, 2.8284271247461903] <- {Rule[b, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 3], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[3.8284271247461903, 2.8284271247461903] <- {Rule[b, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} ... skip entries to safe data
33.8#Ex3	${\displaystyle{\displaystyle c=+\mathrm{i}(1-(\eta/\rho))}}$	c = + I*(1 -(eta/ rho))	c = + I*(1 -(\[Eta]/ \[Rho]))	Failure	Failure	Fail 1.414213562+1.414213562*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), rho = 2^(1/2)+I*2^(1/2)} .414213562+.414213562*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), rho = 2^(1/2)-I*2^(1/2)} 1.414213562-.585786438*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), rho = -2^(1/2)-I*2^(1/2)} 2.414213562+.414213562*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), rho = -2^(1/2)+I*2^(1/2)} ... skip entries to safe data	Fail Complex[1.4142135623730951, 1.4142135623730951] <- {Rule[c, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[0.41421356237309515, 0.41421356237309515] <- {Rule[c, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} Complex[1.4142135623730951, -0.5857864376269049] <- {Rule[c, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]} Complex[2.414213562373095, 0.41421356237309515] <- {Rule[c, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]} ... skip entries to safe data
33.8#Ex3	${\displaystyle{\displaystyle c=-\mathrm{i}(1-(\eta/\rho))}}$	c = - I*(1 -(eta/ rho))	c = - I*(1 -(\[Eta]/ \[Rho]))	Failure	Failure	Fail 1.414213562+1.414213562*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), rho = 2^(1/2)+I*2^(1/2)} 2.414213562+2.414213562*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), rho = 2^(1/2)-I*2^(1/2)} 1.414213562+3.414213562*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), rho = -2^(1/2)-I*2^(1/2)} .414213562+2.414213562*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), rho = -2^(1/2)+I*2^(1/2)} ... skip entries to safe data	Fail Complex[1.4142135623730951, 1.4142135623730951] <- {Rule[c, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[2.414213562373095, 2.414213562373095] <- {Rule[c, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} Complex[1.4142135623730951, 3.414213562373095] <- {Rule[c, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]} Complex[0.41421356237309515, 2.414213562373095] <- {Rule[c, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]} ... skip entries to safe data
33.8#Ex4	${\displaystyle{\displaystyle F_{\ell}=+(q^{-1}(u-p)^{2}+q)^{-1/2}}}$	CoulombF(ell, =, +)*((q)^(- 1)*(u - p)^(2)+ q)^(- 1/ 2)	Error	Error	Error	-	-
33.8#Ex4	${\displaystyle{\displaystyle F_{\ell}=-(q^{-1}(u-p)^{2}+q)^{-1/2}}}$	CoulombF(ell, =, -)*((q)^(- 1)*(u - p)^(2)+ q)^(- 1/ 2)	Error	Error	Error	-	-
33.8#Ex5	${\displaystyle{\displaystyle F_{\ell}'=uF_{\ell}}}$	subs( temp=u, diff( CoulombF(ell, =, temp), temp$(1) ) )*CoulombF(ell, $1, $2)	Error	Error	Error	-	-
33.12.E8	${\displaystyle{\displaystyle\frac{{\mathrm{d}}^{2}w}{{\mathrm{d}z}^{2}}=\left(4\eta^{2}\left(\frac{1-z}{z}\right)+\frac{\ell(\ell+1)}{z^{2}}\right)w}}$	diff(w, [z$(2)])=(4*(eta)^(2)*((1 - z)/(z))+(ell*(ell + 1))/((z)^(2)))* w	D[w, {z, 2}]=(4*(\[Eta])^(2)*(Divide[1 - z,z])+Divide[\[ScriptL]*(\[ScriptL]+ 1),(z)^(2)])* w	Failure	Failure	Fail -23.33452376+7.334523764*I <- {eta = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2), ell = 1} -24.74873732+8.748737326*I <- {eta = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2), ell = 2} -26.87005766+10.87005767*I <- {eta = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2), ell = 3} -5.920310202+21.92031019*I <- {eta = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2), ell = 1} ... skip entries to safe data	Fail Complex[-23.334523779156072, 7.33452377915607] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[-24.74873734152917, 8.748737341529166] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 2], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[-26.87005768508881, 10.870057685088808] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 3], Rule[η, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[21.92031021678298, -5.920310216782976] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[η, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} ... skip entries to safe data
33.14.E1	${\displaystyle{\displaystyle\frac{{\mathrm{d}}^{2}w}{{\mathrm{d}r}^{2}}+\left(\epsilon+\frac{2}{r}-\frac{\ell(\ell+1)}{r^{2}}\right)w=0}}$	diff(w, [r$(2)])+(epsilon +(2)/(r)-(ell*(ell + 1))/((r)^(2)))* w = 0	D[w, {r, 2}]+(\[Epsilon]+Divide[2,r]-Divide[\[ScriptL]*(\[ScriptL]+ 1),(r)^(2)])* w = 0	Failure	Failure	Fail 1.292893218+4.707106779*I <- {epsilon = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), ell = 1} -.1213203455+6.121320342*I <- {epsilon = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), ell = 2} -2.242640688+8.242640685*I <- {epsilon = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), ell = 3} 4.707106779-1.292893218*I <- {epsilon = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), w = 2^(1/2)-I*2^(1/2), ell = 1} ... skip entries to safe data	Fail Complex[1.2928932188134525, 4.707106781186548] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[ϵ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[-0.12132034355964283, 6.121320343559644] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 2], Rule[ϵ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[-2.242640687119285, 8.242640687119286] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 3], Rule[ϵ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[5.292893218813453, 0.7071067811865479] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1], Rule[ϵ, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} ... skip entries to safe data
33.14.E12	${\displaystyle{\displaystyle A(\epsilon,\ell)=\frac{\Gamma\left(1+\ell+\kappa\right)}{\Gamma\left(\kappa-\ell\right)}\kappa^{-2\ell-1}}}$	A*(epsilon , ell)=(GAMMA(1 + ell + kappa))/(GAMMA(kappa - ell))*(kappa)^(- 2*ell - 1)	A*(\[Epsilon], \[ScriptL])=Divide[Gamma[1 + \[ScriptL]+ \[Kappa]],Gamma[\[Kappa]- \[ScriptL]]]*(\[Kappa])^(- 2*\[ScriptL]- 1)	Failure	Failure	Error	Error
33.14.E15	${\displaystyle{\displaystyle\int_{0}^{\infty}\phi_{n,\ell}^{2}(r)\mathrm{d}r=1}}$	int(phi(phi[n , ell])^(2)*(r), r = 0..infinity)= 1	Integrate[\[Phi](Subscript[\[Phi], n , \[ScriptL]])^(2)*(r), {r, 0, Infinity}]= 1	Failure	Failure	Skip	Fail Complex[0.41421356237309515, 1.4142135623730951] <- {Rule[Integrate[Times[r, ϕ, Power[Subscript[ϕ, n, ℓ], 2]], {r, 0, DirectedInfinity[1]}], Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[0.41421356237309515, -1.4142135623730951] <- {Rule[Integrate[Times[r, ϕ, Power[Subscript[ϕ, n, ℓ], 2]], {r, 0, DirectedInfinity[1]}], Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} Complex[-2.414213562373095, -1.4142135623730951] <- {Rule[Integrate[Times[r, ϕ, Power[Subscript[ϕ, n, ℓ], 2]], {r, 0, DirectedInfinity[1]}], Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]} Complex[-2.414213562373095, 1.4142135623730951] <- {Rule[Integrate[Times[r, ϕ, Power[Subscript[ϕ, n, ℓ], 2]], {r, 0, DirectedInfinity[1]}], Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
33.16#Ex1	${\displaystyle{\displaystyle\zeta_{\ell}(\nu,r)=W_{\nu,\ell+\frac{1}{2}}\left(2r/\nu\right)}}$	zeta[ell]*(nu , r)= WhittakerW(nu, ell +(1)/(2), 2*r/ nu)	Subscript[\[zeta], \[ScriptL]]*(\[Nu], r)= WhittakerW[\[Nu], \[ScriptL]+Divide[1,2], 2*r/ \[Nu]]	Failure	Failure	Error	Error
33.16#Ex2	${\displaystyle{\displaystyle\xi_{\ell}(\nu,r)=\Re\left(e^{\mathrm{i}\pi\nu}W_{-\nu,\ell+\frac{1}{2}}\left(e^{\mathrm{i}\pi}2r/\nu\right)\right)}}$	xi[ell]*(nu , r)= Re(exp(I*Pi*nu)*WhittakerW(- nu, ell +(1)/(2), exp(I*Pi)*2*r/ nu))	Subscript[\[Xi], \[ScriptL]]*(\[Nu], r)= Re[Exp[I*Pi*\[Nu]]*WhittakerW[- \[Nu], \[ScriptL]+Divide[1,2], Exp[I*Pi]*2*r/ \[Nu]]]	Failure	Failure	Error	Error
33.19#Ex4	${\displaystyle{\displaystyle\delta_{0}=\left(\beta_{2\ell+1}-2(\psi\left(2\ell+2\right)+\psi\left(1\right))A(\epsilon,\ell)\right)\alpha_{0}}}$	delta[0]=(beta[2*ell + 1]- 2*(Psi(2*ell + 2)+ Psi(1))*A*(epsilon , ell))* alpha[0]	Subscript[\[Delta], 0]=(Subscript[\[Beta], 2*\[ScriptL]+ 1]- 2*(PolyGamma[2*\[ScriptL]+ 2]+ PolyGamma[1])*A*(\[Epsilon], \[ScriptL]))* Subscript[\[Alpha], 0]	Failure	Failure	Skip	Error
33.19#Ex5	${\displaystyle{\displaystyle\delta_{1}=\left(\beta_{2\ell+2}-2(\psi\left(2\ell+3\right)+\psi\left(2\right))A(\epsilon,\ell)\right)\alpha_{1}}}$	delta[1]=(beta[2*ell + 2]- 2*(Psi(2*ell + 3)+ Psi(2))*A*(epsilon , ell))* alpha[1]	Subscript[\[Delta], 1]=(Subscript[\[Beta], 2*\[ScriptL]+ 2]- 2*(PolyGamma[2*\[ScriptL]+ 3]+ PolyGamma[2])*A*(\[Epsilon], \[ScriptL]))* Subscript[\[Alpha], 1]	Failure	Failure	Skip	Error
33.22.E3	${\displaystyle{\displaystyle\frac{{\mathrm{d}}^{2}w}{{\mathrm{d}x}^{2}}+\left({\sf k}^{2}-\frac{2Z}{x}-\frac{\ell(\ell+1)}{x^{2}}\right)w=0}}$	diff(w, [x$(2)])+((k)^(2)-(2*Z)/(x)-(ell*(ell + 1))/((x)^(2)))* w = 0	D[w, {x, 2}]+((k)^(2)-Divide[2*Z,x]-Divide[\[ScriptL]*(\[ScriptL]+ 1),(x)^(2)])* w = 0	Failure	Failure	Fail -1.414213562-9.414213558*I <- {Z = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), ell = 1, k = 1, x = 1} .7071067810-3.292893217*I <- {Z = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), ell = 1, k = 1, x = 2} 1.099943881-1.566722784*I <- {Z = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), ell = 1, k = 1, x = 3} 2.828427124-5.171572872*I <- {Z = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), ell = 1, k = 2, x = 1} ... skip entries to safe data	Fail Complex[-1.414213562373095, -9.414213562373096] <- {Rule[k, 1], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[x, 1], Rule[Z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1]} Complex[-7.071067811865475, -15.071067811865476] <- {Rule[k, 1], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[x, 1], Rule[Z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 2]} Complex[-15.556349186104047, -23.556349186104047] <- {Rule[k, 1], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[x, 1], Rule[Z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 3]} Complex[0.7071067811865477, -3.292893218813453] <- {Rule[k, 1], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[x, 2], Rule[Z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ℓ, 1]} ... skip entries to safe data
33.22#Ex12	${\displaystyle{\displaystyle z=2\mathrm{i}\rho}}$	z = 2*I*rho	z = 2*I*\[Rho]	Failure	Failure	Fail 4.242640686-1.414213562*I <- {rho = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)} 4.242640686-4.242640686*I <- {rho = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)} 1.414213562-4.242640686*I <- {rho = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)} 1.414213562-1.414213562*I <- {rho = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)} ... skip entries to safe data	Fail Complex[4.242640687119286, -1.4142135623730951] <- {Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[-1.4142135623730951, -1.4142135623730951] <- {Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} Complex[-1.4142135623730951, 4.242640687119286] <- {Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]} Complex[4.242640687119286, 4.242640687119286] <- {Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]} ... skip entries to safe data
33.22#Ex13	${\displaystyle{\displaystyle\kappa=\mathrm{i}\eta}}$	kappa = I*eta	\[Kappa]= I*\[Eta]	Failure	Failure	Skip	Successful
33.22#Ex14	${\displaystyle{\displaystyle\rho=z/(2\mathrm{i})}}$	rho = z/(2*I)	\[Rho]= z/(2*I)	Failure	Failure	Fail .7071067810+2.121320343*I <- {rho = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)} 2.121320343+2.121320343*I <- {rho = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)} 2.121320343+.7071067810*I <- {rho = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)} .7071067810+.7071067810*I <- {rho = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)} ... skip entries to safe data	Fail Complex[0.7071067811865477, 2.121320343559643] <- {Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]} Complex[0.7071067811865477, -0.7071067811865477] <- {Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]} Complex[-2.121320343559643, -0.7071067811865477] <- {Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]} Complex[-2.121320343559643, 2.121320343559643] <- {Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ρ, Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]} ... skip entries to safe data
33.22#Ex15	${\displaystyle{\displaystyle\eta=\kappa/\mathrm{i}}}$	eta = kappa/ I	\[Eta]= \[Kappa]/ I	Failure	Failure	Skip	Successful