- #1

- 1,367

- 61

I have the following code in Mathematica, and it gives the following error:

Code:

`NIntegrate::ncvb: NIntegrate failed to converge to prescribed accuracy after 12 recursive bisections in x near {x} = {0.000156769}. NIntegrate obtained 0.21447008480474927` and 5.637666621985554`*^-13 for the integral and error estimates. >>`

How to solve this error?

Code:

```
yp = 10^(5/10);
GSS = 10;
For[yQdB = -10, yQdB <= 10, yQdB++;
yQ = 10^(yQdB/10);
Print[yQ];
A1 = NIntegrate[
1/x^2*Exp[(GSS*(x + GSS*yQ))/(x*yp) - x]*
ExpIntegralE[1, (GSS*(x + GSS*yQ))/(x*yp)], {x, LL, Infinity},
PrecisionGoal -> 12, MaxRecursion -> 12];
]
```