clear all
n=1 %mol
V=22.4; %liters
T=273; %K
R=0.08206; %liter-atm/mol-K
P=n*R*T/V
a=6.49;
b=0.0562;
Pvw=n*R*T/(V-n*b)-a*n^2/V^2
ratio=P/Pvw
disp('Press any key to proceed')
pause
n=10 %mol
V=22.4; %liters
T=273; %K
R=0.08206; %liter-atm/mol-K
P=n*R*T/V
a=6.49;
b=0.0562;
Pvw=n*R*T/(V-n*b)-a*n^2/V^2
ratio=P/Pvw
