initial commit / add all books

18 files changed, 166 insertions, 0 deletions

diff --git a/1271/CH8/EX8.1/1.txt b/1271/CH8/EX8.1/1.txt
new file mode 100755
index 000000000..09111cc75
--- /dev/null
+++ b/1271/CH8/EX8.1/1.txt
@@ -0,0 +1 @@
+Wavelength range of the sound wave is 1.725000 cm to 1725.000000 cm.
\ No newline at end of file
diff --git a/1271/CH8/EX8.1/example8_1.sce b/1271/CH8/EX8.1/example8_1.sce
new file mode 100755
index 000000000..f530dc27a
--- /dev/null
+++ b/1271/CH8/EX8.1/example8_1.sce
@@ -0,0 +1,12 @@
+clc 
+// Given that
+v = 34500 // speed of sound in cm/sec
+f = 20 // lower limit of frequency for human hearing ear in Hz
+f_ = 20000 // upper limit of frequency for human hearing ear in Hz
+// Sample Problem 1 on page no. 8.17
+printf("\n # PROBLEM 1 # \n")
+printf(" Standard formula used \n")
+printf(" V = f*lambda \n \n" )
+lambda = v / f
+lambda_ = v / f_
+printf("\n Wavelength range of the sound wave is %f cm to %f cm.",lambda_,lambda)
diff --git a/1271/CH8/EX8.2/2.txt b/1271/CH8/EX8.2/2.txt
new file mode 100755
index 000000000..b53ff15d8
--- /dev/null
+++ b/1271/CH8/EX8.2/2.txt
@@ -0,0 +1 @@
+ Velocity of sound in the air in 38839.119986 cm/sec.
\ No newline at end of file
diff --git a/1271/CH8/EX8.2/example8_2.sce b/1271/CH8/EX8.2/example8_2.sce
new file mode 100755
index 000000000..3c91cb151
--- /dev/null
+++ b/1271/CH8/EX8.2/example8_2.sce
@@ -0,0 +1,17 @@
+clc 
+// Given that
+T = 373 // temperature in kelvin
+d = 1.293e-3 // density of air at S.T.P. in gm/cm^3
+d_ = 13.6 // density of mercury in gm/cm^3
+s = 0.2417 // specific heat of air at constant pressure 
+s_ = 0.1715 // specific heat of air at constant volume
+g = 980 // gravitational constant i dynes/cm^3
+// Sample Problem 2 on page no. 8.18
+printf("\n # PROBLEM 2 # \n")
+printf(" Standard formula used \n")
+printf(" nu = (gamma*p/rho)^1/2  \n gamma = C_p/C_v \n p =rho*g*h \n" )
+p = 76 * d_ * g
+gama = s / s_
+v = sqrt(gama * (p / d))
+v_ = v * sqrt(T / 273)
+printf("\n Velocity of sound in the air in %f cm/sec.",v_)
diff --git a/1271/CH8/EX8.3/3.txt b/1271/CH8/EX8.3/3.txt
new file mode 100755
index 000000000..0524a9501
--- /dev/null
+++ b/1271/CH8/EX8.3/3.txt
@@ -0,0 +1 @@
+Ratio of  two principal specific heats of air is 1.393054
\ No newline at end of file
diff --git a/1271/CH8/EX8.3/example8_3.sce b/1271/CH8/EX8.3/example8_3.sce
new file mode 100755
index 000000000..8c4c5da02
--- /dev/null
+++ b/1271/CH8/EX8.3/example8_3.sce
@@ -0,0 +1,18 @@
+clc 
+// Given that
+n = 512 // frequency of tuning fork in Hz 
+T = 290 // temperature in kelvin
+lambda = 66.5 // wavelength of the gas emitted by tuning fork in cm
+d = 1.293e-3 // density of air at S.T.P. in gm/cm^3
+d_ = 13.6 // density of mercury in gm/cm^3
+g = 980 // gravitational constant i dynes/cm^3
+// Sample Problem 3 on page no. 8.18
+printf("\n # PROBLEM 3 # \n")
+printf(" Standard formula used \n")
+printf(" nu = (gamma*p/rho)^1/2  \n p =rho*g*h \n\n" )
+p = 76 * d_ * g// calculation for pressure
+v_ = n * lambda// calculation for velocity of sound in air at temperature 17 c 
+v = v_ * sqrt(273 / T)// calculation for velocity of sound in air at temp 0 c
+gama = v^2 * (d / p)// calculation for ratio of two specific heat
+
+printf("\n Ratio of  two principal specific heats of air is %f",gama)
diff --git a/1271/CH8/EX8.4/4.txt b/1271/CH8/EX8.4/4.txt
new file mode 100755
index 000000000..f1f83a978
--- /dev/null
+++ b/1271/CH8/EX8.4/4.txt
@@ -0,0 +1,2 @@
+Coefficient of absorption to be provided by the walls, floor and ceiling when the hall is fully occupied is 99.632353 SI unit.

