1 files changed, 14 insertions, 0 deletions
diff --git a/686/CH14/EX14.1/Ex14_1.sci b/686/CH14/EX14.1/Ex14_1.sci
new file mode 100755
index 000000000..870c1eea2
--- /dev/null
+++ b/686/CH14/EX14.1/Ex14_1.sci
@@ -0,0 +1,14 @@
+clc();
+clear;
+ 
+ // To calculate the heat exchange by radiation between two walls 
+ 
+ t1 = 212;                      // Temperature of contents in the bottle in F
+ t2 = 68;                       // Ambient temperature in F
+ 
+ e = 0.02 ;                     // Emmisivity of silver
+ e12 = 1/(2/e-1);               // Exchange factor
+  s = 0.173*10^-8;              // Stephens boltzmanns constant
+  
+ q = s*e12*((t1+460)^4-(t2+460)^4);    // Heat loss in Btu/hr
+ printf("The heat flow per unit area of the inner wall is %.2f Btu/hr-ft^2",q);
+\ No newline at end of file