En primer lugar, $$ C(x)=\int_{0}^{x}\cos\left(\frac{1}{2}\pi t^{2}\right)dt=\sqrt{\frac{2}{\pi}}\int_{0}^{\sqrt{\pi/2} \,\left (x\right )}\cos(z^{2})\, dz, $$ y $$ S(x)=\int_{0}^{x}\sin\left(\frac{1}{2}\pi t^{2}\right)dt=\sqrt{\frac{2}{\pi}}\int_{0}^{\sqrt{\pi/2} \,\left (x\right )}\sin(z^{2})\, dz. $$ Así que tenemos $$ C\left(\sqrt{\frac{6x}{\pi}}\right)=\sqrt{\frac{2}{\pi}}\int_{0}^{\sqrt{3x}}\cos(z^{2})\, dz, $$ y $$ S\left(\sqrt{\frac{6x}{\pi}}\right)=\sqrt{\frac{2}{\pi}}\int_{0}^{\sqrt{3x}}\sin(z^{2})\, dz. $$ Utilizando esto podemos escribir $$ \begin{eqnarray*} f(x) & = & 1-\sqrt{\pi/6}\frac{\cos(x)C\left(\sqrt{\frac{6x}{\pi}}\right)+\sin(x)S\left(\sqrt{\frac{6x}{\pi}}\right)}{\sqrt{x}} \\ & = & \frac{\int_{0}^{\sqrt{3x}}(1-\cos(x-z^{2}))\, dz}{\sqrt{3x}} \end{eqnarray*} $$ y $$ \int_{0}^{\infty}\frac{f(x)}{x^{2}}\, dx=\frac{2}{\sqrt{3}}\int_{0}^{\infty}\int_{0}^{\sqrt{3x}}\frac{\sin^{2}((x-z^{2})/2)}{x^{5/2}}\, dz\, dx. $$ Introduzcamos la nueva variable $z=t\sqrt{x}$ . Entonces $dz=\sqrt{x}dt$ y $$ \begin{eqnarray*} \int_{0}^{\infty}\int_{0}^{\sqrt{3x}}\frac{\sin^{2}((x-z^{2})/2)}{x^{5/2}}\, dz\, dx & = & \int_{0}^{\infty}\int_{0}^{\sqrt{3}}\frac{\sin^{2}(x(1-t^{2})/2)}{x^{2}}\, dt\, dx\\ & = & \frac{1}{2}\int_{0}^{\infty}\int_{0}^{\sqrt{3}}\frac{\sin^{2}(x(1-t^{2}))}{x^{2}}\, dt\, dx\\ & = & \frac{1}{2}\int_{0}^{\infty}\int_{0}^{1}\frac{\sin^{2}(x(1-t^{2}))}{x^{2}}\, dt\, dx\\ & & +\frac{1}{2}\int_{0}^{\infty}\int_{1}^{\sqrt{3}}\frac{\sin^{2}(x(t^{2}-1))}{x^{2}}\, dt\, dx\\ & = & \frac{1}{2}\int_{0}^{1}\int_{0}^{\infty}\frac{\sin^{2}(x(1-t^{2}))}{x^{2}}\, dx\, dt\\ & & +\frac{1}{2}\int_{1}^{\sqrt{3}}\int_{0}^{\infty}\frac{\sin^{2}(x(t^{2}-1))}{x^{2}}\, dx\, dt\\ & = & \int_{0}^{1}\frac{\pi}{4}(1-t^{2})\, dt+\int_{1}^{\sqrt{3}}\frac{\pi}{4}(t^{2}-1)\, dt\\ & = & \frac{\pi}{3}, \end{eqnarray*} $$ donde la fórmula $$ \int_0^{\infty}\frac{\sin^2(Ax)}{x^2}\,dx=\frac{1}{2}A\pi,\quad(A>0) $$ se aplicó. Su conjetura fue excelente.
0 votos
¿Podría dar los detalles de su integración numérica? Tal vez le dé alguna idea.
0 votos
@vesszabo He utilizado el NIntegrate de Mathematica. En detalle,
NIntegrate[(1 - Sqrt[Pi/6/x]*(Cos[x]*FresnelC[Sqrt[6*x/Pi]] + Sin[x]*FresnelS[Sqrt[6*x/Pi]]))/x^2, {x, 0, Infinity}, WorkingPrecision -> 40, AccuracyGoal -> 10, MaxRecursion -> 100, Method -> {GlobalAdaptive, MaxErrorIncreases -> 10000, Method -> "GaussKronrodRule"}]
(no optimizado) produce el integrando con una precisión de aproximadamente 1e-10. Las cifras significativas (11) así obtenidas coinciden con $2 Pi/(3 \sqrt{3})$ . Debido a la naturaleza oscilante del integrando es exigente obtener aproximaciones más precisas de la integral.0 votos
Gracias. Maple da la igualdad para 20 dígitos. Tu pregunta es interesante.
0 votos
@vesszabo Excelente. Gracias por comprobarlo. Parece que tu hardware es más apto (probable), tienes más paciencia (posible) o tu estrategia de integración es más adecuada (interesante). ¿Qué regla de integración has utilizado?
0 votos
He tecleado simbólicamente ('clickable calculus') y he utilizado el menú contextual para calcular aproximadamente.