initial commit / add all books

6 files changed, 119 insertions, 0 deletions

diff --git a/858/CH9/EX9.1/example_1.sce b/858/CH9/EX9.1/example_1.sce
new file mode 100755
index 000000000..426bced1c
--- /dev/null
+++ b/858/CH9/EX9.1/example_1.sce
@@ -0,0 +1,30 @@
+clc

+clear

+printf("example 9.1 page number 384\n\n")

+

+//to find the pressure drop in the coil

+

+D = 38*10^-3;    //in m

+U = 1   //in m/s

+density = 998   //in kg/cubic m

+viscosity = 8*10^-4   //in Pa-s

+DC = 1   //in m

+N = 10

+e = 4*10^-6;   //in m

+

+Re = (density*U*D)/viscosity;

+printf ("Reynolds number = %f",Re)

+

+f = (4*log10((e/D)/3.7+(6.81/Re)^0.9))^-2;

+printf("\n\nfriction factor = %f",f);

+

+L = 3.14*DC*N;

+

+delta_Pstr = (2*f*U*density*L)/D;

+printf("\n\npressure drop through straight pipe = %f Pa",delta_Pstr)

+

+S = 1+3.54*(D/DC);

+printf("\n\ncorrection factor = %f",S)

+

+delta_P = S*delta_Pstr

+printf("\n\npressure drop of coil = %f Pa",delta_P)

diff --git a/858/CH9/EX9.2/example_2.sce b/858/CH9/EX9.2/example_2.sce
new file mode 100755
index 000000000..44c396fc5
--- /dev/null
+++ b/858/CH9/EX9.2/example_2.sce
@@ -0,0 +1,36 @@
+clc

+clear

+printf("example 9.2 page number 384\n\n")

+

+//to find the shell side pressure drop in heat exchanger

+

+U = 0.5   //in m/s

+N = 19;

+DT = 0.026   //in m

+L = 2.7   //in m

+DS = 0.2   //in m

+e = 0.0002   //in m

+density = 836  //in kg/cu m

+viscosity = 0.00032   //in Pa s

+Pr = 6.5;

+Prw = 7.6;

+

+

+HYDIA = (DS^2-N*DT^2)/(DS+N*DT);

+

+Re = HYDIA*U*density/viscosity;

+printf ("Reynolds number = %f",Re)

+

+f = (4*log10((e/HYDIA)/3.7+(6.81/Re)^0.9))^-2;

+printf("\n\nfriction factor = %f",f);

+

+L = 3.14*DT*N;

+

+delta_Pstr = (2*f*U*density*L)/HYDIA;

+printf("\n\npressure drop through straight pipe = %f Pa",delta_Pstr)

+

+S = (Prw/Pr)^0.33;

+printf("\n\ncorrection factor = %f",S)

+

+delta_P = S*delta_Pstr

+printf("\n\npressure drop of coil = %f Pa",delta_P)

diff --git a/858/CH9/EX9.3/example_3.sce b/858/CH9/EX9.3/example_3.sce
new file mode 100755
index 000000000..666e30261
--- /dev/null
+++ b/858/CH9/EX9.3/example_3.sce
@@ -0,0 +1,38 @@
+clc

+clear

+printf("example 9.3 page number 385\n\n")

+

+MH = 10   //in kg/s

+MC = 12.5  //in kg/s

+CPH = 4.2   //in kJ/kg

+CPC = 4.2   //in kJ/kg

+THI = 353   //in K

+THO = 333   //in K

+TCI = 300   //in K

+U = 1.8    //in kW/sq m K

+

+Q = MH*CPH*(THI-THO);

+printf("heat load = %f J",Q)

+

+TCO = Q/(MC*CPC)+TCI;

+printf("\n\ncold fluid outlet temperature = %f K",TCO)

+

+//for co current flow

+

+DT1 = THI-TCO;

+DT2 = THO-TCO;

+

+LMTD = (DT1-DT2)/log(DT1/DT2);

+

+A = Q/(U*LMTD);

+printf("\n\nfor co current flow, area = %f sq m",A);

+

+//for counter current flow

+

+DT1 = THI-TCO;

+DT2 = THO-TCI;

+

+LMTD = (DT1-DT2)/log(DT1/DT2);

+

+A = Q/(U*LMTD);

+printf("\n\nfor counter current flow, area = %f sq m",A);

diff --git a/858/CH9/EX9.4/example_4.sce b/858/CH9/EX9.4/example_4.sce
new file mode 100755
index 000000000..4158067fb
--- /dev/null
+++ b/858/CH9/EX9.4/example_4.sce
@@ -0,0 +1,5 @@
+clc

+clear

+printf("example 9.4 page number 387\n\n")

+

+printf("this is a theoretical question, book shall be referred for solution")

diff --git a/858/CH9/EX9.5/example_5.sce b/858/CH9/EX9.5/example_5.sce
new file mode 100755
index 000000000..e525db72d
--- /dev/null
+++ b/858/CH9/EX9.5/example_5.sce
@@ -0,0 +1,5 @@
+clc

+clear

+printf("example 9.5 page number 392\n\n")

+

+printf("this is a theoretical question, book shall be referred for solution")

diff --git a/858/CH9/EX9.6/example_6.sce b/858/CH9/EX9.6/example_6.sce
new file mode 100755
index 000000000..4cfdf559b
--- /dev/null
+++ b/858/CH9/EX9.6/example_6.sce
@@ -0,0 +1,5 @@
+clc

+clear

+printf("example 9.6 page number 395\n\n")

+

+printf("this is a theoritical problem, book shall be referred for solution")