summaryrefslogtreecommitdiff
path: root/1472/CH19/EX19.1/19_1.sce
blob: 3507926fd1a38593384cbc417ac980481d645a4c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc
//initialization of varaibles
disp("From tables,")
h1=1185.3 //B/lb
v1=4.896 //cu ft/lb
v2=23.66 //cu ft/lb
h2=1054.3 //B/lb
Pd1=1 //cu ft
Pd2=0.98 //cu ft
N=300 //rpm
//calculations
Wx=h1-h2
Pd=Pd1+Pd2
Cl=0.05
mf=Pd*(1-Cl*(v2/v1 - 1))/v2
P=Wx*mf*N/(2545/60)
mep=P*33000/(N*Pd)
//results
printf("Horsepower output = %.3f hp",P)
printf("\n Mean effective pressure = %d psf",mep)
//The answers in the book are a bit different due to round off error.