initial commit / add all books

14 files changed, 268 insertions, 0 deletions

diff --git a/2519/CH19/EX19.1/Ex19_1.sce b/2519/CH19/EX19.1/Ex19_1.sce
new file mode 100755
index 000000000..0e738cbae
--- /dev/null
+++ b/2519/CH19/EX19.1/Ex19_1.sce
@@ -0,0 +1,16 @@
+clc

+clear

+//Initialization of variables

+r1=1.12 //in

+r2=3.06 //in

+t1=203 //F

+t2=184 //F

+r3=2.09 //in

+pow=11.1 //watts

+//calculations

+km=pow*3.413*(12/r1-12/r2)/(4*%pi*(t1-t2))

+dt=pow*3.413*(12/r1-12/r3)/(4*%pi*km)

+t3d=t1-dt

+//rewsults

+printf("The experimental value of thermal conductivity = %.2f Btu/hr ft F",km)

+printf("\n Required temperature = %.1f F",t3d)

diff --git a/2519/CH19/EX19.10/Ex19_10.sce b/2519/CH19/EX19.10/Ex19_10.sce
new file mode 100755
index 000000000..0d2e3ccd3
--- /dev/null
+++ b/2519/CH19/EX19.10/Ex19_10.sce
@@ -0,0 +1,17 @@
+clc

+clear

+//Initialization of variables

+em=0.79

+sigma=0.1714

+T1=660 //R

+T2=540 //R

+T3=860 //R

+//calculations

+Q1=em*sigma*((T1/100)^4 -(T2/100)^4)

+Q2=em*sigma*((T3/100)^4 -(T2/100)^4)

+Qh1=129+Q1

+Qh2=419+Q2

+per=100*(Qh2-Qh1)/Qh1

+//results

+printf("Percentage change in total heat trasnfer = %.1f percent",per)

+disp("The answer in the textbook is a bit different due to rounding off error in textbook.")

diff --git a/2519/CH19/EX19.11/Ex19_11.sce b/2519/CH19/EX19.11/Ex19_11.sce
new file mode 100755
index 000000000..38089da22
--- /dev/null
+++ b/2519/CH19/EX19.11/Ex19_11.sce
@@ -0,0 +1,12 @@
+clc

+clear

+//Initialization of variables

+Tp=12.57

+Tw=10.73

+ep=0.8

+sig=0.1714

+hc=7

+//calculations

+dt=ep*sig*(Tp^4-Tw^4)/hc

+//results

+printf("Error in probe reading = %d F",dt)

diff --git a/2519/CH19/EX19.12/Ex19_12.sce b/2519/CH19/EX19.12/Ex19_12.sce
new file mode 100755
index 000000000..077148a93
--- /dev/null
+++ b/2519/CH19/EX19.12/Ex19_12.sce
@@ -0,0 +1,23 @@
+clc

+clear

+//Initialization of variables

+l=6 //ft

+d1=0.55 //in

+d2=0.75 //in

+h1=280 //Btu/hr ft^2 F

+h2=2000 //Btu/fr ft^2 F

+k=220 //Btu/hr ft F

+t2=212 //F

+t1=60 //F

+f=500 //Btu/hr ft^2 F

+//calculations

+A2=%pi*d1*l/12

+A3=%pi*d2*l/12

+Rt=1/(h1*A2) + 1/(h2*A3) +log(d2/d1) /(2*%pi*k*l)

+Q=(t2-t1)/Rt

+Rt2=Rt+ 1/(f*A2)

+Q2=(t2-t1)/Rt2

+//results

+printf("Heat transfer = %d Btu/hr",Q)

+printf("\n Heat transfer in case 2= %d Btu/hr",Q2)

+disp("The answer in the textbook is a bit different due to rounding off error in textbook.")

diff --git a/2519/CH19/EX19.13/Ex19_13.sce b/2519/CH19/EX19.13/Ex19_13.sce
new file mode 100755
index 000000000..a2627e526
--- /dev/null
+++ b/2519/CH19/EX19.13/Ex19_13.sce
@@ -0,0 +1,20 @@
+clc

+clear

+//Initialization of variables

+l=6 //ft

+d1=0.55 //in

+d2=0.75 //in

+h1=280 //Btu/hr ft^2 F

+h2=2000 //Btu/fr ft^2 F

+k=220 //Btu/hr ft F

+t2=212 //F

+t1=60 //F

+//calculations

+A2=%pi*d1*l/12

+A3=%pi*d2*l/12

+Rt=1/(h1*A2) + 1/(h2*A3) +log(d2/d1) /(2*%pi*k*l)

+U3=1/(A3*Rt)

+//results

+printf("Overall Heat transfer coefficient = %.1f Btu/hr ft^2 F",U3)

+disp("The answer in the textbook is a bit different due to rounding off error in textbook.")

+

