Hi, I have a function f(x) as following:

f[x_] := (-2 Sqrt[x] (\[Pi]^2 + x) + Exp[\[Pi]^2/x] \[Pi]^(3/2) (2 \[Pi]^2 + 3 x) Erfc[\[Pi]/Sqrt[x]]) (-Sqrt[100 - x] + Exp[\[Pi]^2/(-x + 100)] \[Pi]^(3/2) Erfc[\[Pi]/Sqrt[100 - x]])/(x^(7/2) Sqrt[-x + 100])

When I plot f(x) vs x from 0 to 10, I have the following figure

Plot[f[x], {x, 0, 10}]

and when f(x) is plotted against x from 0 to 0.01, it produces the following graph

Plot[f[x], {x, 0, 0.01}]

I would like to find the integral of f(x) with respect to x from 0 to 100, but Mathematica cannot calculate the integral.

Therefore, I try to do numerical integration. However, I received the following error message.

NIntegrate[f[x], {x, 0, 100}]

I am wondering how to solve this problem. Any help is much appreciated.

Attachments: