initial commit / add all books

31 files changed, 530 insertions, 0 deletions

diff --git a/2084/CH16/EX16.1/16_1.sce b/2084/CH16/EX16.1/16_1.sce
new file mode 100755
index 000000000..edc0bb400
--- /dev/null
+++ b/2084/CH16/EX16.1/16_1.sce
@@ -0,0 +1,19 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.1

+//calculation of the audibility of a wave 

+

+//given data

+v=300//velocity(in m/s) of the wave

+lambda=.60*10^-2//wavelength(in m) of the wave

+

+//calculation

+nu=v/lambda//frequency of the wave

+if(nu<20)

+    printf('the wave is not audible')

+elseif(nu>20000)

+    printf('the wave is not audible')

+else

+    printf('the wave is audible')

+end

diff --git a/2084/CH16/EX16.10w/16_10w.sce b/2084/CH16/EX16.10w/16_10w.sce
new file mode 100755
index 000000000..d3852d9d6
--- /dev/null
+++ b/2084/CH16/EX16.10w/16_10w.sce
@@ -0,0 +1,17 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.10w

+//calculation of the frequency at which the maxima of intensity are detected

+

+//given data

+r=20*10^-2//radius(in m) of the semicircular part

+v=340//speed(in m/s) of the sound in air

+

+//calculation

+l1=2*r//straight distance

+l2=%pi*r//curve distance

+deltal=l2-l1

+nu=v/deltal

+

+printf('the frequency at which the maxima of intensity are detected are %d Hz and %d Hz',nu,2*nu)

diff --git a/2084/CH16/EX16.11w/16_11w.sce b/2084/CH16/EX16.11w/16_11w.sce
new file mode 100755
index 000000000..fe6495771
--- /dev/null
+++ b/2084/CH16/EX16.11w/16_11w.sce
@@ -0,0 +1,19 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.11w

+//calculation of the minimum distance between the source and the detector for maximum sound detection

+

+//given data

+nu=180//frequency(in Hz)

+d=2//distance(in m)

+v=360//speed(in m/s) of the sound wave in air

+

+//calculation

+//path difference.....delta = (2*((2^2) + (x^2/4))^(1/2)) - (x)

+lambda=v/nu//wavelength

+delta=lambda

+//solving the above equation,we get

+x=4-1

+

+printf('the minimum distance between the source and the detector for maximum sound detection is %d m',x)

diff --git a/2084/CH16/EX16.12w/16_12w.sce b/2084/CH16/EX16.12w/16_12w.sce
new file mode 100755
index 000000000..cef44ccc0
--- /dev/null
+++ b/2084/CH16/EX16.12w/16_12w.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.12w

+//calculation of the length of the shortest closed organ pipe that will resonate with the tunning fork

+

+//given data

+nu=264//frequency(in Hz)of the tunning fork

+v=350//speed(in m/s) of the sound in air

+

+//calculation

+//from the equation of the resonate frequency of the closed organ pipe....l = (n*v)/(4*nu)

+n=1//for l to be minimum

+lmin=(v)/(4*nu)//equation of the resonate frequency of the closed organ pipe

+

+printf('the length of the shortest closed organ pipe that will resonate with the tunning fork is %d cm',lmin*10^2)

diff --git a/2084/CH16/EX16.13w/16_13w.sce b/2084/CH16/EX16.13w/16_13w.sce
new file mode 100755
index 000000000..77fa0d8b4
--- /dev/null
+++ b/2084/CH16/EX16.13w/16_13w.sce
@@ -0,0 +1,14 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.13w

+//calculation of the length of the closed pipe

+

+//given data

+l0=60*10^-2//length(in m) of the open pipe

+

+//calculation

+//from the equation of the resonate frequency of the closed organ pipe....l=(n*v)/(4*nu)

+l1=l0/4

+

+printf('the length of the closed pipe is %d cm',l1*10^2)

diff --git a/2084/CH16/EX16.14w/16_14w.sce b/2084/CH16/EX16.14w/16_14w.sce
new file mode 100755
index 000000000..1929d73aa
--- /dev/null
+++ b/2084/CH16/EX16.14w/16_14w.sce
@@ -0,0 +1,21 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.14w

+//calculation of the speed of the sound in air

+

+//given data

+nu=800//frequency(in Hz) of the tunning fork

