In[]:=
T=5800;​​λmin=50*10^(-9);​​λmax=3000*10^(-9);​​L=(2*h*c^2)/(λ^5)*1/(Exp[(h*c)/(k*λ*T)]-1);​​L2=Piecewise[{{0,0<λ<100*10^(-9)},{L,100*10^(-9)<λ<380*10^(-9)},{0,380*10^(-9)<λ<3000*10^(-9)}}];​​h=6.626*10^(-34);​​c=2.998*10^8;​​k=1.381*10^(-23);​​kurve1=Plot[L,{λ,λmin,λmax},AxesLabel{"λ in m","L in J/(m^3*s)"},PlotRange->All]​​kurve2=Plot[L2,{λ,λmin,λmax},AxesLabel{"λ in m","L in J/(m^3*s)"},Filling->Axis,FillingStyleBlue,PlotRange->All];​​Show[kurve1,kurve2]​​gesamt=Integrate[L,{λ,0,Infinity}];​​uv=N[Integrate[L,{λ,100*10^(-9),380*10^(-9)}]];​​uvrel=uv/gesamt;​​prozent=uvrel*100​​Framed[Labeled[gesamt,"Die gesamte Strahldichte pro Raumwinkeleinheit ist:",Top]]​​Framed[Labeled[uv,"Die Strahldichte im UV-Bereich pro Raumwinkeleinheit ist:",Top]]​​Framed[Labeled[uvrel,"Der relative Anteil der Strahldichte im UV-Bereich pro Raumwinkeleinheit ist:",Top]]​​Framed[Labeled[prozent,"Der relative Anteil der Strahldichte im UV-Bereich pro Raumwinkeleinheit ist in Prozent:",Top]]
Out[]=
Out[]=
Out[]=
10.173
Out[]=
Die gesamte Strahldichte pro Raumwinkeleinheit ist:
2.0446×
7
10
Out[]=
Die Strahldichte im UV-Bereich pro Raumwinkeleinheit ist:
2.07996×
6
10
Out[]=
Der relative Anteil der Strahldichte im UV-Bereich pro Raumwinkeleinheit ist:
0.10173
Out[]=
Der relative Anteil der Strahldichte im UV-Bereich pro Raumwinkeleinheit ist in Prozent:
10.173