initial commit / add all books

8 files changed, 163 insertions, 0 deletions

diff --git a/2510/CH7/EX7.1/Ex7_1.sce b/2510/CH7/EX7.1/Ex7_1.sce
new file mode 100755
index 000000000..fbebb4a96
--- /dev/null
+++ b/2510/CH7/EX7.1/Ex7_1.sce
@@ -0,0 +1,13 @@
+//Variable declaration:
+Q = 3000.0              //The rate of heat flow through the glass window (W)
+L = 0.01                //Thickness of glass window (m)
+A = 3.0                 //Area of heat transfer (m^2)
+TC = 10+273             //Temperature at the outside surface (K)
+k = 1.4                 //Thermal onductivity of glass (W/m.K)
+
+//Calculation:
+TH = TC+Q*L/k/A         //Temperature at the inner surface (K)
+
+//Result:
+printf("The temperature at the inner surface is : %.1f K",TH)
+printf("The temperature at the inner surface is : %.1f °C",TH-273)
diff --git a/2510/CH7/EX7.2/Ex7_2.sce b/2510/CH7/EX7.2/Ex7_2.sce
new file mode 100755
index 000000000..af8f85bee
--- /dev/null
+++ b/2510/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,16 @@
+//Variable declaration:
+k = 0.026               //Thermal conductivity of insulating material (Btu/ft.h.°F)
+L = 1.0                 //Thickness of insulating material (ft)
+TC = 70.0               //Temperature on the cold side surface (°F)
+TH = 210.0              //Temperature on the hot side surface (°F)
+c = 0.252               //Kilocalorie per hour in a Btu per hour
+m = 0.093               //meter square in a feet square
+
+//Calculation:
+DT = TH-TC              //Change in temperature (°F)
+Q1 = k*DT/L             //Rate of heat flux throughthe wall (Btu/f^t2.h.)
+Q2 = Q1*c/m             //Rate of heat flux throughthe wall in SI units (kcal/m^2.h)
+
+//Result:
+printf("The rate of heat flux in Btu/ft^2.h is : %.3f Btu/ft^2.h.",Q1)
+printf("The rate of heat flux in SI units is : %.3f kcal/m^2.h.",Q2)
diff --git a/2510/CH7/EX7.3/Ex7_3.sce b/2510/CH7/EX7.3/Ex7_3.sce
new file mode 100755
index 000000000..f40354bc7
--- /dev/null
+++ b/2510/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,27 @@
+//Variable declaration:
+TH = 1592.0                     //Temperature of inside surface (K)
+TC = 1364.0                     //Temperature of outside surface (K)
+H = 3.0                         //Height of furnace wall (m)
+W = 1.2                         //Width of furnace wall (m)
+L = 0.17                        //Thickness furnace wall (m)
+m = 0.0929                      //Meter square per second in a feet square per second
+Btu = 3.412                     //Btu per hour in a Watt
+Btu2 = 0.3171                   //Btu per feet square hour in a watt per meter square
+
+//Calculation:
+Tav = (TH+TC)/2                 //Average wall temperature (K)
+//From Table in Appendix:
+p = 2645.0                      //Density of material (kg/m^3)
+k = 1.8                         //Thermal conductivity (W/m.K)
+Cp = 960.0                      //Heat capacity of material (J/kg.K)
+a = k/(p*Cp)/m                  //Thermal diffusivity (ft^2/s)
+t = (TC-TH)/L                   //Temperature gradient (°C/m)
+A = H*W                         //Heat transfer area (m^2)
+Q1 = k*A*(TH-TC)/L*Btu          //Heat transfer rate (Btu/h)
+Q2 = k*(TH-TC)/L*Btu2           //Heat transfer flux (Btu/h.ft^2)
+R = L/(k*A)                     //Thermal resistance (°C/W)
+
+//Result:
+printf("The temperature gradient is : %.0f °C/m.",t)
+printf("The heat transfer rate is : %.0f Btu/h",Q1)
+printf("The heat transfer flux is : %.1f Btu/h.ft^2.",Q2)
diff --git a/2510/CH7/EX7.4/Ex7_4.sce b/2510/CH7/EX7.4/Ex7_4.sce
new file mode 100755
index 000000000..8e81fbc4c
--- /dev/null
+++ b/2510/CH7/EX7.4/Ex7_4.sce
@@ -0,0 +1,16 @@
+//Variable declaration:
+TH = 25.0                   //Temperature at inner suface of wall (°C)
+TC = -15.0                  //Temperature at outer suface of wall (°C)
+L = 0.3                     //Thickness of wall (m)
+k = 1.0                     //Thermal conductivity of concrete (W/m)
+A = 30.0                    //Sueface area of wall (m^2)
+
+//Calculation:
+DT = TH-TC                  //Driving force for heat transfer (°C) (part 2)
+R = L/(k*A)                 //Thermal resistance (°C/W) (part 3)
+Q = DT/R/10**3              //Heat loss through the wall (kW)
+
+//Result:
+printf("1. Theoretical part.")
+printf("2. The driving force for heat transfer is : %f °C.",DT)
+printf("3. The heat loss through the wall is : %f kW.",Q)
diff --git a/2510/CH7/EX7.5/Ex7_5.sce b/2510/CH7/EX7.5/Ex7_5.sce
new file mode 100755
index 000000000..a9e344f0c
--- /dev/null
+++ b/2510/CH7/EX7.5/Ex7_5.sce
@@ -0,0 +1,21 @@
+//Variable declaration:
+TC = 27.0                   //Inside temperature of walls (°C)
+TH = 68.7                   //Outside temperature of walls (°C)
+LC = 6*0.0254               //Thickness of concrete (m)
+LB = 8*0.0254               //Thickness of cork-board (m)
+LW = 1*0.0254               //Thickness of wood (m)
+kC = 0.762                  //Thermal conductivity of concrete (W/m.K)
+kB = 0.0433                 //Thermal conductivity of cork-board (W/m.K)
+kW = 0.151                  //Thermal conductivity of wood (W/m.K)
+
+//Calculation:
+RC = LC/kC                  //Thermal resistance of concrete (K/W)
+RB = LB/kB                  //Thermal resistance of cork-board (K/W)
+RW = LW/kW                  //Thermal resistance of wood (K/W)
+Q = (TC-TH)/(RC+RB+RW)      //Heat transfer rate across the wall (W)
+T = -(Q*RW-TC)              //Interface temperature between wood and cork-board (K)
+
+//Result:
+printf("The heat transfer rate across the wall is : %.3f  W.",Q)
+printf("The interface temperature between wood and cork-board is : %.1f  °C.",T)
+printf("The interface temperature between wood and cork-board is : %.1f  K.",T+273)
diff --git a/2510/CH7/EX7.6/Ex7_6.sce b/2510/CH7/EX7.6/Ex7_6.sce
new file mode 100755
index 000000000..c214f0aff
--- /dev/null
+++ b/2510/CH7/EX7.6/Ex7_6.sce
@@ -0,0 +1,21 @@
+//Variable declaration:
+D1s = 4.0                               //Glass wool inside diameter (in)
+D2s = 8.0                               //Glass wool outside diameter (in)
+D1a = 3.0                               //Asbestos inside diameter (in)
+D2a = 4.0                               //Asbestos outside diameter (in)
+TH = 500.0                              //Outer surface temperature of pipe (°F)
+TC = 100.0                              //Outer surface temperature of glass wool (°F)
+La = 0.5/12.0                           //Thickness of asbestos (ft)
+Lb = 2.0/12.0                           //Thickness of glss wool (ft)
+ka = 0.120                              //Thermal conductivity of asbestos (Btu/h.ft.°F)
+kb = 0.0317                             //Thermal conductivity of asbestos (Btu/h.ft.°F)
+pi = %pi
+
+//Calculation:
+Aa = (pi*(D2a-D1a)/12.0)/log(D2a/D1a) //Area of asbestos (ft^2)
+Ab = (pi*(D2s-D1s)/12.0)/log(D2s/D1s) //Area of glass wool (ft^2)
+Q1 = (TH-TC)/(La/(ka*Aa)+Lb/(kb*Ab))    //Steady-state heat transfer per foot of pipe (Btu/h.)
+Q2 = Q1
+//Result:
+printf("The steady-state heat transfer per foot of pipe, Z, is : %.1f  x z Btu/h.",Q1)
+printf("The steady-state heat transfer factorizating out Z is : %.1f  Btu/h.ft.",Q2)
diff --git a/2510/CH7/EX7.7/Ex7_7.sce b/2510/CH7/EX7.7/Ex7_7.sce
new file mode 100755
index 000000000..11df65174
--- /dev/null
+++ b/2510/CH7/EX7.7/Ex7_7.sce
@@ -0,0 +1,19 @@
+//Variable declaration:
+//From example 7.6:
+TH = 500                                //Outer surface temperature of pipe (°F)
+Lb = 2.0/12.0                           //Thickness of glss wool (ft)
+kb = 0.0317                             //Thermal conductivity of asbestos (Btu/h.ft.°F)
+Ab = 1.51                               //Area of glass wool (ft^2)
+Q = 103.5                               //Steady-state heat transfer per foot of pipe (Btu/h.)
+La = 0.5/12.0                           //Thickness of asbestos (ft)
+ka = 0.120                              //Thermal conductivity of asbestos (Btu/h.ft.°F)
+Aa = 0.91                               //Area of asbestos (ft^2)
+TC = 100                                //Outer surface temperature of glass wool (°F)
+
+//Calculation:
+Ti_b = -((Lb*Q)/(kb*Ab)-TH)             //Interfacial temperature of glass wool layer (°F)
+Ti_a = (Q*La)/(ka*Aa)+TC                //Interfacial temperature of asbestos layer (°F)
+
+//Result:
+printf("The interfacial temperature of glass wool layer is : %.0f  °F.",Ti_b)
+printf("The interfacial temperature of asbestos layer is : %.1f  °F.",Ti_a)
diff --git a/2510/CH7/EX7.8/Ex7_8.sce b/2510/CH7/EX7.8/Ex7_8.sce
new file mode 100755
index 000000000..f0c8bc476
--- /dev/null
+++ b/2510/CH7/EX7.8/Ex7_8.sce
@@ -0,0 +1,30 @@
+//Variable declaration:
+syms z
+syms h
+syms k
+
+pi = %pi
+
+
+T = 100*cos((pi*z)/(2*h))       //Temperature of solid slab
+
+//Calculation:
+DT = diff(T,z)                  //Temperature at z
+Q = -k*(DT)                     //Heat flux in slab (Btu/s.ft^2)
+disp(typeof(Q))
+Q1 = subst(0,z,Q)               //Heat flux in slab at z =  Btu/s.ft^2)
+
+Q2 = subst(h,z,Q)                //Heat flux in slab at z = h (Btu/s.ft^2)
+
+//Result:
+disp("The heat flux in slab is : ")
+disp(Q)
+disp("Btu/s.ft^2.")
+
+disp("The heat flux in slab at z = 0 is : ")
+disp(Q1)
+disp("Btu/s.ft^2.")
+
+disp("The heat flux in slab at z = h is :5  ")
+disp(Q2)
+disp(" Btu/s.ft^2.")