+l1=9.75*10^-2//distance(in m) where resonance is observed

+l2=31.25*10^-2//distance(in m) where resonance is observed

+l3=52.75*10^-2//distance(in m) where resonance is observed

+

+//calculation

+//from the equation of the resonate frequency ....l = (n*v)/(4*nu)

+//(n*v)/(4*l1) = nu...................(1)

+//((n+2)*v)/(4*l2) = nu...............(2)

+//((n+4)*v)/(4*l3) = nu...............(3)

+//form above equations ,we get

+v=2*nu*(l2-l1)

+

+printf('the speed of the sound in air is %d m/s',v)

diff --git a/2084/CH16/EX16.15w/16_15w.sce b/2084/CH16/EX16.15w/16_15w.sce
new file mode 100755
index 000000000..b43b5af5f
--- /dev/null
+++ b/2084/CH16/EX16.15w/16_15w.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.15w

+//calculation of the fundamental frequency if the air is replaced by hydrogen

+

+//given data

+nu0=500//fundamental frequency(in Hz)

+rhoa=1.20//density(in kg/m^3) of air

+rhoh=0.089//density(in kg/m^3) of hydrogen

+

+//calculation

+//fundamental frequency of an organ pipe is proportional to the speed of the sound

+nu=nu0*sqrt(rhoa/rhoh)

+

+printf('the fundamental frequency if the air is replaced by hydrogen is %d Hz',nu)

diff --git a/2084/CH16/EX16.16w/16_16w.sce b/2084/CH16/EX16.16w/16_16w.sce
new file mode 100755
index 000000000..ac77d60c5
--- /dev/null
+++ b/2084/CH16/EX16.16w/16_16w.sce
@@ -0,0 +1,22 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.16w

+//calculation of the speed,wavelength in the rod,frequency,wavelength in the air

+

+//given data

+l=90*10^-2//length(in m) of the rod

+rho=2600//density(in kg/m^3) of the aluminium

+Y=7.80*10^10//Young modulus(in N/m^2)

+vai=340//speed(in m/s) of the sound in the air

+

+//calculation

+v=sqrt(Y/rho)//speed of the sound in aluminium

+lambda=2*l//wavelength....since rod vibrates with fundamental frequency

+nu=v/lambda//frequency

+lambdaai=vai/nu//wavelength in the air

+

+printf('the speed of the sound in aluminium is %d m/s',v)//Textbook Correction : correct answer is 5477 m/s

+printf('\nthe wavelength of the sound in aluminium rod is %d cm',lambda*10^2)

+printf('\nthe frequency of the sound produced is %d Hz',nu)//Textbook Correction : correct answer is 3042 Hz

+printf('\nthe wavelength of the sound in air is %3.1f cm',lambdaai*10^2)

diff --git a/2084/CH16/EX16.17w/16_17w.sce b/2084/CH16/EX16.17w/16_17w.sce
new file mode 100755
index 000000000..dbbf833de
--- /dev/null
+++ b/2084/CH16/EX16.17w/16_17w.sce
@@ -0,0 +1,15 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.17w

+//calculation of the frequency of the note emitted by the taut string

+

+//given data

+nu1=440//frequency(in Hz) of the string

+n=4//number of beats per second

+nuf=440//tunning frequency(in Hz) of the fork

+

+//calculation

+fre=nuf+n//required frequncy

+

+printf('the frequency of the note emitted by the taut string is %d Hz',fre)

diff --git a/2084/CH16/EX16.18w/16_18w.sce b/2084/CH16/EX16.18w/16_18w.sce
new file mode 100755
index 000000000..46a4fd799
--- /dev/null
+++ b/2084/CH16/EX16.18w/16_18w.sce
@@ -0,0 +1,17 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.18w

+//calculation of the apparent frequency

+

+//given data

+us=36*10^3/(60*60)//speed(in m/s)of the car

+v=340//speed(in m/s) of the sound in the air

+nu=500//frequency(in Hz)

+

+//calculation

+nudash=(v/(v+us))*nu//apparent frequency  heard by the observer

+nudashdash=(v/(v-us))*nu//frequency received by the wall

+

+printf('the apparent frequency heard by the ground observer is %d Hz',round(nudash))

+printf('\nthe frequency of the reflected wave as heard by the ground observer is %d Hz',nudashdash)

