initial commit / add all books

10 files changed, 125 insertions, 0 deletions

diff --git a/1985/CH7/EX7.1/Chapter7_Example1.sce b/1985/CH7/EX7.1/Chapter7_Example1.sce
new file mode 100755
index 000000000..7eed6ce27
--- /dev/null
+++ b/1985/CH7/EX7.1/Chapter7_Example1.sce
@@ -0,0 +1,10 @@
+clc

+clear

+//Input data

+I=0.1//Intensity of sound produced by thunder in W/m^2

+

+//Calculations

+b=10*log10(I/10^-12)//Relative intensity in dB

+

+//Output

+printf('The intensity level is %3.0f dB',b)

diff --git a/1985/CH7/EX7.10/Chapter7_Example10.sce b/1985/CH7/EX7.10/Chapter7_Example10.sce
new file mode 100755
index 000000000..ed404c86e
--- /dev/null
+++ b/1985/CH7/EX7.10/Chapter7_Example10.sce
@@ -0,0 +1,10 @@
+clc

+clear

+//Input data

+I2=100//Sound intensity in W/m^2

+

+//Calculations

+b=10*log10(I2/10^-12)//Relative intensity in dB

+

+//Output

+printf('The intensity level of the jet plane is %3.0f dB',b)

diff --git a/1985/CH7/EX7.2/Chapter7_Example2.sce b/1985/CH7/EX7.2/Chapter7_Example2.sce
new file mode 100755
index 000000000..26b8a54f6
--- /dev/null
+++ b/1985/CH7/EX7.2/Chapter7_Example2.sce
@@ -0,0 +1,10 @@
+clc

+clear

+//Input data

+I=(10^-4)//Intensity of sound in the street in W/m^2

+

+//Calculations

+b=10*log10(I/10^-12)//Relative intensity in dB

+

+//Output

+printf('The relative sound intensity is %3.0f dB',b)

diff --git a/1985/CH7/EX7.3/Chapter7_Example3.sce b/1985/CH7/EX7.3/Chapter7_Example3.sce
new file mode 100755
index 000000000..c5fcb95a8
--- /dev/null
+++ b/1985/CH7/EX7.3/Chapter7_Example3.sce
@@ -0,0 +1,10 @@
+clc

+clear

+//Input data

+I=2//Sound intensity is doubled or Intensity ratio

+

+//Calculations

+b=10*log10(I)//Relative intensity in dB

+

+//Output

+printf('Increase in the acoustic intensity level is %3.2f dB',b)

diff --git a/1985/CH7/EX7.4/Chapter7_Example4.sce b/1985/CH7/EX7.4/Chapter7_Example4.sce
new file mode 100755
index 000000000..1919bd29d
--- /dev/null
+++ b/1985/CH7/EX7.4/Chapter7_Example4.sce
@@ -0,0 +1,15 @@
+clc

+clear

+//Input data

+P=3.14//Power radiated in W

+r=10//Distance (radius) in m

+I=[100,1,10^-12]//Reference intensities in W/m^2

+

+//Calculations

+Is=P/(4*3.14*r^2)//Intensity of sound in W/m^2

+b1=10*log10(Is/I(1))//Relative intensity in dB

+b2=10*log10(Is/I(2))//Relative intensity in dB

+b3=10*log10(Is/I(3))//Relative intensity in dB

+

+//Output

+printf('The intensity level of a sound with reference to \n (i) %i W/m^2 = %3.4f dB \n (ii) %i W/m^2 = %3.4f dB \n (iii) 10^-12 W/m^2 = %3.3f dB',I(1),b1,I(2),b2,b3)

diff --git a/1985/CH7/EX7.5/Chapter7_Example5.sce b/1985/CH7/EX7.5/Chapter7_Example5.sce
new file mode 100755
index 000000000..e3583ec13
--- /dev/null
+++ b/1985/CH7/EX7.5/Chapter7_Example5.sce
@@ -0,0 +1,12 @@
+clc

+clear

+//Input data

+P=1.5//The acoustic power produced by the loudspeaker in J/s

+r=20//Distance in m

+

+//Calculations

+I=(P/(4*3.14*r^2))//Intensity of the sound produced by the loudspeaker in W/m^2

+b=10*log10(I/10^-12)//Intensity level in dB

+

+//Output

