<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE article PUBLIC "-//NLM//DTD JATS (Z39.96) Journal Publishing DTD v1.4 20241031//EN" "JATS-journalpublishing1-4.dtd">
<article xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:xlink="http://www.w3.org/1999/xlink" article-type="research-article" dtd-version="1.4" xml:lang="en">
  <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-1211</issn>
      <issn pub-type="ppub">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.2026.164013</article-id>
      <article-id pub-id-type="publisher-id">ajcm-154573</article-id>
      <article-categories>
        <subj-group>
          <subject>Article</subject>
        </subj-group>
        <subj-group>
          <subject>Physics</subject>
          <subject>Mathematics</subject>
        </subj-group>
      </article-categories>
      <title-group>
        <article-title>Euler Equation with Auxiliary Condition</article-title>
      </title-group>
      <contrib-group>
        <contrib contrib-type="author">
          <name name-style="western">
            <surname>Sarafian</surname>
            <given-names>Haiduke</given-names>
          </name>
          <xref ref-type="aff" rid="aff1">1</xref>
        </contrib>
      </contrib-group>
      <aff id="aff1"><label>1</label> The Pennsylvania State University, University College, York, USA </aff>
      <author-notes>
        <fn fn-type="conflict" id="fn-conflict">
          <p>The author declares no conflicts of interest regarding the publication of this paper.</p>
        </fn>
      </author-notes>
      <pub-date pub-type="epub">
        <day>02</day>
        <month>12</month>
        <year>2026</year>
      </pub-date>
      <pub-date pub-type="collection">
        <month>12</month>
        <year>2026</year>
      </pub-date>
      <volume>16</volume>
      <issue>04</issue>
      <fpage>247</fpage>
      <lpage>259</lpage>
      <history>
        <date date-type="received">
          <day>17</day>
          <month>09</month>
          <year>2026</year>
        </date>
        <date date-type="accepted">
          <day>16</day>
          <month>10</month>
          <year>2026</year>
        </date>
        <date date-type="published">
          <day>19</day>
          <month>10</month>
          <year>2026</year>
        </date>
      </history>
      <permissions>
        <copyright-statement>© 2026 by the authors and Scientific Research Publishing Inc.</copyright-statement>
        <copyright-year>2026</copyright-year>
        <license license-type="open-access">
          <license-p> This article is an open access article distributed under the terms and conditions of the Creative Commons Attribution (CC BY) license ( <ext-link ext-link-type="uri" xlink:href="https://creativecommons.org/licenses/by/4.0/">https://creativecommons.org/licenses/by/4.0/</ext-link> ). </license-p>
        </license>
      </permissions>
      <self-uri content-type="doi" xlink:href="https://doi.org/10.4236/ajcm.2026.164013">https://doi.org/10.4236/ajcm.2026.164013</self-uri>
      <abstract>
        <p>This research-oriented report applies Lagrange’s Equations of the First Kind to analyze three examples. The examples are categorized by the symmetry of the tracks in a two-dimensional vertical plane that a massive point-like particle traverses. The time-dependent coordinates of the mobile point traversing the tracks are determined. The equation of motion embodies a second-order differential-algebraic equation (DAE). Using the Computer Algebra System (CAS) <italic>Math</italic><italic>ematica,</italic> the equations are solved numerically. Auxiliary by-products, such as the effective forces and associated kinematic quantities, are quantified, determined, and extensively graphed. Most of the essential <italic>Mathematica</italic> code for reproduction and potentially augmenting the scale of interest and generalization on a need basis is embodied. The latter assists Mathematica-familiar readers in exercising the code.</p>
      </abstract>
      <kwd-group kwd-group-type="author-generated" xml:lang="en">
        <kwd>Lagrange Equations of the First Kind</kwd>
        <kwd>Differential-Algebraic-Equation (DAE)</kwd>
        <kwd>Computer Algebra System</kwd>
        <kwd>Mathematica</kwd>
      </kwd-group>
    </article-meta>
  </front>
  <body>
    <sec id="sec1">
      <title>1. Introduction</title>
      <p>For a point-like massive particle moving along a track, <italic>i.e.</italic>, a stationary, holonomic constraint in a 2D vertical plane under gravity, its equation of motion is traditionally found by constructing its Lagrangian. Consequently, solving the Euler-Lagrange equation determines the particle’s time-dependent coordinates. If desired, by utilizing the identified coordinates of the particle, the unmentioned active effective forces on the particle may be quantified; more on this in follow-up sections. In most scenarios (cases), the scope of the investigation is limited to the mentioned coordinates and their affiliated kinematic quantities. This method (approach) deals entirely with a scalar function, the Lagrangian, and explicitly bypasses the involved effective vector quantities, the forces. </p>
      <p>Alternatively, though uncommon, one might begin utilizing the effective forces. The latter method, in a sense, is Newton’s second law that embodies the internal track forces, so-called the reaction forces. The inclusion of these forces, external and internal, in one is called Lagrange’s equations of the first kind. The vector nature of these forces, <italic>i.e.</italic>, two-dimensional forces, is conducive to two equations (one for each dimension), and the third equation, the constraint equation imposed by the track, can be simplified to replace the two differential equations and the constraint equation with one differential-algebraic equation (DAE) with a solution conducive to the aforementioned coordinates and forces. The mentioned DAE does not fall into the traditional class of ODEs encountered in Euler-Lagrange equations. Solving the latter poses mathematical challenges.</p>
      <p>This report focuses on the Lagrange equation of the first kind. To be as clear as possible, this report presents three practical examples with complete solutions to address these issues. These examples are categorized based on the symmetry of the tracks. </p>
      <p>This report is composed of four sections. Section 1, the Introduction, is followed by the formulation in Section 2. CAS calculations are heavily used. Section 3 embodies the <italic>Mathematica</italic> code. This section also includes the solutions, numerical output, and graphs. The conclusions and comments are in Section 4. </p>
    </sec>
    <sec id="sec2">
      <title>2. Formulation</title>
      <p>According to <italic>Lagrange equations of the first kind</italic> [<xref ref-type="bibr" rid="B1">1</xref>][<xref ref-type="bibr" rid="B2">2</xref>], given the equation of the track in the Cartesian {<italic>x</italic>, <italic>y</italic>} coordinate system that a massive point-like particle in a two-dimensional vertical plane traverses is, </p>
      <disp-formula id="FD1">
        <label>(1)</label>
        <mml:math>
          <mml:mrow>
            <mml:mi>m</mml:mi>
            <mml:mstyle mathvariant="bold" mathsize="normal">
              <mml:mover accent="true">
                <mml:mi>r</mml:mi>
                <mml:mo>¨</mml:mo>
              </mml:mover>
            </mml:mstyle>
            <mml:mo>=</mml:mo>
            <mml:mstyle mathvariant="bold" mathsize="normal">
              <mml:mi>F</mml:mi>
            </mml:mstyle>
            <mml:mo>+</mml:mo>
            <mml:mstyle mathvariant="bold" mathsize="normal">
              <mml:mi>R</mml:mi>
            </mml:mstyle>
          </mml:mrow>
        </mml:math>
      </disp-formula>
      <p>here, <inline-formula><mml:math><mml:mstyle mathvariant="bold" mathsize="normal"><mml:mi> F </mml:mi></mml:mstyle></mml:math></inline-formula> and <inline-formula><mml:math><mml:mstyle mathvariant="bold" mathsize="normal"><mml:mi> R </mml:mi></mml:mstyle></mml:math></inline-formula> are the external and track reaction forces acting on a particle of mass m, respectively, acquiring an acceleration, <inline-formula><mml:math><mml:mstyle mathvariant="bold" mathsize="normal"><mml:mover accent="true"><mml:mi> r </mml:mi><mml:mo> ¨ </mml:mo></mml:mover></mml:mstyle></mml:math></inline-formula> . The track reaction, <inline-formula><mml:math><mml:mstyle mathvariant="bold" mathsize="normal"><mml:mi> R </mml:mi></mml:mstyle></mml:math></inline-formula> , is given by,</p>
      <disp-formula id="FD2">
        <label>(2)</label>
        <mml:math>
          <mml:mrow>
            <mml:mstyle mathvariant="bold" mathsize="normal">
              <mml:mi>R</mml:mi>
            </mml:mstyle>
            <mml:mo>=</mml:mo>
            <mml:mstyle displaystyle="true">
              <mml:msubsup>
                <mml:mo>∑</mml:mo>
                <mml:mrow>
                  <mml:mi>α</mml:mi>
                  <mml:mo>=</mml:mo>
                  <mml:mn>1</mml:mn>
                </mml:mrow>
                <mml:mi>d</mml:mi>
              </mml:msubsup>
              <mml:mrow>
                <mml:msub>
                  <mml:mi>λ</mml:mi>
                  <mml:mi>α</mml:mi>
                </mml:msub>
                <mml:mfrac>
                  <mml:mo>∂</mml:mo>
                  <mml:mrow>
                    <mml:mo>∂</mml:mo>
                    <mml:mstyle mathvariant="bold" mathsize="normal">
                      <mml:mi>r</mml:mi>
                    </mml:mstyle>
                  </mml:mrow>
                </mml:mfrac>
                <mml:msub>
                  <mml:mi>f</mml:mi>
                  <mml:mi>α</mml:mi>
                </mml:msub>
                <mml:mrow>
                  <mml:mo>(</mml:mo>
                  <mml:mrow>
                    <mml:mi>x</mml:mi>
                    <mml:mo>,</mml:mo>
                    <mml:mi>y</mml:mi>
                  </mml:mrow>
                  <mml:mo>)</mml:mo>
                </mml:mrow>
              </mml:mrow>
            </mml:mstyle>
          </mml:mrow>
        </mml:math>
      </disp-formula>
      <p>The latter is the generalized expression underscoring the fact that one might apply (2) to d constraints. For the case on hand, only one track, <italic>d</italic> = 1. Equation (2) is universally used in the literature [<xref ref-type="bibr" rid="B1">1</xref>][<xref ref-type="bibr" rid="B2">2</xref>]. Instead of applying (2) without underlying its profound geometric meaning for the case on hand, a frictionless track, the author wishes symbolically to replace the notion with, </p>
      <disp-formula id="FD3">
        <label>(3)</label>
        <mml:math>
          <mml:mrow>
            <mml:mstyle mathvariant="bold" mathsize="normal">
              <mml:mi>R</mml:mi>
            </mml:mstyle>
            <mml:mo>=</mml:mo>
            <mml:mi>λ</mml:mi>
            <mml:msub>
              <mml:mo>∇</mml:mo>
              <mml:mrow>
                <mml:mrow>
                  <mml:mo>{</mml:mo>
                  <mml:mrow>
                    <mml:mi>x</mml:mi>
                    <mml:mo>,</mml:mo>
                    <mml:mi>y</mml:mi>
                  </mml:mrow>
                  <mml:mo>}</mml:mo>
                </mml:mrow>
              </mml:mrow>
            </mml:msub>
            <mml:mi>f</mml:mi>
            <mml:mrow>
              <mml:mo>(</mml:mo>
              <mml:mrow>
                <mml:mi>x</mml:mi>
                <mml:mo>,</mml:mo>
                <mml:mi>y</mml:mi>
              </mml:mrow>
              <mml:mo>)</mml:mo>
            </mml:mrow>
          </mml:mrow>
        </mml:math>
      </disp-formula>
      <p>The replacement emphasizes that, as is well known, the gradient represents the orientation of a line perpendicular to a curve (track) given by <inline-formula><mml:math><mml:mrow><mml:mi> f </mml:mi><mml:mrow><mml:mo> ( </mml:mo><mml:mrow><mml:mi> x </mml:mi><mml:mo> , </mml:mo><mml:mi> y </mml:mi></mml:mrow><mml:mo> ) </mml:mo></mml:mrow></mml:mrow></mml:math></inline-formula> . But also, as is well known in solid mechanics, in the absence of friction, the contact reaction force(s) is perpendicular to the contact surfaces (curves). Moreover, the “scale” factor, <italic>λ</italic>, so to speak, “The undetermined Lagrange multipliers” [<xref ref-type="bibr" rid="B1">1</xref>][<xref ref-type="bibr" rid="B2">2</xref>], may be interpreted as being the proportionality coefficient that scales the value of the normal force. It is a variable coefficient; although it is independent of the contact coordinates, it depends on the implied parameter. According to (1), the implied parameter is time, so that <italic>λ</italic> is time-dependent, <italic>λ</italic>(<italic>t</italic>). The <italic>t</italic> varies in accordance with the movement of the particle. </p>
      <p>With the given notations, suppressing the relevant subscripts, (1) reads, </p>
      <disp-formula id="FD4">
        <label>(4)</label>
        <mml:math>
          <mml:mrow>
            <mml:mi>m</mml:mi>
            <mml:mstyle mathvariant="bold" mathsize="normal">
              <mml:mover accent="true">
                <mml:mi>r</mml:mi>
                <mml:mo>¨</mml:mo>
              </mml:mover>
            </mml:mstyle>
            <mml:mo>=</mml:mo>
            <mml:mstyle mathvariant="bold" mathsize="normal">
              <mml:mi>F</mml:mi>
            </mml:mstyle>
            <mml:mo>+</mml:mo>
            <mml:mi>λ</mml:mi>
            <mml:mrow>
              <mml:mo>(</mml:mo>
              <mml:mi>t</mml:mi>
              <mml:mo>)</mml:mo>
            </mml:mrow>
            <mml:mo>∇</mml:mo>
            <mml:mi>f</mml:mi>
            <mml:mrow>
              <mml:mo>(</mml:mo>
              <mml:mrow>
                <mml:mi>x</mml:mi>
                <mml:mo>,</mml:mo>
                <mml:mi>y</mml:mi>
              </mml:mrow>
              <mml:mo>)</mml:mo>
            </mml:mrow>
          </mml:mrow>
        </mml:math>
      </disp-formula>
    </sec>
    <sec id="sec3">
      <title>3. Examples</title>
      <p>Consider a track given by <inline-formula><mml:math display="inline"><mml:mrow><mml:mi> f </mml:mi><mml:mrow><mml:mo> ( </mml:mo><mml:mrow><mml:mi> x </mml:mi><mml:mo> , </mml:mo><mml:mi> y </mml:mi></mml:mrow><mml:mo> ) </mml:mo></mml:mrow><mml:mo> = </mml:mo><mml:mi> y </mml:mi><mml:mo> − </mml:mo><mml:mn> 2.5 </mml:mn><mml:msup><mml:mi> x </mml:mi><mml:mn> 2 </mml:mn></mml:msup><mml:mo> − </mml:mo><mml:mn> 1 </mml:mn></mml:mrow></mml:math></inline-formula> . It is displayed in <xref ref-type="fig" rid="fig1">Figure 1</xref> along withe applied forces, <inline-formula><mml:math display="inline"><mml:mrow><mml:mstyle mathvariant="bold" mathsize="normal"><mml:mi> F </mml:mi></mml:mstyle><mml:mo> = </mml:mo><mml:mo> − </mml:mo><mml:mi> m </mml:mi><mml:mstyle mathvariant="bold" mathsize="normal"><mml:mi> g </mml:mi></mml:mstyle></mml:mrow></mml:math></inline-formula> and <inline-formula><mml:math display="inline"><mml:mstyle mathvariant="bold" mathsize="normal"><mml:mi> R </mml:mi></mml:mstyle></mml:math></inline-formula> .</p>
      <fig id="fig1">
        <label>Figure 1</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId37.jpeg?20261019021658" />
      </fig>
      <p><bold>Figure 1.</bold>Displays the constraint expression and the active forces acting on the mobile particle. </p>
      <p>Projecting the last equation on the <italic>x</italic>, <italic>y</italic> axes yield,</p>
      <disp-formula id="FD5">
        <label>(5)</label>
        <mml:math>
          <mml:mtable columnalign="left">
            <mml:mtr>
              <mml:mtd>
                <mml:mi>m</mml:mi>
                <mml:mover accent="true">
                  <mml:mi>x</mml:mi>
                  <mml:mo>¨</mml:mo>
                </mml:mover>
                <mml:mo>=</mml:mo>
                <mml:mi>λ</mml:mi>
                <mml:mrow>
                  <mml:mo>(</mml:mo>
                  <mml:mi>t</mml:mi>
                  <mml:mo>)</mml:mo>
                </mml:mrow>
                <mml:msub>
                  <mml:mrow>
                    <mml:mo>[</mml:mo>
                    <mml:mrow>
                      <mml:mo>∇</mml:mo>
                      <mml:mi>f</mml:mi>
                      <mml:mrow>
                        <mml:mo>(</mml:mo>
                        <mml:mrow>
                          <mml:mi>x</mml:mi>
                          <mml:mo>,</mml:mo>
                          <mml:mi>y</mml:mi>
                        </mml:mrow>
                        <mml:mo>)</mml:mo>
                      </mml:mrow>
                    </mml:mrow>
                    <mml:mo>]</mml:mo>
                  </mml:mrow>
                  <mml:mi>x</mml:mi>
                </mml:msub>
              </mml:mtd>
            </mml:mtr>
            <mml:mtr>
              <mml:mtd>
                <mml:mi>m</mml:mi>
                <mml:mover accent="true">
                  <mml:mi>y</mml:mi>
                  <mml:mo>¨</mml:mo>
                </mml:mover>
                <mml:mo>=</mml:mo>
                <mml:mo>−</mml:mo>
                <mml:mi>m</mml:mi>
                <mml:mi>g</mml:mi>
                <mml:mo>+</mml:mo>
                <mml:mi>λ</mml:mi>
                <mml:mrow>
                  <mml:mo>(</mml:mo>
                  <mml:mi>t</mml:mi>
                  <mml:mo>)</mml:mo>
                </mml:mrow>
                <mml:msub>
                  <mml:mrow>
                    <mml:mo>[</mml:mo>
                    <mml:mrow>
                      <mml:mo>∇</mml:mo>
                      <mml:mi>f</mml:mi>
                      <mml:mrow>
                        <mml:mo>(</mml:mo>
                        <mml:mrow>
                          <mml:mi>x</mml:mi>
                          <mml:mo>,</mml:mo>
                          <mml:mi>y</mml:mi>
                        </mml:mrow>
                        <mml:mo>)</mml:mo>
                      </mml:mrow>
                    </mml:mrow>
                    <mml:mo>]</mml:mo>
                  </mml:mrow>
                  <mml:mi>y</mml:mi>
                </mml:msub>
              </mml:mtd>
            </mml:mtr>
          </mml:mtable>
        </mml:math>
      </disp-formula>
      <p>Eliminating <italic>λ</italic> amongst the set of Equations (5) yields a mass-independent equation,</p>
      <disp-formula id="FD6">
        <label>(6)</label>
        <mml:math>
          <mml:mrow>
            <mml:mover accent="true">
              <mml:mi>y</mml:mi>
              <mml:mo>¨</mml:mo>
            </mml:mover>
            <mml:mo>=</mml:mo>
            <mml:mo>−</mml:mo>
            <mml:mi>g</mml:mi>
            <mml:mo>+</mml:mo>
            <mml:mfrac>
              <mml:mrow>
                <mml:msub>
                  <mml:mrow>
                    <mml:mrow>
                      <mml:mo>[</mml:mo>
                      <mml:mrow>
                        <mml:mo>∇</mml:mo>
                        <mml:mi>f</mml:mi>
                        <mml:mrow>
                          <mml:mo>(</mml:mo>
                          <mml:mrow>
                            <mml:mi>x</mml:mi>
                            <mml:mo>,</mml:mo>
                            <mml:mi>y</mml:mi>
                          </mml:mrow>
                          <mml:mo>)</mml:mo>
                        </mml:mrow>
                      </mml:mrow>
                      <mml:mo>]</mml:mo>
                    </mml:mrow>
                  </mml:mrow>
                  <mml:mi>y</mml:mi>
                </mml:msub>
              </mml:mrow>
              <mml:mrow>
                <mml:msub>
                  <mml:mrow>
                    <mml:mrow>
                      <mml:mo>[</mml:mo>
                      <mml:mrow>
                        <mml:mo>∇</mml:mo>
                        <mml:mi>f</mml:mi>
                        <mml:mrow>
                          <mml:mo>(</mml:mo>
                          <mml:mrow>
                            <mml:mi>x</mml:mi>
                            <mml:mo>,</mml:mo>
                            <mml:mi>y</mml:mi>
                          </mml:mrow>
                          <mml:mo>)</mml:mo>
                        </mml:mrow>
                      </mml:mrow>
                      <mml:mo>]</mml:mo>
                    </mml:mrow>
                  </mml:mrow>
                  <mml:mi>x</mml:mi>
                </mml:msub>
              </mml:mrow>
            </mml:mfrac>
            <mml:mover accent="true">
              <mml:mi>x</mml:mi>
              <mml:mo>¨</mml:mo>
            </mml:mover>
          </mml:mrow>
        </mml:math>
      </disp-formula>
      <p>Solving (6) along with the constraint expression given in the previous paragraph with a set of desired initial conditions by applying NDSolve yields the numeric pair {x(t), y(t)}. Here is the <italic>Mathematica</italic> code,</p>
      <p><bold>Clear[eqy,gradxy];</bold></p>
      <p><bold>f(x_,y_)=y-2.5x</bold><bold><sup>2</sup></bold><bold>-1</bold></p>
      <p><bold>gradxy=Grad[f[x,y],{x,y}];</bold></p>
      <p><bold>gradxyt=gradxy/.{x-&gt;x[t],y-&gt;y[t]};</bold></p>
      <p><bold>gradxyt</bold><bold>[</bold><bold>[1]</bold><bold>];</bold></p>
      <p><bold>λ[t]</bold><bold>gradxyt</bold><bold>[</bold><bold>[1]</bold><bold>];</bold></p>
      <p><bold>λ[t]=m</bold><bold>x''</bold><bold>[t]/</bold><bold>gradxyt</bold><bold>[</bold><bold>[1]</bold><bold>];</bold></p>
      <p><bold>eqy</bold><bold>=λ[t]</bold><bold>gradxyt</bold><bold>[</bold><bold>[2]</bold><bold>]-m 9.8-m</bold><bold>y''</bold><bold>[t</bold><bold>];</bold></p>
      <p><bold>eqy=Simplify[eqy/m];</bold></p>
      <p><bold>solxyt=NDSolve[Rationalize[{eqy==0,fxyt==0,x[0]==-0.74,x'[0]==0,y[0]==2.225,y'[0]==0},0],{x,y},{t,0,7},Method-&gt;{"IndexReduction"-&gt;Automatic}];</bold></p>
      <p><bold>plotxt=Plot[x[t]/.solxyt,{t,0.,7},AxesLabel-&gt;{"t","x[t]"},GridLines-&gt;Automatic,PlotStyle-&gt;Black];</bold></p>
      <p><bold>plotyt=Plot[y[t]/.solxyt,{t,0.,7},AxesLabel-&gt;{"t","y[t]"},GridLines-&gt;Automatic,PlotRange-&gt;{0,3},PlotStyle-&gt;Red];</bold></p>
      <p><bold>GraphicsGrid[{{plotxt,plotyt}}];</bold></p>
      <p><bold>plotxyt=Show[plotyt,plotxt,AxesLabel-&gt;{"t","x,y"},PlotRange-&gt;All,PlotLabel-&gt;{"Red=y(t),Black=x(t)"}];</bold></p>
      <p>As expected, the track’s symmetry makes the particle oscillate symmetrically along the <italic>x</italic> and <italic>y</italic> axes. The oscillation periods along these axes are different. Along the horizontal axis, the particle oscillates more slowly than along the vertical axis (<xref ref-type="fig" rid="fig2">Figure 2</xref>).</p>
      <fig id="fig2">
        <label>Figure 2</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId42.jpeg?20261019021658" />
      </fig>
      <p><bold>Figure 2.</bold> Display of oscillations of the particle along the <italic>x</italic> and <italic>y</italic> axes vs. time. </p>
      <p>Utilizing the solutions of the pair {x[t], y[y]} the next graph displays the pair in green along with the original track in blue.</p>
      <p>One might take the displayed graph as a measure of the accuracy of the solution of the differential-algebraic equation (DAE) (<xref ref-type="fig" rid="fig3">Figure 3</xref>).</p>
      <p>Kinematic quantities such as speeds are evaluated. </p>
      <p><bold>speedx=D[x[t]/.solxyt,{t,1}];</bold></p>
      <p><bold>speedy=D[y[t]/.solxyt,{t,1}];</bold></p>
      <p><bold>plotspeedx=Plot[speedx,{t,0.,7},GridLines-&gt;Automatic,AxesLabel-&gt;{"t","speedx"},PlotStyle-&gt;{Black}];</bold></p>
      <p><bold>plotspeedy=Plot[speedy,{t,0.,7},GridLines-&gt;Automatic,AxesLabel-&gt;{"t","speedy"},PlotStyle-&gt;Red];</bold></p>
      <p><bold>speedxy=Show[plotspeedy,plotspeedx,AxesLabel-&gt;{"t","speedy,speedx",speedy},PlotLabel-&gt;{"Red=speedy,Black=speedx"},PlotRange-&gt;All]</bold></p>
      <fig id="fig3">
        <label>Figure 3</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId43.jpeg?20261019021658" />
      </fig>
      <p><bold>Figure 3.</bold>The original track (in blue) and the numerical solution of the associated coordinates of the mobile particle (in green).</p>
      <p>The next two “graphs” are animations that are pictorial versions of these facts. <xref ref-type="fig" rid="fig4">Figure 4</xref> is a snapshot of the particle’s oscillations on the actual track. <xref ref-type="fig" rid="fig5">Figure 5</xref> displays the oscillations of the image of the particle along the vertical axis as one observes it on the xy-plane. A similar graph may be coded displaying the oscillations along the horizontal. The latter is left to interested readers. </p>
      <fig id="fig4">
        <label>Figure 4</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId44.jpeg?20261019021658" />
      </fig>
      <p><bold>Figure 4.</bold> Snapshot of the oscillations of the particle on the actual track.</p>
      <fig id="fig5">
        <label>Figure 5</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId45.jpeg?20261019021658" />
      </fig>
      <p><bold>Figure 5.</bold> A snapshot of the oscillations of the image of the particle along the vertical axis. </p>
      <p><xref ref-type="fig" rid="fig6">Figure 6</xref> shows the particle speed along the x and y axes.</p>
      <fig id="fig6">
        <label>Figure 6</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId46.jpeg?20261019021659" />
      </fig>
      <p><bold>Figure 6.</bold> Display of the speeds of the particle along the <italic>x</italic> and <italic>y</italic> axes, respectively.</p>
      <p><xref ref-type="fig" rid="fig7">Figure 7</xref> is the speed <inline-formula><mml:math display="inline"><mml:mrow><mml:mo> = </mml:mo><mml:mi> v </mml:mi><mml:mo> = </mml:mo><mml:msqrt><mml:mrow><mml:mover accent="true"><mml:mi> x </mml:mi><mml:mo> ˙ </mml:mo></mml:mover><mml:msup><mml:mrow><mml:mrow><mml:mo> ( </mml:mo><mml:mi> t </mml:mi><mml:mo> ) </mml:mo></mml:mrow></mml:mrow><mml:mn> 2 </mml:mn></mml:msup><mml:mo> + </mml:mo><mml:mover accent="true"><mml:mi> y </mml:mi><mml:mo> ˙ </mml:mo></mml:mover><mml:msup><mml:mrow><mml:mrow><mml:mo> ( </mml:mo><mml:mi> t </mml:mi><mml:mo> ) </mml:mo></mml:mrow></mml:mrow><mml:mn> 2 </mml:mn></mml:msup></mml:mrow></mml:msqrt></mml:mrow></mml:math></inline-formula> .</p>
      <p>Components of the acceleration {<italic>a</italic><italic><sub>x</sub></italic>,<italic>a</italic><italic><sub>y</sub></italic>} are depicted in <xref ref-type="fig" rid="fig8">Figure 8</xref><bold>.</bold></p>
      <p><bold>accx=D[x[t]/.solxyt,{t,2}];</bold></p>
      <p><bold>accy=D[y[t]/.solxyt,{t,2}];</bold></p>
      <p><bold>plotaccx=Plot[accx,{t,0.,7},GridLines-&gt;Automatic,AxesLabel-&gt;{"t","accx"},PlotStyle-&gt;Black];</bold></p>
      <p><bold>plotaccy=Plot[accy,{t,0.,7},GridLines-&gt;Automatic,AxesLabel-&gt;{"t","accy"},PlotStyle-&gt;Red,PlotRange-&gt;All];</bold></p>
      <p><bold>Show[plotaccy,plotaccx,AxesLabel-&gt;{"t","accy,accx"},PlotLabel-&gt;{"Red=accy,Black=accx"},PlotRange-&gt;All]</bold></p>
      <fig id="fig7">
        <label>Figure 7</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId49.jpeg?20261019021658" />
      </fig>
      <p><bold>Figure 7.</bold> Speed of the particle vs. time.</p>
      <fig id="fig8">
        <label>Figure 8</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId50.jpeg?20261019021659" />
      </fig>
      <p><bold>Figure 8.</bold> Display of the particle’s accelerations along the <italic>x</italic> and <italic>y</italic> axes, respectively.</p>
      <p>Putting all this information together, we conclude this section.</p>
      <p><xref ref-type="fig" rid="fig9">Figure 9</xref>shows comprehensive graphs of the derived formulations.</p>
      <fig id="fig9">
        <label>Figure 9</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId51.jpeg?20261019021659" />
      </fig>
      <p><bold>Figure 9.</bold> Comprehensive display of the derived graphs. </p>
      <p>Furthermore, knowing the time-dependency of the pair, {<italic>x</italic>(<italic>t</italic>),<italic>y</italic>(<italic>t</italic>)} we now evaluate and graph 1) the mentioned scaling factor <italic>λ</italic>(<italic>t</italic>), and 2) the track’s reaction, <inline-formula><mml:math display="inline"><mml:mrow><mml:mstyle mathvariant="bold" mathsize="normal"><mml:mi> R </mml:mi></mml:mstyle><mml:mrow><mml:mo> ( </mml:mo><mml:mi> t </mml:mi><mml:mo> ) </mml:mo></mml:mrow></mml:mrow></mml:math></inline-formula> . </p>
      <p>1) <italic>λ</italic>(<italic>t</italic>) is subject to either the first or the second equation of (5). Choosing the first-choice yields </p>
      <disp-formula id="FD7">
        <label>(7)</label>
        <mml:math display="inline">
          <mml:mrow>
            <mml:mi>λ</mml:mi>
            <mml:mrow>
              <mml:mo>(</mml:mo>
              <mml:mi>t</mml:mi>
              <mml:mo>)</mml:mo>
            </mml:mrow>
            <mml:mo>=</mml:mo>
            <mml:mfrac>
              <mml:mrow>
                <mml:mi>m</mml:mi>
                <mml:mover accent="true">
                  <mml:mi>x</mml:mi>
                  <mml:mo>¨</mml:mo>
                </mml:mover>
                <mml:mrow>
                  <mml:mo>(</mml:mo>
                  <mml:mi>t</mml:mi>
                  <mml:mo>)</mml:mo>
                </mml:mrow>
              </mml:mrow>
              <mml:mrow>
                <mml:msub>
                  <mml:mrow>
                    <mml:mrow>
                      <mml:mo>[</mml:mo>
                      <mml:mrow>
                        <mml:mo>∇</mml:mo>
                        <mml:mi>f</mml:mi>
                        <mml:mrow>
                          <mml:mo>(</mml:mo>
                          <mml:mrow>
                            <mml:mi>x</mml:mi>
                            <mml:mo>,</mml:mo>
                            <mml:mi>y</mml:mi>
                          </mml:mrow>
                          <mml:mo>)</mml:mo>
                        </mml:mrow>
                      </mml:mrow>
                      <mml:mo>]</mml:mo>
                    </mml:mrow>
                  </mml:mrow>
                  <mml:mi>x</mml:mi>
                </mml:msub>
              </mml:mrow>
            </mml:mfrac>
          </mml:mrow>
        </mml:math>
      </disp-formula>
      <p>E.g., for the case at hand, the denominator is 5<italic>x</italic>(<italic>t</italic>). Equation (7) is mass-dependent. For instance, for <italic>m</italic> = 0.1, <xref ref-type="fig" rid="fig10">Figure 10</xref> shows its graph. </p>
      <fig id="fig10">
        <label>Figure 10</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId56.jpeg?20261019021659" />
      </fig>
      <p><bold>Figure 10.</bold> Variation of <italic>λ</italic>(<italic>t</italic>) vs <italic>t</italic>. The mass of the particle is <italic>m</italic>= 0.1.</p>
      <p>This is a numeric-based graph; as such, the shown spike corresponds to the minimum value of <italic>x</italic>(<italic>t</italic>). </p>
      <p>2) The two components of the reaction force are subject to (5). Utilizing the {<italic>x</italic>(<italic>t</italic>),<italic>y</italic>(<italic>t</italic>)} we evaluate <inline-formula><mml:math display="inline"><mml:mrow><mml:mrow><mml:mo> { </mml:mo><mml:mrow><mml:mover accent="true"><mml:mi> x </mml:mi><mml:mo> ¨ </mml:mo></mml:mover><mml:mrow><mml:mo> ( </mml:mo><mml:mi> t </mml:mi><mml:mo> ) </mml:mo></mml:mrow><mml:mo> , </mml:mo><mml:mover accent="true"><mml:mi> y </mml:mi><mml:mo> ¨ </mml:mo></mml:mover><mml:mrow><mml:mo> ( </mml:mo><mml:mi> t </mml:mi><mml:mo> ) </mml:mo></mml:mrow></mml:mrow><mml:mo> } </mml:mo></mml:mrow></mml:mrow></mml:math></inline-formula> . This yields the needed components {<italic>R</italic><italic><sub>x</sub></italic>(<italic>t</italic>), <italic>R</italic><italic><sub>y</sub></italic>(<italic>t</italic>)}. For the chosen <italic>m</italic> = 0.1, their graphs are shown in <xref ref-type="fig" rid="fig11">Figure 11</xref>.</p>
      <fig id="fig11">
        <label>Figure 11</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId59.jpeg?20261019021658" />
      </fig>
      <p><bold>Figure 11.</bold> Graph of the components of {<italic>R</italic><italic><sub>x</sub></italic>(<italic>t</italic>), <italic>R</italic><italic><sub>y</sub></italic>(<italic>t</italic>)} vs. <italic>t</italic><italic>.</italic></p>
      <p>The forces shown vs. time correspond to the physical position of the oscillating particle. For a better understanding, see <xref ref-type="fig" rid="fig5">Figure 5</xref>. </p>
      <p>The reaction force is subject to <inline-formula><mml:math display="inline"><mml:mrow><mml:mi> R </mml:mi><mml:mrow><mml:mo> ( </mml:mo><mml:mi> t </mml:mi><mml:mo> ) </mml:mo></mml:mrow><mml:mo> = </mml:mo><mml:msqrt><mml:mrow><mml:msub><mml:mi> R </mml:mi><mml:mi> x </mml:mi></mml:msub><mml:msup><mml:mrow><mml:mrow><mml:mo> ( </mml:mo><mml:mi> t </mml:mi><mml:mo> ) </mml:mo></mml:mrow></mml:mrow><mml:mn> 2 </mml:mn></mml:msup><mml:mo> + </mml:mo><mml:msub><mml:mi> R </mml:mi><mml:mi> y </mml:mi></mml:msub><mml:msup><mml:mrow><mml:mrow><mml:mo> ( </mml:mo><mml:mi> t </mml:mi><mml:mo> ) </mml:mo></mml:mrow></mml:mrow><mml:mn> 2 </mml:mn></mml:msup></mml:mrow></mml:msqrt></mml:mrow></mml:math></inline-formula> . It is displayed in <xref ref-type="fig" rid="fig12">Figure 12</xref>.</p>
      <p><italic><bold>Example 1b.</bold></italic><bold>An asymmetric track</bold></p>
      <p>We generalize the features of Example 1a by breaking the symmetry of the track. The new track is shown in dashed green in <xref ref-type="fig" rid="fig13">Figure 13</xref>. To highlight its asymmetry, we plot the previous symmetric case alongside it. </p>
      <fig id="fig12">
        <label>Figure 12</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId62.jpeg?20261019021659" />
      </fig>
      <p><bold>Figure 12.</bold> Reaction force vs. time.</p>
      <fig id="fig13">
        <label>Figure 13</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId63.jpeg?20261019021658" />
      </fig>
      <p><bold>Figure 13.</bold> Display of the symmetric (in black) and asymmetric (in dashed-green) tracks.</p>
      <p>The analytic expression to graph the asymmetric dashed-green track is given by <inline-formula><mml:math display="inline"><mml:mrow><mml:msub><mml:mi> f </mml:mi><mml:mn> 1 </mml:mn></mml:msub><mml:mrow><mml:mo> ( </mml:mo><mml:mrow><mml:mi> x </mml:mi><mml:mo> , </mml:mo><mml:mi> y </mml:mi></mml:mrow><mml:mo> ) </mml:mo></mml:mrow></mml:mrow></mml:math></inline-formula> ,</p>
      <p><bold>f1(x,y)=y-[3.2` -0.9` (1.2` +x)-2 (1.2` +x)</bold><bold><sup>2</sup></bold><bold>-0.2` (1.2` +x)</bold><bold><sup>3</sup></bold><bold>+(1.2` +x)</bold><bold><sup>4</sup></bold><bold>]</bold></p>
      <p>As shown, the dashed-green track has certain visual characteristics that draw attention to the point of interest. </p>
      <p>Equations (5) and (6) are generic, meaning they are applicable to any 2dimenisonal curves in a vertical plane. By replacing <inline-formula><mml:math display="inline"><mml:mrow><mml:mi> f </mml:mi><mml:mrow><mml:mo> ( </mml:mo><mml:mrow><mml:mi> x </mml:mi><mml:mo> , </mml:mo><mml:mi> y </mml:mi></mml:mrow><mml:mo> ) </mml:mo></mml:mrow></mml:mrow></mml:math></inline-formula> with <inline-formula><mml:math display="inline"><mml:mrow><mml:msub><mml:mi> f </mml:mi><mml:mn> 1 </mml:mn></mml:msub><mml:mrow><mml:mo> ( </mml:mo><mml:mrow><mml:mi> x </mml:mi><mml:mo> , </mml:mo><mml:mi> y </mml:mi></mml:mrow><mml:mo> ) </mml:mo></mml:mrow></mml:mrow></mml:math></inline-formula> , we may apply the NDSolve command discussed in the previous section to identify the time-dependent position of the sliding particle, <italic>x</italic><sub>1</sub>(<italic>t</italic>), <italic>y</italic><sub>1</sub>(<italic>t</italic>). The necessary code is provided, and the exercise is straightforward. To avoid cluttering the report, I leave it as an exercise for interested readers. Nonetheless, <xref ref-type="fig" rid="fig14">Figure 14</xref> shows the essential graph.</p>
      <fig id="fig14">
        <label>Figure 14</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId70.jpeg?20261019021659" />
      </fig>
      <p><bold>Figure 14.</bold> Display of <italic>x</italic><sub>1</sub>(<italic>t</italic>) and <italic>y</italic><sub>1</sub>(<italic>t</italic>) vs. <italic>t</italic>. These are the coordinates of the mobile particle sliding on the asymmetric track.</p>
      <p>The left panel of <xref ref-type="fig" rid="fig14">Figure 14</xref> vividly displays the impact of the track’s asymmetry. At the end of the first swing, the particle is at a horizontal distance of 0.4, yet the starting horizontal distance is −0.7. </p>
      <p><italic><bold>Example</bold></italic><bold>1</bold><italic><bold>c</bold></italic>. <bold>A generalized track</bold></p>
      <p>Here we consider a case where the track lacks any symmetric and/or asymmetric character. For instance, we consider a track depicted in <xref ref-type="fig" rid="fig15">Figure 15</xref><bold>.</bold></p>
      <fig id="fig15">
        <label>Figure 15</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId71.jpeg?20261019021659" />
      </fig>
      <p><bold>Figure 15</bold>. Display of the track.</p>
      <p>The track shown has features of interest: a positive hump and a negative valley, and it lacks symmetry. </p>
      <p>Using the given constraint, we solve the associated DAE, as in the previous two cases. </p>
      <p><xref ref-type="fig" rid="fig16">Figure 16</xref> displays two traces. The green line is the actual track, and the blue dashes are the solution of the corresponding DAE.</p>
      <p>Next, in <xref ref-type="fig" rid="fig17">Figure 17</xref>, we display a snapshot of the animation of the movement of the article.</p>
      <p>Knowing the time dependence of the pair {<italic>x</italic><sub>1</sub>[<italic>t</italic>], <italic>y</italic><sub>1</sub>[<italic>t</italic>]}, we evaluate and display the corresponding speeds. These are shown in <xref ref-type="fig" rid="fig18">Figure 18</xref> and <xref ref-type="fig" rid="fig19">Figure 19</xref>. </p>
      <p>In order not to clutter the report, we have followed the steps in examples 1a and 1b. The codes are given in the previous two examples.</p>
      <p>Interested readers may produce additional graphs of quantities of interest. Given the codes in the previous paragraphs, there should be no coding issues. </p>
      <fig id="fig16">
        <label>Figure 16</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId72.jpeg?20261019021659" />
      </fig>
      <p><bold>Figure 16.</bold> Displays two indistinguishable tracks. This attests to the accuracy of the proposed solution. </p>
      <fig id="fig17">
        <label>Figure 17</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId73.jpeg?20261019021659" />
      </fig>
      <p><bold>Figure 17.</bold> Animation of the movement of the particle on the generalized track.</p>
      <fig id="fig18">
        <label>Figure 18</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId74.jpeg?20261019021658" />
      </fig>
      <p><bold>Figure 18.</bold> Display of the horizontal speed of the particle vs. time.</p>
      <fig id="fig19">
        <label>Figure 19</label>
        <graphic xlink:href="https://html.scirp.org/file/1101236-rId75.jpeg?20261019021658" />
      </fig>
      <p><bold>Figure 19.</bold> Display of the vertical speed of the particle vs. time.</p>
    </sec>
    <sec id="sec4">
      <title>4. Conclusion and Remarks</title>
      <p>In this report, we consider three examples analyzing the motion of a massive point-like bead on three different tracks on a vertical plane under gravitational force. For frictionless tracks, <italic>i.e.</italic>, conservative systems, it is customary to analyze these problems using the Euler-Lagrange method. However, the literature has seldom reported the Lagrangian-first method, the so-called Lagrangian unknown coefficient. The latter deals explicitly with the forces imposed by the track. The track’s analytic function materializes as a constraint, forming the set of equations describing the motion. The Lagrangian of the first kind encompasses more than one differential equation because it involves equations arising from the components of the forces. The customary Euler-Lagrange method encounters no such issue. In these cases, the Lagrangian of the first kind yields a differential equation and a constraint, making the system a DAE (differential-algebraic equation). Without a CAS, the difficulty depends on the analytic form of the constraint (track). Using a CAS removes this difficulty. The first two given examples are “icebreakers.” The third one and its solution address the issues of interest. The latter lacks the symmetries present in the general unrestricted example. Intentionally, the third example is not a trivial function: an eighth-order polynomial! The reader may try to solve the example without utilizing a CAS! </p>
      <p>The first two examples are accompanied by the <italic>Mathematica</italic> code needed. The numeric examples are converted to the accompanying graphs, making the understanding readily accessible. To avoid cluttering the report with redundancy, we suggest regenerating a few figures as an exercise. <italic>Mathematica</italic>users can run the code to animate the bead’s motion. </p>
      <p>For programming, readers familiar with <italic>Mathematica</italic> might find [<xref ref-type="bibr" rid="B3">3</xref>]-[<xref ref-type="bibr" rid="B6">6</xref>] resourceful.</p>
    </sec>
  </body>
  <back>
    <ref-list>
      <title>References</title>
      <ref id="B1">
        <label>1.</label>
        <citation-alternatives>
          <mixed-citation publication-type="other">Gantmacher, F. (1970) Lecture in Analytic Mechanics. MIR Publishers.</mixed-citation>
          <element-citation publication-type="other">
            <person-group person-group-type="author">
              <string-name>Gantmacher, F.</string-name>
            </person-group>
            <year>1970</year>
            <article-title>Lecture in Analytic Mechanics</article-title>
          </element-citation>
        </citation-alternatives>
      </ref>
      <ref id="B2">
        <label>2.</label>
        <citation-alternatives>
          <mixed-citation publication-type="other">Thornton, S.T. and Marion, J.M. (2008) Classical Dynamics of Particles and System. Brooks/Cole.</mixed-citation>
          <element-citation publication-type="other">
            <person-group person-group-type="author">
              <string-name>Thornton, S.T.</string-name>
              <string-name>Marion, J.M.</string-name>
            </person-group>
            <year>2008</year>
            <article-title>Classical Dynamics of Particles and System</article-title>
          </element-citation>
        </citation-alternatives>
      </ref>
      <ref id="B3">
        <label>3.</label>
        <mixed-citation publication-type="web"><italic>Mathematica</italic><italic><sup>R</sup></italic> V14.3. http://Wolfram.com</mixed-citation>
      </ref>
      <ref id="B4">
        <label>4.</label>
        <citation-alternatives>
          <mixed-citation publication-type="book">Wolfram, S. (2003) The Mathematica Book. 5th Edition, Cambridge University Publications.</mixed-citation>
          <element-citation publication-type="book">
            <person-group person-group-type="author">
              <string-name>Wolfram, S.</string-name>
              <string-name>Edition, C</string-name>
            </person-group>
            <year>2003</year>
            <article-title>The Mathematica Book</article-title>
            <source>5th Edition</source>
          </element-citation>
        </citation-alternatives>
      </ref>
      <ref id="B5">
        <label>5.</label>
        <citation-alternatives>
          <mixed-citation publication-type="book">Sarafian, D.H. (2019). Mathematica Graphics Examples. 2nd Edition, Scientific Search Publishing. https://doi.org/10.4236/9781618962608. <pub-id pub-id-type="doi">10.4236/9781618962608</pub-id><ext-link ext-link-type="uri" xlink:href="https://doi.org/10.4236/9781618962608">https://doi.org/10.4236/9781618962608</ext-link></mixed-citation>
          <element-citation publication-type="book">
            <person-group person-group-type="author">
              <string-name>Sarafian, D.H.</string-name>
              <string-name>Edition, S</string-name>
            </person-group>
            <year>2019</year>
            <pub-id pub-id-type="doi">10.4236/9781618962608</pub-id>
          </element-citation>
        </citation-alternatives>
      </ref>
      <ref id="B6">
        <label>6.</label>
        <citation-alternatives>
          <mixed-citation publication-type="other">Sarafian, H. (2023) Haiduke Sarafian’s Collective Articles 2020-2023. Scientific Research Search Publishing. https://doi.org/10.4236/9781649972953 <pub-id pub-id-type="doi">10.4236/9781649972953</pub-id><ext-link ext-link-type="uri" xlink:href="https://doi.org/10.4236/9781649972953">https://doi.org/10.4236/9781649972953</ext-link></mixed-citation>
          <element-citation publication-type="other">
            <person-group person-group-type="author">
              <string-name>Sarafian, H.</string-name>
            </person-group>
            <year>2023</year>
            <article-title>Haiduke Sarafian’s Collective Articles 2020-2023</article-title>
            <pub-id pub-id-type="doi">10.4236/9781649972953</pub-id>
          </element-citation>
        </citation-alternatives>
      </ref>
    </ref-list>
  </back>
</article>