initial commit / add all books

8 files changed, 110 insertions, 0 deletions

diff --git a/2510/CH6/EX6.1/Ex6_1.sce b/2510/CH6/EX6.1/Ex6_1.sce
new file mode 100755
index 000000000..050c8f3ba
--- /dev/null
+++ b/2510/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,10 @@
+//Variable declaration:
+NPS = 2                     //Nominal pipe size (inch)
+SN = 40                     //Schedule number
+
+//Calculation:
+//From Table 6.2, we obtain that the inside diameter of steel pipe is ID = 2.067 in.
+ID = 2.067
+
+//Result:
+printf("The inside diameter of steel pipe is : %f in.",ID)
diff --git a/2510/CH6/EX6.11/Ex6_11.sce b/2510/CH6/EX6.11/Ex6_11.sce
new file mode 100755
index 000000000..cc6a9db3e
--- /dev/null
+++ b/2510/CH6/EX6.11/Ex6_11.sce
@@ -0,0 +1,13 @@
+//Variable declaration:
+a = 1                           //Length of cross-section (m)
+b = 0.25                        //Width of cross-section (m)
+v = 1*10**-5                    //Kinematic viscosity of air (m^2/s)
+Re = 2300.0                     //Reynolds Number
+cm = 100                        //Cenitmeters in a meter
+
+//Calculation:
+Dh = 2*a*b/(a+b)                //Hydraulic diameter of duct (m)
+V = Re*v/Dh*cm                  //Maximum air velocity (cm/s)
+
+//Result:
+printf("The maximum air velocity before the flow becomes turbulent is : %.1f cm/s.",V)
diff --git a/2510/CH6/EX6.12/Ex6_12.sce b/2510/CH6/EX6.12/Ex6_12.sce
new file mode 100755
index 000000000..8221ee5aa
--- /dev/null
+++ b/2510/CH6/EX6.12/Ex6_12.sce
@@ -0,0 +1,17 @@
+//Variable declaration:
+q = 0.486                       //Flow rate of fluid (ft^3/s)
+D = 2.0/12.0                    //Diameter of tube in feet (ft)
+pi = 3.14                       //Value of pi
+p = 70.0                        //Density of fluid (lb/ft^3)
+u = 0.1806                      //Viscosity of fluid (lb/ft)
+
+//Calculation:
+V = 4*q/pi/D**2                 //Flow velocity (ft/s)
+Re = D*V*p/u                    //Reynolds Number
+
+//Result:
+if(Re<2100) then
+    printf("The flow is laminar.")
+elseif(Re>2100) then
+    printf("The flow is turbulant.")
+end
diff --git a/2510/CH6/EX6.13/Ex6_13.sce b/2510/CH6/EX6.13/Ex6_13.sce
new file mode 100755
index 000000000..9deea2297
--- /dev/null
+++ b/2510/CH6/EX6.13/Ex6_13.sce
@@ -0,0 +1,11 @@
+//Variable declaration:
+//From example 6.12, we have:
+D = 2.0/12.0                    //Diameter of pipe in feet (ft)
+Re = 1440.0                     //Reynolds number
+
+//Calculation:
+Lc = 0.05*D*Re                  //Length of pipe (ft)
+
+//Result:
+printf("The pipe length to ensure a fully developed flow is: %f ft.",Lc)
+printf("This is an abnormally long calming length for a pipe (or tube) in a heat exchanger.")
diff --git a/2510/CH6/EX6.14/Ex6_14.sce b/2510/CH6/EX6.14/Ex6_14.sce
new file mode 100755
index 000000000..de7664586
--- /dev/null
+++ b/2510/CH6/EX6.14/Ex6_14.sce
@@ -0,0 +1,13 @@
+//Variable declaration:
+u = 6.72*10**-4                     //Viscosity of water (lb/ft.s)
+p = 62.4                            //Density of water (lb/ft^3)
+//For laminar flow:
+Re = 2100.0                        //Reynolds number
+//From table 6.2, we have:
+D = 2.067/12.0                      //Inside diameter of pipe (ft)
+
+//Calculation:
+V = Re*u/D/p                        //Average velocity of water flowing (ft/s)
+
+//Result:
+printf("The average velocity of water flowing is: %.2f ft/s.",V)
diff --git a/2510/CH6/EX6.2/Ex6_2.sce b/2510/CH6/EX6.2/Ex6_2.sce
new file mode 100755
index 000000000..1e54feacd
--- /dev/null
+++ b/2510/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,16 @@
+//Variable declaration:
+NPS = 3                     //Nominal pipe size (inch)
+SN = 40                     //Schedule number
+
+//Calculation:
+//From Table 6.2, we obtain that the inside diameter of steel pipe is ID = 3.068 in, outside diameter OD = 3.5 in, wal thickness WT = 0.216 in, and pipe weight PW = 7.58 lb/ft.
+ID = 3.068
+OD = 3.5
+WT = 0.216
+PW = 7.58
+
+//Result:
+printf("The inside diameter of steel pipe is : %f in",ID)
+printf("The outside diameter of steel pipe is : %f in",OD)
+printf("The wall thickness of steel pipe is : %f in",WT)
+printf("The weight of steel pipe is : %f  lb/ft.",PW)
diff --git a/2510/CH6/EX6.3/Ex6_3.sce b/2510/CH6/EX6.3/Ex6_3.sce
new file mode 100755
index 000000000..04ee86ff6
--- /dev/null
+++ b/2510/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,14 @@
+//Variable declaration:
+ID = 0.957                  //Inside diameter of pipe (in)
+OD = 1.315                  //Outside diameter of pipe (in)
+WT = 0.179                  //Wall thickness of pipe (in)
+PW = 2.17                   //Weight of pipe (lb/ft)
+
+//Calculation:
+//From Table 6.2, it indicates that the steel pipe is 1 inch schedule 80.
+NSP = 1
+SN = 80
+
+//Result:
+printf("The nominal size of the pipe is : %f in.",NSP)
+printf("The schedule number of the pipe is: %f .",SN)
diff --git a/2510/CH6/EX6.4/Ex6_4.sce b/2510/CH6/EX6.4/Ex6_4.sce
new file mode 100755
index 000000000..62aa508f7
--- /dev/null
+++ b/2510/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,16 @@
+//Variable declaration:
+S = 3/4                         //Tube size (in)
+BWG = 16                        //Birmingham Wire Gauge number (gauge)
+
+//calculation:
+//From table 6.3, we get:
+ID = 0.620                      //Internal diameter of tube (in)
+WT = 0.065                      //Wall thickness of tube (in)
+OD = ID+2*WT                    //Outside diameter of tube (in)
+EA = 0.1963                     //External area per foot (ft)
+
+//Result:
+printf("The inside diameter is : %f in",ID)
+printf("The wall thickness is : %f in",WT)
+printf("The outside diamater is : %f in",OD)
+printf("The external area per foot per foot : %f ft",EA)