1 files changed, 15 insertions, 0 deletions
diff --git a/1309/CH3/EX3.2/ch3_2.sce b/1309/CH3/EX3.2/ch3_2.sce
new file mode 100755
index 000000000..dfa8e4e81
--- /dev/null
+++ b/1309/CH3/EX3.2/ch3_2.sce
@@ -0,0 +1,15 @@
+clc;
+clear;
+printf("\t\t\tChapter3_example2\n\n\n");
+//  Determination of the heat transferred from the buried pipe per unit length
+// shape factor number 8 is selected from table 3.1
+// specifications of 10 nominal, schedule 80 pipe from table F1
+OD=10.74/12; // diameter in ft
+R=OD/2;
+T1=140;
+T2=65;
+k=0.072; // thermal conductivity in BTU/(hr-ft. degree R)
+d=18/12; // distance from centre-line
+S_L=(2*%pi)/(acosh(d/R));
+q_L=k*S_L*(T1-T2);
+printf("\nThe heat transferred from the buried pipe per unit length is %.1f BTU/(hr.ft)",q_L);