e() d = [ 2 hc2 / 5 ] / (exp (hc/kT) -1) d
där e() d är utsträlad effekt per ytenhet inom våglängdsområdet mellan och + d. Värdet på de fundementala konstanterna c, h, k, hämtas lämpligen från de rekommenderade värdena, f.n. CODATA86
c=299792458; h=6.6260755E-34; k=1.380658E-23; C1=2*pi*h*c^2 lam=0.1:0.01:20; %Välj våglängdsområde! lamda=lam* 1.e-6; % i mikrometer) T=6000; %Välj temperatur es=C1./lamda.^5./(exp(h*c./(lamda*k*T) ) -1 ); plot(lamda,es)Detta skall ge en plot av strålningen från solen! Prova att byta till jordens temperatur, t.ex.
Tj=300; ej=C1./lamda.^5./(exp(h*c./(lamda*k*Tj) ) -1 ); plot(lamda,ej);För att jämföra graferna:
subplot(2,1,1) plot(lamda,es) subplot(2,1,2) plot(lamda,ej);
Sök maximum av e() genom att derivera m.a.p. och söka nollställe.
dedl=diff(es)./diff(lamda); subplot(1,1,1) plot(lamda(2:length(lamda)),dedl) axis([4.E-7 6.e-7 -1E20 1E20 ]) % Variera axlar för att hitta nollställe
dl=lamda(2)-lamda(1); U = sum(ej) * dl % Integrera över strälningen från jorden USB=5.67051E-8 * Tj^4 %Från Stefan-Boltzmann's lag
Kanske behöver man utvidga integrationsomrädet till längre våglängder?