summaryrefslogtreecommitdiff
path: root/1271/CH8/EX8.8/example8_8.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1271/CH8/EX8.8/example8_8.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1271/CH8/EX8.8/example8_8.sce')
-rwxr-xr-x1271/CH8/EX8.8/example8_8.sce19
1 files changed, 19 insertions, 0 deletions
diff --git a/1271/CH8/EX8.8/example8_8.sce b/1271/CH8/EX8.8/example8_8.sce
new file mode 100755
index 000000000..90f404cc4
--- /dev/null
+++ b/1271/CH8/EX8.8/example8_8.sce
@@ -0,0 +1,19 @@
+clc
+// Given that
+V = 980 // volume in meter^3
+a1 = 150 // area of wall in m^2
+a2 = 95 // area of ceiling in m^2
+a3 = 90 // area of floor in m^2
+k1 = 0.03 // coefficient of absorption for wall in O.W.U.
+k2 = 0.80 // coefficient of absorption for ceiling in O.W.U.
+k3 = 0.06 // coefficient of absorption for floor in O.W.U.
+// Sample Problem 8 on page no. 8.21
+printf("\n # PROBLEM 8 # \n")
+printf(" Standard formula used \n")
+printf(" T = 0.161 V/a*S \n" )
+A1 = a1 * k1
+A2 = a2 * k2
+A3 = a3 * k3
+A = A1 + A2 + A3
+T = 0.161 * (V / A)
+printf("\n Reverberation time = %f sec",T)