1 files changed, 18 insertions, 0 deletions
diff --git a/587/CH13/EX13.1/example13_1.sce b/587/CH13/EX13.1/example13_1.sce
new file mode 100755
index 000000000..23dc9c93b
--- /dev/null
+++ b/587/CH13/EX13.1/example13_1.sce
@@ -0,0 +1,18 @@
+clear;
+clc;
+
+//Example13.1[View Factors Associated with two Concentric Spheres]
+//Solution:-
+//The outer surface of the smaller sphere and inner surface of the larger sphere form a two surface enclosure
+N=2;
+disp("View Factors",N^2,"This enclosure involves ")
+x=(1/2)*N*(N-1);
+disp("view factor directly",x,"W need to determine only")
+F11=0;
+F12=1;
+disp("The Two view Factors")
+disp(F11,"Since no radiation leaving surface 1 strikes itself..... F11=")
+disp(F12,"Since all radiation leaving surface 1 strikes surface 2    F12=")
+disp("F12= ((r1/r2)^2)")
+disp("F22= 1-((r1/r2)^2)")
+disp("where r1 and r2 are radius of surface 1 and surface 2")
+\ No newline at end of file