%MKM på NAM sid 15
T=[40 45 50 55 60]';
p=[55.3 71.9 92.5 118 149.9]';
A=[ones(size(T)) T];
c=A\p
panp=A*c;
r=panp-p;
fks=r'*r
plot(T,p,'o',T,panp)
title('p som funktion av T')
xlabel('T [C]')
ylabel('p [mm Hg]')
