summaryrefslogtreecommitdiff
path: root/3020/CH4
diff options
context:
space:
mode:
Diffstat (limited to '3020/CH4')
-rwxr-xr-x3020/CH4/EX4.1/ex4_1.sce6
-rwxr-xr-x3020/CH4/EX4.10/ex4_10.sce8
-rwxr-xr-x3020/CH4/EX4.11/ex4_11.sce14
-rwxr-xr-x3020/CH4/EX4.12/ex4_12.sce10
-rwxr-xr-x3020/CH4/EX4.13/ex4_13.sce8
-rwxr-xr-x3020/CH4/EX4.2/ex4_2.sce6
-rwxr-xr-x3020/CH4/EX4.3/ex4_3.sce6
-rwxr-xr-x3020/CH4/EX4.4/ex4_4.sce9
-rwxr-xr-x3020/CH4/EX4.5/ex4_5.sce11
-rwxr-xr-x3020/CH4/EX4.6/ex4_6.sce6
-rwxr-xr-x3020/CH4/EX4.7/ex4_7.sce9
-rwxr-xr-x3020/CH4/EX4.8/ex4_8.sce6
-rwxr-xr-x3020/CH4/EX4.9/ex4_9.sce10
13 files changed, 109 insertions, 0 deletions
diff --git a/3020/CH4/EX4.1/ex4_1.sce b/3020/CH4/EX4.1/ex4_1.sce
new file mode 100755
index 000000000..2619b6a6f
--- /dev/null
+++ b/3020/CH4/EX4.1/ex4_1.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+I1 = 0.1;// Intensity of sound produced in Watts per square meters
+I0 = 1e-12; // standard intensity level
+b = 10*log10(I1/I0);//The sound intensity produced by thunder
+disp('dB',b,'The sound intensity produced by thunder is')
diff --git a/3020/CH4/EX4.10/ex4_10.sce b/3020/CH4/EX4.10/ex4_10.sce
new file mode 100755
index 000000000..83f86efc0
--- /dev/null
+++ b/3020/CH4/EX4.10/ex4_10.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+V = 12000; // Volume of the room in cubic meters
+T = 1.5; // Reverberation time in seconds
+a = 0.4; // Absorption coefficient of interior surface in sabine per square meter
+s = (0.163*V)/(a*T);//The total surface area
+disp('m^2',s,'The total surface area is')
+// Wrong answer printed in textbook..checked in calculator also..
diff --git a/3020/CH4/EX4.11/ex4_11.sce b/3020/CH4/EX4.11/ex4_11.sce
new file mode 100755
index 000000000..0e5a7c247
--- /dev/null
+++ b/3020/CH4/EX4.11/ex4_11.sce
@@ -0,0 +1,14 @@
+clc;
+clear all;
+V = 1500; // Volume of the room in cubic meters
+a1 = 0.8; // Absorption coefficient of ceiling in sabine per square meter
+s1 = 140; // Area of ceiling in square meters
+a2 = 0.03; // Absorption coefficient of walls in sabine per square meter
+s2 = 260; // Area of walls in square meters
+a3 = 0.06; // Absorption coefficient of floor in sabine per square meter
+s3 = 140; // Area of floor in square meters
+T = (0.163*V)/((a1*s1)+(a2*s2)+(a3*s3));
+a = (0.163*V)/((s1+s2+s3)*T);
+disp('s',T,'The reverberation time is')
+disp('Sabine',a,'The average absorption coefficent is')
+// Wrong answer printed for reverberation time in textbook..checked in calculator also..
diff --git a/3020/CH4/EX4.12/ex4_12.sce b/3020/CH4/EX4.12/ex4_12.sce
new file mode 100755
index 000000000..e35efed82
--- /dev/null
+++ b/3020/CH4/EX4.12/ex4_12.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+s = 1.4; // Area of window in square meters
+b = 60; // Intensity level of window in Db
+I0 = 1e-12; // Standard intensity in watts per square meters
+//60=10log10(I1/1e-12);
+//so..
+I1=I0*1e6;// Intensity of sound in watts per square meters
+p = I1*s;//The acoustic power entering via window
+disp('watts',p,'The acoustic power entering via window is')
diff --git a/3020/CH4/EX4.13/ex4_13.sce b/3020/CH4/EX4.13/ex4_13.sce
new file mode 100755
index 000000000..71995397a
--- /dev/null
+++ b/3020/CH4/EX4.13/ex4_13.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+V = 1000; // Volume of hall in cubic meter
+s = 400; // Surface area of hall in square meters
+a = 0.2; // Average absorption coefficient of hall in sabine
+T = (0.163*V)/(a*s);//'Reverberation time of hall
+disp('s',T,'Reverberation time of hall is')
+// there is slight variation in the answer.. there is mistake in the book.. checked in calculator also..
diff --git a/3020/CH4/EX4.2/ex4_2.sce b/3020/CH4/EX4.2/ex4_2.sce
new file mode 100755
index 000000000..21660e933
--- /dev/null
+++ b/3020/CH4/EX4.2/ex4_2.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+I1 = 100;// Intensity of sound produced by turbine in Watts per square meters
+I0 = 1e-12; // standard intensity
+b = 10*log10(I1/I0);//The relative intensity of a turbine
+disp('dB',b,'The relative intensity of a turbine is')
diff --git a/3020/CH4/EX4.3/ex4_3.sce b/3020/CH4/EX4.3/ex4_3.sce
new file mode 100755
index 000000000..eee93b590
--- /dev/null
+++ b/3020/CH4/EX4.3/ex4_3.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+Ir = 2; // Intensity ratio
+b = 10*log10(Ir); // Relative intensity
+disp('dB',b,'The increase in sound intensity level is')
+
diff --git a/3020/CH4/EX4.4/ex4_4.sce b/3020/CH4/EX4.4/ex4_4.sce
new file mode 100755
index 000000000..251370840
--- /dev/null
+++ b/3020/CH4/EX4.4/ex4_4.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+Q = 1.5; // Power radiated by louspeaker in Joule per second
+r = 20; // Radius in meters
+I0 = 1e-12; // Standard intensity level in Watts per square meters
+I2 = (Q/(4*%pi*r^2)); // Intensity of the sound produced ny loudspeaker
+b = 10*log10(I2/I0);//The intensity level of sound produced by loudspeaker
+disp('dB',b,'The intensity level of sound produced by loudspeaker is ')
+
diff --git a/3020/CH4/EX4.5/ex4_5.sce b/3020/CH4/EX4.5/ex4_5.sce
new file mode 100755
index 000000000..69c873ef9
--- /dev/null
+++ b/3020/CH4/EX4.5/ex4_5.sce
@@ -0,0 +1,11 @@
+clc;
+clear all;
+I0 = 1e-12; // Standard intensity Watts per square meter\
+//PART1
+I1 = (10e-12)*(10^8)// Intensity of sound produced by the electric generator in Watts per square meter
+disp('W/m^2',I1,'Intensity of sound generated by electric motor is')
+b1 = 80;// Intensity level of sound produced by the electric generator in dB
+b2 = 70; // Intensity level of room
+I2 = 1e-5; // Intensity of sound of existing room Watts per square meter
+b = (10*log10((I1+I2)/I0))-10;;
+disp('dB',b,'The resultant intensity level of sound is ')
diff --git a/3020/CH4/EX4.6/ex4_6.sce b/3020/CH4/EX4.6/ex4_6.sce
new file mode 100755
index 000000000..619a87783
--- /dev/null
+++ b/3020/CH4/EX4.6/ex4_6.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+V = 1500; // Volume of the hall in cubic meters
+A1 = 80; // Absorption of the sound by the hall in sabine
+rt = (0.163*V)/(A1);//The reverberation time of the hall
+disp('s',rt,'The reverberation time of the hall is')
diff --git a/3020/CH4/EX4.7/ex4_7.sce b/3020/CH4/EX4.7/ex4_7.sce
new file mode 100755
index 000000000..3308c6bbc
--- /dev/null
+++ b/3020/CH4/EX4.7/ex4_7.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+V = 120000; // Volume of hall in cubic meters
+T = 1.5; // Reverberation time
+TSA = 25000; // Total absorbing surface area in square meters
+A = (0.163*V)/T
+TA = A/TSA;//The average absorbing power of the surface
+disp('Sabine',TA,'The average absorbing power of the surface is ')
+// Slight variation in answer compared to textbook.. there is mistake in book.. checked in calculator also..
diff --git a/3020/CH4/EX4.8/ex4_8.sce b/3020/CH4/EX4.8/ex4_8.sce
new file mode 100755
index 000000000..20e95a700
--- /dev/null
+++ b/3020/CH4/EX4.8/ex4_8.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+I2 = 100; // The sound intensity in watts per square meters
+I0 = 1e-12; // Standard intensity in watts per square meters
+b = 10*log10(I2/I0);//The sound intensity level of a jet plane
+disp('dB',b,'The sound intensity level of a jet plane is')
diff --git a/3020/CH4/EX4.9/ex4_9.sce b/3020/CH4/EX4.9/ex4_9.sce
new file mode 100755
index 000000000..72aa5188f
--- /dev/null
+++ b/3020/CH4/EX4.9/ex4_9.sce
@@ -0,0 +1,10 @@
+
+clc;
+clear all;
+V = 12550; // Volume of hall in cubic meters
+T1 = 1.5 ; // Reverberation time in seconds
+A2 = 200; // Absorption coefficent of cushioned chair in sabine
+A1 = (0.163*V)/T1;
+T2= (0.163*V)/(A1+A2);
+disp('s',T2,'The new reverberation time of hall after adding cushioned chair is')
+//Slight variation in answer than textbook..there is mistake in book.. checked in calculator also..
generated by cgit (git 2.34.1) at 2024-12-20 09:42:09 +0000