13.28: Difference between revisions

From testwiki
Jump to navigation Jump to search
 
 
Line 14: Line 14:
! scope="col" style="position: sticky; top: 0;" | Numeric<br>Mathematica
! scope="col" style="position: sticky; top: 0;" | Numeric<br>Mathematica
|-  
|-  
| [https://dlmf.nist.gov/13.28#Ex1 13.28#Ex1] || [[Item:Q4666|<math>f_{1}(\xi) = \xi^{-\frac{1}{2}}V_{\kappa,\frac{1}{2}p}^{(1)}(2\iunit k\xi)</math>]]<br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>f_{1}(\xi) = \xi^{-\frac{1}{2}}V_{\kappa,\frac{1}{2}p}^{(1)}(2\iunit k\xi)</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>f[1](xi) = (xi)^(-(1)/(2))* (V[kappa ,(1)/(2)*p])^(1)(2*I*k*xi)</syntaxhighlight> || <syntaxhighlight lang=mathematica>Subscript[f, 1][\[Xi]] == \[Xi]^(-Divide[1,2])* (Subscript[V, \[Kappa],Divide[1,2]*p])^(1)[2*I*k*\[Xi]]</syntaxhighlight> || Failure || Failure || <div class="toccolours mw-collapsible mw-collapsed">Failed [300 / 300]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: 1.914213563-.5481881590*I
| [https://dlmf.nist.gov/13.28#Ex1 13.28#Ex1] || <math qid="Q4666">f_{1}(\xi) = \xi^{-\frac{1}{2}}V_{\kappa,\frac{1}{2}p}^{(1)}(2\iunit k\xi)</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>f_{1}(\xi) = \xi^{-\frac{1}{2}}V_{\kappa,\frac{1}{2}p}^{(1)}(2\iunit k\xi)</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>f[1](xi) = (xi)^(-(1)/(2))* (V[kappa ,(1)/(2)*p])^(1)(2*I*k*xi)</syntaxhighlight> || <syntaxhighlight lang=mathematica>Subscript[f, 1][\[Xi]] == \[Xi]^(-Divide[1,2])* (Subscript[V, \[Kappa],Divide[1,2]*p])^(1)[2*I*k*\[Xi]]</syntaxhighlight> || Failure || Failure || <div class="toccolours mw-collapsible mw-collapsed">Failed [300 / 300]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: 1.914213563-.5481881590*I
Test Values: {kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, xi = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[1] = 1/2*3^(1/2)+1/2*I, k = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: 3.328427125-1.962401722*I
Test Values: {kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, xi = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[1] = 1/2*3^(1/2)+1/2*I, k = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: 3.328427125-1.962401722*I
Test Values: {kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, xi = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[1] = 1/2*3^(1/2)+1/2*I, k = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || <div class="toccolours mw-collapsible mw-collapsed">Failed [300 / 300]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Complex[1.914213562373095, -0.5481881585886565]
Test Values: {kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, xi = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[1] = 1/2*3^(1/2)+1/2*I, k = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || <div class="toccolours mw-collapsible mw-collapsed">Failed [300 / 300]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Complex[1.914213562373095, -0.5481881585886565]
Line 20: Line 20:
Test Values: {Rule[k, 2], Rule[p, 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[Subscript[f, 1], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[Subscript[V, κ, Times[Rational[1, 2], p]], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]}</syntaxhighlight><br>... skip entries to safe data</div></div>
Test Values: {Rule[k, 2], Rule[p, 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[Subscript[f, 1], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[Subscript[V, κ, Times[Rational[1, 2], p]], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]}</syntaxhighlight><br>... skip entries to safe data</div></div>
|-  
|-  
| [https://dlmf.nist.gov/13.28#Ex2 13.28#Ex2] || [[Item:Q4667|<math>f_{2}(\eta) = \eta^{-\frac{1}{2}}V_{\kappa,\frac{1}{2}p}^{(2)}(-2\iunit k\eta)</math>]]<br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>f_{2}(\eta) = \eta^{-\frac{1}{2}}V_{\kappa,\frac{1}{2}p}^{(2)}(-2\iunit k\eta)</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>f[2](eta) = (eta)^(-(1)/(2))* (V[kappa ,(1)/(2)*p])^(2)(- 2*I*k*eta)</syntaxhighlight> || <syntaxhighlight lang=mathematica>Subscript[f, 2][\[Eta]] == \[Eta]^(-Divide[1,2])* (Subscript[V, \[Kappa],Divide[1,2]*p])^(2)[- 2*I*k*\[Eta]]</syntaxhighlight> || Failure || Failure || <div class="toccolours mw-collapsible mw-collapsed">Failed [300 / 300]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: -1.431851653+1.383663495*I
| [https://dlmf.nist.gov/13.28#Ex2 13.28#Ex2] || <math qid="Q4667">f_{2}(\eta) = \eta^{-\frac{1}{2}}V_{\kappa,\frac{1}{2}p}^{(2)}(-2\iunit k\eta)</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>f_{2}(\eta) = \eta^{-\frac{1}{2}}V_{\kappa,\frac{1}{2}p}^{(2)}(-2\iunit k\eta)</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>f[2](eta) = (eta)^(-(1)/(2))* (V[kappa ,(1)/(2)*p])^(2)(- 2*I*k*eta)</syntaxhighlight> || <syntaxhighlight lang=mathematica>Subscript[f, 2][\[Eta]] == \[Eta]^(-Divide[1,2])* (Subscript[V, \[Kappa],Divide[1,2]*p])^(2)[- 2*I*k*\[Eta]]</syntaxhighlight> || Failure || Failure || <div class="toccolours mw-collapsible mw-collapsed">Failed [300 / 300]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: -1.431851653+1.383663495*I
Test Values: {eta = 1/2*3^(1/2)+1/2*I, kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[2] = 1/2*3^(1/2)+1/2*I, k = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: -3.363703307+1.901301586*I
Test Values: {eta = 1/2*3^(1/2)+1/2*I, kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[2] = 1/2*3^(1/2)+1/2*I, k = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: -3.363703307+1.901301586*I
Test Values: {eta = 1/2*3^(1/2)+1/2*I, kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[2] = 1/2*3^(1/2)+1/2*I, k = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || <div class="toccolours mw-collapsible mw-collapsed">Failed [300 / 300]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Complex[-1.4318516525781364, 1.3836634939894803]
Test Values: {eta = 1/2*3^(1/2)+1/2*I, kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[2] = 1/2*3^(1/2)+1/2*I, k = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || <div class="toccolours mw-collapsible mw-collapsed">Failed [300 / 300]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Complex[-1.4318516525781364, 1.3836634939894803]

Latest revision as of 11:35, 28 June 2021


DLMF Formula Constraints Maple Mathematica Symbolic
Maple
Symbolic
Mathematica
Numeric
Maple
Numeric
Mathematica
13.28#Ex1 f 1 ( ξ ) = ξ - 1 2 V κ , 1 2 p ( 1 ) ( 2 i k ξ ) subscript 𝑓 1 𝜉 superscript 𝜉 1 2 superscript subscript 𝑉 𝜅 1 2 𝑝 1 2 imaginary-unit 𝑘 𝜉 {\displaystyle{\displaystyle f_{1}(\xi)=\xi^{-\frac{1}{2}}V_{\kappa,\frac{1}{2% }p}^{(1)}(2\mathrm{i}k\xi)}}
f_{1}(\xi) = \xi^{-\frac{1}{2}}V_{\kappa,\frac{1}{2}p}^{(1)}(2\iunit k\xi)

f[1](xi) = (xi)^(-(1)/(2))* (V[kappa ,(1)/(2)*p])^(1)(2*I*k*xi)
Subscript[f, 1][\[Xi]] == \[Xi]^(-Divide[1,2])* (Subscript[V, \[Kappa],Divide[1,2]*p])^(1)[2*I*k*\[Xi]]
Failure Failure
Failed [300 / 300]
Result: 1.914213563-.5481881590*I
Test Values: {kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, xi = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[1] = 1/2*3^(1/2)+1/2*I, k = 1}

Result: 3.328427125-1.962401722*I
Test Values: {kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, xi = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[1] = 1/2*3^(1/2)+1/2*I, k = 2}

... skip entries to safe data
Failed [300 / 300]
Result: Complex[1.914213562373095, -0.5481881585886565]
Test Values: {Rule[k, 1], Rule[p, 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[Subscript[f, 1], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[Subscript[V, κ, Times[Rational[1, 2], p]], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]}

Result: Complex[3.32842712474619, -1.9624017209617517]
Test Values: {Rule[k, 2], Rule[p, 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[Subscript[f, 1], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[Subscript[V, κ, Times[Rational[1, 2], p]], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]}

... skip entries to safe data
13.28#Ex2 f 2 ( η ) = η - 1 2 V κ , 1 2 p ( 2 ) ( - 2 i k η ) subscript 𝑓 2 𝜂 superscript 𝜂 1 2 superscript subscript 𝑉 𝜅 1 2 𝑝 2 2 imaginary-unit 𝑘 𝜂 {\displaystyle{\displaystyle f_{2}(\eta)=\eta^{-\frac{1}{2}}V_{\kappa,\frac{1}% {2}p}^{(2)}(-2\mathrm{i}k\eta)}}
f_{2}(\eta) = \eta^{-\frac{1}{2}}V_{\kappa,\frac{1}{2}p}^{(2)}(-2\iunit k\eta)

f[2](eta) = (eta)^(-(1)/(2))* (V[kappa ,(1)/(2)*p])^(2)(- 2*I*k*eta)
Subscript[f, 2][\[Eta]] == \[Eta]^(-Divide[1,2])* (Subscript[V, \[Kappa],Divide[1,2]*p])^(2)[- 2*I*k*\[Eta]]
Failure Failure
Failed [300 / 300]
Result: -1.431851653+1.383663495*I
Test Values: {eta = 1/2*3^(1/2)+1/2*I, kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[2] = 1/2*3^(1/2)+1/2*I, k = 1}

Result: -3.363703307+1.901301586*I
Test Values: {eta = 1/2*3^(1/2)+1/2*I, kappa = 1/2*3^(1/2)+1/2*I, p = 1/2*3^(1/2)+1/2*I, V[kappa,1/2*p] = 1/2*3^(1/2)+1/2*I, f[2] = 1/2*3^(1/2)+1/2*I, k = 2}

... skip entries to safe data
Failed [300 / 300]
Result: Complex[-1.4318516525781364, 1.3836634939894803]
Test Values: {Rule[k, 1], Rule[p, 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[Subscript[f, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[Subscript[V, κ, Times[Rational[1, 2], p]], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]}

Result: Complex[-3.363703305156273, 1.9013015841945222]
Test Values: {Rule[k, 2], Rule[p, 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[Subscript[f, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]], Rule[Subscript[V, κ, Times[Rational[1, 2], p]], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]}

... skip entries to safe data