path: root/2159/CH1/EX1.6/6.sce

//problem 1.6
h1=0.2
h2=0.5
s1=0.9
s2=13.6
h=-(h1*s1+h2*s2)
w=9810
p=h*w
disp(p, "vacuum pressure (N/m2)")