From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1985/CH7/EX7.1/Chapter7_Example1.sce   | 10 ++++++++++
 1985/CH7/EX7.10/Chapter7_Example10.sce | 10 ++++++++++
 1985/CH7/EX7.2/Chapter7_Example2.sce   | 10 ++++++++++
 1985/CH7/EX7.3/Chapter7_Example3.sce   | 10 ++++++++++
 1985/CH7/EX7.4/Chapter7_Example4.sce   | 15 +++++++++++++++
 1985/CH7/EX7.5/Chapter7_Example5.sce   | 12 ++++++++++++
 1985/CH7/EX7.6/Chapter7_Example6.sce   | 15 +++++++++++++++
 1985/CH7/EX7.7/Chapter7_Example7.sce   | 15 +++++++++++++++
 1985/CH7/EX7.8/Chapter7_Example8.sce   | 12 ++++++++++++
 1985/CH7/EX7.9/Chapter7_Example9.sce   | 16 ++++++++++++++++
 10 files changed, 125 insertions(+)
 create mode 100755 1985/CH7/EX7.1/Chapter7_Example1.sce
 create mode 100755 1985/CH7/EX7.10/Chapter7_Example10.sce
 create mode 100755 1985/CH7/EX7.2/Chapter7_Example2.sce
 create mode 100755 1985/CH7/EX7.3/Chapter7_Example3.sce
 create mode 100755 1985/CH7/EX7.4/Chapter7_Example4.sce
 create mode 100755 1985/CH7/EX7.5/Chapter7_Example5.sce
 create mode 100755 1985/CH7/EX7.6/Chapter7_Example6.sce
 create mode 100755 1985/CH7/EX7.7/Chapter7_Example7.sce
 create mode 100755 1985/CH7/EX7.8/Chapter7_Example8.sce
 create mode 100755 1985/CH7/EX7.9/Chapter7_Example9.sce

(limited to '1985/CH7')

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)
-- 
cgit