<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE article  PUBLIC "-//NLM//DTD Journal Publishing DTD v3.0 20080202//EN" "http://dtd.nlm.nih.gov/publishing/3.0/journalpublishing3.dtd"><article xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:xlink="http://www.w3.org/1999/xlink" dtd-version="3.0" xml:lang="en" article-type="research article"><front><journal-meta><journal-id journal-id-type="publisher-id">AJCM</journal-id><journal-title-group><journal-title>American Journal of Computational Mathematics</journal-title></journal-title-group><issn pub-type="epub">2161-1203</issn><publisher><publisher-name>Scientific Research Publishing</publisher-name></publisher></journal-meta><article-meta><article-id pub-id-type="doi">10.4236/ajcm.2022.123019</article-id><article-id pub-id-type="publisher-id">AJCM-118649</article-id><article-categories><subj-group subj-group-type="heading"><subject>Articles</subject></subj-group><subj-group subj-group-type="Discipline-v2"><subject>Physics&amp;Mathematics</subject></subj-group></article-categories><title-group><article-title>
 
 
  Designing Physics Problems with Mathematica Example II
 
</article-title></title-group><contrib-group><contrib contrib-type="author" xlink:type="simple"><name name-style="western"><surname>Haiduke</surname><given-names>Sarafian</given-names></name><xref ref-type="aff" rid="aff1"><sub>1</sub></xref><xref ref-type="corresp" rid="cor1"><sup>*</sup></xref></contrib></contrib-group><aff id="aff1"><label>1</label><addr-line>The Pennsylvania State University, University College, York, USA</addr-line></aff><pub-date pub-type="epub"><day>20</day><month>07</month><year>2022</year></pub-date><volume>12</volume><issue>03</issue><fpage>297</fpage><lpage>305</lpage><history><date date-type="received"><day>12,</day>	<month>May</month>	<year>2022</year></date><date date-type="rev-recd"><day>18,</day>	<month>July</month>	<year>2022</year>	</date><date date-type="accepted"><day>21,</day>	<month>July</month>	<year>2022</year></date></history><permissions><copyright-statement>&#169; Copyright  2014 by authors and Scientific Research Publishing Inc. </copyright-statement><copyright-year>2014</copyright-year><license><license-p>This work is licensed under the Creative Commons Attribution International License (CC BY). http://creativecommons.org/licenses/by/4.0/</license-p></license></permissions><abstract><p>
 
 
  Customarily in the physics of sound, static-acoustic-related topics are addressed. For instance, the change in the sound level vs discrete change in the distance. In dynamic cases, e.g. the Doppler shit although the relative motion of the components
  ,
   &lt;i&gt;i.e&lt;/i&gt;. the source and the sensor are essential
  ,
   the movements are limited to uniform motions. In this investigating report, scenarios departed from these limitations are considered. For the former case
  ,
   time
   
  dependent sound level and for the latter case, nonuniform motions are analyzed
  .
   Aside from light long-hand mathematical formulations, the majority of the analysis is carried out utilizing a Computer Algebra System (CAS) specifically &lt;i&gt;Mathematica&lt;/i&gt;. The analysis and format of the development are crafted flexibly conducive opportunities for furt
  hering quests for the “what if” scenarios.
 
