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 --- 1271/CH8/EX8.1/1.txt | 1 + 1271/CH8/EX8.1/example8_1.sce | 12 ++++++++++++ 1271/CH8/EX8.2/2.txt | 1 + 1271/CH8/EX8.2/example8_2.sce | 17 +++++++++++++++++ 1271/CH8/EX8.3/3.txt | 1 + 1271/CH8/EX8.3/example8_3.sce | 18 ++++++++++++++++++ 1271/CH8/EX8.4/4.txt | 2 ++ 1271/CH8/EX8.4/example8_4.sce | 17 +++++++++++++++++ 1271/CH8/EX8.5/5.txt | 1 + 1271/CH8/EX8.5/example8_5.sce | 10 ++++++++++ 1271/CH8/EX8.6/6.txt | 1 + 1271/CH8/EX8.6/example8_6.sce | 25 +++++++++++++++++++++++++ 1271/CH8/EX8.7/7.txt | 1 + 1271/CH8/EX8.7/example8_7.sce | 26 ++++++++++++++++++++++++++ 1271/CH8/EX8.8/8.txt | 1 + 1271/CH8/EX8.8/example8_8.sce | 19 +++++++++++++++++++ 1271/CH8/EX8.9/9.txt | 1 + 1271/CH8/EX8.9/example8_9.sce | 12 ++++++++++++ 18 files changed, 166 insertions(+) create mode 100755 1271/CH8/EX8.1/1.txt create mode 100755 1271/CH8/EX8.1/example8_1.sce create mode 100755 1271/CH8/EX8.2/2.txt create mode 100755 1271/CH8/EX8.2/example8_2.sce create mode 100755 1271/CH8/EX8.3/3.txt create mode 100755 1271/CH8/EX8.3/example8_3.sce create mode 100755 1271/CH8/EX8.4/4.txt create mode 100755 1271/CH8/EX8.4/example8_4.sce create mode 100755 1271/CH8/EX8.5/5.txt create mode 100755 1271/CH8/EX8.5/example8_5.sce create mode 100755 1271/CH8/EX8.6/6.txt create mode 100755 1271/CH8/EX8.6/example8_6.sce create mode 100755 1271/CH8/EX8.7/7.txt create mode 100755 1271/CH8/EX8.7/example8_7.sce create mode 100755 1271/CH8/EX8.8/8.txt create mode 100755 1271/CH8/EX8.8/example8_8.sce create mode 100755 1271/CH8/EX8.9/9.txt create mode 100755 1271/CH8/EX8.9/example8_9.sce (limited to '1271/CH8') 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) -- cgit