1 files changed, 9 insertions, 0 deletions
diff --git a/1535/CH18/EX18.4/Ch18Ex4.sci b/1535/CH18/EX18.4/Ch18Ex4.sci
new file mode 100755
index 000000000..42c5bf8ce
--- /dev/null
+++ b/1535/CH18/EX18.4/Ch18Ex4.sci
@@ -0,0 +1,9 @@
+// Scilab Code Ex18.4: Average absorption coefficient of the surfaces of the hall: Page-362 (2010)
+V = 25*20*8;      // Volume of the hall, metre cube
+S = 2*(25*20+25*8+20*8);    // Total surface area of the hall, metre square
+T = 4;    // Reverbration time of the hall, s
+alpha = 0.167*V/(T*S);    // Sabine Formule giving total absorption in the hall, OWU
+printf("\nThe total absorption in the hall = %5.3f OWU per metre square", alpha);
+
+// Result
+// The total absorption in the hall = 0.097 OWU per metre square
+\ No newline at end of file