diff options
author | priyanka | 2015-06-24 15:03:17 +0530 |
---|---|---|
committer | priyanka | 2015-06-24 15:03:17 +0530 |
commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
tree | ab291cffc65280e58ac82470ba63fbcca7805165 /587/CH2/EX2.9 | |
download | Scilab-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-x | 587/CH2/EX2.9/example2_9.sce | 21 |
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 |