diff --git a/2084/CH16/EX16.19w/16_19w.sce b/2084/CH16/EX16.19w/16_19w.sce
new file mode 100755
index 000000000..c4ac00cc7
--- /dev/null
+++ b/2084/CH16/EX16.19w/16_19w.sce
@@ -0,0 +1,18 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.19w

+//calculation of the frequency of the whistle of the train

+

+//given data

+us=72*10^3/(60*60)//speed(in m/s) of the train 1

+u0=54*10^3/(60*60)//speed(in m/s) of the train 2

+nu=600//frequency(in Hz) of the whistle

+v=340//speed(in m/s)of sound in the air

+

+//calculation

+nudash=((v+u0)/(v-us))*nu//frequency heard by the observer before the meeting of the trains

+nudashdash=((v-u0)/(v+us))*nu//frequency heard by the observer after the crossing of the trains

+

+printf('the frequency heard by the observer before the meeting of the trains is %d Hz',round(nudash))

+printf('\nthe frequency heard by the observer after the crossing of the trains is %d Hz',round(nudashdash))

diff --git a/2084/CH16/EX16.1w/16_1w.sce b/2084/CH16/EX16.1w/16_1w.sce
new file mode 100755
index 000000000..704b4529f
--- /dev/null
+++ b/2084/CH16/EX16.1w/16_1w.sce
@@ -0,0 +1,17 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.1w

+//calculation of the depth of the sea and wavelength of the signal in the water

+

+//given data

+nu=50*10^3//frequency(in Hz) of the given signal

+t=0.8//time(in s)requires for reflected wave to return

+v=1500//speed(in m/s) of the sound in water

+

+//calculation

+d=v*t/2//depth of the sea

+lambda=v/nu//wavelength in water

+

+printf('the depth of the sea is %d m',d)

+printf('\nthe wavelength of the signal in the water is %3.1f cm',lambda*10^2)

diff --git a/2084/CH16/EX16.2/16_2.sce b/2084/CH16/EX16.2/16_2.sce
new file mode 100755
index 000000000..572ce1556
--- /dev/null
+++ b/2084/CH16/EX16.2/16_2.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.2

+//calculation of the amplitude of vibration of the particles of the medium

+

+//given data

+lambda=40*10^-2//wavelength(in m) of the wave

+deltap=1*10^-3//difference between the minimum and the maximum pressure(in N/m^2) 

+B=1.4*10^5//Bulk modulus(in N/m^2)

+

+//calculation

+p0=deltap/2//pressure amplitude

+s0=(p0*lambda)/(2*%pi*B)//from equation of Bulk modulus

+

+printf('the amplitude of vibration of the particles of the medium is %3.2e m',s0)

diff --git a/2084/CH16/EX16.20w/16_20w.sce b/2084/CH16/EX16.20w/16_20w.sce
new file mode 100755
index 000000000..093ddd0c2
--- /dev/null
+++ b/2084/CH16/EX16.20w/16_20w.sce
@@ -0,0 +1,15 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.20w

+//calculation of the main frequency heard by the person

+

+//given data

+us=36*10^3/(60*60)//speed(in m/s) of the person on the scooter

+v=340//speed(in m/s) of sound in the air

+nu=600//frequency(in Hz) of the siren

+

+//calculation

+nudash=(v/(v+us))*nu//main frequency

+

+printf('the main frequency heard by the person is %d Hz',round(nudash))

diff --git a/2084/CH16/EX16.21w/16_21w.sce b/2084/CH16/EX16.21w/16_21w.sce
new file mode 100755
index 000000000..c1c9d30a7
--- /dev/null
+++ b/2084/CH16/EX16.21w/16_21w.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.21w

+//calculation of the original frequency of the source

+

+//given data

+u0=10//speed(in m/s) of the observer going away from the source

+us=10//speed(in m/s) of the source going away from observer

+nudash=1950//frequency(in Hz) of the sound detected by the detector

+v=340//speed(in m/s) of the sound in the air

+

+//calculation

+nu=((v+us)/(v-u0))*nudash//original frequency

+

+printf('the original frequency of the source is %d Hz',round(nu))

diff --git a/2084/CH16/EX16.22w/16_22w.sce b/2084/CH16/EX16.22w/16_22w.sce
new file mode 100755
index 000000000..4e6ce7781
--- /dev/null
+++ b/2084/CH16/EX16.22w/16_22w.sce
@@ -0,0 +1,18 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.22w

