diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /534/CH3/EX3.9 | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '534/CH3/EX3.9')
| -rw-r--r-- | 534/CH3/EX3.9/3_9_Rod_Fin.sce | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/534/CH3/EX3.9/3_9_Rod_Fin.sce b/534/CH3/EX3.9/3_9_Rod_Fin.sce new file mode 100644 index 000000000..45d279305 --- /dev/null +++ b/534/CH3/EX3.9/3_9_Rod_Fin.sce @@ -0,0 +1,40 @@ +clear;
+clc;
+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 3.9 Page 145 \n'); //Example 3.9
+// Heat conduction through Rod
+
+kc = 398; //[W/m.K] From Table A.1, Copper at Temp 335K
+kal = 180; //[W/m.K] From Table A.1, Aluminium at Temp 335K
+kst = 14; //[W/m.K] From Table A.1, Stainless Steel at Temp 335K
+h = 100; //[W/m^2.K] Heat Convection Coeff of Air
+Tsurr = 25+273; //[K] Temperature of surrounding Air
+D = 5*10^-3; //[m] Dia of rod
+To = 100+273.15; //[K] Temp of opposite end of rod
+
+//For infintely long fin m = h*P/(k*A)
+mc = (4*h/(kc*D))^.5;
+mal = (4*h/(kal*D))^.5;
+mst = (4*h/(kst*D))^.5;
+x = linspace(0,.300,100);
+Tc = Tsurr + (To - Tsurr)*2.73^(-mc*x) - 273;
+Tal = Tsurr + (To - Tsurr)*2.73^(-mal*x) -273;
+Tst = Tsurr + (To - Tsurr)*2.73^(-mst*x) -273;
+clf();
+plot(x,Tc,x,Tal,x,Tst);
+xtitle("Temp vs Distance", "x (m)", "T (degC)");
+legend ("Cu", "2024 Al", "316 SS");
+
+//Using eqn 3.80
+qfc = (h*%pi*D*kc*%pi/4*D^2)^.5*(To-Tsurr);
+qfal = (h*%pi*D*kal*%pi/4*D^2)^.5*(To-Tsurr);
+qfst = (h*%pi*D*kst*%pi/4*D^2)^.5*(To-Tsurr);
+
+printf("\n\n (a) Heat rate \n For Copper = %.2f W \n For Aluminium = %.2f W \n For Stainless steel = %.2f W",qfc,qfal,qfst);
+
+//Using eqn 3.76 for satisfactory approx
+Linfc = 2.65/mc;
+Linfal = 2.65/mal;
+Linfst = 2.65/mst;
+
+printf("\n\n (a) Rods may be assumed to be infinite Long if it is greater than equal to \n For Copper = %.2f m \n For Aluminium = %.2f m \n For Stainless steel = %.2f m",Linfc,Linfal,Linfst);
+//END
\ No newline at end of file |