9 files changed, 103 insertions, 0 deletions
diff --git a/1460/CH14/EX14.1/14_1.sce b/1460/CH14/EX14.1/14_1.sce
new file mode 100755
index 000000000..b7ac70a76
--- /dev/null
+++ b/1460/CH14/EX14.1/14_1.sce
@@ -0,0 +1,10 @@
+clc
+//initialization of variables
+T=50 //F
+Q=3.9 //B/hr-ft^2
+//calculations
+disp("From table 14.1")
+k=0.026 //B/hr-ft-F
+dx=k*T/Q
+//results
+printf("Required thickness = %.3f ft",dx)
diff --git a/1460/CH14/EX14.2/14_2.sce b/1460/CH14/EX14.2/14_2.sce
new file mode 100755
index 000000000..6aa1dde5d
--- /dev/null
+++ b/1460/CH14/EX14.2/14_2.sce
@@ -0,0 +1,10 @@
+clc
+//initialization of variables
+x1=1 //in
+x2=4 //in
+T1=85 //F
+T2=30 //F
+//calculations
+QbyA=12*(T1-T2)/(x1/0.3 + x2/0.026)
+//results
+printf("Rate of heat flow = %.1f B/r-ft^2-F",QbyA)
diff --git a/1460/CH14/EX14.3/14_3.sce b/1460/CH14/EX14.3/14_3.sce
new file mode 100755
index 000000000..fe68f3381
--- /dev/null
+++ b/1460/CH14/EX14.3/14_3.sce
@@ -0,0 +1,12 @@
+clc
+//initialization of variables
+L=6.5 //in
+thick=1 //in
+k=0.06  //B/hr-ft-F
+T1=350 //F
+T2=110 //F
+//calculations
+QbyL=2*%pi*k*(T1-T2)/log(1+2/L)
+//results
+printf("heat flow = %d B/hr-ft",QbyL)
+//The answer given in textbook is wrong. Please calculate using a calculator
diff --git a/1460/CH14/EX14.4/14_4.sce b/1460/CH14/EX14.4/14_4.sce
new file mode 100755
index 000000000..f8f97f4cd
--- /dev/null
+++ b/1460/CH14/EX14.4/14_4.sce
@@ -0,0 +1,15 @@
+clc
+//initialization of variables
+t=0.25 //in
+dia=5.5 //in
+t2=0.6 //in
+To=100 //F
+kp=34.5 //B/hr-ft-F
+ki=0.05 //B/hr-ft-F
+l=10 //ft
+Q=2000 //B/hr
+//calculations
+dT=Q*(1/kp *log(1+ 2*t/dia) + 1/ki *log(1 + 4*t/(dia+2*t)))/(2*%pi*l)
+T1=dT+To
+//results
+printf("Inner surface temperature of the pipe = %.1f",T1)
diff --git a/1460/CH14/EX14.5/14_5.sce b/1460/CH14/EX14.5/14_5.sce
new file mode 100755
index 000000000..9722cab48
--- /dev/null
+++ b/1460/CH14/EX14.5/14_5.sce
@@ -0,0 +1,8 @@
+clc
+//initialization of variables
+Tsurr=90 //F
+T=85 //F
+//calculations
+H=4.2/(Tsurr-T)
+//results
+printf("Film coefficient = %.2f B/hr-ft^2-F",H)
diff --git a/1460/CH14/EX14.6/14_6.sce b/1460/CH14/EX14.6/14_6.sce
new file mode 100755
index 000000000..81bc1b8d5
--- /dev/null
+++ b/1460/CH14/EX14.6/14_6.sce
@@ -0,0 +1,13 @@
+clc
+//initialization of variables
+k=0.04 //B/hr-ft-F
+thick=1 //in
+T1=90 //F
+T2=30 //F
+Air=2.5 //B/hr-ft^2-F
+film=2  //B/hr-ft^2-F
+//calculations
+U=1/(1/Air + thick/12/k + 1/film)
+Q=U*(T1-T2)
+//results
+printf("Rate of heat transfer per unit square area = %.1f B/hr-ft^2",Q)
diff --git a/1460/CH14/EX14.7/14_7.sce b/1460/CH14/EX14.7/14_7.sce
new file mode 100755
index 000000000..03a6ee192
--- /dev/null
+++ b/1460/CH14/EX14.7/14_7.sce
@@ -0,0 +1,15 @@
+clc
+//initialization of variables
+U=115 //B/hr-ft^2-F
+T1=190 //F
+T2=160 //F
+Tc1=65 //F
+Tc2=100 //F
+w=140 //lbm/min
+c=0.8 //B/lbm F
+//calculations
+Q=w*60*c*(T1-T2)
+dT=((T1-Tc2) - (T2-Tc1))/log((T1-Tc2)/(T2-Tc1))
+A=Q/(U*dT)
+//results
+printf("Required Area = %.1f ft^2",A)
diff --git a/1460/CH14/EX14.8/14_8.sce b/1460/CH14/EX14.8/14_8.sce
new file mode 100755
index 000000000..8ea1e6cfd
--- /dev/null
+++ b/1460/CH14/EX14.8/14_8.sce
@@ -0,0 +1,9 @@
+clc
+//initialization of variables
+e=0.8
+T1=100+460 //R
+T2=300+460 //R
+//calculations
+Qdot=0.173*10^-8 *(T2^4 - T1^4)/(1/e +1/e -1)
+//results
+printf("Radiant heat transfer per sq. foot = %d B/hr-ft^2",Qdot+1)
diff --git a/1460/CH14/EX14.9/14_9.sce b/1460/CH14/EX14.9/14_9.sce
new file mode 100755
index 000000000..5e95155a7
--- /dev/null
+++ b/1460/CH14/EX14.9/14_9.sce
@@ -0,0 +1,11 @@
+clc
+//initialization of variables
+T1=400+460 //R
+A=40 //in^2
+e=0.1
+T2=70+460 //R
+//calculations
+Q=A*e*0.173*10^-8 *(T1^4 - T2^4)/144
+//results
+printf("Rate of heat transfer = %.1f B/hr",Q)
+//The answer given in textbook is wrong. Please use a calculator to check it