<?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">JEMAA</journal-id><journal-title-group><journal-title>Journal of Electromagnetic Analysis and Applications</journal-title></journal-title-group><issn pub-type="epub">1942-0730</issn><publisher><publisher-name>Scientific Research Publishing</publisher-name></publisher></journal-meta><article-meta><article-id pub-id-type="doi">10.4236/jemaa.2009.14030</article-id><article-id pub-id-type="publisher-id">JEMAA-1111</article-id><article-categories><subj-group subj-group-type="heading"><subject>Articles</subject></subj-group><subj-group subj-group-type="Discipline-v2"><subject>Engineering</subject><subject> Physics&amp;Mathematics</subject></subj-group></article-categories><title-group><article-title>
 
 
  Dynamic Dipole-Dipole Magnetic Interaction and Damped Nonlinear Oscillations
 
</article-title></title-group><contrib-group><contrib contrib-type="author" xlink:type="simple"><name name-style="western"><surname>aiduke</surname><given-names>SARAFIAN</given-names></name><xref ref-type="corresp" rid="cor1"><sup>*</sup></xref></contrib></contrib-group><author-notes><corresp id="cor1">* E-mail:<email>has2@psu.edu</email></corresp></author-notes><pub-date pub-type="epub"><day>30</day><month>12</month><year>2009</year></pub-date><volume>01</volume><issue>04</issue><fpage>195</fpage><lpage>204</lpage><history><date date-type="received"><day>July</day>	<month>10th,</month>	<year>2009</year></date><date date-type="rev-recd"><day>August</day>	<month>4th,</month>	<year>2009</year>	</date><date date-type="accepted"><day>August</day>	<month>12th,</month>	<year>2009.</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>
 
 
  Static dipole-dipole magnetic interaction is a classic topic discussed in electricity and magnetism text books. Its dynamic version, however, has not been reported in scientific literature. In this article, the author presents a comprehensive analysis of the latter. We consider two identical permanent cylindrical magnets. In a practical setting, we place one of the magnets at the bottom of a vertical glass tube and then drop the second magnet in the tube. For a pair of suitable permanent magnets characterized with their mass and magnetic moment we seek oscillations of the mobile magnet resulting from the unbalanced forces of the anti-parallel magnetic dipole orientation of the pair. To quantify the observed oscillations we form an equation describing the motion of the bouncing magnet. The strength of the magnet-magnet interaction is in proportion to the inverse fourth order separation distance of the magnets. Consequently, the corresponding equation of motion is a highly nonlinear differential equation. We deploy Mathematica and solve the equation numerically resulting in a family of kinematic information. We show our theoretical model with great success matches the measured data.
 
</p></abstract><kwd-group><kwd>Dipole-Dipole Magnetic Interaction</kwd><kwd> Damped Nonlinear Oscillations</kwd><kwd> Mathematica</kwd></kwd-group></article-meta></front><body><sec id="s1"><title>1. Introduction</title><p>It is trivial to quantify the electrostatic interaction between two point-like charges; however, in practice, it is challenging to deal with point-like charges. On the contrary, it is common practice to observe the interaction between two magnets; however, it is not that trivial to quantify their mutual interaction. For instance, the triviality of formulating the mutual interaction force between a pair of electric charge results from the fact that there are electric monopoles. We have not observed similar monopoles for the magnets thus far. The mutual magneto static interaction force between two magnets therefore is elevated beyond monopole-monopole interaction; it is considered as magnetic dipole-dipole interaction. Dipoles are geometrically extended objects. Even for planar dipoles intuitively speaking one speculates the interaction force should depend on the relative orientation of the dipoles, let alone the three dimensional configurations. As a common practice, the planar configuration is trivialized further to a one dimensional manageable situation; magnets are aligned along their mutual common axial axis [<xref ref-type="bibr" rid="scirp.1111-ref1">1</xref>]. Even for this configuration to the knowledge of the author there is no report utilizing its practical dynamic application. We fill in the missing gap, and propose a practical research project.</p><p>The problem is posed: Consider two permanent magnets. Position them along their mutual common axial axis and orient their magnetic moments so that are anti-parallel. Drop one of the magnets vertically on top of the second stationary magnet. Select a set of suitable characteristics for the magnets, namely the mass of the falling magnet and their magnetic moments, such that the balance between the weight of the falling magnet and the mutual magnetic force between the two magnets results in oscillations. Model the problem theoretically and confirm the accuracy of the model vs. data.</p><p>The analysis of the proposed project embodies a variety of experimental and theoretical challenges. The paper is organized to address both aspects and is composed of five sections. In Section 2, we brief the theoretical foundation evaluating the needed axial magnetic field of a permanent magnet and the magnetic force of two interacting magnets. In Section 3, guided by the theoretical insight of Section 2, we utilize two independent experimental methods and measure the needed magnetic dipole moment of the magnets. In this section we explain also the actual experiment of the bouncing magnet. In Section 4, we lay the foundation for the theoretical model and compare our model to data. In Section 5, we construct a few useful phase diagrams and in Section 6, we address the energy related issues. We close the paper with concluding remarks.</p><p>In summary, the project was stemmed from a hypothetical conceptual thought experiment. The paper is written descriptively and navigates the reader through the challenges that faced the author. To transit from a thought experiment to reality, suitable magnets had to be sought, experimental methods had to be explored, data acquisition system had to be utilized, and theoretical models had to be investigated. The proposed problem lends itself as a comprehensive physics research project. The paper provides a road map resolving the issues of interest and proves the usefulness of Mathematica [<xref ref-type="bibr" rid="scirp.1111-ref2">2</xref>] as a valuable research tool. From the view of the author, Mathematica to a theorist is what data acquisition utilities are to an experimentalist.</p></sec><sec id="s2"><title>2. Axial Magnetic Field of a Permanent Magnet and Dipole-Dipole Magnetic Interaction</title><p>Magnetic field <img src="1-9800149\0f4fc8de-222b-45d8-bec9-94c2905898c1.jpg" /> at a distance z from the center of a counter clockwise steady current i, looping in a horizontal circle of radius R along the symmetry axis z perpendicular to the loop according to Biot-Savart law trivially evaluates [<xref ref-type="bibr" rid="scirp.1111-ref1">1</xref>],</p><disp-formula id="scirp.1111-formula15506"><label>(1)</label><graphic position="anchor" xlink:href="1-9800149\c4b3e37f-8eda-4112-b42b-fdf9c5d7c7ee.jpg"  xlink:type="simple"/></disp-formula><p>where <img src="1-9800149\a3a00b76-8ebe-4cd3-88e4-98275a45a107.jpg" /> is the unit vector along the z-axis and <img src="1-9800149\5ab71526-8037-4b44-98f2-f7339474d8a6.jpg" /> is the permeability of free space. It is customary to define <img src="1-9800149\64f936e6-dbb0-4fce-a93b-6a602f873194.jpg" /> and apply Equation (1) in its entirely to a permanent magnet possessing a magnetic moment<img src="1-9800149\1398be32-5f62-4a16-8241-23ffa7ab2d49.jpg" />.</p><p>With the given quantified value of the magnetic field it is straight forward to determine the magnetic force between two permanent magnets when their moments align along their common axial axis. Viewing the interaction as being the response of the moment of one magnet to the field of the other one, the energy associated with the pair is<img src="1-9800149\f7aa585b-a28a-4f40-97c3-5500d40b918f.jpg" />. Its spatial variation is the interaction force, <img src="1-9800149\78ed5edd-4ec9-4894-b6f2-501f7e4713d6.jpg" />, meaning, the force is necessitated by the inhomogeneity of the field. Utilizing Equation (1) the inhomogeneity evaluates, <img src="1-9800149\d40cd1f2-d30e-4603-b162-4f35ddc704a5.jpg" />and the force becomes,</p><disp-formula id="scirp.1111-formula15507"><label>(2)</label><graphic position="anchor" xlink:href="1-9800149\0a3a7463-1e53-4491-ae54-1d91bc527202.jpg"  xlink:type="simple"/></disp-formula><p>Accordingly, the anti-parallel dipole alignment results in a repulsive force and their parallel orientation provides an attractive force, respectively.</p><p>Theoretical modeling of the observed oscillations utilizes Equation (2). As we discuss in Section 4, by including other relevant forces we form an equation describing the motion of the bouncing magnet. We aim to solve the equation of motion symbolically and apply Mathematica. However, because of the highly nonlinear term of Equation (2) Mathematica provides no symbolic solution; we solve the equation numerically. Furthermore, we have observed the pair of our selected magnets always are subject to R</p><disp-formula id="scirp.1111-formula15508"><label>(3)</label><graphic position="anchor" xlink:href="1-9800149\852fb9d5-f1c6-4cde-a759-650b86e227fd.jpg"  xlink:type="simple"/></disp-formula><disp-formula id="scirp.1111-formula15509"><label>(4)</label><graphic position="anchor" xlink:href="1-9800149\9bd05ebb-4941-4440-863c-8fb5e2e662b7.jpg"  xlink:type="simple"/></disp-formula><p>For the chosen set of parameters describing the magnets in use, we then compare the numeric solutions of the associated equations of motion utilizing Equation (2) and Equation (4), separately; within the duration of the observed oscillations the solutions are indistinguishable. Henceforth, we utilize the simplified format of Equations (3) and (4) throughout our analysis.</p></sec><sec id="s3"><title>3. Experimental Data</title><sec id="s3_1"><title>3.1 Magnetic Moment of a Permanent Magnet</title><p>We acquire a variety of cylindrical magnets [<xref ref-type="bibr" rid="scirp.1111-ref3">3</xref>] and matching glass tubes [<xref ref-type="bibr" rid="scirp.1111-ref4">4</xref>].The magnets can slide freely within the tubes without touching the walls. One at a time we place the tubes containing one of the paired magnets vertically in a drilled wooden base. We run a test experiment, meaning, we drop the second magnet into the tube and see if it meaningfully bounces up and down generating data that can be documented. Among successful cases we select the pairs supporting l&lt; <xref ref-type="fig" rid="fig4">Figure 4</xref> of Subsection 3.2 is a photograph of the actual experiment.</p><p>To verify the practical reliability of Equation (3) we measure the field directly. Then we compare the trend of the strength of the measured field vs. distance to its theoretical counterpart, Equation (3). For our measurement we utilize Pasco™ [<xref ref-type="bibr" rid="scirp.1111-ref5">5</xref>] Magnetic Field Sensor/Gauss meter [<xref ref-type="bibr" rid="scirp.1111-ref6">6</xref>], ScienceWorkshop 750 Interface [<xref ref-type="bibr" rid="scirp.1111-ref7">7</xref>] and DataStudio software [<xref ref-type="bibr" rid="scirp.1111-ref8">8</xref>]. The first element of each</p><p>pair of the data set embedded in the accompanied code is the distance from the Gauss meter to the tip of the magnet in mm units; the second element is the averaged value of the measured fields in Gauss. Linear and logarithmic plots of the field vs. distance are depicted in <xref ref-type="fig" rid="fig1">Figure 1</xref>. The abscissa of both graphs are the distances from the tip of the Gauss meter to the center of the cylinder magnet.</p><p>&#160; cylindricalMagnedata={{30,110},{35,80},{40,58.6}{45,45},{50,36},{60,24},{70,17},{75,14. 6}}/.{p_,q_}&#174;{0.1(p+12.7),q};</p><p>&#160; plotlistdata=ListPlot[cylindricalMagnetdata,AxesLabel &#174;{&quot;z,cm&quot;,&quot;B,Gauss&quot;},PlotRange&#174;{{3,9},{0,120}},GridLnes&#174;Automatic,PlotStyle&#174;{Black,PointSize[0.02]}];</p><p>&#160; lisplot1=ListLogLogPlot[cylindricalMagnetdataGridLines&#174;Automatic,AxesLabel&#174;{&quot;Logz&quot;,&quot;LogB&quot;}PlotStyle&#174;{Black}];</p><p>&#160; listplot1=ListLogLogPlot[cylindricalMagnetdataGridLines&#174;Automatic,AxesLabel&#174;{&quot;Logz&quot;,&quot;LogB&quot;}PlotStyle&#174;{Black}];</p><p>&#160; listplot2=ListLogLogPlot[cylindricalMagnetdataGridLines&#174;Automatic,AxesLabel&#174;{&quot;Logz&quot;,&quot;LogB&quot;}Joined&#174;True,PlotStyle&#174;{Black}];</p><p>&#160;&#160;&#160;&#160;&#160;s12=Show[listplot1,listplot2];</p><p>&#160;&#160;&#160;&#160;&#160;Show[GraphicsArray[{plotlistdata,s12}]]</p><p>The linear plot of the raw data is depicted in the left graph of <xref ref-type="fig" rid="fig1">Figure 1</xref>.The right graph is the log-log display of the same data. The dimensions of the cylinder magnet are: {l,2 R}={2.54, 1.27} cm. Notably, the strongest field is measured at 3.0 cm axial distance away from the tip of the cylinder; as shown in both plots this data point falls along the general trend of the rest of the data. Utilizing the right graph of <xref ref-type="fig" rid="fig1">Figure 1</xref>, the slope of the slanted line measures 2.9&#177;0.2. The slope lies within the predicted theoretical exponent of the inverse distance of Equation (3).</p><p>Guided by the theoretical format of Equation (3) we fit the data applying B(z)=az<sup>-</sup><sup>b</sup>. The plot of Log[B(z)] utilizing the fitted values of {a,b} vs. the Log[z] along with the right graph of <xref ref-type="fig" rid="fig1">Figure 1</xref> is shown <xref ref-type="fig" rid="fig2">Figure 2</xref>.</p><p>fitdata=FindFit[cylindricalMagnetdata,<img src="1-9800149\716605f1-ccb0-4a6e-bd3f-86fb93e94f1a.jpg" />]</p><p>loglogplotfit=LogLogPlot[<img src="1-9800149\c5b195b1-c07a-490a-9cbf-503a6ac54d52.jpg" /><img src="1-9800149\51e8be57-f6c0-4833-9b0d-e58b6d6f6406.jpg" /><img src="1-9800149\cb18d6d9-c15a-4094-94a3-400403e798a8.jpg" />Dashing[{0.02}]}, PlotRange-&gt;{All,{10,120}}];</p><p>Show[listplot1,loglogplotfit,s12]{a&#174;7299.62, b&#174;2.8922}</p><p>&#160; According to our setup shown in <xref ref-type="fig" rid="fig4">Figure 4</xref>, for a typical run the range of the separation distance of the magnets falls within 4cm&#163;z&#163;8cm. Hence the small deviation of the fitted line (the tail of the dashed line) vs. data (the tail of the solid line) at distances larger than z=7.5 cm justifiably may be ignored. The values of the fitted parameters {a,b} provide two useful pieces of information. First, the slope of the fitted line is b=2.8922; as discussed, this matches the slope of the data shown in <xref ref-type="fig" rid="fig1">Figure 1</xref>. In other words, for our selected magnets Equation (3) justifiably is applicable. Secondly, the value of a=7299.62; hence by comparing B(z)=az<sup>-</sup><sup>b</sup> to Equation (3) we deduce<img src="1-9800149\944f4efe-7d00-4e5b-86d5-bcacbbdaa10e.jpg" />. The units of <img src="1-9800149\dca90496-8f69-4edb-a35a-c7b127dc5882.jpg" /> is Gauss.cm<sup>3</sup>, and when</p><p>converted to MKS units, it yields m=3.65 Amp.m<sup>2</sup>. In short, the measurement of field yields the value of magnetic moment of the permanent magnet.</p></sec><sec id="s3_2"><title>3.2. Magnetic Moment of a Permanent Magnet, a Static Method</title><p>In this section we consider an alternate method to measure the magnetic dipole moment of a permanent magnet.&#160; Contrary to the previous method in reference to equipment, and in addition to knowing the weight of one of the magnets the only equipment needed is a straight edge. A version of this method has been discussed in [<xref ref-type="bibr" rid="scirp.1111-ref9">9</xref>]. The method is noble; however, without justification the authors [<xref ref-type="bibr" rid="scirp.1111-ref9">9</xref>] suggests to apply the approximated field of a solid disk to a set of nut-shaped magnets. On the contrary, our modified approach, as discussed in Subsection 3.1, relies on the proven consistency of theoretical approximated field given by Equation (3) vs. data.</p><p>For a typical run, we place a pair of identical cylindrical magnets with their anti-parallel moments aligned along their common axial orientation in a vertical glass tube. The anti-parallel orientation of the moments causes a mutual repulsive force resulting in static equilibrium. We then measure the center-to-center separation distance of the magnets -- this yields the value of the moment. The reason is that at static equilibrium the net force on the floating magnet is zero, giving</p><disp-formula id="scirp.1111-formula15510"><label>(5)</label><graphic position="anchor" xlink:href="1-9800149\70b449e3-4a01-4f29-bae6-d430bd25b840.jpg"  xlink:type="simple"/></disp-formula><p>where F<sub>12</sub> is the force of the base magnet (#1) on the suspended magnet (#2). Its value is given by Equation (4), where m is the mass of the suspended magnet. For a pair of identical magnets we solve Equation (5) for m,</p><disp-formula id="scirp.1111-formula15511"><label>(6)</label><graphic position="anchor" xlink:href="1-9800149\86806611-ff9d-476a-b79b-afe6907666cc.jpg"  xlink:type="simple"/></disp-formula><p>where z<sub>2</sub> is the center-to-center distance of the magnets. We introduced the subscripts to identify various generalized cases -- more explanations are given in the next paragraph. We repeat of the same procedure with three identical cylindrical magnets, yielding</p><p><img src="1-9800149\23a61eac-9854-4776-9bd9-9df56a312d9e.jpg" />&#160;&#160;&#160;&#160;&#160;&#160; and</p><disp-formula id="scirp.1111-formula15512"><label>(7)</label><graphic position="anchor" xlink:href="1-9800149\941ae82c-302c-4054-9b2e-cb2e840931d6.jpg"  xlink:type="simple"/></disp-formula><p>&#160;Here, z<sub>2</sub> and z<sub>3</sub> are the center-to-center distances from the base to the 2<sup>nd</sup> and from the base to the 3<sup>rd</sup> magnets, respectively, and <img src="1-9800149\9c998a6f-717e-4104-995e-babbaaad1bba.jpg" /> and <img src="1-9800149\2ee007b6-3841-41ed-9671-faa19047b9d9.jpg" /> are the solutions of the</p><p>corresponding static equations for the 2<sup>nd</sup> and the 3<sup>rd</sup> magnets, respectively. Note, the first subscript of mu indicates the number of magnets for a given setup, and the second subscript corresponds to the magnet of interest. E.g. the indices of <img src="1-9800149\b7ce702b-304a-43d8-b802-dc30b060da68.jpg" /> are interpreted as the 2<sup>nd </sup>magnet of a three-magnet tower. Note that for the number of conducive equations, the value of m’s are one less than the number of the magnets. In our study we extend the static method from a minimum of a two-magnet tower to a five-magnet assembly. We provide one of the four equations for the five-magnet assembly,</p><p><img src="1-9800149\0faaa3ed-ccb1-45f7-a453-feb9cc11fe7b.jpg" />(8)</p><p>For each assembly we then measure the needed distances and apply the corresponding equations to evaluate the m’s. For each assembly we then plot the values of the moments vs. the number of the magnets. The graph reveals the distribution of moments about the overall mean value of the moments is sharp; we then objectively evaluate the mean value of each assembly and then evaluate the mean of the mean. Notice also to measure the mass of the magnet we use a balance with an accuracy of 0.1 grams. Considering the accuracy of a straight edge is 1 mm, our systematic error yields 12%; Hence, our measurement yields m=(3.58&#177;0.43) Amp.m<sup>2</sup>. Comparing to the measurement of the previous method, although the values of the moments are comparable, it appears that we should prefer the method of the previous section. A photo of the setup for a four-magnet assembly is shown in <xref ref-type="fig" rid="fig3">Figure 3</xref>.</p><p>(*Import[&quot;C:\\DataFiles\\MagneticDipole_Fall2008\\Cyl-indricalMagnet Nov28_2008\\IMG_2589.jpg&quot;, Image Size&#174;{120,180}];*)</p></sec><sec id="s3_3"><title>3.3. The Bouncing Magnet</title><p>The experiment setup is shown in <xref ref-type="fig" rid="fig4">Figure 4</xref>. It consists of a pair of identical cylindrical magnets assembled in a suitable vertical glass tube. The tube is placed in a wooden drilled base. Along the extension of the tube using nonmagnetic rods and clamps we mount the Motion sensor [<xref ref-type="bibr" rid="scirp.1111-ref10">10</xref>] and connect it to the Interface [<xref ref-type="bibr" rid="scirp.1111-ref7">7</xref>]. To run the experiment (shown in <xref ref-type="fig" rid="fig4">Figure 4</xref>) we lift the top magnet with the metallic lip of a measuring tape and position it in the front of the motion sensor. We then activate the motion sensor and with a jolt pull the lip of the measuring tape away. The suspended magnet falls and bounces off the bottom magnet. While the top magnet oscillates up and down the motion sensor collects data; the sensor measures and stores the coordinates of the magnet along with its corresponding time. Applying DataStudio [<xref ref-type="bibr" rid="scirp.1111-ref8">8</xref>] we store the data set and the displayed image. One such image is shown in <xref ref-type="fig" rid="fig5">Figure 5</xref>. We then import the image and the data to Mathematica.</p><p>(*Import[&quot;C:\\DataFiles\\MagneticDipole_Fall2008\\Cyl-indricalMagnetNov28_2008\\IMG_2594.jpg&quot;, ImageSi ze&#174;{120,200},Alignment&#174;{Center}];*)</p><p>Import[&quot;C:\\DataFiles\\MagneticDipole_Fall2008\\Cy lindricalMagneNov28_2008\\position1_Dec4_20 08.bmp &quot;,ImageSize&#174;400,Alignment&#174;{Center}]</p><p>The run time of the experiment is about 2.0 s and the magnet on an average oscillates eight times with an approximate period of 0.3 s. The largest amplitude of oscillation typically is 8 cm. The closest distance of approach of the bouncing magnet from the base magnet on average is greater than 4 cm; this is within the z<sup>-3</sup> approximation of magnetic field.</p></sec></sec><sec id="s4"><title>4. A Theoretical Model</title><p>With the data on hand we devise our model. The basis of our model stems from dynamics, meaning, we deal with active forces. In addition to the relevant forces acting on the mobile magnet namely weight and the dipole-dipole magnetic repulsive force, we introduce a new factor, the speed dependent viscous force. The viscous coefficient for the ceramic magnet against the glass tube and the surrounding air is unknown. Therefore, our model embodies an unknown parameter. Guided with data we adjust the value of this unknown parameter; the procedure follows.</p><p>Utilizing DataStudio we export the collected data to Microsoft™ Excel [<xref ref-type="bibr" rid="scirp.1111-ref11">11</xref>], apply ExcelLink for Mathematica [<xref ref-type="bibr" rid="scirp.1111-ref12">12</xref>] we import the data to Mathematica. The imported data is a list of pairs of numbers; applying Mathematica rules we manipulate the list accordingly. For instance, in accordance with the displayed data in <xref ref-type="fig" rid="fig5">Figure 5</xref>, we drop the extraneous irrelevant data points and convert the ordinance into MKS units. Furthermore by knowing the distance of the motion sensor from the base magnet conveniently we replace the ordinance of the raw data with the distance between the magnets. <xref ref-type="fig" rid="fig6">Figure 6</xref> displays the center-to-center distance of the bouncing magnet vs. the acquired time.</p><p>ExcelLink`</p><p>Utilizing an active Excel file, we read the data. File:C: |DataFiles|MagneticDipole_ Fall2008|CylindricalMagnetNov28_2008|position1_Dec4_2008.xls data=ExcelRead[&quot;a7:b197&quot;];</p><p>ListLinePlot[Drop[data,50]/.{p_,q_}&#174;{p,100q},PlotRange&#174;{{1,3.5},{0,30}}];</p><p>plotdata=ListLinePlot[Drop[data,50]/.{p_,q_}&#174;{p-data[[50,1]],100(-(q+0.0254)+0.340)},PlotRange&#174;{0,13},PlotStyle&#174;{Dashing[{0.01},GrayLevel[0.5],Thickness [0.006]};GridLines&#174;Automatic,AxesLabel&#174;{“t,s”,”z,cm”}]</p><p>The graph shows the bouncing magnet gets as close as 5.5 cm of the tip of the base magnet, and it settles at 7.5 cm away from it. This justifies the applicability of Equation (3).</p><p>We formulate the viscous force as Gv, where G and v are the viscous coefficient and the speed of the mobile magnet, respectively. Applying Newton’s second law, <img src="1-9800149\d6d45c4e-d06d-40d6-ba4d-0465fcd3f284.jpg" />at the instance when the bouncing magnet is accelerating upward along the z-axis yields,</p><disp-formula id="scirp.1111-formula15513"><label>(9)</label><graphic position="anchor" xlink:href="1-9800149\50a1b56b-88de-41e8-a1c9-aecc2566bdb0.jpg"  xlink:type="simple"/></disp-formula><p>where g= <img src="1-9800149\c8c9ec02-4c67-4ddf-b2e0-165d4f18d8b0.jpg" />/m is the viscous coefficient per mass. We utilize the mean value of the measured magnetic dipole moment according to the procedures discussed in Subsections 3.1 and 3.2. Therefore, with the exception of g all of the coefficients of Equation (9) are known. For a set of appropriately chosen initial conditions, namely the initial height of the freely dropped magnet we apply NDSolve and solve Equation (9) numerically. With trial and error we search for g such that the solution of Equation (9) reasonably duplicates the data. <xref ref-type="fig" rid="fig7">Figure 7</xref> displays the solution of Equation (9) for g=1.9. Utilizing the magnet mass the coefficient of the viscous force, G yields 0.0437 kg.s<sup>-1</sup>. According to the data shown in <xref ref-type="fig" rid="fig5">Figure 5</xref> we had anticipated a small value for G such as the one we deduced from our theoretical model. To run our code we supply the known parameters in MKS units.</p><p>values={g-&gt;9.8,<img src="1-9800149\9c589283-0d14-490d-a77f-679cfd2f2073.jpg" /> ,<img src="1-9800149\dcd261ca-ea59-4b6b-b981-33a6a486af67.jpg" /> , meanm&#174;3.63, g &#174;1.9};</p><p>eqz=z''[t]-(6(m0/(4p))meanm2)/(mz[t]<sup>4</sup>)+ &#160;gz'[t]+g/.values;</p><p>solz=NDSolve[{eqz=0,z[0.0] =12.610<sup>-2</sup>,z'[0.] =0},z[t],{t,0.,4}];{positionz,speedz,accz}={z[t]/.solz[[<xref ref-type="bibr" rid="scirp.1111-ref1">1</xref>]],D[z[t]/.solz[[<xref ref-type="bibr" rid="scirp.1111-ref1">1</xref>]],t],D[z[t]/.solz[[<xref ref-type="bibr" rid="scirp.1111-ref1">1</xref>]],{t,2}]};</p><p>plotz=Plot[10<sup>2</sup> positionz,{t,0.,3},AxesLabel&#174;{&quot;t,s&quot;,&quot;z,cm&quot;},PlotRange&#174;{All,{0.,13}},GridLines&#174; Automatic,PlotStyle&#174;{Thickness[0.008],Black}];</p><p>tabz=Table[positionz,{t,0,4,0.02}];Manipulate[Show[{plotz,plotdata,Graphics[{AbsolutePointSize[<xref ref-type="bibr" rid="scirp.1111-ref6">6</xref>],Black,Point[{0,10<sup>2</sup> tabz[[n]]}]}]},PlotRange-&gt;{All,{0,13}}],{n,1,Length[tabz],1}]</p><p>As shown in <xref ref-type="fig" rid="fig7">Figure 7</xref> the model (the black solid line) fits quite well vs. the data (the dashed gray line). <xref ref-type="fig" rid="fig7">Figure 7</xref> is a snapshot of the animated oscillations of the magnet -- the black disk represents the mobile magnet. The animation code given in the text allows one to run the program in an interactive mode and watch the bouncing disk along the z-axis. The model's amplitude and the period of the oscillations closely follow the data. Within 2.2 s the magnet oscillates eight times. It appears beyond 1.5 s there are somewhat insignificant differences between the</p><p>model calculation and data. However, beyond 1.5 s the amplitudes are about 1.5 cm, and the precision of the motion sensor for this small range is questionable.</p><p>The damped oscillations of the bouncing magnet shown in <xref ref-type="fig" rid="fig7">Figure 7</xref> deceptively resemble the oscillations of a damped simple harmonic motion; recall that the restoring force describing the latter is a linear force. To show the impact of the nonlinear force of the former i.e z<sup>-4</sup>, we plot the velocity and acceleration of the bouncing magnet vs. time. These two graphs along with the oscillation amplitudes are depicted in <xref ref-type="fig" rid="fig8">Figure 8</xref>. An experienced reader would realize that the last two plots of <xref ref-type="fig" rid="fig8">Figure 8</xref> distinctly are different from their counterpart of damped simple harmonic oscillations.</p><p>plotspeedz=Plot[speedz,{t,10<sup>-2</sup>,4},AxesLabel&#174;{&quot;t,s&quot;,&quot;<img src="1-9800149\70470901-2361-4be0-8657-c8fe7ac43e57.jpg" />,m/s&quot;},PlotRange&#174;All,PlotStyle&#174;{Black},AxesOrigin&#174;{0,0}];</p><p>plotaccz=Plot[accz,{t,10<sup>-2</sup>,4},AxesLabel&#174;{&quot;t,s&quot;,&quot;<img src="1-9800149\3731efda-dde8-46b6-a794-8b13c4853fe4.jpg" />m/s<sup>2</sup>&quot;},PlotRange&#174;All,AxesOrigin&#174;{0,0},PlotStyle&#174;{Black}];</p><p>Show[GraphicsArray[{plotz,plotspeedz,plotaccz}]]</p><p>In practice, the magnet is released from its initial height of 12.6 cm away from the base magnet; its initial velocity and acceleration are zero and ~ -8.2m/s<sup>2</sup>, respectively. These are the ordinances of the curves depicted in the last two plots of <xref ref-type="fig" rid="fig8">Figure 8</xref> at t=0. The initial acceleration is less than gravity, indicating the impact of the repulsive force exerted by the base magnet. The first graph shows the falling magnet; within 0.164 s, it reaches its closest distance of about 5.5 cm from the base magnet. At that moment, its acceleration is at its greatest, ~27 m/s<sup>2</sup>. As shown in the first graph, the process accordingly repeats itself until the loss of the oscillating amplitudes due to the viscous force, settles the magnet at its stable, at a static equilibrium height of 7.5 cm.</p></sec><sec id="s5"><title>5. Phase Diagrams</title><p>Graphs depicted in <xref ref-type="fig" rid="fig8">Figure 8</xref> display various kinematic quantities of the bouncing magnet vs. time. Utilizing Mathematica we fold the time axis and display a pair of quantities such as, <img src="1-9800149\b3c5cfe9-df90-42c3-a357-8b62918bef81.jpg" />,<img src="1-9800149\3594b033-fcac-47d6-be77-ae6f94ead3cc.jpg" /> , and <img src="1-9800149\c4e84db9-6f82-4cb5-8982-81e552d66e49.jpg" />implicitly. We also plot one three-dimensional set,<img src="1-9800149\613b9d63-7080-47eb-8846-2ea80dc2da8c.jpg" />. With the exception of the velocity vs. position graph, <img src="1-9800149\51400fbe-b3ce-423c-ad06-4486c46c34fa.jpg" />, commonly known as the phase diagram, the other three graphs as shown in <xref ref-type="fig" rid="fig9">Figure 9</xref> are innovative and fresh.</p><p>{positionz,speedz,accz}/.t&#174;0.164</p><p>{0.0552837,0.00654413,26.9876}</p><p>&#160; phas2Plotzv=ParametricPlot[{10<sup>2</sup> positionz,4 speedz}{t,10<sup>-1</sup>,4},AxesLabel&#174;{&quot;z,cm&quot;,&quot;<img src="1-9800149\eb2a2a5b-0712-41c8-acba-ac91a167d8de.jpg" />,4m/s&quot;},PlotRange&#174;All,PlotStyle&#174;{Black}];</p><p>&#160; phas2Plotza=ParametricPlot[{10<sup>2</sup> positionz,10<sup>-1</sup> accz}{t,10<sup>-1</sup>,3.999},AxesLabel&#174;{&quot;z,cm&quot;,&quot;<img src="1-9800149\c707f81a-bc6d-497c-8b3d-0c1d46593e1b.jpg" />,10<sup>-1</sup>m/s<sup>2</sup>&quot;},PlotRange&#174;All,PlotStyle&#174;{Black},AspectRatio&#174;1.2];</p><p>phas2Plotva=ParametricPlot[{5speedz, 10<sup>-1</sup> accz},{t,10<sup>-1</sup>,3.999},AxesLabel&#174;{&quot;<img src="1-9800149\4699304a-9f71-4b20-9d57-72c85eb3f47f.jpg" />,5m/s&quot;,&quot;<img src="1-9800149\c2d69465-dd47-400e-a46d-bfaf396e82c5.jpg" />,10<sup>-1</sup>m/s<sup>2</sup>&quot;},PlotRange&#174;All,PlotStyle&#174;{Black}];</p><p>phasePlotzva=ParametricPlot3D[{10<sup>2</sup> positionz,5speedz,10<sup>-1</sup> accz},{t,10<sup>-1</sup>,3.999},AxesLabel&#174;{&quot;z,m&quot;,&quot;<img src="1-9800149\46d791cb-193b-4bbd-925a-8210dbb5e3b7.jpg" />,5m/s&quot;,&quot;<img src="1-9800149\f2039a74-6542-4b14-9a23-1e2710f0ef14.jpg" />,10<sup>-1</sup>m/s<sup>2</sup>&quot;},BoxRatios&#174;1,PlotStyle&#174;{Thickness[0.007],Black},PlotPoints&#174;120];</p><p>Show[GraphicsArray[{{phas2Plotzv,phas2Plotza},{phas2Plotva,phasePlotzva}}]]</p><p>Graphs shown in <xref ref-type="fig" rid="fig9">Figure 9</xref> are useful. For instance, the left upper corner graph shows the impact of the viscous force -- it is the cause of the spiral curvature. Similarly, the bottom left graph displays the relationship between acceleration and its associated velocity.</p></sec><sec id="s6"><title>6. Energy Characteristics of the Bouncing Magnet</title><p>Knowing the time dependent position of the bouncing magnet, z(t), we write its energy E=KE+U. KE is Kinetic Energy and is KE=1/2 mv<sup>2</sup>; U is potential energy and is<img src="1-9800149\607c9082-7a2a-4456-b0f8-794ced3a1007.jpg" />. Applying Equation (3) the potential energy for a pair of identical magnets yields,<img src="1-9800149\ff92d058-b2e4-4874-ac50-ce91d954c970.jpg" />. Now, we utilize the solution of Equation (9) and evaluate the time-dependent values of the kinetic and potential energies. A display of the total energy vs. time is shown on the left panel of <xref ref-type="fig" rid="fig1">Figure 1</xref>0. On the right panel of the same figure we display the rate of loss of energy, d/dt E(t); the loss of energy is associated with the viscous force.</p><p>&#160; plotTotalEnergy=Plot[Evaluate[(1/2m speedz<sup>2</sup>+2(m0/</p><p>(4p)) meanm2 1/positionz<sup>3</sup>+m g positionz)/.values]{t,0,2},PlotRange&#174;{0,All},AxesLabel&#174;{&quot;t,s&quot;,&quot;Total Energy,Joule&quot;},PlotStyle&#174;{GrayLevel[0.2]},GridLines</p><p>&#174;Automatic];</p><p>dEnergy=D[Evaluate[(1/2m speedz<sup>2</sup>+2(m0/(4p)) meanm2 1/positionz<sup>3</sup>+m g positionz)/.values],t];</p><p>plotdEnergy=Plot[dEnergy,{t,0,2},PlotRange&#174;All,AxesLbel&#174;{&quot;t,s&quot;,&quot;d/dt(Energy),Joule/s&quot;},PlotStyle&#174;{Black},GridLines&#174;Automatic];</p><p>Show[GraphicsArray[{plotTotalEnergy,plotdEnergy}]]</p><p>The left graph of <xref ref-type="fig" rid="fig1">Figure 1</xref>0 shows the bouncing magnet loses its energy over time. This is attributed to the viscous effect. Because of the smallness of the viscous force the loss over the time-span of the oscillations is small. The graph on the right panel of <xref ref-type="fig" rid="fig1">Figure 1</xref>0 reveals</p><p>that the rate of the loss of energy is not uniform. To have a better understanding about the time dependent behavior of energy, we dissect the energy and look at the time variations of its composites. <xref ref-type="fig" rid="fig1">Figure 1</xref>1 is a display of the time dependent variation of the gravitational and magnetic potential energies.</p><p>&#160; plotTotalPE=Plot[(2(m0/(4p)) meanm2 1/positionz<sup>3</sup>+m gpostionz)/.values,{t,0,4},PlotStyle&#174;{GrayLevel[0.4],Thickness[0.008]},PlotRange&#174;{All,{0,0.03}},AxesLabel&#174;{&quot;t,s&quot;,&quot;TotalPE,Joule&quot;},GridLines&#174;Automatic];</p><p>plotGravityPE=Plot[(m g positionz)/.values,{t,0,4},PlotStyle&#174;{GrayLevel[0.2]},PlotRange&#174;{All,{0,0.03 }},AxesLabel&#174;{&quot;t,s&quot;,&quot;Gravitational PE,Joule&quot;},GridLines&#174;Automatic];</p><p>plotMagneticPE=Plot[(2(m0/(4p)) meanm2 1/positionz<sup>3</sup>)/.values,{t,0,4},PlotStyle&#174;{GrayLevel[0.4]},PlotRange&#174;{All,{0,0.03}},AxesLabel&#174;{&quot;t,s&quot;,&quot;Magnetic PE,Joule&quot;},GridLines&#174;Automatic];</p><p>Show[plotMagneticPE,plotGravityPE,plotTotalPE,AxesLabel&#174;{&quot;t,s&quot;,&quot;Potential Energy,Joule&quot;}]</p><p>According to <xref ref-type="fig" rid="fig1">Figure 1</xref>1 and on a par with one's expectation, the gravitational (the dark thin gray line) and the magnetic (the light thin gray line) potential energies are completely out of synch. Meaning, initially when the magnets are farthest apart from each other, the gravity potential with respect to the base magnet is at its maximum and the magnetic potential energy is at its minimum. At the end of the fall when the magnets are at their closest distance from each other, the former reaches its minimum potential energy while the latter is at maximum.&#160; Furthermore, the time dependent variation of the gravitational potential energy by itself vs. time is less interesting; it follows the trend of the z(t). However, the time dependent variation of the magnetic potential energy has a peculiar character. Its characteristics are a finger print of the non-linearity of the force. We display collectively the various energies of the bouncing magnet in <xref ref-type="fig" rid="fig1">Figure 1</xref>2.</p><p>plotKE=Plot[(1/2 m speedz<sup>2</sup>/.values),{t,0,4},PlotStyle&#174;{GrayLevel[0.6],Thickness[0.008]},PlotRange&#174;{All,{0,0.006 }},AxesLabel{&quot;t,s&quot;,&quot;KE,Joule&quot;},GridLines&#174;Automatic];</p><p>plotEnergy=Show[plotTotalPE,plotKE,plotTotalEnergy,AxesLabel&#174;{&quot;t,s&quot;,&quot;Enrgy,Jouels&quot;},PlotRange&#174;All];</p><p>plotz1=Plot[0.15positionz,{t,0.,3},AxesLabel&#174;{&quot;t,s&quot;,&quot;z,cm&quot;},PlotRange&#174;{All,All},GridLines&#174;Automatic,PlotStyle&#174;{Thickness[0.008],Black}];</p><p>Show[plotEnergy,plotz1,AxesLabel&#174;{&quot;t,s&quot;,&quot;Energy(J), \n z(m)&quot;}]</p><p>For a comprehensive understanding in <xref ref-type="fig" rid="fig1">Figure 1</xref>2 we display the potential, kinetic and the total potential energies along with a scaled-down display of the position of the bouncing magnet. By observing the position z vs. time and its corresponding energies one forms a better understanding about the oscillations of the magnet and its corresponding energies. For instance, the black thin line displays how the total energy of the bouncing magnet due to the viscous force dissipates per bounce. It also shows when the oscillations cease the overall value of the total energy is composed of the combination of the gravitational and the magnetic potential energies.</p></sec><sec id="s7"><title>7. Conclusions</title><p>As we pointed out in the introduction, the practical aspects of dynamic dipole-dipole magnetic interaction have not been discussed in scientific literature. In this article we propose a research project addressing this outstanding issue. We apply two distinct practical methods measuring the magnetic dipole moment of a permanent magnet. The measurement of the magnetic moment in one approach acquires deploying a variety of laboratory equipment; the second method simply deploys a straight edge only. The bouncing magnet experiment itself is a repeatable experiment and produces reliable data. The data is interpreted by proposing a semi-empirical theoretical model. The model embodies the dynamic magnet-magnet interaction and the viscous force as well. The strength of the latter is determined in accordance with data. The author being aware of the utility of Mathematica had proposed and tackled this laborious project. While exploring an uncharted territory we stumbled upon certain issues. Addressing those issues helped us to devise a few fresh useful phase diagrams, as well as reveal the detailed energy characteristics of the bouncing magnet. The article includes a complete set of the needed Mathematica codes including an animation assisting to visualize the bouncing magnet. This project also shows how in practice one may import and export data files amongst software such as, Data Studio, Excel, ExcelLink for Mathematica and Mathematica itself. To guide the interested reader to duplicate the experiments we include two photos of the setups for reference.</p></sec><sec id="s8"><title>8. Acknowledgement</title><p>The author wishes to acknowledge Mrs. Nenette Sarafian Hickey for carefully reading over the article.</p></sec><sec id="s9"><title>REFERENCES</title></sec></body><back><ref-list><title>References</title><ref id="scirp.1111-ref1"><label>1</label><mixed-citation publication-type="other" xlink:type="simple">E.g. J.D. Jackson, “Classical Electrodynamics,” 3rd Edition, Wiley, 2005.</mixed-citation></ref><ref id="scirp.1111-ref2"><label>2</label><mixed-citation publication-type="other" xlink:type="simple"> 
S. Wolfram, “The Mathematica book,” 5th Edition, Cambridge University Publications, 2003.</mixed-citation></ref><ref id="scirp.1111-ref3"><label>3</label><mixed-citation publication-type="other" xlink:type="simple"> 
www.allelectronics.com.</mixed-citation></ref><ref id="scirp.1111-ref4"><label>4</label><mixed-citation publication-type="other" xlink:type="simple"> 
Chemistry lab stock room.</mixed-citation></ref><ref id="scirp.1111-ref5"><label>5</label><mixed-citation publication-type="other" xlink:type="simple"> 
Pasco Scientific?.</mixed-citation></ref><ref id="scirp.1111-ref6"><label>6</label><mixed-citation publication-type="other" xlink:type="simple"> 
Pasco? Magnetic Field Sensor/Gauss meter, CI–6520.</mixed-citation></ref><ref id="scirp.1111-ref7"><label>7</label><mixed-citation publication-type="other" xlink:type="simple"> 
Pasco? ScienceWorkshop 750 Interface.</mixed-citation></ref><ref id="scirp.1111-ref8"><label>8</label><mixed-citation publication-type="other" xlink:type="simple"> 
Pasco? DataStudio software.</mixed-citation></ref><ref id="scirp.1111-ref9"><label>9</label><mixed-citation publication-type="other" xlink:type="simple"> 
R. H. Enns and G.C. McGuire, “Nonlinear physics with Mathematica for scientists and engineers,” Published by Birkhauser, 2001.</mixed-citation></ref><ref id="scirp.1111-ref10"><label>10</label><mixed-citation publication-type="other" xlink:type="simple"> 
Pasco Motion sensor, 003–06758.</mixed-citation></ref><ref id="scirp.1111-ref11"><label>11</label><mixed-citation publication-type="other" xlink:type="simple"> 
Microsoft Excel?.</mixed-citation></ref><ref id="scirp.1111-ref12"><label>12</label><mixed-citation publication-type="other" xlink:type="simple"> 
Excel Link for Mathematica V3.0, Episoft, Inc., 40258 Highway 41, Suite A, Oakhurst, CA 93644.</mixed-citation></ref></ref-list></back></article>