//Example 4.7
clc;
clear;
close;
format('v',9);
//Given data :
S1=0.005;//sp. gravity
S2=1;//sp. gravity
Patm=1.014*10^5;//Pa
h=50/1000;//m
w=1000;//kg/m^3
pa=-w*S2*h;//kg/m^2
Pabs=pa*9.81+Patm;//
disp(abs(pa*9.81),"Pressure intensity of gas in Pa(Vaccum): ");
disp(Pabs,"Absolute pressure in the pipe in Pa: ");