1 files changed, 24 insertions, 0 deletions
diff --git a/534/CH13/EX13.2/13_2_View_Factor_Geometries.sce b/534/CH13/EX13.2/13_2_View_Factor_Geometries.sce
new file mode 100644
index 000000000..dcc25225a
--- /dev/null
+++ b/534/CH13/EX13.2/13_2_View_Factor_Geometries.sce
@@ -0,0 +1,24 @@
+clear;
+clc;
+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 13.2   Page 821 \n')// Example 13.2
+
+// View Factors of known surface Geometries
+
+// (1) Sphere within Cube
+F12a = 1                    ;//By Inspection
+F21a = (%pi/6)*F12a         ; //By Reciprocity
+
+// (2) Partition within a Square Duct
+F11b = 0                    ;//By Inspection
+//By Symmetry F12 = F13
+F12b = (1-F11b)/2      ;      //By Summation Rule
+F21b = sqrt(2)*F12b     ;     //By Reciprocity
+
+// (3) Circular Tube
+//From Table 13.2 or 13.5, with r3/L = 0.5 and L/r1 = 2
+F13c = .172;
+F11c = 0;                    //By Inspection
+F12c = 1 - F11c - F13c      ;//By Summation Rule
+F21c = F12c/4               ;//By Reciprocity
+
+printf('\n Desired View Factors may be obtained from inspection, the reciprocity rule, the summation rule and/or use of charts \n (1) Sphere within Cube F21 = %.3f \n (2) Partition within a Square Duct F21 = %.3f \n (3) Circular Tube F21 = %.3f',F21a,F21b,F21c);
+\ No newline at end of file