+//calculation of the speed of the car

+

+//given data

+nudash=440//frequency(in Hz) emitted by the wall

+nudashdash=480//frequency(in Hz) heard by the car driver

+v=330//speed(in m/s) of the sound in the air

+

+//calculation

+//frequency received by the wall..............nudash = (v/(v-u))*nu............(1)

+//frequency(in Hz) heard by the car driver....nudashdash = ((v+u)/v)*nudash....(2)

+//from above two equations,we get

+u=((nudashdash-nudash)/(nudashdash+nudash))*v//speed of the car

+

+printf('the speed of the car is %3.1f m/s or %d km/h',u,round(u*10^-3*60*60))

diff --git a/2084/CH16/EX16.23w/16_23w.sce b/2084/CH16/EX16.23w/16_23w.sce
new file mode 100755
index 000000000..56b885d16
--- /dev/null
+++ b/2084/CH16/EX16.23w/16_23w.sce
@@ -0,0 +1,18 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.23w

+//calculation of the frequency of train whistle heard by the person standing on the road perpendicular to the track

+

+//given data

+v=340//speed(in m/s) of the sound in the air

+d1=300//distance(in m) of the train from the crossing

+u=120*10^3/(60*60)//speed(in m/s) of the train

+nu=640//frequency(in Hz) of the whistle

+d2=400//distance(in m) of the person from the crossing ,perpendicular to the track

+

+//calculation

+theta=acosd(d1/sqrt(d1^2+d2^2))//pythagoras theorem

+nudash=(v/(v-(u*cosd(theta))))*nu//frequency of the whistle heard

+

+printf('the frequency of train whistle heard by the person standing on the road perpendicular to the track is %d Hz',nudash)

diff --git a/2084/CH16/EX16.2w/16_2w.sce b/2084/CH16/EX16.2w/16_2w.sce
new file mode 100755
index 000000000..71a31cdcb
--- /dev/null
+++ b/2084/CH16/EX16.2w/16_2w.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.2w

+//calculation of the location of the plane

+

+//given data

+v=510*10^3/(60*60)//speed(in m/s) of the plane

+h=2000//height(in m) of the plane

+vs=340//speed(in m.s) of the sound in air

+

+//calculation

+t=h/vs//time taken by the sound to reach the observer

+d=v*t//location of the plane

+

+printf('the plane will be %d m ahead of the observer on its line of motion',d)

diff --git a/2084/CH16/EX16.3/16_3.sce b/2084/CH16/EX16.3/16_3.sce
new file mode 100755
index 000000000..fb17ec093
--- /dev/null
+++ b/2084/CH16/EX16.3/16_3.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.3

+//calculation of the intensity of the sound wave

+

+//given data

+p0=2*10^-2//pressure amplitue(in N/m^2)

+p0dash=2.5*10^-2//new pressure amplitue(in N/m^2)

+I=5.0*10^-7//intensity(in W/m^2) of the wave 

+

+//calculation

+//intensity of the wave is proportional to square of the pressure amplituide

+Idash=I*((p0dash/p0)^2)

+

+printf('the intensity of the sound wave is %3.1e W/m^2',Idash)

diff --git a/2084/CH16/EX16.3w/16_3w.sce b/2084/CH16/EX16.3w/16_3w.sce
new file mode 100755
index 000000000..d0e9bdc82
--- /dev/null
+++ b/2084/CH16/EX16.3w/16_3w.sce
@@ -0,0 +1,24 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.3w

+//calculation of the frequency,wavelength,speed,maximum and minimum pressures of the sound wave

+

+//given data

+//equation of the sound wave is

+//p = (0.01 N/m^2)*sin((1000 s^-1)*t - (3.0 m^-1)*x)............(1)

+peq=1.0*10^5//equilibrium pressure(in N/m^2) of the air

+

+//calculation

+//comparing equation (1) with standard equation p = p0*sin(w*(t-(x/v)))...we get

+w=1000//value of w(in s^-1)

+nu=w/(2*%pi)//frequency

+v=w/3//velocity

+lambda=v/nu//wavelength

+p0=0.01//pressure amplitude(in N/m^2)

+

+printf('the frequency is %d Hz',nu)

+printf('\nthe wavelength is %3.1f m',lambda)

+printf('\nthe speed of the sound wave is %d m/s',v)

