1 files changed, 29 insertions, 0 deletions
diff --git a/534/CH3/EX3.10/3_10_Finned_Cylinder.sce b/534/CH3/EX3.10/3_10_Finned_Cylinder.sce
new file mode 100644
index 000000000..772e9dd20
--- /dev/null
+++ b/534/CH3/EX3.10/3_10_Finned_Cylinder.sce
@@ -0,0 +1,29 @@
+clear;
+clc;
+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 3.10   Page 156 \n'); //Example 3.10
+// Study of motorcycle finned cylinder
+
+H = .15;   //[m] height
+k = 186;    //[W/m.K] alumunium at 400K
+h = 50;      //[W/m^2.K] Heat convection coefficient
+Tsurr = 300;    //[K] Temperature of surrounding air
+To = 500;    //[K] Temp inside
+
+//Dimensions of Fin
+N = 5;
+t = .006;    //[m] Thickness
+L = .020;     //[m] Length
+r2c = .048;        //[m]
+r1 = .025;           //[m]
+
+Af = 2*%pi*(r2c^2-r1^2);
+At = N*Af + 2*%pi*r1*(H-N*t);
+
+//Using fig 3.19 
+nf = .95;
+
+qt = h*At*[1-N*Af*(1-nf)/At]*(To-Tsurr);
+qwo = h*(2*%pi*r1*H)*(To-Tsurr);
+
+printf("\n\n  Heat Transfer Rate with the fins =%i W \n  Heat Transfer Rate without the fins =%i W \n Thus Increase in Heat transfer rate of %i W is observed with fins",qt,qwo,qt-qwo);
+//END
+\ No newline at end of file