use limexp to prevent NaN with extreme exponents
This commit is contained in:
parent
f40285c2a2
commit
22869b6e39
|
|
@ -38,7 +38,7 @@ Nintegrate (double noizDens, double lnNdens, double lnNlstDens, Ndata *data)
|
|||
if (fabs(exponent) < N_INTUSELOG) {
|
||||
return (a * (data->lnFreq - data->lnLastFreq));
|
||||
} else {
|
||||
return (a * ((exp(exponent * data->lnFreq) - exp(exponent * data->lnLastFreq)) /
|
||||
return (a * ((limexp(exponent * data->lnFreq) - limexp(exponent * data->lnLastFreq)) /
|
||||
exponent));
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue