initial commit / add all books

7 files changed, 110 insertions, 0 deletions

diff --git a/1985/CH17/EX17.1/Chapter17_example1.sce b/1985/CH17/EX17.1/Chapter17_example1.sce
new file mode 100755
index 000000000..e6967242e
--- /dev/null
+++ b/1985/CH17/EX17.1/Chapter17_example1.sce
@@ -0,0 +1,17 @@
+clc

+clear

+//Input data

+m=0.8//Mass of the slab in kg

+l=(9.648*10^-3)//Thickness of slab in m

+d=(1.464*10^-3)//Thickness of the cardboard in m

+r=(5.752*10^-2)//Radius of the slab in m

+S=385//Specific heat of slab in J/kg.K

+T2=363.5//Steady temperature of the slab in K

+T1=372//Steady temperature of the steam chamber in K

+dTt=(10/300)//Rate of cooling in K/s

+

+//Calculations

+K=(m*S*dTt*((r+2*l)/(2*r+2*l)))*(d/(3.14*r^2))*(1/(T1-T2))//Thermal conductivity of the cardboard in W/m.K

+

+//Output

+printf('Thermal conductivity of the cardboard is %3.4f W/m.K',K)

diff --git a/1985/CH17/EX17.2/Chapter17_example2.sce b/1985/CH17/EX17.2/Chapter17_example2.sce
new file mode 100755
index 000000000..751df8bf5
--- /dev/null
+++ b/1985/CH17/EX17.2/Chapter17_example2.sce
@@ -0,0 +1,12 @@
+clc

+clear

+//Input data

+L2=0.032//Length of the wax melted portion in the iron rod in m

+L1=0.08//Length of the wax melted portion in the copper rod in m

+K1=385//Thermal conductivity of copper in W/m.K

+

+//Calculations

+K2=(K1*L2^2)/L1^2//Thermal conductivity of iron in W/m.K

+

+//Output

+printf('Thermal conductivity of iron is %3.1f W/m.K',K2)

diff --git a/1985/CH17/EX17.3/Chapter17_example3.sce b/1985/CH17/EX17.3/Chapter17_example3.sce
new file mode 100755
index 000000000..fac27627b
--- /dev/null
+++ b/1985/CH17/EX17.3/Chapter17_example3.sce
@@ -0,0 +1,15 @@
+clc

+clear

+//Input data

+d=0.2//Length of iron rod in m

+A=0.685*10^-4//Area of cross-section in m^2

+T1=100+273//Temperature of the hot end in K

+T2=30+273//Temperature of the other end in K

+K=62//Thermal conductivity of iron in W/m.K

+t=10*60//Time in sec

+

+//Calculations

+Q=(K*A*(T1-T2)*t)/d//Quantity of heat conducted in J

+

+//Output

+printf('The iron rod conducts %3.2f J of energy in 10 minutes',Q)

diff --git a/1985/CH17/EX17.4/Chapter17_example4.sce b/1985/CH17/EX17.4/Chapter17_example4.sce
new file mode 100755
index 000000000..58805ea49
--- /dev/null
+++ b/1985/CH17/EX17.4/Chapter17_example4.sce
@@ -0,0 +1,18 @@
+clc

+clear

+//Input data

+m=1//Mass of water collected in kg

+r=0.02//Radius of bar in m

+d=0.05//Distance between the thermometers in m

+T1=80+273//Temperature of the thermometer 1 in K

+T2=70+273//Temperature of the thermometer 2 in K

+T3=30+273//Temperature of water at the inlet in K

+T4=40+273//Temperature of water at the outlet in K

+t=(7*60)//Time of flow in s

+S=4190//Specific heat of water in J/kg.K

+

+//Calculations

+K=(m*d*(T4-T3)*S)/(3.14*r^2*t*(T1-T2))//Thermal conductivity of the metal in W/m.K

+

+//Output

+printf('Thermal conductivity of the metal is %3.2f W/m.K',K)

diff --git a/1985/CH17/EX17.5/Chapter17_example5.sce b/1985/CH17/EX17.5/Chapter17_example5.sce
new file mode 100755
index 000000000..e1ee6ff10
--- /dev/null
+++ b/1985/CH17/EX17.5/Chapter17_example5.sce
@@ -0,0 +1,15 @@
+clc

+clear

+//Input data

+x=6//Thickness of the ice layer in cm

+x1=(x+0.2)//Increase in thickness in cm

+K=2.1//Thermal conductivity of ice in W/m.K

+L=3.36*10^5//Latent heat of ice in J/kg

+d=910//Density of ice at 0 degree C in kg/m^3

+T=-(273-((20+273)))//Change of temperature in K

+

+//Calculations

+t=(d*L*(x1^2-x^2)*10^-4)/(2*K*T)//Time taken by ice to increase its thickness in sec

+

+//Output

+printf('Time taken by ice to increase its thickness from %i cm to %3.1f cm is %3.2f sec',x,x1,t)

diff --git a/1985/CH17/EX17.6/Chapter17_example6.sce b/1985/CH17/EX17.6/Chapter17_example6.sce
new file mode 100755
index 000000000..921798695
--- /dev/null
+++ b/1985/CH17/EX17.6/Chapter17_example6.sce
@@ -0,0 +1,15 @@
+clc

+clear

+//Input data

+d1=0.04//Thickness of first layer in m

+d2=0.02//Thickness of second layer in m

+K1=226.8//Thermal conductivity of the first layer in W/m.K

+K2=151.2//Thermal conductivity of the second layer in W/m.K

+T1=100+273//Temperature of first layer in K

+T2=0+273//Temperature of second layer in K

+

+//Calculations

+T=((((K1*T1)/d1)-((K2*T2)/d2))/((K1/d1)+(K2/d2)))//The temperature at the interface in K. The formula and calculation is made wrong in the textbook.

+

+//Output

+printf('The temperature at the interface is %3.3f K',T)

diff --git a/1985/CH17/EX17.7/Chapter17_example7.sce b/1985/CH17/EX17.7/Chapter17_example7.sce
new file mode 100755
index 000000000..55aca5241
--- /dev/null
+++ b/1985/CH17/EX17.7/Chapter17_example7.sce
@@ -0,0 +1,18 @@
+clc

+clear

+//Input data

+K1=0.168//Thermal conductivity of the briks in W/m.K

+K2=0.042//Thermal conductivity of cork in W/m.K

+d1=0.08//Thickness of the brick in m

+d2=0.04//Thickness of the cork in m

+T1=20+273//Outer temperature in K

+T2=10+273//Inner temperature in K

+

+//Calculations

+T=((d2*K1*T1+d1*T2*K2)/(d1*K2+d2*K1))//The temperature of the interface in K

+dT=(T1-T)//Difference in temperature in the bricks in K

+tg=(dT/d1)//Temperature gradient in the bricks in K/m

+tc=(T-T2)/d2//Temperature gradient in the cork in K/m

+

+//Output

+printf('Temperature gradient in the bricks is %3.2f K/m \n Temperature gradient in the cork is %3.2f K/m',tg,tc)