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

---
 2084/CH16/EX16.1/16_1.sce     | 19 +++++++++++++++++++
 2084/CH16/EX16.10w/16_10w.sce | 17 +++++++++++++++++
 2084/CH16/EX16.11w/16_11w.sce | 19 +++++++++++++++++++
 2084/CH16/EX16.12w/16_12w.sce | 16 ++++++++++++++++
 2084/CH16/EX16.13w/16_13w.sce | 14 ++++++++++++++
 2084/CH16/EX16.14w/16_14w.sce | 21 +++++++++++++++++++++
 2084/CH16/EX16.15w/16_15w.sce | 16 ++++++++++++++++
 2084/CH16/EX16.16w/16_16w.sce | 22 ++++++++++++++++++++++
 2084/CH16/EX16.17w/16_17w.sce | 15 +++++++++++++++
 2084/CH16/EX16.18w/16_18w.sce | 17 +++++++++++++++++
 2084/CH16/EX16.19w/16_19w.sce | 18 ++++++++++++++++++
 2084/CH16/EX16.1w/16_1w.sce   | 17 +++++++++++++++++
 2084/CH16/EX16.2/16_2.sce     | 16 ++++++++++++++++
 2084/CH16/EX16.20w/16_20w.sce | 15 +++++++++++++++
 2084/CH16/EX16.21w/16_21w.sce | 16 ++++++++++++++++
 2084/CH16/EX16.22w/16_22w.sce | 18 ++++++++++++++++++
 2084/CH16/EX16.23w/16_23w.sce | 18 ++++++++++++++++++
 2084/CH16/EX16.2w/16_2w.sce   | 16 ++++++++++++++++
 2084/CH16/EX16.3/16_3.sce     | 16 ++++++++++++++++
 2084/CH16/EX16.3w/16_3w.sce   | 24 ++++++++++++++++++++++++
 2084/CH16/EX16.4/16_4.sce     | 14 ++++++++++++++
 2084/CH16/EX16.4w/16_4w.sce   | 17 +++++++++++++++++
 2084/CH16/EX16.5/16_5.sce     | 20 ++++++++++++++++++++
 2084/CH16/EX16.5w/16_5w.sce   | 16 ++++++++++++++++
 2084/CH16/EX16.6/16_6.sce     | 15 +++++++++++++++
 2084/CH16/EX16.6w/16_6w.sce   | 16 ++++++++++++++++
 2084/CH16/EX16.7/16_7.sce     | 17 +++++++++++++++++
 2084/CH16/EX16.7w/16_7w.sce   | 17 +++++++++++++++++
 2084/CH16/EX16.8/16_8.sce     | 16 ++++++++++++++++
 2084/CH16/EX16.8w/16_8w.sce   | 16 ++++++++++++++++
 2084/CH16/EX16.9w/16_9w.sce   | 16 ++++++++++++++++
 31 files changed, 530 insertions(+)
 create mode 100755 2084/CH16/EX16.1/16_1.sce
 create mode 100755 2084/CH16/EX16.10w/16_10w.sce
 create mode 100755 2084/CH16/EX16.11w/16_11w.sce
 create mode 100755 2084/CH16/EX16.12w/16_12w.sce
 create mode 100755 2084/CH16/EX16.13w/16_13w.sce
 create mode 100755 2084/CH16/EX16.14w/16_14w.sce
 create mode 100755 2084/CH16/EX16.15w/16_15w.sce
 create mode 100755 2084/CH16/EX16.16w/16_16w.sce
 create mode 100755 2084/CH16/EX16.17w/16_17w.sce
 create mode 100755 2084/CH16/EX16.18w/16_18w.sce
 create mode 100755 2084/CH16/EX16.19w/16_19w.sce
 create mode 100755 2084/CH16/EX16.1w/16_1w.sce
 create mode 100755 2084/CH16/EX16.2/16_2.sce
 create mode 100755 2084/CH16/EX16.20w/16_20w.sce
 create mode 100755 2084/CH16/EX16.21w/16_21w.sce
 create mode 100755 2084/CH16/EX16.22w/16_22w.sce
 create mode 100755 2084/CH16/EX16.23w/16_23w.sce
 create mode 100755 2084/CH16/EX16.2w/16_2w.sce
 create mode 100755 2084/CH16/EX16.3/16_3.sce
 create mode 100755 2084/CH16/EX16.3w/16_3w.sce
 create mode 100755 2084/CH16/EX16.4/16_4.sce
 create mode 100755 2084/CH16/EX16.4w/16_4w.sce
 create mode 100755 2084/CH16/EX16.5/16_5.sce
 create mode 100755 2084/CH16/EX16.5w/16_5w.sce
 create mode 100755 2084/CH16/EX16.6/16_6.sce
 create mode 100755 2084/CH16/EX16.6w/16_6w.sce
 create mode 100755 2084/CH16/EX16.7/16_7.sce
 create mode 100755 2084/CH16/EX16.7w/16_7w.sce
 create mode 100755 2084/CH16/EX16.8/16_8.sce
 create mode 100755 2084/CH16/EX16.8w/16_8w.sce
 create mode 100755 2084/CH16/EX16.9w/16_9w.sce

(limited to '2084/CH16')

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