%FY1005/TFY4165 Termisk fysikk vår 2014.
%Wiens forskyvningslov.
%
clear all;
close all;
%x = dimensjonsløs størrelse
x = 0.000:0.001:10.000
%Regner ut og plotter
RHSfrekvens = 3.*(1-exp(-x));
RHSlambda = 5.*(1-exp(-x));
plot(x,x,x,RHSfrekvens,x,RHSlambda);
grid on;