1
$\begingroup$

My objective is to plot the blackbody spectrum and also find out the integral value for a defined limit. However, I am getting the following constant value of Blackbody intensity and also getting an error message while calculating the radiated power. Therefore, it would be great if anyone can suggest me how to solve the problem. Here is the expression for dataInt. I am unable to attach the data file here. So, please let me know if it is required to be uploaded.

dataInt =  Interpolation[Table[{data[[i, 1]], data[[i, 2]]}, {i, 1, N1}], InterpolationOrder -> 1];

enter image description here

$\endgroup$
2
  • $\begingroup$ Have you tried restarting your kernel? It seems like lambda was given a value at some point. $\endgroup$
    – C. E.
    Jul 11 '20 at 14:41
  • $\begingroup$ Why do you need dataInt? $\endgroup$
    – yarchik
    Jul 11 '20 at 14:42
2
$\begingroup$
Ib[λ_] := (2 0.59552 10^8)/(λ^5 (Exp[14387.75/(λ 385)] - 1))

Plot[Ib[λ], {λ, 0.28, 25}]

Plot

Integrate[Ib[λ], {λ, 0, ∞}]
396.557

data and dataInt information is missing.

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.