T = linspace(100,6000,100);
L =  2897.8 ./ T;
f = figure();
plot(T,L,'LineWidth',2)
xlabel('Temperatur / Kelvin');
ylabel('Wellenlänge des Strahlungsmaximums / µm');
grid on;

print(f,'Wien.png','-dpng','-r150');