diff options
Diffstat (limited to '3821/CH13/EX13.1/Example13_1.sce')
| -rw-r--r-- | 3821/CH13/EX13.1/Example13_1.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/3821/CH13/EX13.1/Example13_1.sce b/3821/CH13/EX13.1/Example13_1.sce new file mode 100644 index 000000000..25456c463 --- /dev/null +++ b/3821/CH13/EX13.1/Example13_1.sce @@ -0,0 +1,16 @@ +////Chapter 13 Steam Engines
+////Example 13.1 Page No 281
+///Find Therotical mean effective pressure
+//Input data
+clc;
+clear;
+Pa=10; //Single cylinder double acting steam engine pressure in bar
+Pb=1.5; //Single cylinder double acting steam engine pressure in bar
+rc=100/35; //Cut-off of the stroke in %
+
+
+//Calculation
+Pm=((Pa/rc)*(1+log(rc))-Pb); //Therotical mean effective pressure
+
+//Output
+printf('Therotical mean effective pressure= %f bar \n',Pm);
|