+ Reverberation time if only half upholstered seats are occupied is 2.025324 sec.

diff --git a/1271/CH8/EX8.4/example8_4.sce b/1271/CH8/EX8.4/example8_4.sce
new file mode 100755
index 000000000..df64bb21f
--- /dev/null
+++ b/1271/CH8/EX8.4/example8_4.sce
@@ -0,0 +1,17 @@
+clc 
+// Given that
+A = 15 * 30 // area of the floor in square meter
+h = 6 // height of hall in meter
+N = 500 // no. of people
+t = 1.36 // optimum time for orchestral music in sec
+k = 0.44 // absorption coefficient per person
+// Sample Problem 4 on page no. 8.19
+printf("\n # PROBLEM 4 # \n")
+printf(" Standard formula used \n")
+printf(" T = 0.161 V/a*S \n" )
+aS = 0.161 * ((A * h) / t)
+a = N * k
+a_ = aS - a
+w = a_ + (N / 2) * k + (N / 2) * 0.02
+t = (0.161 * (A * h)) / w
+printf("\n Coefficient of absorption to be provided by the walls, floor and ceiling when the hall is fully occupied is %f SI unit.\n Reverberation time if only half upholstered seats are occupied is %f sec.",a_,t)
diff --git a/1271/CH8/EX8.5/5.txt b/1271/CH8/EX8.5/5.txt
new file mode 100755
index 000000000..ccd2490f9
--- /dev/null
+++ b/1271/CH8/EX8.5/5.txt
@@ -0,0 +1 @@
+ The total absorption constant = 715.555556 O.W.U.
\ No newline at end of file
diff --git a/1271/CH8/EX8.5/example8_5.sce b/1271/CH8/EX8.5/example8_5.sce
new file mode 100755
index 000000000..b25687d59
--- /dev/null
+++ b/1271/CH8/EX8.5/example8_5.sce
@@ -0,0 +1,10 @@
+clc 
+// Given that
+V = 8000 // volume of hall in meter^3
+t = 1.8 // reverberation time in sec
+// Sample Problem 5 on page no. 8.19
+printf("\n # PROBLEM 5 # \n")
+printf(" Standard formula used \n")
+printf(" T = 0.161 V/a*S \n" )
+aS = (0.161 * V) / t// calculation for the total absorption constant
+printf("\n The total absorption constant = %f O.W.U.",aS)
diff --git a/1271/CH8/EX8.6/6.txt b/1271/CH8/EX8.6/6.txt
new file mode 100755
index 000000000..45e742733
--- /dev/null
+++ b/1271/CH8/EX8.6/6.txt
@@ -0,0 +1 @@
+ Reverberation time is 2.804303 sec.
\ No newline at end of file
diff --git a/1271/CH8/EX8.6/example8_6.sce b/1271/CH8/EX8.6/example8_6.sce
new file mode 100755
index 000000000..b6f9201c8
--- /dev/null
+++ b/1271/CH8/EX8.6/example8_6.sce
@@ -0,0 +1,25 @@
+clc 
+// Given that
+V = 1700 // volume in meter^3
+a1 = 98 // area of plastered wall in m^2
+a2 = 144 // area of plastered ceiling in m^2
+a3 = 15 // area of wooden door in m^2
+a4 = 88 // area of cushioned chairs in m^2
+a5 = 150 // area of audience (each person) in m^2
+k1 = 0.03 // coefficient of absorption for plastered wall in O.W.U.
+k2 = 0.04 // coefficient of absorption for plastered ceiling in O.W.U.
+k3 = 0.06 // coefficient of absorption for wooden door in O.W.U.
+k4 = 1 // coefficient of absorption for cushioned chair in O.W.U.
+k5 = 4.7 // coefficient of absorption for audience (each person) in O.W.U.
+// Sample Problem 6 on page no. 8.20
+printf("\n # PROBLEM 6 # \n")
+printf(" Standard formula used \n")
+printf(" T = 0.161 V/a*S \n" )
+A1 = a1 * k1// calculation for the absorption by the plaster wall
+A2 = a2 * k2// calculation for the absorption by the plastered ceiling
+A3 = a3 * k3// calculation for wooden door
+A4 = a4 * k4// calculation for cushioned chairs 
+A = A1 + A2 + A3 + A4// calculation for total absorption
+T = 0.161 * (V / A)// calculation for reverberation time
+
+printf("\n Reverberation time is %f sec.",T)
diff --git a/1271/CH8/EX8.7/7.txt b/1271/CH8/EX8.7/7.txt
new file mode 100755
index 000000000..8da583ddf
--- /dev/null
+++ b/1271/CH8/EX8.7/7.txt
@@ -0,0 +1 @@
+ Reverberation time is 0.366743 sec.
\ No newline at end of file
diff --git a/1271/CH8/EX8.7/example8_7.sce b/1271/CH8/EX8.7/example8_7.sce
new file mode 100755
index 000000000..cacafb0b1
--- /dev/null
+++ b/1271/CH8/EX8.7/example8_7.sce
@@ -0,0 +1,26 @@
+clc 
+// Given that
+V = 1400 // volume of hall in meter^3
+C = 110 // seating capacity of hall 
+a1 = 98 // area of plastered wall in m^2
+a2 = 144 // area of plastered ceiling in m^2
+a3 = 15 // area of wooden door in m^2
+a4 = 88 // area of cushioned chairs in m^2
+a5 = 150 // area of audience (each person) in m^2
+k1 = 0.03 // coefficient of absorption for plastered wall in O.W.U.
+k2 = 0.04 // coefficient of absorption for plastered ceiling in O.W.U.
+k3 = 0.06 // coefficient of absorption for wooden door in O.W.U.
+k4 = 1 // coefficient of absorption for cushioned chair in O.W.U.
+k5 = 4.7 // coefficient of absorption for audience (each person) in O.W.U.
+// Sample Problem 7 on page no. 8.20
+printf("\n # PROBLEM 7 # \n")
+printf(" Standard formula used \n")
+printf(" T = 0.161 V/a*S \n" )
+A1 = a1 * k1// calculation for the absorption by the plaster wall
+A2 = a2 * k2// calculation for the absorption by the plastered ceiling
+A3 = a3 * k3// calculation for wooden door
+A4 = a4 * k4// calculation for cushioned chairs 
+A5 = C*k5 // the absorption due to persons
+A = A1 + A2 + A3 + A4 + A5 // calculation for total absorption
+T = (0.161 * V) / A// calculation for the reverberation time
+printf("\n Reverberation time is %f sec.",T)
diff --git a/1271/CH8/EX8.8/8.txt b/1271/CH8/EX8.8/8.txt
new file mode 100755
index 000000000..a35faa06b
--- /dev/null
+++ b/1271/CH8/EX8.8/8.txt
@@ -0,0 +1 @@
+ Reverberation time = 1.836787 sec
\ No newline at end of file
diff --git a/1271/CH8/EX8.8/example8_8.sce b/1271/CH8/EX8.8/example8_8.sce
new file mode 100755
index 000000000..90f404cc4
--- /dev/null
+++ b/1271/CH8/EX8.8/example8_8.sce
@@ -0,0 +1,19 @@
+clc 
+// Given that
+V = 980 // volume in meter^3
+a1 = 150 // area of wall in m^2
+a2 = 95 // area of ceiling in m^2
+a3 = 90 // area of floor in m^2
+k1 = 0.03 // coefficient of absorption for wall in O.W.U.
+k2 = 0.80 // coefficient of absorption for ceiling in O.W.U.
+k3 = 0.06 // coefficient of absorption for floor in O.W.U.
+// Sample Problem 8 on page no. 8.21
+printf("\n # PROBLEM 8 # \n")
+printf(" Standard formula used \n")
+printf(" T = 0.161 V/a*S \n" )
+A1 = a1 * k1
+A2 = a2 * k2
+A3 = a3 * k3
+A = A1 + A2 + A3
+T = 0.161 * (V / A)
+printf("\n Reverberation time = %f sec",T)
diff --git a/1271/CH8/EX8.9/9.txt b/1271/CH8/EX8.9/9.txt
new file mode 100755
index 000000000..7a7e8300e
--- /dev/null
+++ b/1271/CH8/EX8.9/9.txt
@@ -0,0 +1 @@
+ Acoustic power = 1.580000e-06 watt.
\ No newline at end of file
diff --git a/1271/CH8/EX8.9/example8_9.sce b/1271/CH8/EX8.9/example8_9.sce
new file mode 100755
index 000000000..822211fe8
--- /dev/null
+++ b/1271/CH8/EX8.9/example8_9.sce
@@ -0,0 +1,12 @@
+clc 
+// Given that
+V = 980 // volume in meter^3
+a = 1.58 // area of window in m^2
+I_ = 1e-12 // standard intensity level of sound wave in W/m^2
+l = 60 // intensity level in dB
+// Sample Problem 9 on page no. 8.21
+printf("\n # PROBLEM 9 # \n")
+I = I_ * 10^(l / 10)// calculation for intensity
+AP = I * a// calculation for acoustic power
+printf("Standard formula used \n Intensity level=10log(I/I_),\nAP=I*A\n")
+printf("\n Acoustic power = %e watt.",AP)