From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2519/CH19/EX19.1/Ex19_1.sce   | 16 ++++++++++++++++
 2519/CH19/EX19.10/Ex19_10.sce | 17 +++++++++++++++++
 2519/CH19/EX19.11/Ex19_11.sce | 12 ++++++++++++
 2519/CH19/EX19.12/Ex19_12.sce | 23 +++++++++++++++++++++++
 2519/CH19/EX19.13/Ex19_13.sce | 20 ++++++++++++++++++++
 2519/CH19/EX19.14/Ex19_14.sce | 12 ++++++++++++
 2519/CH19/EX19.2/Ex19_2.sce   | 23 +++++++++++++++++++++++
 2519/CH19/EX19.3/Ex19_3.sce   | 23 +++++++++++++++++++++++
 2519/CH19/EX19.4/Ex19_4.sce   | 36 ++++++++++++++++++++++++++++++++++++
 2519/CH19/EX19.5/Ex19_5.sce   | 29 +++++++++++++++++++++++++++++
 2519/CH19/EX19.6/Ex19_6.sce   | 12 ++++++++++++
 2519/CH19/EX19.7/Ex19_7.sce   | 18 ++++++++++++++++++
 2519/CH19/EX19.8/Ex19_8.sce   | 13 +++++++++++++
 2519/CH19/EX19.9/Ex19_9.sce   | 14 ++++++++++++++
 14 files changed, 268 insertions(+)
 create mode 100755 2519/CH19/EX19.1/Ex19_1.sce
 create mode 100755 2519/CH19/EX19.10/Ex19_10.sce
 create mode 100755 2519/CH19/EX19.11/Ex19_11.sce
 create mode 100755 2519/CH19/EX19.12/Ex19_12.sce
 create mode 100755 2519/CH19/EX19.13/Ex19_13.sce
 create mode 100755 2519/CH19/EX19.14/Ex19_14.sce
 create mode 100755 2519/CH19/EX19.2/Ex19_2.sce
 create mode 100755 2519/CH19/EX19.3/Ex19_3.sce
 create mode 100755 2519/CH19/EX19.4/Ex19_4.sce
 create mode 100755 2519/CH19/EX19.5/Ex19_5.sce
 create mode 100755 2519/CH19/EX19.6/Ex19_6.sce
 create mode 100755 2519/CH19/EX19.7/Ex19_7.sce
 create mode 100755 2519/CH19/EX19.8/Ex19_8.sce
 create mode 100755 2519/CH19/EX19.9/Ex19_9.sce

(limited to '2519/CH19')

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.")
-- 
cgit