Results of Coulomb Functions

From DRMF
Jump to navigation Jump to search
DLMF Formula Maple Mathematica Symbolic
Maple
Symbolic
Mathematica
Numeric
Maple
Numeric
Mathematica
33.2.E1 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 CoulombF(ell, 0, rho)=(Pi*rho/ 2)^(1/ 2)* BesselJ(ell +(1)/(2), rho) Error Failure Error Successful -
33.5#Ex9 CoulombF(0, 0, rho)= sin(rho) Error Successful Error - -
33.5.E6 ((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 (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 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 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 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 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 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 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 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 CoulombF(ell, =, +)*((q)^(- 1)*(u - p)^(2)+ q)^(- 1/ 2) Error Error Error - -
33.8#Ex4 CoulombF(ell, =, -)*((q)^(- 1)*(u - p)^(2)+ q)^(- 1/ 2) Error Error Error - -
33.8#Ex5 subs( temp=u, diff( CoulombF(ell, =, temp), temp$(1) ) )*CoulombF(ell, $1, $2) Error Error Error - -
33.12.E8 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 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 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 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 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 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 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 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 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 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 kappa = I*eta \[Kappa]= I*\[Eta] Failure Failure Skip Successful
33.22#Ex14 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 eta = kappa/ I \[Eta]= \[Kappa]/ I Failure Failure Skip Successful