blob: 4115e6b238be1a8ea8713c6012ba7df30691fc44 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
// Implementation of example 1.2
// Basic and Applied Thermodynamics by P.K.Nag
// page 21
clc
clear
gp=1.4d6 // (gauge pressure in Pa)
z=710 // (vacuum in mm Hg)
z0=772 // (barometric pressure in mm Hg)
d=13.6d3 // (density of mercury)
p0=(d*g*z0)/1000; // division by 1000 is done to convert mm to m
sp=(gp+p0);
sp=sp/1d6;
printf("Inlet steam pressure = %.2f Mpa",sp);
printf("\n");
cp=(z0-z)*(g*d)/1000; // division by 1000 is done to convert mm to m
cp=cp/1000; // division by 1000 is done to convert Pa to kPa
printf("Condenser pressure = %.2f kPa",cp);
// end
|
