OFFSET
0,2
COMMENTS
See formula (34) in Blagouchine & Moreau link.
LINKS
I. V. Blagouchine and E. Moreau, Analytic Method for the Computation of the Total Harmonic Distortion by the Cauchy Method of Residues. IEEE Trans. Commun., vol. 59, no. 9, pp. 2478-2491, 2011. PDF file.
FORMULA
Equals sqrt(Pi*(cot(Pi/sqrt(2))*coth(Pi/sqrt(2))^2-cot(Pi/sqrt(2))^2*coth(Pi/sqrt(2))-cot(Pi/sqrt(2))-coth(Pi/sqrt(2)))/((cot(Pi/sqrt(2))^2+coth(Pi/sqrt(2))^2)*sqrt(2))+(1/3)*Pi^2-1).
EXAMPLE
0.1811416137938290040802181055813016784438928351595635...
MAPLE
evalf(sqrt(Pi*(cot(Pi/sqrt(2))*coth(Pi/sqrt(2))^2-cot(Pi/sqrt(2))^2*coth(Pi/sqrt(2))-cot(Pi/sqrt(2))-coth(Pi/sqrt(2)))/((cot(Pi/sqrt(2))^2+coth(Pi/sqrt(2))^2)*sqrt(2))+(1/3)*Pi^2-1), 120)
MATHEMATICA
RealDigits[Sqrt[Pi*(Cot[Pi/Sqrt[2]]*Coth[Pi/Sqrt[2]]^2-Cot[Pi/Sqrt[2]]^2*Coth[Pi/Sqrt[2]]-Cot[Pi/Sqrt[2]]-Coth[Pi/Sqrt[2]])/((Cot[Pi/Sqrt[2]]^2+Coth[Pi/Sqrt[2]]^2)*Sqrt[2])+(1/3)*Pi^2-1], 10, 120][[1]]
PROG
(MATLAB) format long; sqrt(sqrt(pi*(cot(pi/sqrt(2))*coth(pi/sqrt(2))^2-cot(pi/sqrt(2))^2*coth(pi/sqrt(2))-cot(pi/sqrt(2))-coth(pi/sqrt(2)))/((cot(pi/sqrt(2))^2+coth(pi/sqrt(2))^2)*sqrt(2))+(1/3)*pi^2-1))
(PARI) s2=sqrt(2);
A=Pi/s2;
B=1+2/(exp(2*A)-1)
C=1/tan(A);
sqrt(Pi*(B^2*C-B*C^2-C-B)/((C^2+B^2)*s2) + Pi^2/3 - 1) \\ Charles R Greathouse IV, Mar 11 2018
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Iaroslav V. Blagouchine, Mar 11 2018
STATUS
approved