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

(limited to '1808/CH3/EX3.38/Chapter3_Exampl38.sce')

diff --git a/1808/CH3/EX3.38/Chapter3_Exampl38.sce b/1808/CH3/EX3.38/Chapter3_Exampl38.sce
new file mode 100644
index 000000000..1ca7bcf58
--- /dev/null
+++ b/1808/CH3/EX3.38/Chapter3_Exampl38.sce
@@ -0,0 +1,31 @@
+clc
+clear
+//INPUT DATA
+cp=1.005;//specific pressure
+cv=42000;//calorific value
+R=0.287;//gas constant
+g=1.35;//constant
+t1=293;//temperature in K
+t3=973;//temperature in K
+nc=0.85;//compressor efficiency in percentage
+Rp=5;//pressure ratio
+nt=0.8;//turbine efficiency in percentage
+p=1000;//power in mW
+
+//CALCULATIONS
+t2=t1*(Rp^((g-1)/g));//Temperature in K
+t4=t3/(Rp^((g-1)/g));//Temperature in K
+t21=t1+((t2-t1)/nc);//Temperature in K
+t41=t3-((t3-t4)*nt);//Temperature in K
+wna=cp*((t3-t41)-(t2-t1));//net work done in kJ/kg
+m=p/wna;//Quantity of air circulation 
+Qsa=cp*(t3-t21)/(nc);//Heat supplied in kJ/kg
+nba=(wna/Qsa)*100;//Thermal efficiency in percentage
+
+//OUTPUT
+printf('(i)Quantity of air circulation  is %3.3f kg/s \n(ii)Heat supplied is %3.2f kJ/kg \n (iii)Thermal efficiency is %3.2f percentage',m,Qsa,nba)
+
+
+
+
+
-- 
cgit