</p></abstract><kwd-group><kwd>Physics of Sound</kwd><kwd> Time-Dependent Sound Level</kwd><kwd> Computer Algebra System</kwd><kwd> &lt;i&gt;Mathematica&lt;/i&gt;</kwd></kwd-group></article-meta></front><body><sec id="s1"><title>1. Introduction</title><p>Acoustic sound level β measured in dB is given by,</p><p>β = 10 log ( I I 0 ) , (1)</p><p>whereI<sub>0</sub> and I are the reference and sample intensities of the sound, respectively, and both are measured in W/m<sup>2</sup>. The value of the former being the minimum audible intensity for the human ear is 1 &#215; 10<sup>−12</sup> W/m<sup>2</sup>. In practice, the sample intensity,I, is related to the power of the source, P in watts, via</p><p>P = I A , (2)</p><p>where A is the surface area through which the sound waves go through. For simplicity assuming the sound waves originate from a point-source spreading evenly throughout the space, i.e. space is homogeneous and isotropic area A is considered a sphere, with a surface area A = 4πR<sup>2</sup>, with R being its radius.</p><p>With these assumptions (1) reads,</p><p>β = 10 log ( p 4 π R 2 I 0 ) , (3)</p><p>Customary, in practice for a chosen power, P and distance R from the source one measures the sound level β [<xref ref-type="bibr" rid="scirp.118649-ref1">1</xref>] [<xref ref-type="bibr" rid="scirp.118649-ref2">2</xref>] [<xref ref-type="bibr" rid="scirp.118649-ref3">3</xref>]. As pointed out in the abstract, this yields the discrete values of the sound level with practical applications. From an academic point of view, the continuous variation of the β as a function of distance could be a quantity of interest. Since the distance implicitly is a kinematic related entity, this can be related to the character of the movement of the source and ultimately to the run-time. In short, the sound level can be expressed as a function of continuous time-varying quantity.</p><p>With this insight to reach our honed objective, we consider two sound sources and their relative contributing sound levels. This eliminates the explicit need for utilizing I<sub>0</sub> and provides a forum to compare the impact of the different source powers.</p><p>With these objectives, we craft our report which is composed of three sections. In addition to the Introduction, in Section 2 and its subsections, we develop the needed formulation embodying various scenarios concerning the character of the motions of the sources. Applying a CAS, specifically Mathematica [<xref ref-type="bibr" rid="scirp.118649-ref4">4</xref>], we obtain symbolic and then numeric values for the relevant quantities. For better comprehension, the numerics are backed-up with appropriate graphs. The last section, the Conclusions, is the summary of the learned topics with suggestions for augmenting the scope of the investigation. Mathematica codes are embodied in the report, the interested reader may reproduce the results and extend based on personal interest.</p></sec><sec id="s2"><title>2. Procedure</title><p>Here is the posed problem. Two loudspeakers, with output powers P<sub>1</sub> and P<sub>2</sub> are a distance d away from a sound sensor. Simultaneously, they put out identical sound notes and begin moving in the same direction with a zero initial speed toward the sensor. In scenario one, source 1 moves at a constant velocity v<sub>1</sub>, and source 2 at a constant acceleration a<sub>2</sub>. In scenario two, sources begin accelerating at constant rates a<sub>1</sub> and a<sub>2</sub>, and one is modulated with oscillations. Question: When does the sound-level difference at the sensor reach the maximum?</p><p>The second somewhat-related major question concerns the classic Doppler shift, it stems from a classic problem [<xref ref-type="bibr" rid="scirp.118649-ref2">2</xref>] [<xref ref-type="bibr" rid="scirp.118649-ref3">3</xref>]. It poses: how the depth of a water well is measured using a watch only? Its solution hinges on knowing the sound speed in air and the measured run-time between dropping a stone in the well and the splash heard when it hits the water.</p><p>Literature search reveals this problem and its solution has never been modified. We altered the posed question by asking: Is it possible to measure the depth of a water well using only a tuning fork? I.e. no timer or no rope! Our solution is insightful.</p><p>The forthcoming sections address these issues. Sections 2.1 and 2.2 are concerned with the sound level and 2.3 is the water well problem.</p><sec id="s2_1"><title>2.1. Case 1. One of the Sources Is Moving at a Constant Speed, the Other One Is at a Constant Acceleration</title><p><xref ref-type="fig" rid="fig1">Figure 1</xref> shows the situation at hand.</p><p>Sources put out power P<sub>1</sub> and P<sub>2</sub>. Applying (3) the difference of the sound level with appropriately changed notations, yields,</p><p>Δ β = β 1 − β 2 = 10 [ log ( P 1 P 2 ) + 20 log ( R 12 R 11 ) ] , (4)</p><p>According to <xref ref-type="fig" rid="fig1">Figure 1</xref>, the sources at t = 0 are at the origin, d-distance from the sensor. At a later time, t they are R distance away from the sensor and traveled a certain distance depending on their respective kinematics. Utilizing <xref ref-type="fig" rid="fig1">Figure 1</xref> the scenario on hand yields,</p><p>{ R 11 = d − v 1 t R 12 = d − 1 2 a 2 t 2 , (5)</p><p>Substituting (5) in (4) and assuming Doppler shit does not affect the intensity yields the explicit time-dependent sound-level difference,</p><p>Δ β 1 ( t ) = 10 [ log ( P 1 P 2 ) + 20 log ( d − 1 2 a 2 t 2 d − v 1 t ) ] , (6)</p><p>One of our objectives is to find the time, t to maximize the sound-level difference. We set the slope of (6) zero and search for its root(s). These are,</p><p>Δβ1 [t_] = 10(Log [10, P<sub>1</sub>/P<sub>2</sub>] + 20 Log [10,(d − 1/2 a<sub>2</sub> t<sup>2</sup>)/(d − v<sub>1</sub>t)]);</p><p>slopeΔβ1 = D [Δβ1 [t], {t, 1}]//Simplify;</p><p>solt1 = Solve [slopeΔβ1 = = 0, t]</p><p>{ { t → d a 2 − d 2 a 2 2 − 2 d a 2 v 1 2 a 2 v 1 } , { t → d a 2 + d 2 a 2 2 − 2 d a 2 v 1 2 a 2 v 1 } }</p><p>To obtain a realistic meaningful output after trial and error we choose a set of practical parameters storing them in values 1. Units are MKS and symbols correspond one-to-one to the passage in the text.</p><p>values 1 = {v<sub>1</sub> → 2, a<sub>2</sub> → 5, d → 10, P<sub>1</sub> → 200, P<sub>2</sub> → 30};</p><p>solt1/.values1//N</p><p>{ { t → 0.4174 } , { t → 9.582 } }</p><p>At these time instances, the sources are at the same distances from the sensor yielding the maximum intensity sound-level differences. The distance corresponding to the second time instance is ignored; the distance exceeds d. The acceptable [Δβ(t)]<sub>max</sub> is,</p><p>Δβ1 [t]/.solt1 [[<xref ref-type="bibr" rid="scirp.118649-ref1">1</xref>]]/.values1//N</p><p>11.9426 sec</p><p>It is insightful to display Δβ(t) side-by-side with the “distance to the sensor” vs t see <xref ref-type="fig" rid="fig2">Figure 2</xref>. A useful table is included as well.</p><p>plot11 = Plot [Δβ1 [t]/.values1, {t, 0, 1}, AxesLabel → {“t(s)”, “Δβ1(dB)”}, PlotStyle → Black, GridLines → Automatic];</p><p>plot12 = Plot [Evaluate [{d − v<sub>1</sub> t, d − 1/2 a<sub>2</sub> t<sup>2</sup>}/.values1], {t, 0, 1}, PlotStyle → {Blue, Red}, AxesLabel → {“t(s”, “distance to sensor(m)”}, GridLines → Automatic];</p><p>table11 = NumberForm [TableForm [Table[{v<sub>1</sub>t − 1/2 a<sub>2</sub> t<sup>2</sup>, t}/.values1, {t, 0.3, 0.6, 0.05}], TableHeadings → {None, {“[Δd = v<sub>1</sub>t − 1/2a<sub>2</sub>t<sup>2</sup>](m)”, “t(s)”}}], {3,3}];</p><p>The intersecting point of these two curves shown in the middle panel of <xref ref-type="fig" rid="fig2">Figure 2</xref> hints that at t = 0.8 s both sources are at the same distance from the sensor. Therefore, the sound level difference at this point is the same as when they were at the origin. Numerically, Δβ(t) at t = 0, and 0.8 s are,</p><p>{N [Δβ1 [t]/.values1/.t → 0], Δβ1 [t]/.values1/.t → 0.8}</p><p>{8.23909, 8.23909}</p><p>For identical sources, i.e. for P<sub>1</sub> = P<sub>2</sub>, this leads to Δβ = 0.</p><p>One of the objectives of this report is to demonstrate how to design a physics problem. Throughout crafting this report we realized to maximize the sound-level</p><p>difference the two sound sources ought to move with different kinematics. In this example, we selected one to move with a constant speed and the other with a constant acceleration. Their character differences are shown on the middle panel of <xref ref-type="fig" rid="fig2">Figure 2</xref>.</p><p>Intrigued by the learned lesson we extend the design of the physics problem by considering a modified version of the aforementioned case. The details are discussed in Subsection 2.2.</p></sec><sec id="s2_2"><title>2.2. Case 2. Both Sources Are Moving at the Same Constant Acceleration, One of Them Is Modulated with an Oscillation</title><p>Here both sources are moving at the same constant acceleration, one of them has modified modulated oscillations. Their kinematics is given by,</p><p>{ R 21 = 1 2 a 22 t 2 + A sin [ 2 π f t ] R 22 = 1 2 a 22 t 2 , (7)</p><p>Inserting (7) in (6) gives,</p><p>Δ β 2 [ t _ ] = 10 ( log [ 10 , P 1 P 2 ] + 20 log [ 10 , d − 1 2 a 22 t 2 d − 1 2 a 22 t 2 − A sin [ 2 π f t ] ] ) , (8)</p><p>Similar to the previous objective we search for the instance that maximizes the sound-level difference. In fact, because of oscillations, there are multiple such instances. We set the slope of (8) zero and search for its root(s). Theoretically, this sounds, but in practice, it is challenging that even Mathematica is unable to resolve symbolically. Alternatively, for a reasonable set of parameters that are stored in values 2, we solve the problem numerically.</p><p>values 2 = {A → 1., f → 1., a<sub>22</sub> → 5., P<sub>1</sub> → 200., P<sub>2</sub> → 30., d → 10.};</p><p>The amplitude of the oscillation and its frequency are set at, f = 1 Hz and A = 1, respectively. These quantities are chosen such that they are compatible with the acceleration a<sub>22</sub> = 5 m/s<sup>2</sup>.</p><p>Δβ2 [t_] = 10(Log [10, P<sub>1</sub>/P<sub>2</sub>] + 20 Log [10, (d − 1/2 a<sub>22</sub> t<sup>2</sup>)/(d − 1/2 a<sub>22</sub> t<sup>2</sup> − A Sin [2π f t])])/.values2;</p><p>plot21 = Show [{Plot [Δβ2 [t], {t, 0, 2}, AxesLabel → {“t(s)”, “Δβ2(dB)”}, PlotStyle → Black, GridLines → Automatic],</p><p>Graphics [{Blue, Dashing [0.01], Line [{{0,8.23}, {2.,8.23}}]}]}];</p><p>plot22 = Show [{Plot [Evaluate [{d − 1/2 a<sub>22</sub> t<sup>2</sup> − A Sin [2π f t], d − 1/2 a<sub>22</sub> t<sup>2</sup>}/.values2], {t, 0, 2}, PlotStyle → {Blue, Red}]}, AxesLabel → {“t(s)”, “distance to sensor(m)”}, GridLines → Automatic];</p><p><xref ref-type="fig" rid="fig3">Figure 3</xref> is insightful and the panels are complimentary. The middle plate is included because the source oscillates and there are multiple instances where its distance from the sensor is the same as of the second source; noted by their intersections. Consequently, this is conducive to the instances where the sound-level</p><p>differences are maxima. These are shown by the four intersects of the horizontal dashed line in black shown on the left panel. The ordinate differences between the red and the blue curves are extreme. These are tabulated in the right-most table. Because the frequency of the oscillations is f = 1 Hz this corresponds to the even time-intervals of 0.5 s shown on the left panel.</p></sec><sec id="s2_3"><title>2.3. Depth of a Water Well Using Only a Tuning Fork</title><p>In the introduction paragraph of Section 2, Procedure, we referred to the classic water well problem. Briefly, this is about measuring the depth of a water well without lowering a rope into the well. Assuming the only available tool is a stop-watch the run-time for a freely dropped stone from the instance a stone is dropped in the well to the time the splash is heard is conducive to the measured depth.</p><p>Aiming at the same objective, here we offer an alternate approach that solution doesn’t require a watch; all that is needed is a tuning fork! Our solution employs 1) the principle of the Doppler shift and 2) uses the modified version of the latter. Noting, the standard classic Doppler shift utilizes the change of frequency due to relative motion at a constant speed, a falling tuning fork is falling at a constant acceleration!</p><p>The scenario on hand is depicted in <xref ref-type="fig" rid="fig4">Figure 4</xref>.</p><p>Here is the outline of our solution. Take a tunning fork of frequency f Hz. Drop it in a well of unknown depth h. While it is accelerating and keeps vibrating it emits sound waves that reach back at the edge of the well at frequency f<sub>1</sub>. The waves also bounce off from the bottom of the well at frequency f<sub>2</sub>. Both frequencies f<sub>1</sub> and f<sub>2</sub> are time-dependent and are continuously changing; the Doppler shift. Noting, that the farther the fork drops the faster it moves and at the splash, it moves the fastest corresponding to the highest frequency, (Subscript [f, 2])<sub>Max</sub>. The reflected frequency at the top of the well produces a sound-beat, B = ( f 2 ) max − f 1 . Knowing the B we formulate a strategy conducive to measuring the depth, h.</p><sec id="s2_3_1"><title>2.3.1. Symbolic Analysis</title><p>The frequency of the sound at the top and the bottom of the well while the fork falls are, respectfully,</p><p>f 1 = f ( 1 1 + v 0 v ) , (9)</p><p>f 2 = f ( 1 1 − v 0 v ) , (10)</p><p>where the instantaneous speed of the fork is, v 0 = 2 g y , the y is the fallen depth, and v is the sound-speed. Utilizing (9) and (10) the number of the beats is,</p><p>B = ( f 2 ) max − f 1 , (11)</p><p>Rearranging (11) for the depth, h yields,</p><p>h = 1 2 g v 2 [ 1 − 2 f B [ ( f B ) 2 + 1 − f B ] ] , (12)</p></sec><sec id="s2_3_2"><title>2.3.2. Graphic and Numeric Results</title><p>To demonstrate the usefulness of (12) we use the physiological data applied to a normal human ear [<xref ref-type="bibr" rid="scirp.118649-ref2">2</xref>] [<xref ref-type="bibr" rid="scirp.118649-ref3">3</xref>]. Accordingly, the sensitivity frequency range is: 20 Hz ≤ f ≤ 20 kHz and the capability of counting the sound-beat is: 6 Hz ≤ B ≤ 12 Hz. In addition we use: the gravity constant g = 9.8 m/s<sup>2</sup> and sound-speed v = 340.0 m/s.</p><p>The h in (12) is a two-variable function: h(f, B). For a tunning fork with frequency and beats within the range of 50 Hz ≤ f ≤ 70 Hz and 6 ≤ B ≤ 12 Hz its contour plot is shown on the left panel of <xref ref-type="fig" rid="fig5">Figure 5</xref> this corresponds to a well 19 m deep. It shows when a 60 Hz vibrating fork is dropped 7 beats are heard at a 19 m depth. Or, for the same fork, an 8-beat yields a 26 m depth. The information in the contour plot usefully is converted to the shown graph on the right panel. For instance, the eight-beat count of a vibrating 50 Hz fork (the blue curve) yields a 37 m depth. Or a 10-beat count of a 70 Hz fork (the mustard curve) yields to a 30 m depth.</p></sec></sec></sec><sec id="s3"><title>3. Conclusions</title><p>The sound-level changes as a discrete function of distance from the source. This report extends its variation by replacing the discrete distances with distances that are due to the continuous movement of the source. Two such sources with two different kinematics in two different scenarios are considered. The interplay of their respective kinematics utilizing a CAS specifically Mathematica reveals features not reported in the literature. Based on the progress made in this report, similar scenarios considering various kinematics of interest may be analyzed.</p><p>This report also revisits the classic “water well” problem. The classic objective of the problem is intact but we offer a different solution providing only a tuning fork instead of a watch.</p><p>The interested reader may find a motivational source related to the current study [<xref ref-type="bibr" rid="scirp.118649-ref5">5</xref>], and resourceful for coding and plotting the graphs [<xref ref-type="bibr" rid="scirp.118649-ref6">6</xref>] [<xref ref-type="bibr" rid="scirp.118649-ref7">7</xref>]. Mathematica codes are in boldface.</p></sec><sec id="s4"><title>Acknowledgements</title><p>The author acknowledges the John T. and Page S. Smith Professorship funds for completing and publishing this work.</p></sec><sec id="s5"><title>Conflicts of Interest</title><p>The author declares no conflicts of interest regarding the publication of this paper.</p></sec><sec id="s6"><title>Cite this paper</title><p>Sarafian, H. (2022) Designing Physics Problems with Mathematica Example II. American Journal of Computational Mathematics, 12, 297-305. https://doi.org/10.4236/ajcm.2022.123019</p></sec></body><back><ref-list><title>References</title><ref id="scirp.118649-ref1"><label>1</label><mixed-citation publication-type="other" xlink:type="simple">Olson, H.F. (1952) Music, Physics and Engineering. Dover Publications, Mineola.</mixed-citation></ref><ref id="scirp.118649-ref2"><label>2</label><mixed-citation publication-type="other" xlink:type="simple">Halliday, D., Resnick, R. and Walker, J. (2021) Fundamentals of Physics. 11th Edition, John Wiley &amp; Sons, Inc., New Jersey.</mixed-citation></ref><ref id="scirp.118649-ref3"><label>3</label><mixed-citation publication-type="other" xlink:type="simple">Tipler, P. and Mosca, G. (2022) Physics for Scientists and Engineers. 6th Edition, McGraw Hills Companies, Inc., New York.</mixed-citation></ref><ref id="scirp.118649-ref4"><label>4</label><mixed-citation publication-type="other" xlink:type="simple">Mathematica V13. (2202). http://Wolfram.com</mixed-citation></ref><ref id="scirp.118649-ref5"><label>5</label><mixed-citation publication-type="other" xlink:type="simple">Sarafian, H. (2022) Designing Physics Problems with Mathematica. American Journal of Computational Mathematics, 12, 191-196. https://doi.org/10.4236/ajcm.2022.122010 .</mixed-citation></ref><ref id="scirp.118649-ref6"><label>6</label><mixed-citation publication-type="other" xlink:type="simple">Wolfram, S. (2003) Mathematica Book. 5th Edition, Cambridge University Press, New York.</mixed-citation></ref><ref id="scirp.118649-ref7"><label>7</label><mixed-citation publication-type="other" xlink:type="simple">Sarafian, H. (2019) Mathematica Graphics Examples. 2nd Edition, Scientific Research Publishing, Wuhan.</mixed-citation></ref></ref-list></back></article>