diff --git a/2519/CH19/EX19.14/Ex19_14.sce b/2519/CH19/EX19.14/Ex19_14.sce
new file mode 100755
index 000000000..efccf359d
--- /dev/null
+++ b/2519/CH19/EX19.14/Ex19_14.sce
@@ -0,0 +1,12 @@
+clc

+clear

+//Initialization of variables

+t1=300 //F

+t2=260 //F

+t3=200 //F

+t4=160 //F

+//calculations

+X=(t2-t4)/(t1-t4)

+Z=(t1-t3)/(t2-t4)

+//results

+printf("Parameters X and Z are %.3f and %.1f respectively",X,Z)

diff --git a/2519/CH19/EX19.2/Ex19_2.sce b/2519/CH19/EX19.2/Ex19_2.sce
new file mode 100755
index 000000000..18fcbd3ff
--- /dev/null
+++ b/2519/CH19/EX19.2/Ex19_2.sce
@@ -0,0 +1,23 @@
+clc

+clear

+//Initialization of variables

+r1=4.035 //in

+r2=4.312 //in

+r3=5.312 //in

+r4=6.812 //in

+k12=25 //Btu/hr ft F

+k23=0.05 //Btu/hr ft F

+k34=0.04 //Btu/hr ft F

+t1=625 //F

+t4=125 //F

+l=100 //ft

+hr=1.7 //Btu/hr ft^2 F

+//calculations

+Rs=1/(2*%pi*l) *(log(r2/r1) /k12+log(r3/r2) /k23 +log(r4/r3) /k34)

+Qd=(t1-t4)/Rs

+dt=Qd*12/(hr*%pi*2*l*6.812)

+t0=t4-dt

+//results

+printf("Heat loss = %d Btu/hr",Qd)

+printf("\n Temperature required = %d F",t0)

+disp("The answers given in the textbook are a bit different due to rounding off error")

diff --git a/2519/CH19/EX19.3/Ex19_3.sce b/2519/CH19/EX19.3/Ex19_3.sce
new file mode 100755
index 000000000..7496fdd6f
--- /dev/null
+++ b/2519/CH19/EX19.3/Ex19_3.sce
@@ -0,0 +1,23 @@
+clc

+clear

+//Initialization of variables

+dout=1 //in

+d1=0.049 //in

+t1=70 //F

+t2=80 //F

+rho=62.2 //lbm/ft^3

+mum=2.22 //lbm/ft hr

+k=0.352 //Btu/hr ft F

+cp=1 //Btu/lbm F

+vel=500000 //lbm/hr

+n=100 //tubes

+//calculations

+D=dout-2*d1

+t=(t1+t2)/2

+V=vel/n *4*144/(%pi*D^2 *rho)

+Re=rho*V*D/(mum*12)

+Pr=cp*mum/k

+Nu=0.023*Re^0.8 *Pr^0.4

+hc=Nu*k*12/D

+//results

+printf("Coefficient of heat transfer = %d Btu/hr ft^2 F",hc)

diff --git a/2519/CH19/EX19.4/Ex19_4.sce b/2519/CH19/EX19.4/Ex19_4.sce
new file mode 100755
index 000000000..759c925a6
--- /dev/null
+++ b/2519/CH19/EX19.4/Ex19_4.sce
@@ -0,0 +1,36 @@
+clc

+clear

+//Initialization of variables

+d1=0.5 //ft

+t1=200 //F

+t2=80 //F

+ta=400 //F

+rho=0.0662 //lbm/ft^3

+mum=0.0483 //lbm/ft hr

+k=0.0167 //Btu/hr ft F

+cp=0.2408 //Btu/lbm F

+rho2=0.0567 //lbm/ft^3

+mum2=0.0542 //lbm/ft hr

+k2=0.0190 //Btu/hr ft F

+cp2=0.2419 //Btu/lbm F

+g=32.17

+//calculations

+ti=(t1+t2)/2

+bet=1/(460+ti)

+Pr1=cp*mum/k

+Gr1=d1^3 *rho^2 *3600^2 *g*bet*(t1-t2)/mum^2

+Gr1pr1=Gr1*Pr1

+hc1=k/d1 *0.53*(Gr1pr1)^0.25

+Q1=hc1*(t1-t2)

+tf=(ta+t2)/2

+bet2=1/(460+tf)

+Pr2=cp2*mum2/k2

+Gr2=d1^3 *rho2^2 *3600^2 *g*bet2*(ta-t2)/mum2^2

+Gr2pr2=Gr2*Pr2

+hc2=k2/d1 *0.53*(Gr2pr2)^0.25

+Q2=hc2*(ta-t2)

+per=100*(Q2-Q1)/Q1

+//results

+printf("Coefficient of heat transfer in case 1= %.3f Btu/hr ft^2 F",hc1)

+printf("\n Coefficient of heat transfer in case 2 = %.3f Btu/hr ft^2 F",hc2)

