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<λ<380*10^(-9)},{L,380*10^(-9)<λ<780*10^(-9)},{0,780*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)"},PlotRangeAll]kurve2=Plot[L2,{λ,λmin,λmax},AxesLabel{"λ in m","L in J/(m^3*s)"},Filling->Axis,FillingStyleGreen,PlotRangeAll];Show[kurve1,kurve2]gesamt=Integrate[L,{λ,0,Infinity}];sichtbar=N[Integrate[L,{λ,380*10^(-9),780*10^(-9)}]];sichtbarrel=sichtbar/gesamt;prozent=sichtbarrel*100;Framed[Labeled[gesamt,"Die gesamte Strahldichte pro Raumwinkeleinheit ist:",Top]]Framed[Labeled[sichtbar,"Die Strahldichte im sichtbaren Bereich pro Raumwinkeleinheit ist:",Top]]Framed[Labeled[sichtbarrel,"Der relative Anteil der Strahldichte im sichtbaren Bereich pro Raumwinkeleinheit ist:",Top]]Framed[Labeled[prozent,"Der relative Anteil der Strahldichte im sichtbaren Bereich pro Raumwinkeleinheit ist in Prozent:",Top]]
Out[]=
Out[]=
Out[]=
Out[]=
Out[]=
Out[]=