diff options
Diffstat (limited to '273/CH11')
-rwxr-xr-x | 273/CH11/EX11.1/ex11_1.sce | 14 | ||||
-rwxr-xr-x | 273/CH11/EX11.2/ex11_2.sce | 17 | ||||
-rwxr-xr-x | 273/CH11/EX11.3/ex11_3.sce | 17 |
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 |