blob: 3117d467334d9a4c3802cd1c803ff9e73f0b648f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
////Chapter 13 Steam Engines
////Example 13.2 Page No 285
///Find Mean Effective pressure
///Input data
clc;
clear;
P1=14; //Steam is ssupplied in bar
P6=6; //Pressure at the end in bar
Pb=1.2; //Pressure at back in bar
a=0.1;
re=4;
//From hyperbolic process
b=0.4;
///Calculation
//Mean Effective pressure in N/m^2
Pm=P1*((1/re)+((1/re)+a)*log((1+a)/((1+re)+a)))-Pb*((1+b)+(a+b)*log((a+b)/a));
//Output
printf('Mean Effective pressure= %f N/m^2 \n',-Pm);
|