+printf('The intensity level at a distance of %i m is %3.1f dB',r,b)

diff --git a/1985/CH7/EX7.6/Chapter7_Example6.sce b/1985/CH7/EX7.6/Chapter7_Example6.sce
new file mode 100755
index 000000000..96ec9f51a
--- /dev/null
+++ b/1985/CH7/EX7.6/Chapter7_Example6.sce
@@ -0,0 +1,15 @@
+clc

+clear

+//Input data

+b1=80//Intensity levelof the sound produced by the electric generator in dB

+b2=70//Intensity level of the room in dB

+

+//Calculations

+I2=10^(b1/10)*10^-12//Intensity of the sound produced by the electric generator in W/m^2

+I4=10^(b2/10)*10^-12//Intensity of the sound existing in the room in W/m^2

+I=I2+I4//Total sound intensity when the generator is operating in W/m^2

+b=10*log10(I/10^-12)//Relative intensity in dB

+

+//Output

+printf('The resultant intensity level of the sound is %3.3f dB',b)

+

diff --git a/1985/CH7/EX7.7/Chapter7_Example7.sce b/1985/CH7/EX7.7/Chapter7_Example7.sce
new file mode 100755
index 000000000..93ea60a61
--- /dev/null
+++ b/1985/CH7/EX7.7/Chapter7_Example7.sce
@@ -0,0 +1,15 @@
+clc

+clear

+//Input data

+v=1500//Volume of hall in m^3

+A1=100//Absorption of the sound by the hall in m^2 O.W.U or sabines

+A2=100//Absorption of the sound by the audience in m^2 O.W.U or sabines

+

+//Calculations

+A=A1+A2//Total absorption of sound in sabines

+t1=(0.16*v)/A1//Reverberation time of the hall when the room is empty in s

+t2=(0.16*v)/A//Reverberation time of the hall when the room is filled with audience in s

+t=t1-t2//Change in reverberation time in s

+

+//Output

+printf('When the hall is filled with audience, the reverberation time is reduced to %3.1f s',t)

diff --git a/1985/CH7/EX7.8/Chapter7_Example8.sce b/1985/CH7/EX7.8/Chapter7_Example8.sce
new file mode 100755
index 000000000..4a96182a0
--- /dev/null
+++ b/1985/CH7/EX7.8/Chapter7_Example8.sce
@@ -0,0 +1,12 @@
+clc

+clear

+//Input data

+v=1000//Volume of the hall in m^3

+T=2//Reverberation time in s

+s=350//Area of the sound absorbing surface in m^2

+

+//Calculations

+a=(0.16*v)/(T*s)//The average absorption coefficient 

+

+//Output

+printf('The average absorption coefficient of the room is %3.4f',a)

diff --git a/1985/CH7/EX7.9/Chapter7_Example9.sce b/1985/CH7/EX7.9/Chapter7_Example9.sce
new file mode 100755
index 000000000..05e944fa1
--- /dev/null
+++ b/1985/CH7/EX7.9/Chapter7_Example9.sce
@@ -0,0 +1,16 @@
+clc

+clear

+//Input data

+v=2400//Volume of the hall in m^3

+s=600//Seating capacity of the hall

+a=[500,600,500,20,400,200]//Area or number for plaster ceiling, plaster walls, wood floor, wood doors, seats cushion, seats cane in m^2 for arae

+c=[0.02,0.03,0.06,0.06,0.01,0.01]//Coefficient of absorption for plaster ceiling, plaster walls, wood floor, wood doors, seats cushion, seats cane sabine/ chair

+am=0.45//Absorption of each member of the audience in sabine

+//Calculations

+T1=a(1)*c(1)+a(2)*c(2)+a(3)*c(3)+a(4)*c(4)+a(5)*c(5)+a(6)*c(6)//Total absorption when the hall is empty in sabine

+t1=(0.16*v)/T1//Reverberation time in s

+T2=a(1)*c(1)+a(2)*c(2)+a(3)*c(3)+a(4)*c(4)+a(5)*am+a(6)*am//Total absorption when the hall is occupied with audience 

+t2=(0.16*v)/T2//Reverberation time in s

+

+//Output

+printf('The reverberation time of the hall \n (i) when it is empty = %3.3f s \n (ii) when filled with audience = %3.2f s',t1,t2)