8 files changed, 93 insertions, 0 deletions
diff --git a/3845/CH17/EX17.1/Ex17_1.sce b/3845/CH17/EX17.1/Ex17_1.sce
new file mode 100644
index 000000000..a8db2ad05
--- /dev/null
+++ b/3845/CH17/EX17.1/Ex17_1.sce
@@ -0,0 +1,13 @@
+//Example 17.1
+T=30;//Temperature (C)
+T=T+273;//Temperature (K)
+v_w=331*sqrt(T/273);//Speed of sound in air at sea level(m/s)
+f_min=20;//Minimum frequency (Hz)
+f_max=20000;//Maximum frequency (Hz)
+lambda_max=v_w/f_min;//Maximum wavelength (m)
+printf('Maximum wavelength = %0.0f m',lambda_max)//Restricting answer to two significant figures
+lambda_min=v_w/f_max;//Minimum wavelength (m)
+printf('\nMinimum wavelength = %0.1f cm',lambda_min*100)
+//The answer varies due to round off error
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
diff --git a/3845/CH17/EX17.2/Ex17_2.sce b/3845/CH17/EX17.2/Ex17_2.sce
new file mode 100644
index 000000000..4a6263d5d
--- /dev/null
+++ b/3845/CH17/EX17.2/Ex17_2.sce
@@ -0,0 +1,10 @@
+//Example 17.2
+v_w=331;//Speed of sound in air at 0 deg C (m/s)
+rho=1.29;//Density of air (kg/m^3)
+delta_p=0.656;//Pressure amplitude (Pa)
+I=delta_p^2/(2*rho*v_w);//Intensity (W/m^2)
+I_0=10^-12;//Threshold intensity at 1000 Hz (W/m^2) 
+Beta=10*log10(I/I_0);//Sound intensity level (dB)
+printf('Sound intensity level = %0.1f dB',Beta)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
diff --git a/3845/CH17/EX17.3/Ex17_3.sce b/3845/CH17/EX17.3/Ex17_3.sce
new file mode 100644
index 000000000..55b79f5cb
--- /dev/null
+++ b/3845/CH17/EX17.3/Ex17_3.sce
@@ -0,0 +1,6 @@
+//Example 17.3
+ratio=2;//Ratio of the two sound wave intensities, I2/I1
+delta_beta=10*log10(ratio);//Difference in sound intensity levels, beta2-beta1, (dB)
+printf('Difference in sound level = %0.2fdB (when one sound wave is twice as intense as the other)',delta_beta)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
diff --git a/3845/CH17/EX17.4/Ex17_4.sce b/3845/CH17/EX17.4/Ex17_4.sce
new file mode 100644
index 000000000..3b0888f94
--- /dev/null
+++ b/3845/CH17/EX17.4/Ex17_4.sce
@@ -0,0 +1,16 @@
+//Example 17.4
+f_s=150;//Frequency of horn (Hz)
+v_s=35;//Speed of train (m/s)
+v_w=340;//Speed of sound (m/s)
+f_obs1=f_s*(v_w/(v_w-v_s));//Frequency as the train approaches (Hz)
+printf('a.Frequency observed as the train approaches = %0.1f Hz',f_obs1)
+f_obs2=f_s*(v_w/(v_w+v_s));//Frequency after the train passes (Hz)
+printf('\n  Frequency observed after the train passes = %0.1f Hz',f_obs2)
+v_obs=v_s;//Speed of observer (train's engineer) (m/s)
+//v_s and v_obs are both positive for this case, see point (3) under Solution for(b)
+f_obs=[f_s*((v_w+v_obs)/v_w)]*(v_w/(v_w+v_s));
+printf('\nb.Frequency observed by the train''s engineer = %0.1f Hz',f_obs)
+//The answer varies due to round off error
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
+
diff --git a/3845/CH17/EX17.5/Ex17_5.sce b/3845/CH17/EX17.5/Ex17_5.sce
new file mode 100644
index 000000000..b6a690ee9
--- /dev/null
+++ b/3845/CH17/EX17.5/Ex17_5.sce
@@ -0,0 +1,13 @@
+//Example 17.5
+f_1=128;//Fundamental frequency (Hz)
+T=22;//Temperature (C)
+T=T+273;//Temperature (K)
+v_w=331*sqrt(T/273);//Speed of sound (m/s)
+L=v_w/(4*f_1);//Length of tube (m)
+printf('a.Length of tube = %0.3f m',L)
+n=9;//For fourth overtone
+f_9=n*v_w/(4*L);//Frequency of fourth overtone (Hz)
+printf('\nb.Frequency of the fourth overtone = %0.2f kHz',f_9/1000)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
+ 
diff --git a/3845/CH17/EX17.6/Ex17_6.sce b/3845/CH17/EX17.6/Ex17_6.sce
new file mode 100644
index 000000000..e8edb2872
--- /dev/null
+++ b/3845/CH17/EX17.6/Ex17_6.sce
@@ -0,0 +1,8 @@
+//Example 17.6
+//This question is beyond the scope of computation.
+//Refer the plot of intensity level versus frequency to obtain below answers (Figure 17.36)
+//a.Loudness = 75 phons
+//b.Intensity level = 67 dB
+//c.Intensity level = 63 dB
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
diff --git a/3845/CH17/EX17.7/Ex17_7.sce b/3845/CH17/EX17.7/Ex17_7.sce
new file mode 100644
index 000000000..dbae15d50
--- /dev/null
+++ b/3845/CH17/EX17.7/Ex17_7.sce
@@ -0,0 +1,11 @@
+//Example 17.7
+rho=925;//Density of fat tissue (kg/m^3), See Table 17.5
+v=1450;//Speed of ultrasound (m/s), See Table 17.5
+Z=rho*v;//Acoustic impedance of fat tissue (kg/(m^2.s)), 
+printf('a.Acoustic impedance of fat tissue = %0.2e kg/(m^2.s)',Z)
+Z1=1.70*10^6;//Acoustic impedance of muscle (kg/(m^2.s)), See Table 17.5
+Z2=Z;//Acoustic impedance of fat tissue (kg/(m^2.s))
+a=(Z2-Z1)^2/(Z1+Z2)^2;//Intensity reflection coefficient
+printf('\nb.Intensity reflection coefficient = %0.3f',a)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
diff --git a/3845/CH17/EX17.8/Ex17_8.sce b/3845/CH17/EX17.8/Ex17_8.sce
new file mode 100644
index 000000000..74bb8e3da
--- /dev/null
+++ b/3845/CH17/EX17.8/Ex17_8.sce
@@ -0,0 +1,16 @@
+//Example 17.8
+f_s=2500000;//Frequency of ultrasound (Hz)
+v_w=1540;//Speed of sound in human tissue (m/s)
+v_obs=20*10^-2;//Speed of blood (m/s)
+f_obs=f_s*((v_w+v_obs)/v_w);//Frequency received by the blood (Hz)
+printf('a.Frequency received by the blood = %7.0f Hz',f_obs)
+v_b=v_obs;//Source velocity=velocity of blood (m/s)
+f_obs=f_obs*(v_w/(v_w-v_b));//Frequency that returns to source (Hz)
+printf('\nb.Frequency that returns to source = %7.0f Hz',f_obs)
+f_B=abs(f_obs-f_s);//Beat frequency (Hz)
+printf('\nc.Beat frequency produced = %0.2f Hz',f_B)
+//Answer given in the textbook is wrong for (a)
+//Answer varies for (c) due to round off error
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
+