1 files changed, 18 insertions, 0 deletions
diff --git a/1309/CH3/EX3.1/ch3_1.sce b/1309/CH3/EX3.1/ch3_1.sce
new file mode 100755
index 000000000..17ef2388f
--- /dev/null
+++ b/1309/CH3/EX3.1/ch3_1.sce
@@ -0,0 +1,18 @@
+clc;
+clear;
+printf("\t\t\tChapter3_example1\n\n\n");
+// Determination of the heat-flow rate from one tube 
+// specifications of 1 standard type K from table F2
+OD=0.02858; // outer diameter in m
+// from figure 3.11
+M=8; // total number of heat-flow lanes
+N=6; // number of squares per lane
+S_L=M/N; // conduction shape factor
+printf("\nThe Conduction shape factor is %.3f",S_L);
+k=0.128; // thermal conductivity in W/(m.K) for concrete from appendix table B3
+T1=85; // temperature of tube surface
+T2=0; // temperature of ground beneath the slab
+q_half=k*S_L*(T1-T2);
+printf("\nThe heat flow per unit length from one half of one tube is %.1f W/m",q_half);
+q=2*q_half;
+printf("\nThe total heat flow per tube is %.1f W/m",q);