summaryrefslogtreecommitdiff
path: root/3821/CH13/EX13.7/Example13_7.sce
blob: 54be62f8c6b75f7fb2a06f1f0237abafe43d8a8a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
////Chapter 13  Steam Engines
////Example 13.7 Page No 287
////Find Actual mean effective pressure
//Input data
clc;
clear;
P1=9;                         //Reciprocating engine pressure in bar
Pb=1.5;                       //Back pressure in bar
rc=100/25;                    //Cut-off 
K=0.8;                        //Diagram factor

//Calculation
Pm=((P1/rc)*(1+log(rc))-Pb); //Therotical mean effective pressure Pm
Pma=Pm*K;                         //Actual mean effective pressure Pma

///Output
printf('Therotical mean effective pressure= %f bar \n ',Pm);
printf('Actual mean effective pressure= %f bar \n',Pma);