+printf('\nthe maximum pressure amplitude is (%3.2e + %3.2f) N/m^2',peq,p0)

+printf('\nthe minimum pressure amplitude is (%3.2e - %3.2f) N/m^2',peq,p0)

diff --git a/2084/CH16/EX16.4/16_4.sce b/2084/CH16/EX16.4/16_4.sce
new file mode 100755
index 000000000..87f8be26b
--- /dev/null
+++ b/2084/CH16/EX16.4/16_4.sce
@@ -0,0 +1,14 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.4

+//calculation of the increase in the sound level in decibels

+

+//given data

+r=20//intensity is increase by r factor

+

+//calculation

+//using the equation.....beta = 10*log(I/I0)...we get

+deltabeta=10*log10(r)//increase in sound level

+

+printf('the increase in the sound level in decibels is %d dB',deltabeta)

diff --git a/2084/CH16/EX16.4w/16_4w.sce b/2084/CH16/EX16.4w/16_4w.sce
new file mode 100755
index 000000000..216680d21
--- /dev/null
+++ b/2084/CH16/EX16.4w/16_4w.sce
@@ -0,0 +1,17 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.4w

+//calculation of the minimum separation between the two points for a given phase difference 

+

+//given data

+nu=10*10^3//frequency(in Hz) of the sound wave

+v=340//speed(in m/s) of the wave

+delta=60//phase difference(in degree)

+

+//calculation

+lambda=v/nu//wavelength

+k=2*%pi/lambda//wave number

+d=(delta*%pi/180)/k

+

+printf('the minimum separation between the two points for phase difference of 60 degree is %3.2f cm',d*10^2)

diff --git a/2084/CH16/EX16.5/16_5.sce b/2084/CH16/EX16.5/16_5.sce
new file mode 100755
index 000000000..788a400a8
--- /dev/null
+++ b/2084/CH16/EX16.5/16_5.sce
@@ -0,0 +1,20 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.5

+//calculation of the nature of interference

+

+//given data

+nu=1*10^3//frequency(in Hz) of the source

+deltax=83*10^-2//difference in the length(in m) of paths

+v=332//speed(in m/s) of the sound in air

+

+//calculation

+lambda=v/nu//wavelength

+delta=(2*%pi/lambda)*deltax

+n=delta/%pi//phase difference is 'n' multiple of pi

+if(modulo(n,2)==0)

+    printf('the waves will interfere constructively.')//for even values of 'n'

+else

+    printf('the waves will interfere destructively.')//for odd values of 'n'

+end

diff --git a/2084/CH16/EX16.5w/16_5w.sce b/2084/CH16/EX16.5w/16_5w.sce
new file mode 100755
index 000000000..ec7fc1e61
--- /dev/null
+++ b/2084/CH16/EX16.5w/16_5w.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.5w

+//calculation of the atmospheric temperature

+

+//given data

+v1=336//speed(in m/s) travelled by the sound

+v0=332//speed(in m/s) of the sound at O degreecelsius

+T0=0+273//temperature(in kelvin)

+

+//calculation

+T=((v1/v0)^2)*T0//temperature (in kelvin)

+t=T-273//temperature(in degreecelsius)

+

+printf('the atmospheric temperature is %d degreecelsius',round(t))

diff --git a/2084/CH16/EX16.6/16_6.sce b/2084/CH16/EX16.6/16_6.sce
new file mode 100755
index 000000000..d66be1115
--- /dev/null
+++ b/2084/CH16/EX16.6/16_6.sce
@@ -0,0 +1,15 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.6

+//calculation of the distance of the piston from the open end,for tube to vibrate in its first overtone 

+

+//given data

+nu=416//frequency(in Hz) of the tunning fork

+v=333//speed(in m/s) of the sound in air

+

+//calculation

+lambda=v/nu//wavelength

+L=3*lambda/4//length of the tube

+

+printf('the distance of the piston from the open end,for tube to vibrate in its first overtone is %3.1f cm',L*10^2)

diff --git a/2084/CH16/EX16.6w/16_6w.sce b/2084/CH16/EX16.6w/16_6w.sce
new file mode 100755
index 000000000..c706a5cbd
--- /dev/null
+++ b/2084/CH16/EX16.6w/16_6w.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.6w

+//calculation of the speed of sound wave in hydrogen

+

+//given data

