Hi, I hope you are doing well.
I was trying to get a numerical integration from the following function
(Nu)^3 r/(Exp[h Nu/(K T2)] - 1)
where T is a function of r and has quite a complexity
I received the error after running the following code
\[Nu]1 = 0; \[Nu]2 = 1;
n = 50;
\[Nu] = Range[\[Nu]1, \[Nu]2, (\[Nu]2 - \[Nu]1)/(n - 1.)];
L1[\[Nu]_, r_] := (\[Nu]e[[1, 1]])^3 r/(h \[Nu]e[[1, 1]]/(K T1));
points = Map[{#, NIntegrate[L1[r, #], {r, 6.49, 71.39}]} &, \[Nu]]
ListLinePlot[points]...
the errors are as follows
NIntegrate::izero: Integral and error estimates are 0 on all integration subregions. Try increasing the value of the MinRecursion option. If value of integral may be 0, specify a finite value for the AccuracyGoal option.
Infinity::indet: Indeterminate expression 0. ComplexInfinity encountered.
NIntegrate::precw: The precision of the argument function (Indeterminate if Re[r]>0.*10^-20||r[NotElement][DoubleStruckCapitalR]) is less than WorkingPrecision (MachinePrecision).
NIntegrate::inumri: The integrand Indeterminate if Re[r]>0.*10^-20||r[NotElement][DoubleStruckCapitalR] has evaluated to Overflow, Indeterminate, or Infinity for all sampling points in the region with boundaries {{6.49,71.39}}.
Power::infy: Infinite expression 1/0. encountered.
Attachments:
