summaryrefslogtreecommitdiff
path: root/3821/CH13/EX13.5/Example13_5.sce
blob: 6f594606d8e66a343325b953a1656fc2d1d94893 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
////Chapter 13  Steam Engines
////Example 13.5 Page No 286
///Find Mean effective pressure
//Input data
clc;
clear;
a=25;                  //Area of indicator diagram cm^2
Vs=0.15;               //swept volume m^2
S=1;                   //Scale in cm 
cm=0.02;               //pressure axis m^3


///Calculation
b=Vs/cm;               //Base length of diagram 
Pm=a/b*S;              //Mean effective pressure

//Output
printf('Base length of diagram=%f bar \n',b);
printf('Mean effective pressure= %f bar \n',Pm);