+gama=1.4//value of constant gama for hydrogen

+voxygen=470//speed(in m/s) of the sound wave in oxygen

+

+//calculation

+//speed of sound wave in a gas is ........v = sqrt(gama*P/rho)

+//at STP ,density of oxygen is 16 times density of hydrogen

+vhydrogen=voxygen*sqrt(16)//speed of sound in hydrogen

+

+printf('the speed of sound wave in hydrogen is %d m/s',vhydrogen)

diff --git a/2084/CH16/EX16.7/16_7.sce b/2084/CH16/EX16.7/16_7.sce
new file mode 100755
index 000000000..3c42fd537
--- /dev/null
+++ b/2084/CH16/EX16.7/16_7.sce
@@ -0,0 +1,17 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.7

+//calculation of the tunning frequency of fork B

+

+//given data

+nu1=384//tunning frequency(in Hz) of fork A

+n=6//number of beats

+t=2//time(in s) taken by the beats

+

+//calculation

+deltanu=n/t//frequency of beats

+nu2=nu1+deltanu//frequency of fork B

+nu2dash=nu1-deltanu//another frequency of fork B

+

+printf('the tunning frequency of fork B is %d Hz or %d Hz',nu2dash,nu2)

diff --git a/2084/CH16/EX16.7w/16_7w.sce b/2084/CH16/EX16.7w/16_7w.sce
new file mode 100755
index 000000000..ddba3e29b
--- /dev/null
+++ b/2084/CH16/EX16.7w/16_7w.sce
@@ -0,0 +1,17 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.7w

+//calculation of the energy delivered to the microphone

+

+//given data

+A=.80*10^-4//area(in m^2) of the cross section

+U=3//power(in W0 output of the speaker

+d=2//distance(in m) between the microphone and the speaker

+t=5//time(in s) taken

+

+//calculation

+U0=A*U/(4*%pi*d^2)//energy falling on the microphone in 1 s

+Udash=U0*t//energy falling on the microphone in t s

+

+printf('the energy delivered to the microphone in t=5 s is %d microJ',round(Udash*10^6))

diff --git a/2084/CH16/EX16.8/16_8.sce b/2084/CH16/EX16.8/16_8.sce
new file mode 100755
index 000000000..7ae73649f
--- /dev/null
+++ b/2084/CH16/EX16.8/16_8.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.8

+//calculation of the most dominant frequency

+

+//given data

+us=36*10^3/(60*60)//speed(in m/s) of the train

+nudash=12*10^3//frequency(in Hz) detected by the detector

+v=340//velocity(in m/s) of the sound in air

+

+//calculation

+//frequency detected is ......nudash = (v*nu0)/(v-us)

+nu0=(1-(us/v))*nudash//required frequency

+

+printf('the most dominant frequency is %3.1f kHz',nu0*10^-3)

diff --git a/2084/CH16/EX16.8w/16_8w.sce b/2084/CH16/EX16.8w/16_8w.sce
new file mode 100755
index 000000000..d7af3a859
--- /dev/null
+++ b/2084/CH16/EX16.8w/16_8w.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.8w

+//calculation of the amplitude of vibration of the particles of the air

+

+//given data

+I=2*10^-6//intensity(in W/m^2) of the sound wave

+nu=1*10^3//frequency(in Hz) of the sound wave

+rho0=1.2//density(in kg/m^3) of the air

+v=330//speed(in m/s) of the sound in the air

+

+//calculation

+s0=sqrt(I/(2*%pi^2*nu^2*rho0*v))//equation of displacement amplitide

+

+printf('the amplitude of vibration of the particles of the air is %3.1e m',s0)

diff --git a/2084/CH16/EX16.9w/16_9w.sce b/2084/CH16/EX16.9w/16_9w.sce
new file mode 100755
index 000000000..86d47587b
--- /dev/null
+++ b/2084/CH16/EX16.9w/16_9w.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit

+//platform Scilab 5.4.1

+clc;clear;

+//example 16.9w

+//calculation of the factor by which the pressure amplituide increases

+

+//given data

+n=30//increase(in dB) of the sound level

+

+//calculation

+//m = I2/I1 = intensity ratio

+m=10^(n/10)

+//since p2/p1 = sqrt(I2/I1)

+f=sqrt(m)//require factor

+

+printf('the factor by which the pressure amplituide increases is %d',round(f))