initial commit / add all books

4 files changed, 127 insertions, 0 deletions

diff --git a/23/CH8/EX8.1/Example_8_1.pdf b/23/CH8/EX8.1/Example_8_1.pdf
new file mode 100755
index 000000000..461ee8300
--- /dev/null
+++ b/23/CH8/EX8.1/Example_8_1.pdf
diff --git a/23/CH8/EX8.1/Example_8_1.sce b/23/CH8/EX8.1/Example_8_1.sce
new file mode 100755
index 000000000..5598be334
--- /dev/null
+++ b/23/CH8/EX8.1/Example_8_1.sce
@@ -0,0 +1,91 @@
+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.1

+//Caption : Program to Find the Thermal efficiency in a Steam Turbine

+

+//Given Values

+//(a)-As in Example(7.6)

+P1=8600;//[KPa]

+T1=773.15;//[K]

+//values of Enthalpy and Entropy from Steam tables

+H1=3391.6;//[KJ/Kg]

+S1=6.6858;//[KJ/Kg/K]

+

+P2=10;//[KPa]

+S2i=S1;//Isentropic

+

+S2_liquid=0.6493;

+S2_vapor=8.1511;

+H2_liquid=191.8;

+H2_vapor=2584.8;

+

+x2=(S2i-S2_liquid)/(S2_vapor-S2_liquid);

+

+H2i=H2_liquid+(x2*(H2_vapor-H2_liquid));

+del_Hs_1=approx((H2i-H1),1);//[KJ/Kg]

+Ws=del_Hs_1;

+H3i=H2i;

+H4=H2_liquid;

+//Applying Eqn(8.2)

+Q_condenser=approx((H4-H3i),1);//heat Of condenser  [KJ/Kg]

+//From Example(7.10)

+//Properties of saturated liquid water @ 318.15K

+V=1010;//[cm^3/Kg]

+V=1010*10^-6;//[m^3/Kg]

+Beta=425*10^-6;//[K^-1]

+Cp=4.178;//[KJ/Kg/K]

+

+//From Eqn(7.24)

+Ws_2=approx((V*(P1-P2)),1)//[KPa m^3/Kg]

+del_Hs_2=Ws_2;

+H1=H4+del_Hs_2;

+//Enthalpy Of saturated steam at 8600KPa and 773.15K

+H2=3391.6;//[KJ/Kg]

+//Applying Eqn(8.2)

+Q_boiler=H2-H1;

+

+Ws_Rankine=-Q_boiler-Q_condenser;

+eta=approx((abs(Ws_Rankine)/Q_boiler),3);

+disp('(a)Rankine Cycle')

+disp(eta,'Thermal Efficiency')

+

+//(b)

+

+eta_b=0.75;

+

+del_H_1=del_Hs_1*eta_b;

+Ws_turbine=del_H_1;

+H3=H2+del_H_1;

+Q_condenser=H4-H3;

+

+//By Example 7.10 for the pump

+Ws_pump=del_Hs_2/eta_b;

+del_H_2=Ws_pump;

+Ws_net=Ws_turbine+Ws_pump;

+H1=H4+del_H_2;

+

+Q_boiler=H2-H1;

+efficiency=approx(abs(Ws_net)/Q_boiler,4);

+disp('(b)Practical cycle with 0.75 efficiency')

+disp(efficiency,'Thermal Efficiency')

+

+//(c)

+//By rating of Power Cycle

+rWs_net=-80000;//[KJ/s]  Power Rating 

+rm=approx(rWs_net/Ws_net,2);

+

+rQ_boiler=approx(rm*Q_boiler/1000,1);//[MW]

+rQ_condenser=approx(rm*Q_condenser/1000,1);//[MW]

+disp('(c)By rating of Power Cycle');

+disp('kg/s',rm,'Steam Rate')

+disp('MW',rQ_boiler,'Heat Transfer rate in boiler')

+disp('MW',rQ_condenser,'Heat Transfer rate in condenser')

+

+//End
\ No newline at end of file
diff --git a/23/CH8/EX8.4/Example_8_4.pdf b/23/CH8/EX8.4/Example_8_4.pdf
new file mode 100755
index 000000000..84778b3ca
--- /dev/null
+++ b/23/CH8/EX8.4/Example_8_4.pdf
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