diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /23/CH8/EX8.4/Example_8_4.sce | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '23/CH8/EX8.4/Example_8_4.sce')
| -rwxr-xr-x | 23/CH8/EX8.4/Example_8_4.sce | 36 |
1 files changed, 36 insertions, 0 deletions
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 |