% pV_co2.m
% Plotter p mot V ved gitt T

T0 = 273-10;       % K Temperatur før fordamper

p = [];
T = T0;
v = logspace(log10(3e-5),log10(1e-3),1000);
n = [1];

for V=v
    A = co2_pr([T,V,n]');
    p(end+1) = -A.g(2);    
end

semilogx(v,p)
axis([min(v),max(v),min(p),100e5])
xlabel('Volum [m3]')
ylabel('Trykk [Pa]')

