summaryrefslogtreecommitdiff
path: root/587/CH2/EX2.9
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /587/CH2/EX2.9
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '587/CH2/EX2.9')
-rwxr-xr-x587/CH2/EX2.9/example2_9.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/587/CH2/EX2.9/example2_9.sce b/587/CH2/EX2.9/example2_9.sce
new file mode 100755
index 000000000..2373d66ff
--- /dev/null
+++ b/587/CH2/EX2.9/example2_9.sce
@@ -0,0 +1,21 @@
+clear;
+clc;
+
+//Example2.9[Combined Convection and Radiation Condition]
+//Given:-
+T_ball=300;//Temperature of spherical metal ball[degree Celcius]
+T_ambient=27;//Temperature of ambient air[degree Celcius]
+k=14.4;//Thermal conductivity of the ball material[W/m.K]
+h=25;//average convection heat transfer coefficient on the outer surface of the ball[W/m^2.K]
+e=0.6;//Emissivity of outer surface of the ball
+T_surr=290;//
+//This is one-dimensional transient heat transfer problem since the temperature within the ball changes with the radial distance r and the time t i.e. T=T(r,t)
+//Taking the moment the ball is removed from the oven to be t=0
+disp("The initial condition can be expressed as")
+disp("T(r,0)=T_ball")
+disp("degree Celcius",T_ball)
+//The problem possesses symmetry about the mid point(r=0) since the isotherms in this case are concentric spheres, and thus no heat is crossing the mid point of the ball.
+disp("The boundary condition at the midpoint i.e. r=0 can be expressed as dT(0,t)/dr=0")
+//The heat conducted to the outer surface of the ball is lost to the environment by convection and radiation.
+disp("Taking the direction of heat transfer to be the positive r direction, the boundary condition on the outer surface can be expressed as")
+disp("-k(dT(r_out,t)/dr)=h[T(r_out)-T_ambient]+e*sigma[(T(r_out)^4)-(T_ambient^4)]") \ No newline at end of file