<?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">
    wjm
   </journal-id>
   <journal-title-group>
    <journal-title>
     World Journal of Mechanics
    </journal-title>
   </journal-title-group>
   <issn pub-type="epub">
    2160-049X
   </issn>
   <issn publication-format="print">
    2160-0503
   </issn>
   <publisher>
    <publisher-name>
     Scientific Research Publishing
    </publisher-name>
   </publisher>
  </journal-meta>
  <article-meta>
   <article-id pub-id-type="doi">
    10.4236/wjm.2024.1410010
   </article-id>
   <article-id pub-id-type="publisher-id">
    wjm-138186
   </article-id>
   <article-categories>
    <subj-group subj-group-type="heading">
     <subject>
      Articles
     </subject>
    </subj-group>
    <subj-group subj-group-type="Discipline-v2">
     <subject>
      Engineering, Physics 
     </subject>
     <subject>
       Mathematics
     </subject>
    </subj-group>
   </article-categories>
   <title-group>
    Oscillation Analysis of a Bifilar Pendulum with Mathematica
   </title-group>
   <contrib-group>
    <contrib contrib-type="author" xlink:type="simple">
     <name name-style="western">
      <surname>
       Haiduke
      </surname>
      <given-names>
       Sarafian
      </given-names>
     </name>
    </contrib>
   </contrib-group> 
   <aff id="affnull">
    <addr-line>
     aThe Pennsylvania State University, University College, York, USA
    </addr-line> 
   </aff> 
   <pub-date pub-type="epub">
    <day>
     31
    </day> 
    <month>
     10
    </month>
    <year>
     2024
    </year>
   </pub-date> 
   <volume>
    14
   </volume> 
   <issue>
    10
   </issue>
   <fpage>
    199
   </fpage>
   <lpage>
    204
   </lpage>
   <history>
    <date date-type="received">
     <day>
      29,
     </day>
     <month>
      September
     </month>
     <year>
      2024
     </year>
    </date>
    <date date-type="published">
     <day>
      28,
     </day>
     <month>
      September
     </month>
     <year>
      2024
     </year> 
    </date> 
    <date date-type="accepted">
     <day>
      28,
     </day>
     <month>
      October
     </month>
     <year>
      2024
     </year> 
    </date>
   </history>
   <permissions>
    <copyright-statement>
     © 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>
    Utilizing a Computer Algebra System (CAS), namely Mathematica
    <sup>R</sup>, the characteristics of a bifilar disk-shaped pendulum have been studied. By applying the Lagrangian methodology, the disk’s motion equation is formulated. This is conducive to an ODE, and its numeric solution co-insides with intuitive expectation. The period of the oscillations and tension in the strings are calculated and graphed.
   </abstract>
   <kwd-group> 
    <kwd>
     Bifilar Pendulum
    </kwd> 
    <kwd>
      Oscillation Period
    </kwd> 
    <kwd>
      ODE
    </kwd> 
    <kwd>
      Mathematica
    </kwd>
   </kwd-group>
  </article-meta>
 </front>
 <body>
  <sec id="s1">
   <title>1. Introduction</title>
   <p>The main differences between a typical bifilar vs. a torsional pendulum are: 1) a typical circular-shaped disk of the former is suspended with two massless unstretchable strings, while the latter is hung only one elastic soft twist-able rod “string”, and 2) twisting the disk of the former lifts the disk while the disk of the latter stays at the same initial height. The analysis of the latter, torsion pendulum, is well-known <xref ref-type="bibr" rid="scirp.138186-1">
     [1]
    </xref>. At the same time, literature and physics textbooks <xref ref-type="bibr" rid="scirp.138186-2">
     [2]
    </xref> <xref ref-type="bibr" rid="scirp.138186-3">
     [3]
    </xref> have overlooked the issue, especially with the Lagrangian methodology.</p>
   <p>This short study presents a simple approach to analyzing the characteristics of a bifilar circular disk. Contributions of this report are: 1) Lagrangian methodology and 2) explicit utilization of a CAS, Mathematica <xref ref-type="bibr" rid="scirp.138186-4">
     [4]
    </xref> conducive to a practical situation.</p>
   <p>This article is composed of three sections. In Section 2, the Lagrangian method <xref ref-type="bibr" rid="scirp.138186-5">
     [5]
    </xref> is introduced. The corresponding Equation of Motion is solved. By utilizing its solution, all the related kinematic quantities needed are determined, and some are plotted. The last section, Conclusions, addresses the achievements and suggests further challenging explorations.</p>
  </sec><sec id="s2">
   <title>2. Formulation and Coding</title>
   <p>The profile of a circular disk-shaped bifilar pendulum is shown in <xref ref-type="fig" rid="fig1">
     Figure 1
    </xref>.</p>
   <fig id="fig1" position="float">
    <label>Figure 1</label>
    <caption>
     <title>Figure 1. A circular disk of radius R is suspended horizontally with two vertical strings attached to the ends of a diagonal.</title>
    </caption>
    <graphic mimetype="image" position="float" xlink:type="simple" xlink:href="https://html.scirp.org/file/4900760-rId12.jpeg?20241217020522" />
   </fig>
   <p>A disk of mass m and radius R is suspended with two massless strings of identical lengths L. The dashed circle shows the “displaced/twisted” initial circle after being lifted Δy vertically due to twisted angle θ. The β is the angle the string of the twisted disk makes concerning its initial vertical position. The strings are connected at opposite ends of a diagonal of the disk perpendicular to the surface of the circle. The objective is to turn/twist the disk from its natural hanging position, CW or CCW, by an angle θ and then release it free. The applied torque and elasticity of the strings make the disk pass its initial natural position, repeating the process, in other words, making the disk oscillate. The significant difference between the situation explained and that of a torsion pendulum is the vertical height the disk gains through oscillations. Given the Lagrangian methodology, it corresponds to the gravitational potential energy, i.e., V = mgΔy. Where Δy, shown in <xref ref-type="fig" rid="fig1">
     Figure 1
    </xref>, is the gained/lost height during oscillations. Specifically,</p>
   <p>
    <xref ref-type="bibr" rid="scirp.138186-"></xref> 
    <math xmlns="http://www.w3.org/1998/Math/MathML"> <mrow> 
      <mi>
        Δ 
      </mi> 
      <mi>
        y 
      </mi> 
      <mo>
        = 
      </mo> 
      <mi>
        L 
      </mi> 
      <mrow> 
       <mo>
         ( 
       </mo> 
       <mrow> 
        <mn>
          1 
        </mn> 
        <mo>
          − 
        </mo> 
        <mi>
          cos 
        </mi> 
        <mrow> 
         <mo>
           [ 
         </mo> 
         <mi>
           β 
         </mi> 
         <mo>
           ] 
         </mo> 
        </mrow> 
       </mrow> 
       <mo>
         ) 
       </mo> 
      </mrow> 
     </mrow> 
    </math>, (1)</p>
   <p>β is the angle the strings make it with vertical positions.</p>
   <p>In other words, the potential energy V is,</p>
   <p>
    <math xmlns="http://www.w3.org/1998/Math/MathML"> <mrow> 
      <mi>
        V 
      </mi> 
      <mo>
        = 
      </mo> 
      <mi>
        m 
      </mi> 
      <mi>
        g 
      </mi> 
      <mi>
        Δ 
      </mi> 
      <mi>
        y 
      </mi> 
     </mrow> 
    </math>, (2)</p>
   <p>The disk begins rotating about COM. The rotational kinetic energy of the disk is, 1/2I<sub>0</sub>ω<sup>2</sup> <xref ref-type="bibr" rid="scirp.138186-2">
     [2]
    </xref> <xref ref-type="bibr" rid="scirp.138186-3">
     [3]
    </xref> where the moment of inertia of the disk about its center is 
    <math xmlns="http://www.w3.org/1998/Math/MathML"> <mrow> 
      <msub> 
       <mi>
         I 
       </mi> 
       <mn>
         0 
       </mn> 
      </msub> 
      <mo>
        = 
      </mo> 
      <mfrac> 
       <mn>
         1 
       </mn> 
       <mn>
         2 
       </mn> 
      </mfrac> 
      <mi>
        m 
      </mi> 
      <msup> 
       <mi>
         R 
       </mi> 
       <mn>
         2 
       </mn> 
      </msup> 
     </mrow> 
    </math> <xref ref-type="bibr" rid="scirp.138186-2">
     [2]
    </xref> <xref ref-type="bibr" rid="scirp.138186-3">
     [3]
    </xref>. Putting this information together yields the Lagrangian L;</p>
   <p>
    <math xmlns="http://www.w3.org/1998/Math/MathML"> <mrow> 
      <mi>
        L 
      </mi> 
      <mo>
        = 
      </mo> 
      <mi>
        T 
      </mi> 
      <mo>
        − 
      </mo> 
      <mi>
        V 
      </mi> 
      <mo>
        = 
      </mo> 
      <mrow> 
       <mn>
         1 
       </mn> 
       <mo>
         / 
       </mo> 
       <mn>
         2 
       </mn> 
      </mrow> 
      <msub> 
       <mi>
         I 
       </mi> 
       <mn>
         0 
       </mn> 
      </msub> 
      <msup> 
       <mover accent="true"> 
        <mi>
          θ 
        </mi> 
        <mo>
          ˙ 
        </mo> 
       </mover> 
       <mn>
         2 
       </mn> 
      </msup> 
      <mo>
        − 
      </mo> 
      <mi>
        m 
      </mi> 
      <mi>
        g 
      </mi> 
      <mi>
        Δ 
      </mi> 
      <mi>
        y 
      </mi> 
     </mrow> 
    </math>, (3)</p>
   <p>where ω = θ is the angular velocity of the disk.</p>
   <p>Applying Euler-Lagrange <xref ref-type="bibr" rid="scirp.138186-4">
     [4]
    </xref> equation, 
    <math xmlns="http://www.w3.org/1998/Math/MathML"> <mrow> 
      <mfrac> 
       <mtext>
         d 
       </mtext> 
       <mrow> 
        <mtext>
          d 
        </mtext> 
        <mi>
          t 
        </mi> 
       </mrow> 
      </mfrac> 
      <mfrac> 
       <mrow> 
        <mo>
          ∂ 
        </mo> 
        <mi>
          L 
        </mi> 
       </mrow> 
       <mrow> 
        <mo>
          ∂ 
        </mo> 
        <mover accent="true"> 
         <mi>
           θ 
         </mi> 
         <mo>
           ˙ 
         </mo> 
        </mover> 
       </mrow> 
      </mfrac> 
      <mo>
        − 
      </mo> 
      <mfrac> 
       <mrow> 
        <mo>
          ∂ 
        </mo> 
        <mi>
          L 
        </mi> 
       </mrow> 
       <mrow> 
        <mo>
          ∂ 
        </mo> 
        <mi>
          θ 
        </mi> 
       </mrow> 
      </mfrac> 
      <mo>
        = 
      </mo> 
      <mn>
        0 
      </mn> 
     </mrow> 
    </math>, yields,</p>
   <p>
    <math xmlns="http://www.w3.org/1998/Math/MathML"> <mrow> 
      <mover accent="true"> 
       <mi>
         θ 
       </mi> 
       <mo>
         ¨ 
       </mo> 
      </mover> 
      <mrow> 
       <mo>
         ( 
       </mo> 
       <mi>
         t 
       </mi> 
       <mo>
         ) 
       </mo> 
      </mrow> 
      <mo>
        + 
      </mo> 
      <mrow> 
       <mrow> 
        <mn>
          2 
        </mn> 
        <mi>
          g 
        </mi> 
       </mrow> 
       <mo>
         / 
       </mo> 
       <mi>
         R 
       </mi> 
      </mrow> 
      <mi>
        sin 
      </mi> 
      <mrow> 
       <mo>
         [ 
       </mo> 
       <mrow> 
        <mrow> 
         <mi>
           R 
         </mi> 
         <mo>
           / 
         </mo> 
         <mrow> 
          <mi>
            L 
          </mi> 
          <mi>
            θ 
          </mi> 
          <mrow> 
           <mo>
             ( 
           </mo> 
           <mi>
             t 
           </mi> 
           <mo>
             ) 
           </mo> 
          </mrow> 
         </mrow> 
        </mrow> 
       </mrow> 
       <mo>
         ] 
       </mo> 
      </mrow> 
      <mo>
        = 
      </mo> 
      <mn>
        0 
      </mn> 
     </mrow> 
    </math>,(4)</p>
   <p>
    <math xmlns="http://www.w3.org/1998/Math/MathML"> <mrow> 
      <mover accent="true"> 
       <mi>
         θ 
       </mi> 
       <mo>
         ¨ 
       </mo> 
      </mover> 
      <mrow> 
       <mo>
         ( 
       </mo> 
       <mi>
         t 
       </mi> 
       <mo>
         ) 
       </mo> 
      </mrow> 
     </mrow> 
    </math> is the second-order time derivate. The argument of the Sin in (4) comes about from the geometry shown in <xref ref-type="fig" rid="fig1">
     Figure 1
    </xref>, namely, equating the circular arc-length Lβ = Rθ. By utilizing the latter, the argument of the Sin in (4) is established. Equation (4) is independent of mass, m. They are hinting at the independence of the oscillation period to mass.</p>
   <p>Although formally, one might claim the goal of this article is reached, to put the results in action, a set of practical values for the quantities involved is suggested. These are stored in the values listing,</p>
   <p>values = {g → 9.8, R → 1010<sup>−</sup><sup>2</sup>, λ → 0.5, m → 0.5};</p>
   <p>The symbols are self-explanatory, and the units are MKS. See <xref ref-type="fig" rid="fig1">
     Figure 1
    </xref> to correspond. Mathematica code forming (4) follows,</p>
   <p>eqθ1 = θ"[t] + 2(g/R)Sin[(R/λ)θ[t]]/.values;</p>
   <p>solθ1 = NDSolve[{eqθ1 == 0, θ[0] == π/6, θ'[0] == 0}, θ, {t, 0, 10}];</p>
   <p>graph of the solution of the above code converted in degrees,</p>
   <p>plotθ1 = Plot[(180/π)θ[t]/.solθ1, {t, 0, 2}, PlotStyle → Black, AxesLabel → {t(s), θ˚}, GridLines → Automatic]</p>
   <fig id="fig2" position="float">
    <label>Figure 2</label>
    <caption>
     <title>Figure 2. Oscillating angle vs. time. The initial twisted angle is set at 30˚.</title>
    </caption>
    <graphic mimetype="image" position="float" xlink:type="simple" xlink:href="https://html.scirp.org/file/4900760-rId27.jpeg?20241217020522" />
   </fig>
   <p>
    <xref ref-type="fig" rid="fig2">
     Figure 2
    </xref> shows the oscillations of the twisted angle of the disk vs. time on the horizontal plane.</p>
   <p>Equation (4) is a nonlinear ODE. Its nonlinear term may be linearized, attempting to convert it into an SHM. And by Taylor <xref ref-type="bibr" rid="scirp.138186-6">
     [6]
    </xref> expansion to the 3<sup>rd</sup> order, the eqθ1 yields,</p>
   <p>eqθ2 = θ2"[t]+2 g/R Normal[Series[Sin[R/λ θ2[t]], {θ2[t], 0, 3}]]/.values;</p>
   <p>solθ2 = NDSolve[{eqθ2 == 0, θ2[0] == π/6, θ2'[0] == 0}, θ2, {t, 0, 10}];</p>
   <p>The solution is plotted in <xref ref-type="fig" rid="fig3">
     Figure 3
    </xref>.</p>
   <p>plotθ2 = Plot[(180/π)θ2[t]/.solθ2, {t, 0, 2}, AxesLabel → {"t(s)", θ˚}, PlotStyle → {Red, Thickness[0.02]}, GridLines → Automatic];</p>
   <p>The last two solutions are compared,</p>
   <fig id="fig3" position="float">
    <label>Figure 3</label>
    <caption>
     <title>Figure 3. The original oscillations, eqθ1, in black is, compared to the 3<sup>rd</sup> order Taylor expanded, eqθ2, in red.</title>
    </caption>
    <graphic mimetype="image" position="float" xlink:type="simple" xlink:href="https://html.scirp.org/file/4900760-rId28.jpeg?20241217020522" />
   </fig>
   <p>According to <xref ref-type="fig" rid="fig3">
     Figure 3
    </xref>, there is no need to replace the Sin function with the Taylor polynomials; the results are the same.</p>
   <p>Δy = λ(1-Cos[R/λθ[t]/.solθ1])/.values;</p>
   <p>Plot[100Δy, {t, 0, 2}, AxesLabel → {t(s), Δy(cm)}, GridLines → Automatic, PlotStyle → Black]</p>
   <fig id="fig4" position="float">
    <label>Figure 4</label>
    <caption>
     <title>Figure 4. The vertical oscillating graph of the height vs. time.</title>
    </caption>
    <graphic mimetype="image" position="float" xlink:type="simple" xlink:href="https://html.scirp.org/file/4900760-rId29.jpeg?20241217020522" />
   </fig>
   <p>The vertical axis is in CGS units.</p>
   <p>As shown in <xref ref-type="fig" rid="fig4">
     Figure 4
    </xref>, the disk vibrates vertically. Its oscillation period is different from the one shown in <xref ref-type="fig" rid="fig2">
     Figure 2
    </xref>.</p>
   <p>Because of the setup’s symmetry, the strings’ tensions are the same. The tension in the string is T(θ) = 1/2mg∙1/Cos[β], as depicted in <xref ref-type="fig" rid="fig5">
     Figure 5
    </xref>.</p>
   <p>Tension = (1/2mg/.values) (1/Cos[R/λθ[t]/.solθ1]/.values);</p>
   <p>Plot[Tension, {t, 0, 2}, AxesLabel → {“t(s)”, “tension(N)”}, PlotStyle → Black, GridLines → Automatic, PlotRange → All]</p>
   <fig id="fig5" position="float">
    <label>Figure 5</label>
    <caption>
     <title>Figure 5. Tension in either one of the strings in Newtons vs. time.</title>
    </caption>
    <graphic mimetype="image" position="float" xlink:type="simple" xlink:href="https://html.scirp.org/file/4900760-rId30.jpeg?20241217020522" />
   </fig>
   <p>Because of the symmetry of the case at hand, tensions in the strings are the same.</p>
   <p>Finally, based on the given information, the evaluation of the oscillation period is straightforward, as shown in <xref ref-type="fig" rid="fig3">
     Figure 3
    </xref>; it is 1 second. <xref ref-type="fig" rid="fig3">
     Figure 3
    </xref> shows no difference between the oscillation period corresponding to the exact equation of motion. This is the graph of eqθ1 in the black curve vs. the third-order Taylor expanded version, eqθ2, in the red curve. Hence, because there is no apparent difference between the black and red curve, one may develop the eqθ1 to a “less accurate” version, i.e., to the first order linearizing the equation conducive to SHM with an associated standard period 
    <math xmlns="http://www.w3.org/1998/Math/MathML"> <mrow> 
      <mi>
        T 
      </mi> 
      <mo>
        = 
      </mo> 
      <mn>
        2 
      </mn> 
      <mi>
        π 
      </mi> 
      <msqrt> 
       <mrow> 
        <mfrac> 
         <mi>
           ℓ 
         </mi> 
         <mrow> 
          <mn>
            2 
          </mn> 
          <mi>
            g 
          </mi> 
         </mrow> 
        </mfrac> 
       </mrow> 
      </msqrt> 
     </mrow> 
    </math>. Its value for the chosen numeric parameters listed in values yields the mentioned 1.00 s. This coincides with the period depicted in <xref ref-type="fig" rid="fig3">
     Figure 3
    </xref>.</p>
  </sec><sec id="s3">
   <title>3. Conclusions</title>
   <p>The motivation for crafting this report is to show a simple approach to the concept of a bifilar pendulum <xref ref-type="bibr" rid="scirp.138186-7">
     [7]
    </xref>-<xref ref-type="bibr" rid="scirp.138186-9">
     [9]
    </xref> utilizing the usage of a CAS, namely Mathematica harvesting numeric and graphic aspects of the relevant quantities. The analysis of a bifilar pendulum needs to be included in the popular college texts, and its associated Lagrangian metrology needs to be included in the literature. The Mathematica codes are embedded in this report so the interested reader may practice. The presented simple case may be generalized by making assumptions that, e.g., the vertical string might not be vertical see <xref ref-type="fig" rid="fig6">
     Figure 6
    </xref>. i.e., each string may create a different angle with vertical, or the disk may have a different COM other than the center of the disk and the strings may have different lengths, the suggested scenarios might be challenging but are do-able. The Mathematica codes given may be helpful! Interested readers in Mathematica coding might find <xref ref-type="bibr" rid="scirp.138186-10">
     [10]
    </xref>-<xref ref-type="bibr" rid="scirp.138186-12">
     [12]
    </xref> resourceful.</p>
   <fig id="fig6" position="float">
    <label>Figure 6</label>
    <caption>
     <title>Figure 6. Asymmetric bifilar pendulum.</title>
    </caption>
    <graphic mimetype="image" position="float" xlink:type="simple" xlink:href="https://html.scirp.org/file/4900760-rId33.jpeg?20241217020523" />
   </fig>
  </sec>
 </body><back>
  <ref-list>
   <title>References</title>
   <ref id="scirp.138186-ref1">
    <label>1</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     Lennon, J. (1980) Torsional Pendulum. &gt;https://www.physics.louisville.edu/cldavis/phys298/notes/torpend.html 
    </mixed-citation>
   </ref>
   <ref id="scirp.138186-ref2">
    <label>2</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     Bauer, W. and Westfall, G. (2011) University Physics with Modern Physics. McGraw Hill.
    </mixed-citation>
   </ref>
   <ref id="scirp.138186-ref3">
    <label>3</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     Haillday, D., Resnick, R. and Walker, J. (2013) Fundamental of Physics Extended. 12th Edition, Wiley.
    </mixed-citation>
   </ref>
   <ref id="scirp.138186-ref4">
    <label>4</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     WOLFRAM (2024) Mathematica V14.1. &gt;http://wolfram.com 
    </mixed-citation>
   </ref>
   <ref id="scirp.138186-ref5">
    <label>5</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     Gantmacher, F. (1970) Lectures in Analytic Mechanics. MIR Publishers Moscow.
    </mixed-citation>
   </ref>
   <ref id="scirp.138186-ref6">
    <label>6</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     Sokolnikoff, R. (1966) Mathematics of Physics and Modern Engineering. 2nd Edition, McGraw-Hill Books Company.
    </mixed-citation>
   </ref>
   <ref id="scirp.138186-ref7">
    <label>7</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     Si, Y.-Z., Gao, Y.-D. and Wang, H.-M. (2013) Analysis of Dynamic Characteristics of Asymmetric Bifilar Pendulum Absorber. Nanjing University of Aeronautics&amp;Astronautics.
    </mixed-citation>
   </ref>
   <ref id="scirp.138186-ref8">
    <label>8</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     https://physlab.org/wp-content/uploads/2017/05/Bifilar-Pendulum-1.compressed.pdf 
    </mixed-citation>
   </ref>
   <ref id="scirp.138186-ref9">
    <label>9</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     https://physics.stackexchange.com/questions/759044/period-formula-for-bifilar-pendulum 
    </mixed-citation>
   </ref>
   <ref id="scirp.138186-ref10">
    <label>10</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     Wolfram, S. (2003) Mathematica Book. 5th Edition, Cambridge University Press.
    </mixed-citation>
   </ref>
   <ref id="scirp.138186-ref11">
    <label>11</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     Sarafian, H. (2019) Mathematica Graphics Examples. 2nd Edition, Scientific Research Publishing.
    </mixed-citation>
   </ref>
   <ref id="scirp.138186-ref12">
    <label>12</label>
    <mixed-citation publication-type="other" xlink:type="simple">
     Sarafian, H. (2015) Mathematica Graphics Example Book for Beginners. Scientific Research Publishing.
    </mixed-citation>
   </ref>
  </ref-list>
 </back>
</article>