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

---
 2762/CH4/EX4.3.2/4_3_2.sce | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 2762/CH4/EX4.3.2/4_3_2.sce

(limited to '2762/CH4/EX4.3.2/4_3_2.sce')

diff --git a/2762/CH4/EX4.3.2/4_3_2.sce b/2762/CH4/EX4.3.2/4_3_2.sce
new file mode 100755
index 000000000..897e92923
--- /dev/null
+++ b/2762/CH4/EX4.3.2/4_3_2.sce
@@ -0,0 +1,25 @@
+//Transport Processes and Seperation Process Principles
+//Chapter 4
+//Example 4.3-2
+//Principles of Steady State Heat Transfer
+//given data
+//si units
+//nomenclature of unmentioned specifications similar to previous example
+ka=21.63;
+kb=0.2423;
+T1=811;
+T3=310.8;
+r1=0.0254/2;
+r2=0.0508/2;
+r3=0.0508;
+L=0.305;
+A1=2*3.14*L*r1;//area of inner surface of cylinder
+A2=2*3.14*L*r2;
+A3=2*3.14*L*r3;
+A1m=(A2-A1)/(log(A2/A1)/log(2.71828183));//log mean of inner surface area and outer surface area
+A2m=(A3-A2)/(log(A3/A2)/log(2.71828183))
+Ra=(r2-r1)/(ka*A1m);
+Rb=(r3-r2)/(kb*A2m);
+q=(T1-T3)/(Ra+Rb);
+T2=T1-(q*Ra);
+mprintf("the intermediate wall temp is %f K",T2)
-- 
cgit