summaryrefslogtreecommitdiff
path: root/273/CH11
diff options
context:
space:
mode:
Diffstat (limited to '273/CH11')
-rwxr-xr-x273/CH11/EX11.1/ex11_1.sce14
-rwxr-xr-x273/CH11/EX11.2/ex11_2.sce17
-rwxr-xr-x273/CH11/EX11.3/ex11_3.sce17
3 files changed, 48 insertions, 0 deletions
diff --git a/273/CH11/EX11.1/ex11_1.sce b/273/CH11/EX11.1/ex11_1.sce
new file mode 100755
index 000000000..a424c890a
--- /dev/null
+++ b/273/CH11/EX11.1/ex11_1.sce
@@ -0,0 +1,14 @@
+clc;clear;
+//Example 11.1
+//calculation of total absorption and average absorption coefficient
+
+//given values
+
+V=20*15*5;//volume of hall in m^3
+t=3.5;//reverberation time of empty hall in sec
+
+
+//calculation
+a1=.161*V/t;//total absorption of empty hall
+k=a1/(2*(20*15+15*5+20*5));
+disp(k,'the average absorption coefficient is'); \ No newline at end of file
diff --git a/273/CH11/EX11.2/ex11_2.sce b/273/CH11/EX11.2/ex11_2.sce
new file mode 100755
index 000000000..8c8c4d11e
--- /dev/null
+++ b/273/CH11/EX11.2/ex11_2.sce
@@ -0,0 +1,17 @@
+clc;clear;
+//Example 11.2
+//calculation of average absorption coefficient
+
+//given values
+
+V=10*8*6;//volume of hall in m^3
+t=1.5;//reverberation time of empty hall in sec
+A=20;//area of curtain cloth in m^2
+t1=1;//new reverberation time in sec
+
+//calculation
+a1=.161*V/t;//total absorption of empty hall
+a2=.161*V/t1;//total absorption after a curtain cloth is suspended
+
+k=(a2-a1)/(2*20);
+disp(k,'the average absorption coefficient is');
diff --git a/273/CH11/EX11.3/ex11_3.sce b/273/CH11/EX11.3/ex11_3.sce
new file mode 100755
index 000000000..7f12d0f65
--- /dev/null
+++ b/273/CH11/EX11.3/ex11_3.sce
@@ -0,0 +1,17 @@
+clc;clear;
+//Example 11.3
+//calculation of average absorption coefficient and area
+
+//given values
+
+V=20*15*10;//volume of hall in m^3
+t=3.5;//reverberation time of empty hall in sec
+t1=2.5;//reduced reverberation time
+k2=.5;//absorption coefficient of curtain cloth
+//calculation
+a1=.161*V/t;//total absorption of empty hall
+k1=a1/(2*(20*15+15*10+20*10));
+disp(k1,'the average absorption coefficient is');
+a2=.161*V/t1;//total absorption when wall is covered with curtain
+a=t1*(a2-a1)/(t1*k2);
+disp(a,'area of wall to be covered with curtain(in m^2)is:') \ No newline at end of file