summaryrefslogtreecommitdiff
path: root/3821/CH13/EX13.11/Example13_11.sce
blob: c899ec049561f7ee0873d32e7933479e8f3c2110 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
////Chapter 13  Steam Engines
////Example 13.11 Page No 290
///Find Actual mean effective pressure
//Input data
clc;
clear;
D=240*10^-3;  //Steam engine bor
L=300*10^-3;  //Stroke of engine
N=220;         //Speed of engine 220 in rpm      
IP=36;         //Indicated power in Kw
Pb=1.3;        //Exhaust pressure in bar
re=2.5;        //Expansion ratio
K=0.8;         //Diagram factor
pi=3.142
A=((pi/4)*(D^2));



//Calculation
Pma=((IP*60000)/(2*10^5*L*A*N));  //Indicated power of steam engine in bar
Pm=Pma/K;                          //Actual mean effective pressure in bar
P1=((Pm+Pb)*re)/(1+log(re));  //Theoretical mean effective pressure in bar

//Output
printf('Indicated power of steam engine= %f bar \n',Pma);
printf('Actual mean effective pressure= %f bar \n',Pm);
printf('theoretical mean effective pressure= %f bar \n',P1);