Question: Local curve distance sought

For the purpose of practicing with Maple, I have worked on a definite integral in the attached file. I found it on the Internet. According to a side calculation, it can only be calculated using famous special functions or series expansions. That is why I am only interested in the numerical evaluation here. According to auxiliary calculations, it can only be computed using famous special functions or a series expansion. It is known that the series expansion of the antiderivative converges very rapidly. Therefore, for comparison purposes, I calculated the values ​​for integration limits of 10 and 100 instead of infinity. In the first graph, the two result curves appear to coincide perfectly. Is there a way to zoom in locally - like using a magnifying glass - to make the difference in the ordinate values ​​visible?
 

restart

int(sinh((Pi-a)*x)/(cosh(Pi*x)*sinh(a*x)), x = -100 .. 100)

int(sinh((Pi-a)*x)/(cosh(Pi*x)*sinh(a*x)), x = -100 .. 100)

(1)

plot([int(sinh((Pi-a)*x)/(cosh(Pi*x)*sinh(a*x)), x = -100 .. 100), int(sinh((Pi-a)*x)/(cosh(Pi*x)*sinh(a*x)), x = -10 .. 10)], a = 0 .. 3.2, y = 0 .. 100)

 

plot(int(sinh((Pi-a)*x)/(cosh(Pi*x)*sinh(a*x)), x = -10 .. 10), a = 0 .. 3.2, y = 0 .. 100)

 

NULL


 

Download testint3.mw

 

Please Wait...