Spheroidal Wave Functions - 30.2 Differential Equations

From testwiki
Jump to navigation Jump to search


DLMF Formula Constraints Maple Mathematica Symbolic
Maple 		Symbolic
Mathematica 		Numeric
Maple 		Numeric
Mathematica
30.2.E1 d d z ⁡ ( ( 1 - z 2 ) ⁢ d w d z ) + ( λ + γ 2 ⁢ ( 1 - z 2 ) - μ 2 1 - z 2 ) ⁢ w = 0 derivative 𝑧 1 superscript 𝑧 2 derivative 𝑤 𝑧 𝜆 superscript 𝛾 2 1 superscript 𝑧 2 superscript 𝜇 2 1 superscript 𝑧 2 𝑤 0 {\displaystyle{\displaystyle\frac{\mathrm{d}}{\mathrm{d}z}\left((1-z^{2})\frac% {\mathrm{d}w}{\mathrm{d}z}\right)+\left(\lambda+\gamma^{2}(1-z^{2})-\frac{\mu^% {2}}{1-z^{2}}\right)w=0}}
\deriv{}{z}\left((1-z^{2})\deriv{w}{z}\right)+\left(\lambda+\gamma^{2}(1-z^{2})-\frac{\mu^{2}}{1-z^{2}}\right)w = 0		 

diff(((1 - (z)^(2))*diff(w, z))+(lambda + (gamma)^(2)*(1 - (z)^(2))-((mu)^(2))/(1 - (z)^(2)))*w, z) = 0

D[((1 - (z)^(2))*D[w, z])+(\[Lambda]+ \[Gamma]^(2)*(1 - (z)^(2))-Divide[\[Mu]^(2),1 - (z)^(2)])*w, z] == 0
Failure Failure
Failed [260 / 300]
Result: .6668220767+1.154969718*I
Test Values: {gamma = 1/2*3^(1/2)+1/2*I, lambda = 1/2*3^(1/2)+1/2*I, mu = 1/2*3^(1/2)+1/2*I, w = 1/2*3^(1/2)+1/2*I, z = 1/2*3^(1/2)+1/2*I}


Result: 1.154431362-.6665112581*I
Test Values: {gamma = 1/2*3^(1/2)+1/2*I, lambda = 1/2*3^(1/2)+1/2*I, mu = 1/2*3^(1/2)+1/2*I, w = 1/2*3^(1/2)+1/2*I, z = -1/2+1/2*I*3^(1/2)}

