1 files changed, 19 insertions, 0 deletions
diff --git a/1309/CH3/EX3.4/ch3_4.sce b/1309/CH3/EX3.4/ch3_4.sce
new file mode 100755
index 000000000..6bbd6f5af
--- /dev/null
+++ b/1309/CH3/EX3.4/ch3_4.sce
@@ -0,0 +1,19 @@
+clc;
+clear;
+printf("\t\t\tChapter3_example4\n\n\n");
+// Determination of the conduction shape factor for the underground portion of the configuration
+// specifications of  4 nominal, schedule 40 pipe from table F1
+OD=4.5/12; // diameter in ft
+R=OD/2;
+// For pipe A
+L_A=4.5; // length in ft
+// shape factor number 9 is selected from table 3.1
+S_A=(2*%pi*L_A)/(log(2*(L_A)/R));
+printf("\nThe Shape Factor of pipe A is %.1f",S_A);
+// For pipe B
+L_B=18; // length in ft
+// shape factor number 9 is selected from table 3.1
+S_B=(2*%pi*L_B)/(acosh(L_A/R));
+printf("\nThe Shape Factor of pipe B is %.1f",S_B);
+S=2*S_A+S_B;
+printf("\nThe total conduction shape factor for the system is %.1f",S);