19.2: Difference between revisions
Jump to navigation
Jump to search
Admin moved page Main Page to Verifying DLMF with Maple and Mathematica |
Admin moved page Main Page to Verifying DLMF with Maple and Mathematica |
||
Line 14: | Line 14: | ||
! scope="col" style="position: sticky; top: 0;" | Numeric<br>Mathematica | ! scope="col" style="position: sticky; top: 0;" | Numeric<br>Mathematica | ||
|- style="background: #dfe6e9;" | |- style="background: #dfe6e9;" | ||
| [https://dlmf.nist.gov/19.2.E2 19.2.E2] | | | [https://dlmf.nist.gov/19.2.E2 19.2.E2] || <math qid="Q6083">r(s,t) = \frac{(p_{1}+p_{2}s)(p_{3}-p_{4}s)s}{(p_{3}+p_{4}s)(p_{3}-p_{4}s)s}</math><br><syntaxhighlight lang="tex" style="font-size: 75%; background: inherit;" inline>r(s,t) = \frac{(p_{1}+p_{2}s)(p_{3}-p_{4}s)s}{(p_{3}+p_{4}s)(p_{3}-p_{4}s)s}</syntaxhighlight> || <math></math> || <div class="mw-highlight mw-highlight-lang-mathematica mw-content-ltr" dir="ltr"><pre style="background: inherit;">r(s , t) = ((p[1]+ p[2]*s)*(p[3]- p[4]*s)*s)/((p[3]+ p[4]*s)*(p[3]- p[4]*s)*s)</pre></div> || <div class="mw-highlight mw-highlight-lang-mathematica mw-content-ltr" dir="ltr"><pre style="background: inherit;">r[s , t] == Divide[(Subscript[p, 1]+ Subscript[p, 2]*s)*(Subscript[p, 3]- Subscript[p, 4]*s)*s,(Subscript[p, 3]+ Subscript[p, 4]*s)*(Subscript[p, 3]- Subscript[p, 4]*s)*s]</pre></div> || Skipped - no semantic math || Skipped - no semantic math || - || - | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E4 19.2.E4] | | | [https://dlmf.nist.gov/19.2.E4 19.2.E4] || <math qid="Q6085">\incellintFk@{\phi}{k} = \int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\incellintFk@{\phi}{k} = \int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticF(sin(phi), k) = int((1)/(sqrt(1 - (k)^(2)* (sin(theta))^(2))), theta = 0..phi)</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticF[\[Phi], (k)^2] == Integrate[Divide[1,Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]], {\[Theta], 0, \[Phi]}, GenerateConditions->None]</syntaxhighlight> || Failure || Aborted || <div class="toccolours mw-collapsible mw-collapsed">Failed [6 / 30]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Float(infinity) | ||
Test Values: {phi = -2, k = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: .2e-9-.5175477340*I | Test Values: {phi = -2, k = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: .2e-9-.5175477340*I | ||
Test Values: {phi = -2, k = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || Skipped - Because timed out | Test Values: {phi = -2, k = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || Skipped - Because timed out | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E4 19.2.E4] | | | [https://dlmf.nist.gov/19.2.E4 19.2.E4] || <math qid="Q6085">\int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}} = \int_{0}^{\sin@@{\phi}}\frac{\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}} = \int_{0}^{\sin@@{\phi}}\frac{\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>int((1)/(sqrt(1 - (k)^(2)* (sin(theta))^(2))), theta = 0..phi) = int((1)/(sqrt(1 - (t)^(2))*sqrt(1 - (k)^(2)* (t)^(2))), t = 0..sin(phi))</syntaxhighlight> || <syntaxhighlight lang=mathematica>Integrate[Divide[1,Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]], {\[Theta], 0, \[Phi]}, GenerateConditions->None] == Integrate[Divide[1,Sqrt[1 - (t)^(2)]*Sqrt[1 - (k)^(2)* (t)^(2)]], {t, 0, Sin[\[Phi]]}, GenerateConditions->None]</syntaxhighlight> || Failure || Aborted || <div class="toccolours mw-collapsible mw-collapsed">Failed [6 / 30]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Float(-infinity) | ||
Test Values: {phi = -2, k = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: -.2e-9+.5175477340*I | Test Values: {phi = -2, k = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: -.2e-9+.5175477340*I | ||
Test Values: {phi = -2, k = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || Skipped - Because timed out | Test Values: {phi = -2, k = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || Skipped - Because timed out | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E5 19.2.E5] | | | [https://dlmf.nist.gov/19.2.E5 19.2.E5] || <math qid="Q6086">\incellintEk@{\phi}{k} = \int_{0}^{\phi}\sqrt{1-k^{2}\sin^{2}@@{\theta}}\diff{\theta}\\</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\incellintEk@{\phi}{k} = \int_{0}^{\phi}\sqrt{1-k^{2}\sin^{2}@@{\theta}}\diff{\theta}\\</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticE(sin(phi), k) = int(sqrt(1 - (k)^(2)* (sin(theta))^(2)), theta = 0..phi)</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticE[\[Phi], (k)^2] == Integrate[Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)], {\[Theta], 0, \[Phi]}, GenerateConditions->None]</syntaxhighlight> || Failure || Aborted || Skipped - Because timed out || Skipped - Because timed out | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E5 19.2.E5] | | | [https://dlmf.nist.gov/19.2.E5 19.2.E5] || <math qid="Q6086">\int_{0}^{\phi}\sqrt{1-k^{2}\sin^{2}@@{\theta}}\diff{\theta}\\ = \int_{0}^{\sin@@{\phi}}\frac{\sqrt{1-k^{2}t^{2}}}{\sqrt{1-t^{2}}}\diff{t}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\int_{0}^{\phi}\sqrt{1-k^{2}\sin^{2}@@{\theta}}\diff{\theta}\\ = \int_{0}^{\sin@@{\phi}}\frac{\sqrt{1-k^{2}t^{2}}}{\sqrt{1-t^{2}}}\diff{t}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>int(sqrt(1 - (k)^(2)* (sin(theta))^(2)), theta = 0..phi) = int((sqrt(1 - (k)^(2)* (t)^(2)))/(sqrt(1 - (t)^(2))), t = 0..sin(phi))</syntaxhighlight> || <syntaxhighlight lang=mathematica>Integrate[Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)], {\[Theta], 0, \[Phi]}, GenerateConditions->None] == Integrate[Divide[Sqrt[1 - (k)^(2)* (t)^(2)],Sqrt[1 - (t)^(2)]], {t, 0, Sin[\[Phi]]}, GenerateConditions->None]</syntaxhighlight> || Failure || Aborted || Skipped - Because timed out || Skipped - Because timed out | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E6 19.2.E6] | | | [https://dlmf.nist.gov/19.2.E6 19.2.E6] || <math qid="Q6087">\incellintDk@{\phi}{k} = \int_{0}^{\phi}\frac{\sin^{2}@@{\theta}\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\incellintDk@{\phi}{k} = \int_{0}^{\phi}\frac{\sin^{2}@@{\theta}\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>(EllipticF(sin(phi), k) - EllipticE(sin(phi), k))/(k)^2 = int(((sin(theta))^(2))/(sqrt(1 - (k)^(2)* (sin(theta))^(2))), theta = 0..phi)</syntaxhighlight> || <syntaxhighlight lang=mathematica>Divide[EllipticF[\[Phi], (k)^2] - EllipticE[\[Phi], (k)^2], (k)^4] == Integrate[Divide[(Sin[\[Theta]])^(2),Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]], {\[Theta], 0, \[Phi]}, GenerateConditions->None]</syntaxhighlight> || Failure || Aborted || Skipped - Because timed out || Skipped - Because timed out | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E6 19.2.E6] | | | [https://dlmf.nist.gov/19.2.E6 19.2.E6] || <math qid="Q6087">\int_{0}^{\phi}\frac{\sin^{2}@@{\theta}\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}} = \int_{0}^{\sin@@{\phi}}\frac{t^{2}\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\int_{0}^{\phi}\frac{\sin^{2}@@{\theta}\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}} = \int_{0}^{\sin@@{\phi}}\frac{t^{2}\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>int(((sin(theta))^(2))/(sqrt(1 - (k)^(2)* (sin(theta))^(2))), theta = 0..phi) = int(((t)^(2))/(sqrt(1 - (t)^(2))*sqrt(1 - (k)^(2)* (t)^(2))), t = 0..sin(phi))</syntaxhighlight> || <syntaxhighlight lang=mathematica>Integrate[Divide[(Sin[\[Theta]])^(2),Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]], {\[Theta], 0, \[Phi]}, GenerateConditions->None] == Integrate[Divide[(t)^(2),Sqrt[1 - (t)^(2)]*Sqrt[1 - (k)^(2)* (t)^(2)]], {t, 0, Sin[\[Phi]]}, GenerateConditions->None]</syntaxhighlight> || Failure || Aborted || Skipped - Because timed out || Skipped - Because timed out | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E6 19.2.E6] | | | [https://dlmf.nist.gov/19.2.E6 19.2.E6] || <math qid="Q6087">\int_{0}^{\sin@@{\phi}}\frac{t^{2}\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}} = (\incellintFk@{\phi}{k}-\incellintEk@{\phi}{k})/k^{2}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\int_{0}^{\sin@@{\phi}}\frac{t^{2}\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}} = (\incellintFk@{\phi}{k}-\incellintEk@{\phi}{k})/k^{2}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>int(((t)^(2))/(sqrt(1 - (t)^(2))*sqrt(1 - (k)^(2)* (t)^(2))), t = 0..sin(phi)) = (EllipticF(sin(phi), k)- EllipticE(sin(phi), k))/(k)^(2)</syntaxhighlight> || <syntaxhighlight lang=mathematica>Integrate[Divide[(t)^(2),Sqrt[1 - (t)^(2)]*Sqrt[1 - (k)^(2)* (t)^(2)]], {t, 0, Sin[\[Phi]]}, GenerateConditions->None] == (EllipticF[\[Phi], (k)^2]- EllipticE[\[Phi], (k)^2])/(k)^(2)</syntaxhighlight> || Failure || Aborted || Successful [Tested: 0] || Skipped - Because timed out | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E7 19.2.E7] | | | [https://dlmf.nist.gov/19.2.E7 19.2.E7] || <math qid="Q6088">\incellintPik@{\phi}{\alpha^{2}}{k} = \int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}(1-\alpha^{2}\sin^{2}@@{\theta})}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\incellintPik@{\phi}{\alpha^{2}}{k} = \int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}(1-\alpha^{2}\sin^{2}@@{\theta})}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticPi(sin(phi), (alpha)^(2), k) = int((1)/(sqrt(1 - (k)^(2)* (sin(theta))^(2))*(1 - (alpha)^(2)* (sin(theta))^(2))), theta = 0..phi)</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticPi[\[Alpha]^(2), \[Phi],(k)^2] == Integrate[Divide[1,Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]*(1 - \[Alpha]^(2)* (Sin[\[Theta]])^(2))], {\[Theta], 0, \[Phi]}, GenerateConditions->None]</syntaxhighlight> || Aborted || Aborted || Skipped - Because timed out || Skipped - Because timed out | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E7 19.2.E7] | | | [https://dlmf.nist.gov/19.2.E7 19.2.E7] || <math qid="Q6088">\int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}(1-\alpha^{2}\sin^{2}@@{\theta})} = \int_{0}^{\sin@@{\phi}}\frac{\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}(1-\alpha^{2}t^{2})}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}(1-\alpha^{2}\sin^{2}@@{\theta})} = \int_{0}^{\sin@@{\phi}}\frac{\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}(1-\alpha^{2}t^{2})}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>int((1)/(sqrt(1 - (k)^(2)* (sin(theta))^(2))*(1 - (alpha)^(2)* (sin(theta))^(2))), theta = 0..phi) = int((1)/(sqrt(1 - (t)^(2))*sqrt(1 - (k)^(2)* (t)^(2))*(1 - (alpha)^(2)* (t)^(2))), t = 0..sin(phi))</syntaxhighlight> || <syntaxhighlight lang=mathematica>Integrate[Divide[1,Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]*(1 - \[Alpha]^(2)* (Sin[\[Theta]])^(2))], {\[Theta], 0, \[Phi]}, GenerateConditions->None] == Integrate[Divide[1,Sqrt[1 - (t)^(2)]*Sqrt[1 - (k)^(2)* (t)^(2)]*(1 - \[Alpha]^(2)* (t)^(2))], {t, 0, Sin[\[Phi]]}, GenerateConditions->None]</syntaxhighlight> || Aborted || Aborted || Skipped - Because timed out || Skipped - Because timed out | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex1 19.2#Ex1] | | | [https://dlmf.nist.gov/19.2#Ex1 19.2#Ex1] || <math qid="Q6089">\compellintKk@{k} = \incellintFk@{\pi/2}{k}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\compellintKk@{k} = \incellintFk@{\pi/2}{k}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticK(k) = EllipticF(sin(Pi/2), k)</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticK[(k)^2] == EllipticF[Pi/2, (k)^2]</syntaxhighlight> || Successful || Successful || - || Successful [Tested: 3] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex2 19.2#Ex2] | | | [https://dlmf.nist.gov/19.2#Ex2 19.2#Ex2] || <math qid="Q6090">\compellintEk@{k} = \incellintEk@{\pi/2}{k}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\compellintEk@{k} = \incellintEk@{\pi/2}{k}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticE(k) = EllipticE(sin(Pi/2), k)</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticE[(k)^2] == EllipticE[Pi/2, (k)^2]</syntaxhighlight> || Successful || Successful || - || Successful [Tested: 3] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex3 19.2#Ex3] | | | [https://dlmf.nist.gov/19.2#Ex3 19.2#Ex3] || <math qid="Q6091">\compellintDk@{k} = \incellintDk@{\pi/2}{k}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\compellintDk@{k} = \incellintDk@{\pi/2}{k}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>(EllipticK(k) - EllipticE(k))/(k)^2 = (EllipticF(sin(Pi/2), k) - EllipticE(sin(Pi/2), k))/(k)^2</syntaxhighlight> || <syntaxhighlight lang=mathematica>Divide[EllipticK[(k)^2] - EllipticE[(k)^2], (k)^4] == Divide[EllipticF[Pi/2, (k)^2] - EllipticE[Pi/2, (k)^2], (k)^4]</syntaxhighlight> || Successful || Successful || - || Successful [Tested: 3] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex3 19.2#Ex3] | | | [https://dlmf.nist.gov/19.2#Ex3 19.2#Ex3] || <math qid="Q6091">\incellintDk@{\pi/2}{k} = (\compellintKk@{k}-\compellintEk@{k})/k^{2}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\incellintDk@{\pi/2}{k} = (\compellintKk@{k}-\compellintEk@{k})/k^{2}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>(EllipticF(sin(Pi/2), k) - EllipticE(sin(Pi/2), k))/(k)^2 = (EllipticK(k)- EllipticE(k))/(k)^(2)</syntaxhighlight> || <syntaxhighlight lang=mathematica>Divide[EllipticF[Pi/2, (k)^2] - EllipticE[Pi/2, (k)^2], (k)^4] == (EllipticK[(k)^2]- EllipticE[(k)^2])/(k)^(2)</syntaxhighlight> || Successful || Failure || - || <div class="toccolours mw-collapsible mw-collapsed">Failed [3 / 3]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Indeterminate | ||
Test Values: {Rule[k, 1]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Complex[-0.08185805455243832, 0.4541460103381725] | Test Values: {Rule[k, 1]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Complex[-0.08185805455243832, 0.4541460103381725] | ||
Test Values: {Rule[k, 2]}</syntaxhighlight><br>... skip entries to safe data</div></div> | Test Values: {Rule[k, 2]}</syntaxhighlight><br>... skip entries to safe data</div></div> | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex4 19.2#Ex4] | | | [https://dlmf.nist.gov/19.2#Ex4 19.2#Ex4] || <math qid="Q6092">\compellintPik@{\alpha^{2}}{k} = \incellintPik@{\pi/2}{\alpha^{2}}{k}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\compellintPik@{\alpha^{2}}{k} = \incellintPik@{\pi/2}{\alpha^{2}}{k}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticPi((alpha)^(2), k) = EllipticPi(sin(Pi/2), (alpha)^(2), k)</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticPi[\[Alpha]^(2), (k)^2] == EllipticPi[\[Alpha]^(2), Pi/2,(k)^2]</syntaxhighlight> || Successful || Successful || - || Successful [Tested: 9] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex5 19.2#Ex5] | | | [https://dlmf.nist.gov/19.2#Ex5 19.2#Ex5] || <math qid="Q6093">\ccompellintKk@{k} = \compellintKk@{k^{\prime}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\ccompellintKk@{k} = \compellintKk@{k^{\prime}}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticCK(k) = EllipticK(sqrt(1 - (k)^(2)))</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticK[1-(k)^2] == EllipticK[(Sqrt[1 - (k)^(2)])^2]</syntaxhighlight> || Successful || Successful || - || Successful [Tested: 3] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex6 19.2#Ex6] | | | [https://dlmf.nist.gov/19.2#Ex6 19.2#Ex6] || <math qid="Q6094">\ccompellintEk@{k} = \compellintEk@{k^{\prime}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\ccompellintEk@{k} = \compellintEk@{k^{\prime}}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticCE(k) = EllipticE(sqrt(1 - (k)^(2)))</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticE[1-(k)^2] == EllipticE[(Sqrt[1 - (k)^(2)])^2]</syntaxhighlight> || Successful || Successful || - || Successful [Tested: 3] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex7 19.2#Ex7] | | | [https://dlmf.nist.gov/19.2#Ex7 19.2#Ex7] || <math qid="Q6095">k^{\prime} = \sqrt{1-k^{2}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>k^{\prime} = \sqrt{1-k^{2}}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>sqrt(1 - (k)^(2)) = sqrt(1 - (k)^(2))</syntaxhighlight> || <syntaxhighlight lang=mathematica>Sqrt[1 - (k)^(2)] == Sqrt[1 - (k)^(2)]</syntaxhighlight> || Successful || Successful || - || Successful [Tested: 3] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex8 19.2#Ex8] | | | [https://dlmf.nist.gov/19.2#Ex8 19.2#Ex8] || <math qid="Q6096">\incellintFk@{m\pi+\phi}{k} = 2m\compellintKk@{k}+\incellintFk@{\phi}{k}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\incellintFk@{m\pi+\phi}{k} = 2m\compellintKk@{k}+\incellintFk@{\phi}{k}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticF(sin(m*Pi + phi), k) = 2*m*EllipticK(k)+ EllipticF(sin(phi), k)</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticF[m*Pi + \[Phi], (k)^2] == 2*m*EllipticK[(k)^2]+ EllipticF[\[Phi], (k)^2]</syntaxhighlight> || Failure || Failure || Error || <div class="toccolours mw-collapsible mw-collapsed">Failed [30 / 90]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Indeterminate | ||
Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Indeterminate | Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Indeterminate | ||
Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br>... skip entries to safe data</div></div> | Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br>... skip entries to safe data</div></div> | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex8 19.2#Ex8] | | | [https://dlmf.nist.gov/19.2#Ex8 19.2#Ex8] || <math qid="Q6096">\incellintFk@{m\pi-\phi}{k} = 2m\compellintKk@{k}-\incellintFk@{\phi}{k}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\incellintFk@{m\pi-\phi}{k} = 2m\compellintKk@{k}-\incellintFk@{\phi}{k}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticF(sin(m*Pi - phi), k) = 2*m*EllipticK(k)- EllipticF(sin(phi), k)</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticF[m*Pi - \[Phi], (k)^2] == 2*m*EllipticK[(k)^2]- EllipticF[\[Phi], (k)^2]</syntaxhighlight> || Failure || Failure || Error || <div class="toccolours mw-collapsible mw-collapsed">Failed [30 / 90]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Indeterminate | ||
Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Indeterminate | Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Indeterminate | ||
Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br>... skip entries to safe data</div></div> | Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br>... skip entries to safe data</div></div> | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex9 19.2#Ex9] | | | [https://dlmf.nist.gov/19.2#Ex9 19.2#Ex9] || <math qid="Q6097">\incellintEk@{m\pi+\phi}{k} = 2m\compellintEk@{k}+\incellintEk@{\phi}{k}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\incellintEk@{m\pi+\phi}{k} = 2m\compellintEk@{k}+\incellintEk@{\phi}{k}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticE(sin(m*Pi + phi), k) = 2*m*EllipticE(k)+ EllipticE(sin(phi), k)</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticE[m*Pi + \[Phi], (k)^2] == 2*m*EllipticE[(k)^2]+ EllipticE[\[Phi], (k)^2]</syntaxhighlight> || Failure || Failure || <div class="toccolours mw-collapsible mw-collapsed">Failed [90 / 90]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: -3.717960670-.6751929261*I | ||
Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: -4.000000000-.3e-9*I | Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: -4.000000000-.3e-9*I | ||
Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || Successful [Tested: 90] | Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || Successful [Tested: 90] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex9 19.2#Ex9] | | | [https://dlmf.nist.gov/19.2#Ex9 19.2#Ex9] || <math qid="Q6097">\incellintEk@{m\pi-\phi}{k} = 2m\compellintEk@{k}-\incellintEk@{\phi}{k}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\incellintEk@{m\pi-\phi}{k} = 2m\compellintEk@{k}-\incellintEk@{\phi}{k}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>EllipticE(sin(m*Pi - phi), k) = 2*m*EllipticE(k)- EllipticE(sin(phi), k)</syntaxhighlight> || <syntaxhighlight lang=mathematica>EllipticE[m*Pi - \[Phi], (k)^2] == 2*m*EllipticE[(k)^2]- EllipticE[\[Phi], (k)^2]</syntaxhighlight> || Failure || Failure || <div class="toccolours mw-collapsible mw-collapsed">Failed [90 / 90]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: -.2820393315+.6751929264*I | ||
Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: -4.000000000-.4e-9*I | Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 1}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: -4.000000000-.4e-9*I | ||
Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || Successful [Tested: 90] | Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 2}</syntaxhighlight><br>... skip entries to safe data</div></div> || Successful [Tested: 90] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex10 19.2#Ex10] | | | [https://dlmf.nist.gov/19.2#Ex10 19.2#Ex10] || <math qid="Q6098">\incellintDk@{m\pi+\phi}{k} = 2m\compellintDk@{k}+\incellintDk@{\phi}{k}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\incellintDk@{m\pi+\phi}{k} = 2m\compellintDk@{k}+\incellintDk@{\phi}{k}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>(EllipticF(sin(m*Pi + phi), k) - EllipticE(sin(m*Pi + phi), k))/(k)^2 = 2*m*(EllipticK(k) - EllipticE(k))/(k)^2 + (EllipticF(sin(phi), k) - EllipticE(sin(phi), k))/(k)^2</syntaxhighlight> || <syntaxhighlight lang=mathematica>Divide[EllipticF[m*Pi + \[Phi], (k)^2] - EllipticE[m*Pi + \[Phi], (k)^2], (k)^4] == 2*m*Divide[EllipticK[(k)^2] - EllipticE[(k)^2], (k)^4]+ Divide[EllipticF[\[Phi], (k)^2] - EllipticE[\[Phi], (k)^2], (k)^4]</syntaxhighlight> || Failure || Failure || Error || <div class="toccolours mw-collapsible mw-collapsed">Failed [30 / 90]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Indeterminate | ||
Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Indeterminate | Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Indeterminate | ||
Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br>... skip entries to safe data</div></div> | Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br>... skip entries to safe data</div></div> | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2#Ex10 19.2#Ex10] | | | [https://dlmf.nist.gov/19.2#Ex10 19.2#Ex10] || <math qid="Q6098">\incellintDk@{m\pi-\phi}{k} = 2m\compellintDk@{k}-\incellintDk@{\phi}{k}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\incellintDk@{m\pi-\phi}{k} = 2m\compellintDk@{k}-\incellintDk@{\phi}{k}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>(EllipticF(sin(m*Pi - phi), k) - EllipticE(sin(m*Pi - phi), k))/(k)^2 = 2*m*(EllipticK(k) - EllipticE(k))/(k)^2 - (EllipticF(sin(phi), k) - EllipticE(sin(phi), k))/(k)^2</syntaxhighlight> || <syntaxhighlight lang=mathematica>Divide[EllipticF[m*Pi - \[Phi], (k)^2] - EllipticE[m*Pi - \[Phi], (k)^2], (k)^4] == 2*m*Divide[EllipticK[(k)^2] - EllipticE[(k)^2], (k)^4]- Divide[EllipticF[\[Phi], (k)^2] - EllipticE[\[Phi], (k)^2], (k)^4]</syntaxhighlight> || Failure || Failure || Error || <div class="toccolours mw-collapsible mw-collapsed">Failed [30 / 90]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Indeterminate | ||
Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Indeterminate | Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Indeterminate | ||
Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br>... skip entries to safe data</div></div> | Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}</syntaxhighlight><br>... skip entries to safe data</div></div> | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E16 19.2.E16] | | | [https://dlmf.nist.gov/19.2.E16 19.2.E16] || <math qid="Q6112">\int_{0}^{\atan@@{x}}\frac{\diff{\theta}}{(\cos^{2}@@{\theta}+p\sin^{2}@@{\theta})\sqrt{\cos^{2}@@{\theta}+k_{c}^{2}\sin^{2}@@{\theta}}} = \incellintPik@{\atan@@{x}}{1-p}{k}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\int_{0}^{\atan@@{x}}\frac{\diff{\theta}}{(\cos^{2}@@{\theta}+p\sin^{2}@@{\theta})\sqrt{\cos^{2}@@{\theta}+k_{c}^{2}\sin^{2}@@{\theta}}} = \incellintPik@{\atan@@{x}}{1-p}{k}</syntaxhighlight> || <math>x^{2} \neq -1/p</math> || <syntaxhighlight lang=mathematica>int((1)/(((cos(theta))^(2)+ p*(sin(theta))^(2))*sqrt((cos(theta))^(2)+ (k[c])^(2)*(sin(theta))^(2))), theta = 0..arctan(x)) = EllipticPi(sin(arctan(x)), 1 - p, k)</syntaxhighlight> || <syntaxhighlight lang=mathematica>Integrate[Divide[1,((Cos[\[Theta]])^(2)+ p*(Sin[\[Theta]])^(2))*Sqrt[(Cos[\[Theta]])^(2)+ (Subscript[k, c])^(2)*(Sin[\[Theta]])^(2)]], {\[Theta], 0, ArcTan[x]}, GenerateConditions->None] == EllipticPi[1 - p, ArcTan[x],(k)^2]</syntaxhighlight> || Error || Aborted || - || Skipped - Because timed out | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E17 19.2.E17] | | | [https://dlmf.nist.gov/19.2.E17 19.2.E17] || <math qid="Q6113">\CarlsonellintRC@{x}{y} = \frac{1}{2}\int_{0}^{\infty}\frac{\diff{t}}{\sqrt{t+x}(t+y)}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\CarlsonellintRC@{x}{y} = \frac{1}{2}\int_{0}^{\infty}\frac{\diff{t}}{\sqrt{t+x}(t+y)}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>Error</syntaxhighlight> || <syntaxhighlight lang=mathematica>1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Divide[1,2]*Integrate[Divide[1,Sqrt[t + x]*(t + y)], {t, 0, Infinity}, GenerateConditions->None]</syntaxhighlight> || Missing Macro Error || Failure || - || <div class="toccolours mw-collapsible mw-collapsed">Failed [12 / 18]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Complex[-1.0177225554447185, 0.0] | ||
Test Values: {Rule[x, 1.5], Rule[y, -1.5]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Indeterminate | Test Values: {Rule[x, 1.5], Rule[y, -1.5]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Indeterminate | ||
Test Values: {Rule[x, 1.5], Rule[y, 1.5]}</syntaxhighlight><br>... skip entries to safe data</div></div> | Test Values: {Rule[x, 1.5], Rule[y, 1.5]}</syntaxhighlight><br>... skip entries to safe data</div></div> | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E18 19.2.E18] | | | [https://dlmf.nist.gov/19.2.E18 19.2.E18] || <math qid="Q6114">\CarlsonellintRC@{x}{y} = \frac{1}{\sqrt{y-x}}\atan@@{\sqrt{\frac{y-x}{x}}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\CarlsonellintRC@{x}{y} = \frac{1}{\sqrt{y-x}}\atan@@{\sqrt{\frac{y-x}{x}}}</syntaxhighlight> || <math>0 \leq x, x < y</math> || <syntaxhighlight lang=mathematica>Error</syntaxhighlight> || <syntaxhighlight lang=mathematica>1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Divide[1,Sqrt[y - x]]*ArcTan[Sqrt[Divide[y - x,x]]]</syntaxhighlight> || Missing Macro Error || Failure || Skip - symbolical successful subtest || Successful [Tested: 3] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E18 19.2.E18] | | | [https://dlmf.nist.gov/19.2.E18 19.2.E18] || <math qid="Q6114">\frac{1}{\sqrt{y-x}}\atan@@{\sqrt{\frac{y-x}{x}}} = \frac{1}{\sqrt{y-x}}\acos@@{\sqrt{x/y}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\frac{1}{\sqrt{y-x}}\atan@@{\sqrt{\frac{y-x}{x}}} = \frac{1}{\sqrt{y-x}}\acos@@{\sqrt{x/y}}</syntaxhighlight> || <math>0 \leq x, x < y</math> || <syntaxhighlight lang=mathematica>(1)/(sqrt(y - x))*arctan(sqrt((y - x)/(x))) = (1)/(sqrt(y - x))*arccos(sqrt(x/y))</syntaxhighlight> || <syntaxhighlight lang=mathematica>Divide[1,Sqrt[y - x]]*ArcTan[Sqrt[Divide[y - x,x]]] == Divide[1,Sqrt[y - x]]*ArcCos[Sqrt[x/y]]</syntaxhighlight> || Failure || Failure || Successful [Tested: 3] || Successful [Tested: 3] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E19 19.2.E19] | | | [https://dlmf.nist.gov/19.2.E19 19.2.E19] || <math qid="Q6115">\CarlsonellintRC@{x}{y} = \frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x-y}{x}}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\CarlsonellintRC@{x}{y} = \frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x-y}{x}}}</syntaxhighlight> || <math>0 < y, y < x</math> || <syntaxhighlight lang=mathematica>Error</syntaxhighlight> || <syntaxhighlight lang=mathematica>1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Divide[1,Sqrt[x - y]]*ArcTanh[Sqrt[Divide[x - y,x]]]</syntaxhighlight> || Missing Macro Error || Failure || Skip - symbolical successful subtest || Successful [Tested: 3] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E19 19.2.E19] | | | [https://dlmf.nist.gov/19.2.E19 19.2.E19] || <math qid="Q6115">\frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x-y}{x}}} = \frac{1}{\sqrt{x-y}}\ln@@{\frac{\sqrt{x}+\sqrt{x-y}}{\sqrt{y}}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x-y}{x}}} = \frac{1}{\sqrt{x-y}}\ln@@{\frac{\sqrt{x}+\sqrt{x-y}}{\sqrt{y}}}</syntaxhighlight> || <math>0 < y, y < x</math> || <syntaxhighlight lang=mathematica>(1)/(sqrt(x - y))*arctanh(sqrt((x - y)/(x))) = (1)/(sqrt(x - y))*ln((sqrt(x)+sqrt(x - y))/(sqrt(y)))</syntaxhighlight> || <syntaxhighlight lang=mathematica>Divide[1,Sqrt[x - y]]*ArcTanh[Sqrt[Divide[x - y,x]]] == Divide[1,Sqrt[x - y]]*Log[Divide[Sqrt[x]+Sqrt[x - y],Sqrt[y]]]</syntaxhighlight> || Failure || Failure || Successful [Tested: 3] || Successful [Tested: 3] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E20 19.2.E20] | | | [https://dlmf.nist.gov/19.2.E20 19.2.E20] || <math qid="Q6116">\CarlsonellintRC@{x}{y} = \sqrt{\frac{x}{x-y}}\CarlsonellintRC@{x-y}{-y}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\CarlsonellintRC@{x}{y} = \sqrt{\frac{x}{x-y}}\CarlsonellintRC@{x-y}{-y}</syntaxhighlight> || <math>y < 0, 0 \leq x</math> || <syntaxhighlight lang=mathematica>Error</syntaxhighlight> || <syntaxhighlight lang=mathematica>1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Sqrt[Divide[x,x - y]]*1/Sqrt[- y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x - y)/(- y)]</syntaxhighlight> || Missing Macro Error || Failure || Skip - symbolical successful subtest || <div class="toccolours mw-collapsible mw-collapsed">Failed [9 / 9]<div class="mw-collapsible-content"><syntaxhighlight lang=mathematica>Result: Complex[-1.0177225554447187, -0.906899682117109] | ||
Test Values: {Rule[x, 1.5], Rule[y, -1.5]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Complex[-1.862459718905424, -1.1107207345395915] | Test Values: {Rule[x, 1.5], Rule[y, -1.5]}</syntaxhighlight><br><syntaxhighlight lang=mathematica>Result: Complex[-1.862459718905424, -1.1107207345395915] | ||
Test Values: {Rule[x, 1.5], Rule[y, -0.5]}</syntaxhighlight><br>... skip entries to safe data</div></div> | Test Values: {Rule[x, 1.5], Rule[y, -0.5]}</syntaxhighlight><br>... skip entries to safe data</div></div> | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E20 19.2.E20] | | | [https://dlmf.nist.gov/19.2.E20 19.2.E20] || <math qid="Q6116">\sqrt{\frac{x}{x-y}}\CarlsonellintRC@{x-y}{-y} = \frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x}{x-y}}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\sqrt{\frac{x}{x-y}}\CarlsonellintRC@{x-y}{-y} = \frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x}{x-y}}}</syntaxhighlight> || <math>y < 0, 0 \leq x</math> || <syntaxhighlight lang=mathematica>Error</syntaxhighlight> || <syntaxhighlight lang=mathematica>Sqrt[Divide[x,x - y]]*1/Sqrt[- y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x - y)/(- y)] == Divide[1,Sqrt[x - y]]*ArcTanh[Sqrt[Divide[x,x - y]]]</syntaxhighlight> || Missing Macro Error || Failure || Skip - symbolical successful subtest || Successful [Tested: 9] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E20 19.2.E20] | | | [https://dlmf.nist.gov/19.2.E20 19.2.E20] || <math qid="Q6116">\frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x}{x-y}}} = \frac{1}{\sqrt{x-y}}\ln@@{\frac{\sqrt{x}+\sqrt{x-y}}{\sqrt{-y}}}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x}{x-y}}} = \frac{1}{\sqrt{x-y}}\ln@@{\frac{\sqrt{x}+\sqrt{x-y}}{\sqrt{-y}}}</syntaxhighlight> || <math>y < 0, 0 \leq x</math> || <syntaxhighlight lang=mathematica>(1)/(sqrt(x - y))*arctanh(sqrt((x)/(x - y))) = (1)/(sqrt(x - y))*ln((sqrt(x)+sqrt(x - y))/(sqrt(- y)))</syntaxhighlight> || <syntaxhighlight lang=mathematica>Divide[1,Sqrt[x - y]]*ArcTanh[Sqrt[Divide[x,x - y]]] == Divide[1,Sqrt[x - y]]*Log[Divide[Sqrt[x]+Sqrt[x - y],Sqrt[- y]]]</syntaxhighlight> || Failure || Failure || Successful [Tested: 9] || Successful [Tested: 9] | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E21 19.2.E21] | | | [https://dlmf.nist.gov/19.2.E21 19.2.E21] || <math qid="Q6117">\CarlsonellintRC@{x}{y} = \int_{0}^{1}(v^{2}x+(1-v^{2})y)^{-1/2}\diff{v}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\CarlsonellintRC@{x}{y} = \int_{0}^{1}(v^{2}x+(1-v^{2})y)^{-1/2}\diff{v}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>Error</syntaxhighlight> || <syntaxhighlight lang=mathematica>1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Integrate[((v)^(2)* x +(1 - (v)^(2))*y)^(- 1/2), {v, 0, 1}, GenerateConditions->None]</syntaxhighlight> || Missing Macro Error || Aborted || - || Skipped - Because timed out | ||
|- | |- | ||
| [https://dlmf.nist.gov/19.2.E22 19.2.E22] | | | [https://dlmf.nist.gov/19.2.E22 19.2.E22] || <math qid="Q6118">\CarlsonellintRC@{x}{y} = \frac{2}{\pi}\int_{0}^{\pi/2}\CarlsonellintRC@{y}{x\cos^{2}@@{\theta}+y\sin^{2}@@{\theta}}\diff{\theta}</math><br><syntaxhighlight lang="tex" style="font-size: 75%;" inline>\CarlsonellintRC@{x}{y} = \frac{2}{\pi}\int_{0}^{\pi/2}\CarlsonellintRC@{y}{x\cos^{2}@@{\theta}+y\sin^{2}@@{\theta}}\diff{\theta}</syntaxhighlight> || <math></math> || <syntaxhighlight lang=mathematica>Error</syntaxhighlight> || <syntaxhighlight lang=mathematica>1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Divide[2,Pi]*Integrate[1/Sqrt[x*(Cos[\[Theta]])^(2)+ y*(Sin[\[Theta]])^(2)]*Hypergeometric2F1[1/2,1/2,3/2,1-(y)/(x*(Cos[\[Theta]])^(2)+ y*(Sin[\[Theta]])^(2))], {\[Theta], 0, Pi/2}, GenerateConditions->None]</syntaxhighlight> || Missing Macro Error || Aborted || - || Skipped - Because timed out | ||
|} | |} | ||
</div> | </div> |
Latest revision as of 11:48, 28 June 2021
DLMF | Formula | Constraints | Maple | Mathematica | Symbolic Maple |
Symbolic Mathematica |
Numeric Maple |
Numeric Mathematica |
---|---|---|---|---|---|---|---|---|
19.2.E2 | r(s,t) = \frac{(p_{1}+p_{2}s)(p_{3}-p_{4}s)s}{(p_{3}+p_{4}s)(p_{3}-p_{4}s)s} |
|
r(s , t) = ((p[1]+ p[2]*s)*(p[3]- p[4]*s)*s)/((p[3]+ p[4]*s)*(p[3]- p[4]*s)*s) |
r[s , t] == Divide[(Subscript[p, 1]+ Subscript[p, 2]*s)*(Subscript[p, 3]- Subscript[p, 4]*s)*s,(Subscript[p, 3]+ Subscript[p, 4]*s)*(Subscript[p, 3]- Subscript[p, 4]*s)*s] |
Skipped - no semantic math | Skipped - no semantic math | - | - |
19.2.E4 | \incellintFk@{\phi}{k} = \int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}} |
|
EllipticF(sin(phi), k) = int((1)/(sqrt(1 - (k)^(2)* (sin(theta))^(2))), theta = 0..phi)
|
EllipticF[\[Phi], (k)^2] == Integrate[Divide[1,Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]], {\[Theta], 0, \[Phi]}, GenerateConditions->None]
|
Failure | Aborted | Failed [6 / 30] Result: Float(infinity)
Test Values: {phi = -2, k = 1}
Result: .2e-9-.5175477340*I
Test Values: {phi = -2, k = 2}
... skip entries to safe data |
Skipped - Because timed out |
19.2.E4 | \int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}} = \int_{0}^{\sin@@{\phi}}\frac{\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}} |
|
int((1)/(sqrt(1 - (k)^(2)* (sin(theta))^(2))), theta = 0..phi) = int((1)/(sqrt(1 - (t)^(2))*sqrt(1 - (k)^(2)* (t)^(2))), t = 0..sin(phi))
|
Integrate[Divide[1,Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]], {\[Theta], 0, \[Phi]}, GenerateConditions->None] == Integrate[Divide[1,Sqrt[1 - (t)^(2)]*Sqrt[1 - (k)^(2)* (t)^(2)]], {t, 0, Sin[\[Phi]]}, GenerateConditions->None]
|
Failure | Aborted | Failed [6 / 30] Result: Float(-infinity)
Test Values: {phi = -2, k = 1}
Result: -.2e-9+.5175477340*I
Test Values: {phi = -2, k = 2}
... skip entries to safe data |
Skipped - Because timed out |
19.2.E5 | \incellintEk@{\phi}{k} = \int_{0}^{\phi}\sqrt{1-k^{2}\sin^{2}@@{\theta}}\diff{\theta}\\ |
|
EllipticE(sin(phi), k) = int(sqrt(1 - (k)^(2)* (sin(theta))^(2)), theta = 0..phi)
|
EllipticE[\[Phi], (k)^2] == Integrate[Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)], {\[Theta], 0, \[Phi]}, GenerateConditions->None]
|
Failure | Aborted | Skipped - Because timed out | Skipped - Because timed out |
19.2.E5 | \int_{0}^{\phi}\sqrt{1-k^{2}\sin^{2}@@{\theta}}\diff{\theta}\\ = \int_{0}^{\sin@@{\phi}}\frac{\sqrt{1-k^{2}t^{2}}}{\sqrt{1-t^{2}}}\diff{t} |
|
int(sqrt(1 - (k)^(2)* (sin(theta))^(2)), theta = 0..phi) = int((sqrt(1 - (k)^(2)* (t)^(2)))/(sqrt(1 - (t)^(2))), t = 0..sin(phi))
|
Integrate[Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)], {\[Theta], 0, \[Phi]}, GenerateConditions->None] == Integrate[Divide[Sqrt[1 - (k)^(2)* (t)^(2)],Sqrt[1 - (t)^(2)]], {t, 0, Sin[\[Phi]]}, GenerateConditions->None]
|
Failure | Aborted | Skipped - Because timed out | Skipped - Because timed out |
19.2.E6 | \incellintDk@{\phi}{k} = \int_{0}^{\phi}\frac{\sin^{2}@@{\theta}\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}} |
|
(EllipticF(sin(phi), k) - EllipticE(sin(phi), k))/(k)^2 = int(((sin(theta))^(2))/(sqrt(1 - (k)^(2)* (sin(theta))^(2))), theta = 0..phi)
|
Divide[EllipticF[\[Phi], (k)^2] - EllipticE[\[Phi], (k)^2], (k)^4] == Integrate[Divide[(Sin[\[Theta]])^(2),Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]], {\[Theta], 0, \[Phi]}, GenerateConditions->None]
|
Failure | Aborted | Skipped - Because timed out | Skipped - Because timed out |
19.2.E6 | \int_{0}^{\phi}\frac{\sin^{2}@@{\theta}\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}} = \int_{0}^{\sin@@{\phi}}\frac{t^{2}\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}} |
|
int(((sin(theta))^(2))/(sqrt(1 - (k)^(2)* (sin(theta))^(2))), theta = 0..phi) = int(((t)^(2))/(sqrt(1 - (t)^(2))*sqrt(1 - (k)^(2)* (t)^(2))), t = 0..sin(phi))
|
Integrate[Divide[(Sin[\[Theta]])^(2),Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]], {\[Theta], 0, \[Phi]}, GenerateConditions->None] == Integrate[Divide[(t)^(2),Sqrt[1 - (t)^(2)]*Sqrt[1 - (k)^(2)* (t)^(2)]], {t, 0, Sin[\[Phi]]}, GenerateConditions->None]
|
Failure | Aborted | Skipped - Because timed out | Skipped - Because timed out |
19.2.E6 | \int_{0}^{\sin@@{\phi}}\frac{t^{2}\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}} = (\incellintFk@{\phi}{k}-\incellintEk@{\phi}{k})/k^{2} |
|
int(((t)^(2))/(sqrt(1 - (t)^(2))*sqrt(1 - (k)^(2)* (t)^(2))), t = 0..sin(phi)) = (EllipticF(sin(phi), k)- EllipticE(sin(phi), k))/(k)^(2)
|
Integrate[Divide[(t)^(2),Sqrt[1 - (t)^(2)]*Sqrt[1 - (k)^(2)* (t)^(2)]], {t, 0, Sin[\[Phi]]}, GenerateConditions->None] == (EllipticF[\[Phi], (k)^2]- EllipticE[\[Phi], (k)^2])/(k)^(2)
|
Failure | Aborted | Successful [Tested: 0] | Skipped - Because timed out |
19.2.E7 | \incellintPik@{\phi}{\alpha^{2}}{k} = \int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}(1-\alpha^{2}\sin^{2}@@{\theta})} |
|
EllipticPi(sin(phi), (alpha)^(2), k) = int((1)/(sqrt(1 - (k)^(2)* (sin(theta))^(2))*(1 - (alpha)^(2)* (sin(theta))^(2))), theta = 0..phi)
|
EllipticPi[\[Alpha]^(2), \[Phi],(k)^2] == Integrate[Divide[1,Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]*(1 - \[Alpha]^(2)* (Sin[\[Theta]])^(2))], {\[Theta], 0, \[Phi]}, GenerateConditions->None]
|
Aborted | Aborted | Skipped - Because timed out | Skipped - Because timed out |
19.2.E7 | \int_{0}^{\phi}\frac{\diff{\theta}}{\sqrt{1-k^{2}\sin^{2}@@{\theta}}(1-\alpha^{2}\sin^{2}@@{\theta})} = \int_{0}^{\sin@@{\phi}}\frac{\diff{t}}{\sqrt{1-t^{2}}\sqrt{1-k^{2}t^{2}}(1-\alpha^{2}t^{2})} |
|
int((1)/(sqrt(1 - (k)^(2)* (sin(theta))^(2))*(1 - (alpha)^(2)* (sin(theta))^(2))), theta = 0..phi) = int((1)/(sqrt(1 - (t)^(2))*sqrt(1 - (k)^(2)* (t)^(2))*(1 - (alpha)^(2)* (t)^(2))), t = 0..sin(phi))
|
Integrate[Divide[1,Sqrt[1 - (k)^(2)* (Sin[\[Theta]])^(2)]*(1 - \[Alpha]^(2)* (Sin[\[Theta]])^(2))], {\[Theta], 0, \[Phi]}, GenerateConditions->None] == Integrate[Divide[1,Sqrt[1 - (t)^(2)]*Sqrt[1 - (k)^(2)* (t)^(2)]*(1 - \[Alpha]^(2)* (t)^(2))], {t, 0, Sin[\[Phi]]}, GenerateConditions->None]
|
Aborted | Aborted | Skipped - Because timed out | Skipped - Because timed out |
19.2#Ex1 | \compellintKk@{k} = \incellintFk@{\pi/2}{k} |
|
EllipticK(k) = EllipticF(sin(Pi/2), k)
|
EllipticK[(k)^2] == EllipticF[Pi/2, (k)^2]
|
Successful | Successful | - | Successful [Tested: 3] |
19.2#Ex2 | \compellintEk@{k} = \incellintEk@{\pi/2}{k} |
|
EllipticE(k) = EllipticE(sin(Pi/2), k)
|
EllipticE[(k)^2] == EllipticE[Pi/2, (k)^2]
|
Successful | Successful | - | Successful [Tested: 3] |
19.2#Ex3 | \compellintDk@{k} = \incellintDk@{\pi/2}{k} |
|
(EllipticK(k) - EllipticE(k))/(k)^2 = (EllipticF(sin(Pi/2), k) - EllipticE(sin(Pi/2), k))/(k)^2
|
Divide[EllipticK[(k)^2] - EllipticE[(k)^2], (k)^4] == Divide[EllipticF[Pi/2, (k)^2] - EllipticE[Pi/2, (k)^2], (k)^4]
|
Successful | Successful | - | Successful [Tested: 3] |
19.2#Ex3 | \incellintDk@{\pi/2}{k} = (\compellintKk@{k}-\compellintEk@{k})/k^{2} |
|
(EllipticF(sin(Pi/2), k) - EllipticE(sin(Pi/2), k))/(k)^2 = (EllipticK(k)- EllipticE(k))/(k)^(2)
|
Divide[EllipticF[Pi/2, (k)^2] - EllipticE[Pi/2, (k)^2], (k)^4] == (EllipticK[(k)^2]- EllipticE[(k)^2])/(k)^(2)
|
Successful | Failure | - | Failed [3 / 3]
Result: Indeterminate
Test Values: {Rule[k, 1]}
Result: Complex[-0.08185805455243832, 0.4541460103381725]
Test Values: {Rule[k, 2]}
... skip entries to safe data |
19.2#Ex4 | \compellintPik@{\alpha^{2}}{k} = \incellintPik@{\pi/2}{\alpha^{2}}{k} |
|
EllipticPi((alpha)^(2), k) = EllipticPi(sin(Pi/2), (alpha)^(2), k)
|
EllipticPi[\[Alpha]^(2), (k)^2] == EllipticPi[\[Alpha]^(2), Pi/2,(k)^2]
|
Successful | Successful | - | Successful [Tested: 9] |
19.2#Ex5 | \ccompellintKk@{k} = \compellintKk@{k^{\prime}} |
|
EllipticCK(k) = EllipticK(sqrt(1 - (k)^(2)))
|
EllipticK[1-(k)^2] == EllipticK[(Sqrt[1 - (k)^(2)])^2]
|
Successful | Successful | - | Successful [Tested: 3] |
19.2#Ex6 | \ccompellintEk@{k} = \compellintEk@{k^{\prime}} |
|
EllipticCE(k) = EllipticE(sqrt(1 - (k)^(2)))
|
EllipticE[1-(k)^2] == EllipticE[(Sqrt[1 - (k)^(2)])^2]
|
Successful | Successful | - | Successful [Tested: 3] |
19.2#Ex7 | k^{\prime} = \sqrt{1-k^{2}} |
|
sqrt(1 - (k)^(2)) = sqrt(1 - (k)^(2))
|
Sqrt[1 - (k)^(2)] == Sqrt[1 - (k)^(2)]
|
Successful | Successful | - | Successful [Tested: 3] |
19.2#Ex8 | \incellintFk@{m\pi+\phi}{k} = 2m\compellintKk@{k}+\incellintFk@{\phi}{k} |
|
EllipticF(sin(m*Pi + phi), k) = 2*m*EllipticK(k)+ EllipticF(sin(phi), k)
|
EllipticF[m*Pi + \[Phi], (k)^2] == 2*m*EllipticK[(k)^2]+ EllipticF[\[Phi], (k)^2]
|
Failure | Failure | Error | Failed [30 / 90]
Result: Indeterminate
Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}
Result: Indeterminate
Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}
... skip entries to safe data |
19.2#Ex8 | \incellintFk@{m\pi-\phi}{k} = 2m\compellintKk@{k}-\incellintFk@{\phi}{k} |
|
EllipticF(sin(m*Pi - phi), k) = 2*m*EllipticK(k)- EllipticF(sin(phi), k)
|
EllipticF[m*Pi - \[Phi], (k)^2] == 2*m*EllipticK[(k)^2]- EllipticF[\[Phi], (k)^2]
|
Failure | Failure | Error | Failed [30 / 90]
Result: Indeterminate
Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}
Result: Indeterminate
Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}
... skip entries to safe data |
19.2#Ex9 | \incellintEk@{m\pi+\phi}{k} = 2m\compellintEk@{k}+\incellintEk@{\phi}{k} |
|
EllipticE(sin(m*Pi + phi), k) = 2*m*EllipticE(k)+ EllipticE(sin(phi), k)
|
EllipticE[m*Pi + \[Phi], (k)^2] == 2*m*EllipticE[(k)^2]+ EllipticE[\[Phi], (k)^2]
|
Failure | Failure | Failed [90 / 90] Result: -3.717960670-.6751929261*I
Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 1}
Result: -4.000000000-.3e-9*I
Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 2}
... skip entries to safe data |
Successful [Tested: 90] |
19.2#Ex9 | \incellintEk@{m\pi-\phi}{k} = 2m\compellintEk@{k}-\incellintEk@{\phi}{k} |
|
EllipticE(sin(m*Pi - phi), k) = 2*m*EllipticE(k)- EllipticE(sin(phi), k)
|
EllipticE[m*Pi - \[Phi], (k)^2] == 2*m*EllipticE[(k)^2]- EllipticE[\[Phi], (k)^2]
|
Failure | Failure | Failed [90 / 90] Result: -.2820393315+.6751929264*I
Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 1}
Result: -4.000000000-.4e-9*I
Test Values: {phi = 1/2*3^(1/2)+1/2*I, k = 1, m = 2}
... skip entries to safe data |
Successful [Tested: 90] |
19.2#Ex10 | \incellintDk@{m\pi+\phi}{k} = 2m\compellintDk@{k}+\incellintDk@{\phi}{k} |
|
(EllipticF(sin(m*Pi + phi), k) - EllipticE(sin(m*Pi + phi), k))/(k)^2 = 2*m*(EllipticK(k) - EllipticE(k))/(k)^2 + (EllipticF(sin(phi), k) - EllipticE(sin(phi), k))/(k)^2
|
Divide[EllipticF[m*Pi + \[Phi], (k)^2] - EllipticE[m*Pi + \[Phi], (k)^2], (k)^4] == 2*m*Divide[EllipticK[(k)^2] - EllipticE[(k)^2], (k)^4]+ Divide[EllipticF[\[Phi], (k)^2] - EllipticE[\[Phi], (k)^2], (k)^4]
|
Failure | Failure | Error | Failed [30 / 90]
Result: Indeterminate
Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}
Result: Indeterminate
Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}
... skip entries to safe data |
19.2#Ex10 | \incellintDk@{m\pi-\phi}{k} = 2m\compellintDk@{k}-\incellintDk@{\phi}{k} |
|
(EllipticF(sin(m*Pi - phi), k) - EllipticE(sin(m*Pi - phi), k))/(k)^2 = 2*m*(EllipticK(k) - EllipticE(k))/(k)^2 - (EllipticF(sin(phi), k) - EllipticE(sin(phi), k))/(k)^2
|
Divide[EllipticF[m*Pi - \[Phi], (k)^2] - EllipticE[m*Pi - \[Phi], (k)^2], (k)^4] == 2*m*Divide[EllipticK[(k)^2] - EllipticE[(k)^2], (k)^4]- Divide[EllipticF[\[Phi], (k)^2] - EllipticE[\[Phi], (k)^2], (k)^4]
|
Failure | Failure | Error | Failed [30 / 90]
Result: Indeterminate
Test Values: {Rule[k, 1], Rule[m, 1], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}
Result: Indeterminate
Test Values: {Rule[k, 1], Rule[m, 2], Rule[ϕ, Times[Rational[1, 2], Power[E, Times[Complex[0, Rational[1, 6]], Pi]]]]}
... skip entries to safe data |
19.2.E16 | \int_{0}^{\atan@@{x}}\frac{\diff{\theta}}{(\cos^{2}@@{\theta}+p\sin^{2}@@{\theta})\sqrt{\cos^{2}@@{\theta}+k_{c}^{2}\sin^{2}@@{\theta}}} = \incellintPik@{\atan@@{x}}{1-p}{k} |
int((1)/(((cos(theta))^(2)+ p*(sin(theta))^(2))*sqrt((cos(theta))^(2)+ (k[c])^(2)*(sin(theta))^(2))), theta = 0..arctan(x)) = EllipticPi(sin(arctan(x)), 1 - p, k)
|
Integrate[Divide[1,((Cos[\[Theta]])^(2)+ p*(Sin[\[Theta]])^(2))*Sqrt[(Cos[\[Theta]])^(2)+ (Subscript[k, c])^(2)*(Sin[\[Theta]])^(2)]], {\[Theta], 0, ArcTan[x]}, GenerateConditions->None] == EllipticPi[1 - p, ArcTan[x],(k)^2]
|
Error | Aborted | - | Skipped - Because timed out | |
19.2.E17 | \CarlsonellintRC@{x}{y} = \frac{1}{2}\int_{0}^{\infty}\frac{\diff{t}}{\sqrt{t+x}(t+y)} |
|
Error
|
1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Divide[1,2]*Integrate[Divide[1,Sqrt[t + x]*(t + y)], {t, 0, Infinity}, GenerateConditions->None]
|
Missing Macro Error | Failure | - | Failed [12 / 18]
Result: Complex[-1.0177225554447185, 0.0]
Test Values: {Rule[x, 1.5], Rule[y, -1.5]}
Result: Indeterminate
Test Values: {Rule[x, 1.5], Rule[y, 1.5]}
... skip entries to safe data |
19.2.E18 | \CarlsonellintRC@{x}{y} = \frac{1}{\sqrt{y-x}}\atan@@{\sqrt{\frac{y-x}{x}}} |
Error
|
1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Divide[1,Sqrt[y - x]]*ArcTan[Sqrt[Divide[y - x,x]]]
|
Missing Macro Error | Failure | Skip - symbolical successful subtest | Successful [Tested: 3] | |
19.2.E18 | \frac{1}{\sqrt{y-x}}\atan@@{\sqrt{\frac{y-x}{x}}} = \frac{1}{\sqrt{y-x}}\acos@@{\sqrt{x/y}} |
(1)/(sqrt(y - x))*arctan(sqrt((y - x)/(x))) = (1)/(sqrt(y - x))*arccos(sqrt(x/y)) |
Divide[1,Sqrt[y - x]]*ArcTan[Sqrt[Divide[y - x,x]]] == Divide[1,Sqrt[y - x]]*ArcCos[Sqrt[x/y]] |
Failure | Failure | Successful [Tested: 3] | Successful [Tested: 3] | |
19.2.E19 | \CarlsonellintRC@{x}{y} = \frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x-y}{x}}} |
Error |
1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Divide[1,Sqrt[x - y]]*ArcTanh[Sqrt[Divide[x - y,x]]] |
Missing Macro Error | Failure | Skip - symbolical successful subtest | Successful [Tested: 3] | |
19.2.E19 | \frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x-y}{x}}} = \frac{1}{\sqrt{x-y}}\ln@@{\frac{\sqrt{x}+\sqrt{x-y}}{\sqrt{y}}} |
(1)/(sqrt(x - y))*arctanh(sqrt((x - y)/(x))) = (1)/(sqrt(x - y))*ln((sqrt(x)+sqrt(x - y))/(sqrt(y))) |
Divide[1,Sqrt[x - y]]*ArcTanh[Sqrt[Divide[x - y,x]]] == Divide[1,Sqrt[x - y]]*Log[Divide[Sqrt[x]+Sqrt[x - y],Sqrt[y]]] |
Failure | Failure | Successful [Tested: 3] | Successful [Tested: 3] | |
19.2.E20 | \CarlsonellintRC@{x}{y} = \sqrt{\frac{x}{x-y}}\CarlsonellintRC@{x-y}{-y} |
Error |
1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Sqrt[Divide[x,x - y]]*1/Sqrt[- y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x - y)/(- y)] |
Missing Macro Error | Failure | Skip - symbolical successful subtest | Failed [9 / 9]
Result: Complex[-1.0177225554447187, -0.906899682117109]
Test Values: {Rule[x, 1.5], Rule[y, -1.5]} Result: Complex[-1.862459718905424, -1.1107207345395915]
Test Values: {Rule[x, 1.5], Rule[y, -0.5]} ... skip entries to safe data | |
19.2.E20 | \sqrt{\frac{x}{x-y}}\CarlsonellintRC@{x-y}{-y} = \frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x}{x-y}}} |
Error |
Sqrt[Divide[x,x - y]]*1/Sqrt[- y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x - y)/(- y)] == Divide[1,Sqrt[x - y]]*ArcTanh[Sqrt[Divide[x,x - y]]] |
Missing Macro Error | Failure | Skip - symbolical successful subtest | Successful [Tested: 9] | |
19.2.E20 | \frac{1}{\sqrt{x-y}}\atanh@@{\sqrt{\frac{x}{x-y}}} = \frac{1}{\sqrt{x-y}}\ln@@{\frac{\sqrt{x}+\sqrt{x-y}}{\sqrt{-y}}} |
(1)/(sqrt(x - y))*arctanh(sqrt((x)/(x - y))) = (1)/(sqrt(x - y))*ln((sqrt(x)+sqrt(x - y))/(sqrt(- y))) |
Divide[1,Sqrt[x - y]]*ArcTanh[Sqrt[Divide[x,x - y]]] == Divide[1,Sqrt[x - y]]*Log[Divide[Sqrt[x]+Sqrt[x - y],Sqrt[- y]]] |
Failure | Failure | Successful [Tested: 9] | Successful [Tested: 9] | |
19.2.E21 | \CarlsonellintRC@{x}{y} = \int_{0}^{1}(v^{2}x+(1-v^{2})y)^{-1/2}\diff{v} |
|
Error |
1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Integrate[((v)^(2)* x +(1 - (v)^(2))*y)^(- 1/2), {v, 0, 1}, GenerateConditions->None] |
Missing Macro Error | Aborted | - | Skipped - Because timed out |
19.2.E22 | \CarlsonellintRC@{x}{y} = \frac{2}{\pi}\int_{0}^{\pi/2}\CarlsonellintRC@{y}{x\cos^{2}@@{\theta}+y\sin^{2}@@{\theta}}\diff{\theta} |
|
Error |
1/Sqrt[y]*Hypergeometric2F1[1/2,1/2,3/2,1-(x)/(y)] == Divide[2,Pi]*Integrate[1/Sqrt[x*(Cos[\[Theta]])^(2)+ y*(Sin[\[Theta]])^(2)]*Hypergeometric2F1[1/2,1/2,3/2,1-(y)/(x*(Cos[\[Theta]])^(2)+ y*(Sin[\[Theta]])^(2))], {\[Theta], 0, Pi/2}, GenerateConditions->None] |
Missing Macro Error | Aborted | - | Skipped - Because timed out |