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.29/Chapter3_Exampl29.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 1808/CH3/EX3.29/Chapter3_Exampl29.sce

(limited to '1808/CH3/EX3.29')

diff --git a/1808/CH3/EX3.29/Chapter3_Exampl29.sce b/1808/CH3/EX3.29/Chapter3_Exampl29.sce
new file mode 100644
index 000000000..a89bcb8c3
--- /dev/null
+++ b/1808/CH3/EX3.29/Chapter3_Exampl29.sce
@@ -0,0 +1,26 @@
+clc
+clear
+//INPUT DATA
+cp=1.005;//specific pressure
+cv=0.718;//specific volume
+R=0.287;//gas constant
+p1=100;//Pressure in kPa
+t1=303;//temperature in Degree C
+g=1.4;//constant
+t2=700;//temperature in Degree C
+v1=0.05;//volume in m^3
+Rc=10;//compression ratio
+nr=0.9;//regenerator efficiency in percentage
+t=30
+//CALCULATIONS
+m=p1*v1/(R*t1);//mass flow rate
+
+wn=m*R*log(Rc*(t2-t));//Net workdone in kJ
+ns=(1-((t+273)/(t2+273)))*100;//Thermal efficiency with 100% refrigerator in percentage
+Qs=m*cv*(t2-t)+(m*R*(273+t2)*log(Rc));//heat added in kJ
+Qr=m*cv*(t2-t)+(m*R*(273+t)*log(Rc));//heat added in kJ
+nso=(1-(Qr/Qs))*100;//Thermal efficiency without refrigerator in percentage
+nsa=(((R*(t2-t)*log(Rc)))/((R*(273+t2)*log(Rc))+((1-nr)*cv*(t2-t))))*100;//Thermal efficiency with 90% refrigerator in percentage
+
+//OUTPUT
+printf('(i)net workdone is %3.2f kJ \n (ii)Thermal efficiency with 100 percentage efficiency is %3.2f percentage \n (iii)Thermal efficiency without regenerator is %3.2f percentage \n (iv)Thermal efficiency with 90percentage efficiency is %3.2f percentage \n',wn,ns,nso,nsa )
-- 
cgit