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

---
 1073/CH2/EX2.31/2_31.sce | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 1073/CH2/EX2.31/2_31.sce

(limited to '1073/CH2/EX2.31/2_31.sce')

diff --git a/1073/CH2/EX2.31/2_31.sce b/1073/CH2/EX2.31/2_31.sce
new file mode 100755
index 000000000..0545e0ac5
--- /dev/null
+++ b/1073/CH2/EX2.31/2_31.sce
@@ -0,0 +1,24 @@
+
+clear;
+clc;
+//Example 2.31
+//Calculate:(a) Heat loss per unit length  
+//(b)Reduction in heat loss
+//Given
+hi=10    //W/sq m.K
+h0=hi    //W/sq.m.K
+r1=0.09    //m
+r2=0.12    //m
+t=0.05    //thickness of insulation [m]
+k1=40    //W/m.K
+k2=0.05    //W/m.K
+T1=473    //K
+T2=373    //K
+Q_by_L=2*%pi*(T1-T2)/(1/(r1*hi)+log(r2/r1)/k1+1/(r2*h0));    //W/m
+printf("Ans (a) Heat loss=%f W/m ",Q_by_L)
+//After addition of insulation:
+r3=r2+t;    //radius of outer surface of insulaiton
+Q_by_L1=2*%pi*(T1-T2)/(1/(r1*hi)+log(r2/r2)/k1+log(r3/r2)/k2+1/(r3*h0));    // W
+Red=Q_by_L-Q_by_L1    //Reduciton in heat loss in [W/m]
+percent_red=(Red/Q_by_L)*100    //% Reduction in heat loss
+printf("Ans (b) Percent reduction in heat loss is %f percent",percent_red)
-- 
cgit