summaryrefslogtreecommitdiff
path: root/2132/CH4/EX4.7/Example4_7.sce
blob: 39654a300d6aa4cbcde3d7fa76a9b0ff99933cac (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//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: ");