+printf("\n Percentage change = %d percent",per)

diff --git a/2519/CH19/EX19.5/Ex19_5.sce b/2519/CH19/EX19.5/Ex19_5.sce
new file mode 100755
index 000000000..2ca474bc1
--- /dev/null
+++ b/2519/CH19/EX19.5/Ex19_5.sce
@@ -0,0 +1,29 @@
+clc

+clear

+//Initialization of variables

+chord=40 //ft

+v=1200 //mph

+t1=80 //F

+t2=200 //F

+mu=0.0447 //lbm/ft hr

+rho=5280 //lbm/ft^3

+cp=0.2404 //Btu/lbm F

+k=0.0152 //Btu/hr ft F

+J=778

+gc=32.17 //ft/s^2

+mu2=0.0514 //lbm/ft hr

+k2=0.0179 //Btu/hr ft F

+cp2=0.2414 //Btu/lbm F

+//calculations

+Re=rho*v*chord*0.0735/mu

+r=(mu*cp/k)^(1/3)

+tav=t1+ r*v^2 *rho^2 /(2*gc*J*cp*3600^2)

+ts=t1+ 0.5*(t2-t1)+ 0.22*(tav-t1)

+Re2=v*rho*chord*0.0610/mu2

+Pr2=cp2*mu2/k2

+hc=cp2*v*rho*0.0610 *0.037*Re2^(-0.2) *Pr2^(-0.667)

+Q2=hc*(t2-tav)

+//results

+printf("Temperature of wing surface = %.1f F",tav)

+printf("\n Heat transfer convective = %d Btu/hr ft^2",Q2)

+disp("The answers are a bit different due to rounding off error in textbook")

diff --git a/2519/CH19/EX19.6/Ex19_6.sce b/2519/CH19/EX19.6/Ex19_6.sce
new file mode 100755
index 000000000..958793b28
--- /dev/null
+++ b/2519/CH19/EX19.6/Ex19_6.sce
@@ -0,0 +1,12 @@
+clc

+clear

+//Initialization of variables

+r1=1 //in

+r2=5 //in

+F12=1

+//calculations

+F21=4*%pi*r1^2 *F12/(4*%pi*r2^2)

+F22=1-F21

+//results

+printf("Percent of radiation emitted by surface 2 on small sphere = %d percent",F21*100)

+printf("\n Remaining %d percent is absorbed by inner surface of larger sphere",F22*100)

diff --git a/2519/CH19/EX19.7/Ex19_7.sce b/2519/CH19/EX19.7/Ex19_7.sce
new file mode 100755
index 000000000..ac1d18dbf
--- /dev/null
+++ b/2519/CH19/EX19.7/Ex19_7.sce
@@ -0,0 +1,18 @@
+clc

+clear

+//Initialization of variables

+short=2 //ft

+apart=3 //ft

+long=4 //ft

+T1=2260 //R

+T2=530 //R

+sigma=0.1714

+//calculations

+A1=short*long

+ratio=short/apart

+disp("from curve 3")

+F=0.165

+Q12=A1*F*sigma*((T1/100)^4 -(T2/100)^4)

+//results

+printf("Net exchange of radiation = %d Btu/hr",Q12)

+disp("The answer in the textbook is a bit different due to rounding off error in textbook.")

diff --git a/2519/CH19/EX19.8/Ex19_8.sce b/2519/CH19/EX19.8/Ex19_8.sce
new file mode 100755
index 000000000..c84156c98
--- /dev/null
+++ b/2519/CH19/EX19.8/Ex19_8.sce
@@ -0,0 +1,13 @@
+clc

+clear

+//Initialization of variables

+F=0.51

+A1=8 //ft^2

+sigma=0.1714

+T1=2260 //R

+T2=530 //R

+//calculations

+Q12=A1*F*sigma*((T1/100)^4 -(T2/100)^4)

+//results

+printf("Net exchange of radiation = %d Btu/hr",Q12)

+disp("The answer in the textbook is a bit different due to rounding off error in textbook.")

diff --git a/2519/CH19/EX19.9/Ex19_9.sce b/2519/CH19/EX19.9/Ex19_9.sce
new file mode 100755
index 000000000..ef1cff898
--- /dev/null
+++ b/2519/CH19/EX19.9/Ex19_9.sce
@@ -0,0 +1,14 @@
+clc

+clear

+//Initialization of variables

+F=0.51

+A1=8 //ft^2

+sigma=0.1714

+T1=2260 //R

+T2=530 //R

+//calculations

+F12=1/(1/0.51 +(1/0.9 -1) +(1/0.6 -1))

+Q12=A1*F12*sigma*((T1/100)^4 -(T2/100)^4)

+//results

+printf("Net exchange of radiation = %d Btu/hr",Q12)

+disp("The answer in the textbook is a bit different due to rounding off error in textbook.")