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

---
 686/CH3/EX3.4/Ex3_4.sci | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 686/CH3/EX3.4/Ex3_4.sci

(limited to '686/CH3/EX3.4')

diff --git a/686/CH3/EX3.4/Ex3_4.sci b/686/CH3/EX3.4/Ex3_4.sci
new file mode 100755
index 000000000..724522ec4
--- /dev/null
+++ b/686/CH3/EX3.4/Ex3_4.sci
@@ -0,0 +1,32 @@
+clc();
+clear;
+
+// To study the effect of adding fins to the cylindrical barrel of an air cooled engine
+
+l1= 3/12;                            // Length of fins in ft
+l2 = 4/12;                          
+h = 50;                             // Heat transfer coefficient in Btu/hr-ft-F
+k = 28;                             // Thermal conductivity in Btu/hr-ft-F
+T1 = 250;                           // Cylinder wall temperature in F
+T2 = 70;                            // Air temperature in F
+th = T1-T2;                         // Temperature difference
+b = 0.09/12;                        // Thickness of fins in ft
+m = 2*h/(b*k);                      // Characteristic parameter
+// Seeing the value of length and m, yhe bessel functions can be found out
+
+I2 = 188/7.26;                        // Magnitudes of bessel functions
+I0 = 41.0/5.45;
+I1 = 37.2/5.45;
+K2 = 0.0;
+K0 = 0.0022/5.45;
+K1 = 0.0024/5.45;
+
+q1 = 2*%pi*0.27*k*sqrt(m)*th*(I2*l2*m*K1*l1-K2*l2*m*I1*l1)/(144*(I2*l2*sqrt(m)*K0*l1*sqrt(m)+K2*l2*sqrt(m)*I0*l1*sqrt(m)));
+// Heat loss by finned surface
+q2 = 0.27/144*2*%pi*3*h*th;          // heat loss from barred surface
+
+printf("the heat loss from the cylindrical barrel in presence of fins is %d Btu/hr \n ",q1);
+printf("the heat loss from the bare cylindrical barrel is %d Btu/hr \n ",q2)
+
+
+                    
\ No newline at end of file
-- 
cgit