initial commit / add all books

5 files changed, 90 insertions, 0 deletions

diff --git a/172/CH15/EX15.1/ex1.sce b/172/CH15/EX15.1/ex1.sce
new file mode 100755
index 000000000..27a21f37e
--- /dev/null
+++ b/172/CH15/EX15.1/ex1.sce
@@ -0,0 +1,7 @@
+//ques1

+//theoratical air-fuel ratio for combustion of octane

+clear

+clc

+rm=(12.5+47.0)/1;//air fuel ratio on mole basis

+rma=rm*28.97/114.2;//air fuel ratio on mass basis;

+printf('Theoratical air fuel ratio on mass basis = %.1f kg air/kg fuel \n',rma);

diff --git a/172/CH15/EX15.15/ex15.sce b/172/CH15/EX15.15/ex15.sce
new file mode 100755
index 000000000..24f7dadc2
--- /dev/null
+++ b/172/CH15/EX15.15/ex15.sce
@@ -0,0 +1,21 @@
+//ques15

+//calculatng reversible elecromotive force 

+clear

+clc

+//1-H2O

+//2-H2

+//3-O2

+//hf-standard enthalpy 

+//sf-standard entropy

+hf1=-285.830;//kJ

+hf2=0;//kJ

+hf3=0;//kJ

+sf1=69.950;//kJ/K

+sf2=130.678;//kJ/K

+sf3=205.148;//kJ/K

+dH=2*hf1-2*hf2-hf3;//change in enthalpy in kJ

+dS=2*sf1-2*sf2-sf3;//change in entropy in kJ/K

+T=298.15;//temperature in K

+dG=dH-T*dS/1000;//change in gibbs free energy in kJ

+E=-dG*1000/(96485*4);//emf in V

+printf('Reversible electromotive Force = %.3f V',E);
\ No newline at end of file
diff --git a/172/CH15/EX15.17/ex17.sce b/172/CH15/EX15.17/ex17.sce
new file mode 100755
index 000000000..13fa0768f
--- /dev/null
+++ b/172/CH15/EX15.17/ex17.sce
@@ -0,0 +1,11 @@
+//ques17

+//efficiency of generator and plant

+clear

+clc

+q=325000*(3398.3-856.0);//heat transferred to H2O/kg fuel in kJ/kg

+qv=26700*33250;//higher heating value in kJ/kg

+nst=q/qv*100;//efficiency of steam generator

+w=81000*3600;//net work done in kJ/kg

+nth=w/qv*100;//thermal efficiency

+printf('Efficiency of generator = %.1f percent\n',nst);

+printf(' Thermal Efficiency = %.1f percent\n',nth);

diff --git a/172/CH15/EX15.6/ex6.sce b/172/CH15/EX15.6/ex6.sce
new file mode 100755
index 000000000..de3cd3f57
--- /dev/null
+++ b/172/CH15/EX15.6/ex6.sce
@@ -0,0 +1,13 @@
+//ques6

+//determining heat transfer per kilomole of fuel entering combustion chamber

+clear

+clc

+//1-CH4

+//2-CO2

+//3-H2O

+//hf-standard enthalpy of given substance

+hf1=-74.873;//kJ

+hf2=-393.522;//kJ

+hf3=-285.830;//kJ

+Qcv=hf2+2*hf3-hf1;//kJ

+printf('Heat transfer per kilomole of fuel entering combustion chamber = %.3f kJ ',Qcv);
\ No newline at end of file
diff --git a/172/CH15/EX15.7/ex7.sce b/172/CH15/EX15.7/ex7.sce
new file mode 100755
index 000000000..58104be3b
--- /dev/null
+++ b/172/CH15/EX15.7/ex7.sce
@@ -0,0 +1,38 @@
+//ques7

+//calculating enthalpy of water at given pressure and temperature

+clear

+clc

+//1.Assuming steam to be an ideal gas with value of Cp

+T1=298.15;//Initial temperature in K

+T2=573.15;//final temperature in K

+T=(T1+T2)/2;//average temperature in K

+Cp=1.79+0.107*T/1000+0.586*(T/1000)^2-.20*(T/1000)^3;//specific heat at constant pressure in kj/kg.K

+M=18.015;//mass in kg

+dh=M*Cp*(T2-T1);//enthalpy change in kJ/kmol

+ho=-241.826;//enthalpy at standard temperature and pressure in kJ/mol

+htp1=ho+dh/1000;//enthalpy at given temp and pressure in kJ/kmol

+printf('1. Enthalpy of water at given pressure and temperature using value of Cp = %.3f kJ/kmol \n',htp1);

+

+//2..Assuming steam to be an ideal gas with value for dh

+dh=9359;//enthalpy change from table A.9 in kJ/mol

+htp2=ho+dh/1000;//enthalpy at given temp and pressure in kJ/kmol

+printf(' 2. Enthalpy of water at given pressure and temperature assuming value od dh = %.3f kJ/kmol \n',htp2);

+

+//3. Using steam table

+dh=M*(2977.5-2547.2);//enthalpy change for gases in kJ/mol

+htp3g=dh/1000+ho;

+dh=M*(2977.5-104.9);//enthalpy change for liquid in kJ/mol

+hl=-285.830;//standard enthalpy for liquid in kJ/kmol

+htp3l=hl+dh/1000;//enthalpy at given temp and pressure in kJ/kmol

+printf(' 3.(i) enthalpy at given temp and pressure in kJ/kmol in terms of liquid = %.3f kJ/kmol \n',htp3l);

+printf(' 3.(ii) enthalpy at given temp and pressure in kJ/kmol in terms of liquid = %.3f kJ/kmol \n',htp3g);

+//4.using generalised charts

+//htp=ho-(h2*-h2)+(h2*-h1*)+(h1*-h1);

+//h2*-h2=Z*R*Tc,

+//h2*-h1*=9539 kJ/mol, from part 2

+//h1*-h1=0 ,as ideal gas 

+Z=0.21;//from chart

+R=8.3145;//gas constant in SI units

+Tc=647.3;//critical temperature in K

+htp4=ho+9539/1000-Z*R*Tc/1000;//enthalpy at given temp and pressure in kJ/kmol

+printf(' 4. enthalpy at given temp and pressure in kJ/kmol using compressibility chart = %.3f kJ/kmol \n',htp4);
\ No newline at end of file