1 files changed, 19 insertions, 0 deletions
diff --git a/965/CH3/EX3.7/7.sci b/965/CH3/EX3.7/7.sci
new file mode 100644
index 000000000..2332ec997
--- /dev/null
+++ b/965/CH3/EX3.7/7.sci
@@ -0,0 +1,19 @@
+clc;
+clear all;
+disp("Heat loss calculations")
+k=1.05;// W/(m*C)
+ti=600;//degree C
+to=70;// degree C
+L=0.12;//m
+A=0.6*0.6;//m^2
+Sfcwall=A/L;
+
+D=0.6;//m
+Sfcedge=0.54*D;
+
+Sfccorner=0.15*L;
+Sfct=6*Sfcwall+12*Sfcedge+8*Sfccorner;
+
+Q=k*Sfct*(ti-to);
+
+disp("W",Q,"Heat loss through walls, Q =")