From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 23/CH8/EX8.4/Example_8_4.sce | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 23/CH8/EX8.4/Example_8_4.sce

(limited to '23/CH8/EX8.4/Example_8_4.sce')

diff --git a/23/CH8/EX8.4/Example_8_4.sce b/23/CH8/EX8.4/Example_8_4.sce
new file mode 100755
index 000000000..6cbdb69fc
--- /dev/null
+++ b/23/CH8/EX8.4/Example_8_4.sce
@@ -0,0 +1,36 @@
+clear;
+clc;
+
+//To find Approx Value
+function[A]=approx(V,n)
+  A=round(V*10^n)/10^n;//V-Value  n-To what place
+  funcprot(0)
+endfunction  
+
+//Example 8.4
+//Caption : Program to Find the Efficiency in Various Cycles in a Gas turbine
+
+//Given Values
+K=6;//Pb/Pa
+T1=298.15;//[K]
+Tmax=1033.15;//[K]
+Gamma=1.4;
+
+//(a)  Gamma=1.4
+//From Eqn(8.12)
+eta_a=approx(1-((1/K)^((Gamma-1)/Gamma)),1);
+disp('(a)Efficiency of an ideal air cycle')
+disp(eta_a,'Efficiency')
+
+//(b)  eta_c=0.83  eta_t=0.86
+eta_c=0.83;
+eta_t=0.86;
+K2=Tmax/T1;
+alpha=(K)^((Gamma-1)/Gamma);
+
+//Using Eqn(8.13)
+eta_b=approx(((eta_t*eta_c*K2*(1-(1/alpha)))-(alpha-1))/((eta_c*(K2-1))-(alpha-1)),3);
+disp('(b)Thermal efficiency of an air cycle if the Compressor and Turbine Operate adiabatically')
+disp(eta_b,'Thermal efficiency')
+
+//End
\ No newline at end of file
-- 
cgit