... skip entries to safe data
Failed [300 / 300]
Result: Complex[2.0, 2.220446049250313*^-16]
Test Values: {Rule[w, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[z, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[γ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[λ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[μ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]}


Result: Complex[-2.220446049250313*^-16, -3.4641016151377553]
Test Values: {Rule[w, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[z, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[γ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[λ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[μ, Power[E, Times[Complex[0, Rational[2, 3]], Pi]]]}

... skip entries to safe data
30.2.E2 d 2 g d t 2 + ( λ + 1 4 + γ 2 ⁢ sin 2 ⁡ t - μ 2 - 1 4 sin 2 ⁡ t ) ⁢ g = 0 derivative 𝑔 𝑡 2 𝜆 1 4 superscript 𝛾 2 2 𝑡 superscript 𝜇 2 1 4 2 𝑡 𝑔 0 {\displaystyle{\displaystyle\frac{{\mathrm{d}}^{2}g}{{\mathrm{d}t}^{2}}+\left(% \lambda+\frac{1}{4}+\gamma^{2}{\sin^{2}}t-\frac{\mu^{2}-\frac{1}{4}}{{\sin^{2}% }t}\right)g=0}}
\deriv[2]{g}{t}+\left(\lambda+\frac{1}{4}+\gamma^{2}\sin^{2}@@{t}-\frac{\mu^{2}-\frac{1}{4}}{\sin^{2}@@{t}}\right)g = 0		 

diff(g, [t$(2)])+(lambda +(1)/(4)+ (gamma)^(2)* (sin(t))^(2)-((mu)^(2)-(1)/(4))/((sin(t))^(2)))*g = 0

D[g, {t, 2}]+(\[Lambda]+Divide[1,4]+ \[Gamma]^(2)* (Sin[t])^(2)-Divide[\[Mu]^(2)-Divide[1,4],(Sin[t])^(2)])*g == 0
Failure Failure
Failed [300 / 300]
Result: 1.221198255+.2773804949*I
Test Values: {g = 1/2*3^(1/2)+1/2*I, gamma = 1/2*3^(1/2)+1/2*I, lambda = 1/2*3^(1/2)+1/2*I, mu = 1/2*3^(1/2)+1/2*I, t = -3/2}


Result: 1.221198255+.2773804949*I
Test Values: {g = 1/2*3^(1/2)+1/2*I, gamma = 1/2*3^(1/2)+1/2*I, lambda = 1/2*3^(1/2)+1/2*I, mu = 1/2*3^(1/2)+1/2*I, t = 3/2}

... skip entries to safe data
Failed [300 / 300]
Result: Complex[0.9341014939589334, 1.1066213513350005]
Test Values: {Rule[g, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[t, -1.5], Rule[γ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[λ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[μ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]}


Result: Complex[0.9341014939589334, 3.116679181619939]
Test Values: {Rule[g, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[t, -1.5], Rule[γ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[λ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[μ, Power[E, Times[Complex[0, Rational[2, 3]], Pi]]]}

... skip entries to safe data
30.2#Ex1 z = cos ⁡ t 𝑧 𝑡 {\displaystyle{\displaystyle z=\cos t}}
z = \cos@@{t}		 

z = cos(t)

z == Cos[t]
Failure Failure
Failed [42 / 42]
Result: .7952882023+.5000000000*I
Test Values: {t = -3/2, z = 1/2*3^(1/2)+1/2*I}


Result: -.5707372017+.8660254040*I
Test Values: {t = -3/2, z = -1/2+1/2*I*3^(1/2)}

... skip entries to safe data
Failed [42 / 42]
Result: Complex[0.7952882021167358, 0.49999999999999994]
Test Values: {Rule[t, -1.5], Rule[z, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]}


Result: Complex[-0.5707372016677027, 0.8660254037844387]
Test Values: {Rule[t, -1.5], Rule[z, Power[E, Times[Complex[0, Rational[2, 3]], Pi]]]}

... skip entries to safe data
30.2.E4 ( ζ 2 - γ 2 ) ⁢ d 2 w d ζ 2 + 2 ⁢ ζ ⁢ d w d ζ + ( ζ 2 - λ - γ 2 - γ 2 ⁢ μ 2 ζ 2 - γ 2 ) ⁢ w = 0 superscript 𝜁 2 superscript 𝛾 2 derivative 𝑤 𝜁 2 2 𝜁 derivative 𝑤 𝜁 superscript 𝜁 2 𝜆 superscript 𝛾 2 superscript 𝛾 2 superscript 𝜇 2 superscript 𝜁 2 superscript 𝛾 2 𝑤 0 {\displaystyle{\displaystyle(\zeta^{2}-\gamma^{2})\frac{{\mathrm{d}}^{2}w}{{% \mathrm{d}\zeta}^{2}}+2\zeta\frac{\mathrm{d}w}{\mathrm{d}\zeta}+\left(\zeta^{2% }-\lambda-\gamma^{2}-\frac{\gamma^{2}\mu^{2}}{\zeta^{2}-\gamma^{2}}\right)w=0}}
(\zeta^{2}-\gamma^{2})\deriv[2]{w}{\zeta}+2\zeta\deriv{w}{\zeta}+\left(\zeta^{2}-\lambda-\gamma^{2}-\frac{\gamma^{2}\mu^{2}}{\zeta^{2}-\gamma^{2}}\right)w = 0		 

((zeta)^(2)- (gamma)^(2))*diff(w, [zeta$(2)])+ 2*zeta*diff(w, zeta)+((zeta)^(2)- lambda - (gamma)^(2)-((gamma)^(2)* (mu)^(2))/((zeta)^(2)- (gamma)^(2)))*w = 0

(\[Zeta]^(2)- \[Gamma]^(2))*D[w, {\[Zeta], 2}]+ 2*\[Zeta]*D[w, \[Zeta]]+(\[Zeta]^(2)- \[Lambda]- \[Gamma]^(2)-Divide[\[Gamma]^(2)* \[Mu]^(2),\[Zeta]^(2)- \[Gamma]^(2)])*w == 0
Failure Failure
Failed [300 / 300]
Result: -1.159496529-.1040714462*I
Test Values: {gamma = 1/2*3^(1/2)+1/2*I, lambda = 1/2*3^(1/2)+1/2*I, mu = 1/2*3^(1/2)+1/2*I, w = 1/2*3^(1/2)+1/2*I, zeta = 1/2*3^(1/2)+1/2*I}


Result: -.5887458836-1.840397716*I
Test Values: {gamma = 1/2*3^(1/2)+1/2*I, lambda = 1/2*3^(1/2)+1/2*I, mu = 1/2*3^(1/2)+1/2*I, w = 1/2*3^(1/2)+1/2*I, zeta = -1/2+1/2*I*3^(1/2)}

... skip entries to safe data
Failed [300 / 300]
Result: DirectedInfinity[]
Test Values: {Rule[w, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[γ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[ζ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[λ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[μ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]}


Result: DirectedInfinity[]
Test Values: {Rule[w, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[γ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[ζ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[λ, Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[μ, Power[E, Times[Complex[0, Rational[2, 3]], Pi]]]}

... skip entries to safe data
Retrieved from "https://lct.wmflabs.org/w/index.php?title=30.2&oldid=58513"