1 files changed, 29 insertions, 0 deletions
diff --git a/1244/CH9/EX9.9/Example99.sce b/1244/CH9/EX9.9/Example99.sce
new file mode 100755
index 000000000..cf29f26d8
--- /dev/null
+++ b/1244/CH9/EX9.9/Example99.sce
@@ -0,0 +1,29 @@
+
+// Display mode
+mode(0);
+
+// Display warning for floating point exception
+ieee(1);
+
+clc;
+disp("Principles of Heat transfer, Seventh Edition, Frank Kreith, Raj M Manglik and Mark S Bohn, Chapter 9, Example 9")
+//Window arrangement consists of a long opening with dimensions
+//Height in meters
+h=1;
+//Length in meters
+l=5;
+//width of table in meters
+w=2;
+//Assuming that window and table are sufficiently long and applying crossed string method, we get
+//Distance ab in m
+ab=0;
+//Distance cb in m
+cb=w;
+//Distance ad in m
+ad=h;
+//Distance cd in m
+cd=sqrt(l);
+
+disp("Shape factor between the window and the table")
+//Shape factor between the window and the table
+F_12=0.5*(ad+cb-cd)