summaryrefslogtreecommitdiff
path: root/2165/CH8/EX8.12/8_12.sce
blob: 0fdbf477ac6ec3cd15c3daf5570df764a74a8564 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clc
//initialisation of variables
r=14//in
r1=1.8//in
t=30.4//lb
e=0.6//lb
lam=1.4
d=12//in
d1=18//in
v=10000//C.H.U/lb
P=200//r m p
//CALCULATIONS
A=1-(1/(lam*(r)^0.4))*((r1)^lam-1)/(r1-1)//percent
T=e*A//percent
H=t/60*v//C.H.U
H1=H*T//C.H.U
I=(H1*1400)/(33000)//ln/in^2
M=(I*33000)/(2*%pi*144/4*d1/12*P/2)//lb/in^2
//RESULTS
printf('the indicated hourse-power and the mean effiective pressure of the engine=% flb/in^2',M)