From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 1808/CH3/EX3.13/Chapter3_Exampl13.sce | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 1808/CH3/EX3.13/Chapter3_Exampl13.sce

(limited to '1808/CH3/EX3.13/Chapter3_Exampl13.sce')

diff --git a/1808/CH3/EX3.13/Chapter3_Exampl13.sce b/1808/CH3/EX3.13/Chapter3_Exampl13.sce
new file mode 100644
index 000000000..d7b43d7b2
--- /dev/null
+++ b/1808/CH3/EX3.13/Chapter3_Exampl13.sce
@@ -0,0 +1,27 @@
+clc
+clear
+//INPUT DATA
+v1=0.5;//volume in m^3
+p1=1;//pressure in bar
+t1=303;//temperature in K
+p2=12;//pressure in bar
+Qs=250;//heat is added in kJ
+wc=200;//working cycles in cycles/min
+v2=0.085;//volume in m^3
+m=1;//mass of air
+cv=0.7243;//calorific value
+
+//CALCULATIONS
+Rc=(p2/p1)^(1/1.4);//compression ratio
+t2=t1*((Rc)^(1.4-1));//temperature in K
+pc=((v2/(v1-v2))*100);//percentage clearance
+t3=(Qs/(m*cv))+t2;//temperature in K
+t4=((1/Rc)^(1.4-1))*t3;//temperature in K
+Qr=m*cv*(t4-t1);//heat rejected in kJ/kg
+no=((Qs-Qr)/Qs)*100;//thermal efficiency in percentage
+pm=((Qs-Qr)/(v1-v2));//mean effective pressure
+p=((Qs-Qr)*wc)/60;//power developed in kJ/s
+
+//OUTPUT
+printf('(a)percentage clearance is %3.2f percentage \n (b)the thermal efficiency is %3.2f percentage \n (c)mean effective pressure is %3.2f \n (d)power developed is %3.2f kJ/s',pc,no,pm,p)
+
-- 
cgit