<?xml version="1.0" encoding="UTF-8"?>
<Worksheet>
<Version major="7" minor="1"/>
<Label-Scheme value="2" prefix=""/>
<View-Properties presentation="false"><Hide name="Group Range"/><Hide name="Section Range"/></View-Properties>
<MapleNet-Properties warnlevel="3" longdelim="true" plotoptions="" echo="1" errorcursor="false" elisiontermsthreshold="10000" elisiontermsbefore="100" errorbreak="1" prettyprint="3" prompt="&gt; " latexwidth="6.0" useclientjvm="true" ansi="false" screenheight="25" labelwidth="20" plotdevice="inline" typesetting="standard" displayprecision="-1" indentamount="4" elisiondigitsthreshold="10000" quiet="false" plotoutput="terminal" rtablesize="10" preplot="" showassumed="1" plotdriver="openviz" elisiontermsafter="100" labelling="true" postplot="" screenwidth="79" elisiondigitsbefore="100" elisiondigitsafter="100" verboseproc="1" imaginaryunit="I" ShowLabels="true"/>
<Styles><Font name="Heading 4" background="[255,255,255]" bold="false" executable="false" family="Serif" foreground="[0,0,0]" italic="true" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Ordered List 5" background="[255,255,255]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Ordered List 1" background="[255,255,255]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Text Output" background="[255,255,255]" bold="false" executable="false" family="Monospaced" foreground="[0,0,255]" italic="false" opaque="false" readonly="true" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Bullet Item" background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Equation Label" background="[255,255,255]" bold="true" executable="false" family="Monospaced" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Author" background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Text" background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Diagnostic" background="[255,255,255]" bold="false" executable="false" family="Monospaced" foreground="[40,120,40]" italic="false" opaque="false" readonly="true" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Heading 2" background="[0,0,0]" bold="true" executable="false" family="Serif" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="16" subscript="false" superscript="false" underline="false"/>
<Font name="Page Number" background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="10" subscript="false" superscript="false" underline="false"/>
<Font name="Ordered List 3" background="[255,255,255]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Maple Plot" background="[255,255,255]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Normal" background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Maple Input" background="[0,0,0]" bold="true" executable="true" family="Monospaced" foreground="[255,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="2D Output" background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,255]" italic="false" opaque="false" readonly="true" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Dictionary Hyperlink" background="[255,255,255]" bold="false" executable="false" family="Serif" foreground="[147,0,15]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="true"/>
<Font name="Dash Item" background="[255,255,255]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Heading 3" background="[255,255,255]" bold="true" executable="false" family="Serif" foreground="[0,0,0]" italic="true" opaque="false" readonly="false" size="14" subscript="false" superscript="false" underline="false"/>
<Font name="Ordered List 4" background="[255,255,255]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Maple Output" background="[255,255,255]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="2D Input" background="[255,255,255]" bold="false" executable="true" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Line Printed Output" background="[255,255,255]" bold="false" executable="false" family="Monospaced" foreground="[0,0,255]" italic="false" opaque="false" readonly="true" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="List Item" background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Maple Input Placeholder" background="[255,255,255]" bold="true" executable="true" family="Monospaced" foreground="[200,0,200]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="2D Math" background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Error" background="[255,255,255]" bold="false" executable="false" family="Monospaced" foreground="[255,0,255]" italic="false" opaque="false" readonly="true" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Warning" background="[255,255,255]" bold="false" executable="false" family="Monospaced" foreground="[0,0,255]" italic="false" opaque="false" readonly="true" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Heading 1" background="[0,0,0]" bold="true" executable="false" family="Serif" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="18" subscript="false" superscript="false" underline="false"/>
<Font name="Title" background="[0,0,0]" bold="true" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="18" subscript="false" superscript="false" underline="true"/>
<Font name="Ordered List 2" background="[255,255,255]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="false"/>
<Font name="Hyperlink" background="[255,255,255]" bold="false" executable="false" family="Serif" foreground="[0,128,128]" italic="false" opaque="false" readonly="false" size="12" subscript="false" superscript="false" underline="true"/>
<Layout name="Ordered List 5" alignment="left" bullet="ROMAN" firstindent="0" leftmargin="144" rightmargin="0" linespacing="0.0" spaceabove="3" spacebelow="3" linebreak="space" pagebreak-before="false" initial="-1"/>
<Layout name="Heading 4" alignment="left" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="0" spacebelow="0" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Text Output" alignment="left" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="0" spacebelow="0" linebreak="newline" pagebreak-before="false" initial="0"/>
<Layout name="Ordered List 1" alignment="left" bullet="numeric" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="3" spacebelow="3" linebreak="space" pagebreak-before="false" initial="-1"/>
<Layout name="Bullet Item" alignment="left" bullet="dot" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="3" spacebelow="3" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Author" alignment="centred" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="8" spacebelow="8" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Dash Item" alignment="left" bullet="dash" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="3" spacebelow="3" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Heading 3" alignment="left" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="0" spacebelow="0" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Diagnostic" alignment="left" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="0" spacebelow="0" linebreak="any" pagebreak-before="false" initial="0"/>
<Layout name="Ordered List 4" alignment="left" bullet="ALPHABETIC" firstindent="0" leftmargin="108" rightmargin="0" linespacing="0.0" spaceabove="3" spacebelow="3" linebreak="space" pagebreak-before="false" initial="-1"/>
<Layout name="Maple Output" alignment="centred" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.3" spaceabove="0" spacebelow="0" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="List Item" alignment="left" bullet="indent" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="3" spacebelow="3" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Line Printed Output" alignment="left" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="0" spacebelow="0" linebreak="any" pagebreak-before="false" initial="0"/>
<Layout name="Heading 2" alignment="left" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="8" spacebelow="2" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Ordered List 3" alignment="left" bullet="roman" firstindent="0" leftmargin="72" rightmargin="0" linespacing="0.0" spaceabove="3" spacebelow="3" linebreak="space" pagebreak-before="false" initial="-1"/>
<Layout name="Error" alignment="left" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="0" spacebelow="0" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Maple Plot" alignment="centred" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="0" spacebelow="0" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Warning" alignment="left" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="0" spacebelow="0" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Heading 1" alignment="left" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="8" spacebelow="4" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Title" alignment="centred" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="12" spacebelow="12" linebreak="space" pagebreak-before="false" initial="0"/>
<Layout name="Ordered List 2" alignment="left" bullet="alphabetic" firstindent="0" leftmargin="36" rightmargin="0" linespacing="0.0" spaceabove="3" spacebelow="3" linebreak="space" pagebreak-before="false" initial="-1"/>
<Layout name="Normal" alignment="left" bullet="none" firstindent="0" leftmargin="0" rightmargin="0" linespacing="0.0" spaceabove="0" spacebelow="0" linebreak="space" pagebreak-before="false" initial="0"/>
<Pencil-style name="Pencil 3" pen-color="[0,0,0]" pen-height="3.0" pen-width="3.0" pen-opacity="1.0"/>
<Pencil-style name="Pencil 1" pen-color="[0,0,0]" pen-height="1.0" pen-width="1.0" pen-opacity="1.0"/>
<Pencil-style name="Pencil 5" pen-color="[255,0,0]" pen-height="5.0" pen-width="5.0" pen-opacity="1.0"/>
<Pencil-style name="Pencil 2" pen-color="[0,0,255]" pen-height="1.0" pen-width="1.0" pen-opacity="1.0"/>
<Pencil-style name="Pencil 4" pen-color="[0,0,255]" pen-height="3.0" pen-width="3.0" pen-opacity="1.0"/>
<Highlighter-style name="Highlighter 2" pen-color="[255,204,0]" pen-height="14.0" pen-width="14.0" pen-opacity="0.8"/>
<Highlighter-style name="Highlighter 4" pen-color="[0,255,255]" pen-height="32.0" pen-width="32.0" pen-opacity="0.8"/>
<Highlighter-style name="Highlighter 3" pen-color="[51,255,0]" pen-height="24.0" pen-width="24.0" pen-opacity="0.8"/>
<Highlighter-style name="Highlighter 1" pen-color="[255,153,255]" pen-height="12.0" pen-width="8.0" pen-opacity="0.8"/>
<Highlighter-style name="Highlighter 5" pen-color="[255,255,0]" pen-height="48.0" pen-width="48.0" pen-opacity="0.8"/>
</Styles>
<Task-table>
    <Task-category name="&lt;default&gt;">
    </Task-category>
</Task-table>
<Group labelreference="L3" drawlabel="true">
<Input>
<Text-field style="Normal" layout="Normal"><Font style="Page Number">This Maple worksheet accompanies the paper</Font></Text-field>
<Text-field style="Normal" layout="Normal"><Font italic="true" style="Page Number">    Paulo D. F. Gouveia and Delfim F. M. Torres,</Font></Text-field>
<Text-field style="Normal" layout="Normal"><Font italic="true" style="Page Number">    &quot;Automatic Computation of Conservation Laws</Font></Text-field>
<Text-field style="Normal" layout="Normal"><Font italic="true" style="Page Number">      in the Calculus of Variations and Optimal Control&quot;,</Font></Text-field>
<Text-field style="Normal" layout="Normal"><Font italic="true" style="Page Number">    Computational Methods in Applied Mathematics,</Font></Text-field>
<Text-field style="Normal" layout="Normal">   <Font encoding="UTF-8" size="10">Volume 5, N. 4, pp. 387\342\200\223409, 2005.</Font></Text-field>
<Text-field style="Normal" layout="Normal"></Text-field>
</Input>
<Input>
<Text-field style="Title" layout="Title">Automatic Computation of Conservation Laws
in the Calculus of Variations and Optimal Control</Text-field>
</Input>
<Input>
<Text-field style="Author" layout="Author">Paulo D. F. Gouveia
pgouveia@ipb.pt</Text-field>
<Text-field style="Author" layout="Author">Delfim F. M. Torres
delfim@mat.ua.pt</Text-field>
<Text-field style="Author" layout="Author">Control Theory Group (cotg)
Department of Mathematics
University of Aveiro
3810-193 Aveiro, Portugal</Text-field>
</Input>
</Group>
<Section collapsed="false" MultipleChoiceAnswerIndex="-1" MultipleChoiceRandomizeChoices="false" TrueFalseAnswerIndex="-1" EssayAnswerRows="5" EssayAnswerColumns="60"><Title>
<Text-field style="Heading 1" layout="Heading 1">Abstract</Text-field></Title>
<Text-field style="Normal" layout="Normal"><Font encoding="UTF-8">We present analytic computational tools that permit us to identify, in an automatic way, conservation laws in optimal control. The central result we use is the famous Noether\342\200\231s theorem, a classical theory developed by Emmy Noether in 1918, in the context of the calculus of variations and mathematical physics, and which was extended recently to the more general context of optimal control. We show how a Computer Algebra System can be very helpful in finding the symmetries and corresponding conservation laws in optimal control theory, thus making useful in practice</Font>
the theoretical results recently obtained in the literature. A Maple implementation is provided and several illustrative examples given.</Text-field>
<Text-field style="Normal" layout="Normal"></Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true">Keywords</Font><Font encoding="UTF-8">: optimal control, calculus of variations, computer algebra, Noether\342\200\231s theorem, symmetries, conservation laws.</Font></Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true">
2000 Mathematics Subject Classification</Font>: 49K15; 49-04; 49S05.</Text-field>
</Section>
<Section collapsed="true" MultipleChoiceAnswerIndex="-1" MultipleChoiceRandomizeChoices="false" TrueFalseAnswerIndex="-1" EssayAnswerRows="5" EssayAnswerColumns="60"><Title>
<Text-field style="Heading 1" layout="Heading 1">Introduction</Text-field></Title>
<Text-field style="Text" layout="Normal" firstindent="30">Optimal control problems are usually solved with the help of the famous Pontryagin maximum principle [<Font encoding="UTF-8">17], which is a generalization of the classic Euler-Lagrange and Weierstrass necessary optimality conditions of the calculus of variations. The method of finding optimal solutions via Pontryagin\342\200\231s maximum principle proceeds through the following main three steps: (i) one defines the Hamiltonian of the problem; (ii) with the help of the maximality condition one tries to express the control variables with respect to state and adjoint variables; (iii) the Hamiltonian system is written in terms of state and adjoint variables only, and the solutions of this system of ordinary differential equations are sought. Steps (ii) and (iii) are, generally speaking, nontrivial, and very difficult (or even impossible) to implement in practice [21]. One way to address the problem is to find conservation laws, i.e., quantities which are preserved along the extremals of the problem. Such conservation laws can be used to simplify the problem [8, 9]. The question is then the following: how to determine these conservation laws? It turns out that the classic results of Emmy Noether [14, 15] of the calculus of variations, relating the existence of conservation laws with the existence of symmetries, can be generalized to the wider context of optimal control [4, 6, 23], reducing the problem to the one of discovering the invariance-symmetries. The difficulty resides precisely in the determination of the variational symmetries. While in Physics and Economics the question of existence of conservation laws is treated in a rather natural way, because the application itself suggest the symmetries (e.g., conservation of energy, conservation of momentum, income/health law, etc \342\200\223 all of them coming from very intuitive symmetries of the problem), from a strictly mathematical point of view, given a problem of optimal control, it is not obvious and not intuitive how one might derive a conservation law. Therefore, it would be of great practical use to have at our disposal computational means for the automatic identification of the symmetries of the optimal control problems [8, 9]. This is the motivation of the present work: to present a Maple package that can assist in this respect. The results extend the previous investigations of the authors, done in the classical context of the calculus of variations [7], to the more general and interesting setting of optimal control [17], where the application of symmetry and conservation laws is an area of current research [9, 25].
The use of symbolic mathematical software is becoming, in recent years, an effective tool in mathematics [18]. Computer algebra, also known as symbolic computation, is an interdisciplinary area of mathematics and computer science. Computer Algebra Systems, Maple as an example, facilitate the interplay of conventional mathematics with computers. They are, in some sense, changing the way we learn, teach, and do research in mathematics [1]. They can perform a myriad of symbolic mathematical operations, like analytic differentiation, integration of algebraic formulae, factoring polynomials, computing the complex roots of analytic functions, computing Taylor series expansions of functions, finding analytic solutions of ordinary or partial differential equations, etc. It is not a surprise that they are becoming popular in control theory and control engineering applications [16]. Here we use the Maple 9.5 system to find symmetries and corresponding conservation laws in optimal control. The paper is organized as follows. In \302\2472 the problem of optimal control is introduced, the necessary definitions are given, and Noether\342\200\231s theorem is introduced. The method of computing conservation laws in optimal control is explained in \302\2473, and the Maple package is then applied in \302\2474 for computing symmetries and families of conservations laws to a diverse range of optimal control problems. In \302\2475 we focus attention to the symbolic computation of conservation laws in the calculus of variations. The Maple procedures are given in \302\2476, and we end \302\2477 with some comments and directions of future work.</Font></Text-field>
</Section>
<Section collapsed="true" MultipleChoiceAnswerIndex="-1" MultipleChoiceRandomizeChoices="false" TrueFalseAnswerIndex="-1" EssayAnswerRows="5" EssayAnswerColumns="60"><Title>
<Text-field style="Heading 1" layout="Heading 1">The Maple package</Text-field></Title>
<Text-field style="Text" layout="Normal">The procedures <Font italic="true">Symmetry</Font> and <Font italic="true">Noether</Font>, described in de paper and illustrated in the following section, together with some necessary technical routines, have been implemented for the computer algebra system <Font italic="true">Maple</Font> (version 9.5).</Text-field>
<Section collapsed="true" MultipleChoiceAnswerIndex="-1" MultipleChoiceRandomizeChoices="false" TrueFalseAnswerIndex="-1" EssayAnswerRows="5" EssayAnswerColumns="60"><Title>
<Text-field style="Heading 2" layout="Heading 2">Symmetry</Text-field></Title>
<Text-field style="Normal" layout="Normal">Computes the infinitesimal generators which define the symmetries of the optimal control problem specified in the input. As explained in sections 2 and 3, this procedure involves the solution of a system of partial differential equations. We have used the Maple solver pdsolve, trying to separate the variables by sum.</Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true">Output</Font>:</Text-field>
<Text-field style="List Item" layout="List Item">set of infinitesimal generators.</Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true">Syntax</Font>:</Text-field>
<Text-field style="List Item" layout="List Item">Symmetry(L, <Equation executable="false" style="List Item" input-equation="phi">NiNJJHBoaUc2Ig==</Equation>, t, x, u, [all])</Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true">Input</Font>:</Text-field>
<Text-field style="List Item" layout="List Item">L - expression of the Lagrangian;</Text-field>
<Text-field style="List Item" layout="List Item"><Equation executable="false" style="2D Math" input-equation="phi">NiNJJHBoaUc2Ig==</Equation> - expression or list of expressions of the velocity vector which defines the control system;
t - name of the independent variable;
x - name or list of names of the state variables;
u - name or list of names of the control variables;
all - This is an optional parameter. When <Font italic="true">all</Font> is given in the last argument of the procedure <Font italic="true">Symmetry</Font>, the output presents all the constants given by the <Font italic="true">Maple</Font> command <Font italic="true">pdsolve</Font>. By default, that is, without optional <Font italic="true">all</Font>, we eliminate redundant constants. This is done by our <Font italic="true">Maple</Font> procedure <Font italic="true">reduzConst</Font>.</Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true">Definition</Font>:</Text-field>
<Text-field style="Normal" layout="Normal"></Text-field>
<Group labelreference="L4" drawlabel="true">
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry:=proc(L::algebraic, phi::{algebraic, list(algebraic)}, t::name,
x0::{name,list(name)}, u0::{name,list(name)})</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">local n,m, xx, i, vX, vPSI, vU, vv, lpsi, H, eqd, syseqd, sol, conjGerad, lphi;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">unprotect(Psi); unassign('T'); unassign('X'); unassign('U'); unassign('Psi');</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">unassign('psi');</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">n:=nops(x0); m:=nops(u0);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">if n&gt;1 then lphi:=phi;lpsi:=[seq(psi[i],i=1..n)];
else lphi:=[phi]; lpsi:=[psi]; fi;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">xx:=op(x0),op(u0),op(lpsi); vv:=Vector([seq(v||i,i=1..2*n+m)]);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">if n&gt;1 then vX:=Vector([seq(X[i](t,xx), i=1..n)]);
else vX:=Vector([X(t,xx)]); fi;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">if n&gt;1 then vPSI:=Vector([seq(PSI[i](t,xx),i=1..n)]);
else vPSI:=Vector([PSI(t,xx)]); fi;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">if m&gt;1 then vU:=Vector([seq(U[i](t,xx), i=1..m)]);
else vU:=Vector([U(t,xx)]); fi;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">H:=psi[0]*L+Vector[row](lphi).Vector(lpsi);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">eqd:=diff(H,t)*T(t,xx) +Vector[row]([seq(diff(H,i),i=x0)]).vX+Vector[row]([seq(
diff(H,i),i=u0)]).vU+Vector[row]([seq(diff(H,xx[i]),i=n+m+1..n+m+n)]).vPSI
-LinearAlgebra[Transpose](vPSI).vv[1..n]-Vector[row](lpsi).(map(diff,vX,t)
+Matrix([seq(map(diff,vX,i),i=xx)]).vv)+H*(diff(T(t,xx),t)
+Vector[row]([seq(diff(T(t,xx),i),i=xx)]).vv);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">eqd:=expand(eqd); eqd:=collect(eqd, convert(vv,'list'), distributed);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">syseqd:={coeffs(eqd, convert(vv,'list'))}:</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">conjGerad:={T(t,xx)}union convert(vX,'set') union convert(vU,'set')
           union convert(vPSI,'set');</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">sol:=pdsolve(syseqd, conjGerad, HINT=`+`);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">sol:=subs(map(i-&gt;i=op(0,i),conjGerad),sol); sol:=subs(PSI='Psi',sol);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">if nargs&lt;6 or args[6]&lt;&gt;`all` then sol:=reduzConst(sol); fi;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">return sol;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">end proc:</Text-field>
</Input>
</Group>
</Section>
<Section collapsed="true" MultipleChoiceAnswerIndex="-1" MultipleChoiceRandomizeChoices="false" TrueFalseAnswerIndex="-1" EssayAnswerRows="5" EssayAnswerColumns="60"><Title>
<Text-field style="Heading 2" layout="Heading 2">Noether</Text-field></Title>
<Text-field style="Normal" layout="Normal">Given the infinitesimal generators which define a symmetry, computes the conservation <Font encoding="UTF-8">law for the optimal control problem, according with Theorem 7 (Noether\342\200\231s </Font>theorem).</Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true">Output</Font>:</Text-field>
<Text-field style="List Item" layout="List Item">conservation law.</Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true">Syntax</Font>:</Text-field>
<Text-field style="List Item" layout="List Item">Noether(L, <Equation executable="false" style="List Item" input-equation="phi">NiNJJHBoaUc2Ig==</Equation>, t, x, u, S)</Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true">Input</Font>:</Text-field>
<Text-field style="List Item" layout="List Item">L - expression of the Lagrangian;</Text-field>
<Text-field style="List Item" layout="List Item"><Equation executable="false" style="2D Math" input-equation="phi">NiNJJHBoaUc2Ig==</Equation> - expression or list of expressions of the velocity vector which defines the control system;
t - name of the independent variable;
x - name or list of names of the state variables;
u - name or list of names of the control variables;
S - set of infinitesimal generators (output of procedure <Font italic="true">Symmetry</Font>).</Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true">Definition</Font>:</Text-field>
<Text-field style="Normal" layout="Normal"></Text-field>
<Group labelreference="L5" drawlabel="true">
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether:=proc(L::algebraic, phi::{algebraic, list(algebraic)}, t::name,
x0::{name,list(name)}, u0::{name,list(name)}, S::set)</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">local n, xx, i, vX, vpsi, lpsi, H, CL, lphi;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">unassign('T'); unassign('X'); unassign('psi');</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">n:=nops(x0);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">if n&gt;1 then lphi:=phi; lpsi:=[seq(psi[i],i=1..n)];
else lpsi:=[psi]; lphi:=[phi]; fi;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">xx:=op(x0),op(u0),op(lpsi);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">vpsi:=Vector[row](lpsi);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">if n&gt;1 then vX:=Vector([seq(X[i], i=1..n)]); else vX:=Vector([X]); fi;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">H:=psi_0*L+vpsi.Vector(lphi);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=vpsi.vX-H*T=const;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=eval(CL, S);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=subs({map(i-&gt;i=i(t),[xx])[]},CL); CL:=subs(psi_0=psi[0],CL);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">return CL;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">end proc:</Text-field>
</Input>
</Group>
</Section>
<Section collapsed="true" MultipleChoiceAnswerIndex="-1" MultipleChoiceRandomizeChoices="false" TrueFalseAnswerIndex="-1" EssayAnswerRows="5" EssayAnswerColumns="60"><Title>
<Text-field style="Heading 2" layout="Heading 2">Technical routines</Text-field></Title>
<Text-field style="Normal" layout="Normal">Essentially, these routines are used to transform in one constant each sum of constants not repeated in a set of algebraic expressions. The constants in Maple notation are converted to a more usual mathematical notation.</Text-field>
<Text-field style="Normal" layout="Normal"></Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true" size="14">reduzConst</Font></Text-field>
<Text-field style="List Item" layout="List Item">Reduces the number of integration constants.</Text-field>
<Text-field style="List Item" layout="List Item">Begins by passing to the format C<Font subscript="true">n</Font> (n=1, 2...), with the aid of function <Font italic="true">levantamento</Font>, all the constants in Maple notation (_Ci, with i=1, 2...) with more than an occurrence in the group of expressions specified in the input (cc), after which, through the function <Font italic="true">convertSums</Font>, each sum of constants _Ci  is turned into one constant Cn. Finally, all individual constants in the format _Ci  are also converted to the format Cn. </Text-field>
<Text-field style="List Item" layout="List Item">Return the input set of expressions with the altered constants.</Text-field>
<Text-field style="List Item" layout="List Item"></Text-field>
<Group labelreference="L6" drawlabel="true">
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">reduzConst:=proc(cc::set)</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  local L0, LL, LLr, aux, ss, sss, termo, indexConst, sol;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  LL:={}; LLr:={}; sol:={};</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  for aux in cc do</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    LL, LLr:=levantamento(aux, LL, LLr);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  od;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  ss:=convert(LLr,'list');</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  sss:={seq(ss[i]=C[i],i=1..nops(ss))};</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  L0:=subs(sss,cc);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  indexConst:=nops(ss);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  for aux in L0 do</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    termo, indexConst := convertSums(aux,indexConst);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    sol:={termo} union sol;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  od:</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  return sol;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">end proc:</Text-field>
</Input>
</Group>
<Text-field style="Normal" layout="Normal"></Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true" size="14">levantamento</Font></Text-field>
<Text-field style="List Item" layout="List Item">Identify repeated constants in an expression.</Text-field>
<Text-field style="List Item" layout="List Item">Add to set <Font italic="true">conj</Font> all the constants _Ci present in the expression <Font italic="true">termo</Font>, and to the set <Font italic="true">conjr</Font> the constants with more than an occurrence in that expression.</Text-field>
<Text-field style="List Item" layout="List Item">Return <Font italic="true">conj</Font> and <Font italic="true">conjr</Font> updated.</Text-field>
<Text-field style="List Item" layout="List Item"></Text-field>
<Group labelreference="L7" drawlabel="true">
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">levantamento:=proc(termo, conj::set(symbol), conjr::set(symbol))</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">local aux, conj2, conjr2;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">if nops(termo)=1 then</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    if type(termo,'symbol') and</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">         StringTools[IsPrefix](&quot;_C&quot;,termo) and</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">         StringTools[IsDigit](substring(termo,3..-1)) then</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">      if evalb(termo in conj) then return conj, {termo} union conjr;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">      else return {termo} union conj, conjr; fi:</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    else return conj, conjr;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    fi:</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">else</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    conj2, conjr2 := conj, conjr;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    for aux in op(termo) do</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">      conj2, conjr2 :=levantamento(aux, conj2, conjr2);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    od:</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    return conj2, conjr2;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">fi:</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">end proc:</Text-field>
</Input>
</Group>
<Text-field style="Normal" layout="Normal"></Text-field>
<Text-field style="Normal" layout="Normal"><Font bold="true" size="14">convertSums</Font></Text-field>
<Text-field style="List Item" layout="List Item">Convert sums of constants in an individual constant.</Text-field>
<Text-field style="List Item" layout="List Item">Represent each sum of constants of the type _Ci , present in the expression <Font italic="true">cc</Font>, by a constant C<Font subscript="true">n</Font>. The remaining constants  _Ci are also converted to the format C<Font subscript="true">n</Font>. The <Font italic="true">n</Font> is initialized with the value of <Font italic="true">indC,</Font> and increased whenever a new constant C<Font subscript="true">n </Font>is created.
Return <Font italic="true">cc</Font> and <Font italic="true">indC</Font> updated.</Text-field>
<Text-field style="List Item" layout="List Item"></Text-field>
<Group labelreference="L8" drawlabel="true">
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">convertSums:=proc(cc, indC::integer)</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">local tipo, soma, i, aux, auxcc, flag, indexConst;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  indexConst:=indC;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  tipo:=op(0,cc);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  if type(cc, extended_numeric) then return cc, indexConst;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  elif tipo='symbol' then return cc, indexConst;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  elif tipo=`+` then </Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    soma:=0; flag:=false;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    for i from 1 to nops(cc) do </Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">      aux, indexConst := convertSums(op(i,cc),indexConst);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">      if type(aux,'symbol') and </Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">         StringTools[IsPrefix](&quot;_C&quot;,aux) and</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">         StringTools[IsDigit](substring(aux,3..-1)) then flag:=true;      </Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">      else soma:=soma+aux; fi:  </Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    od: </Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    if flag then indexConst:=indexConst+1; soma:=soma+C[indexConst]; fi:</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    return soma, indexConst;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  else</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    auxcc:=cc;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    for i from 1 to nops(cc) do </Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">      aux, indexConst := convertSums(op(i,cc),indexConst);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">      if type(aux,'symbol') and </Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">         StringTools[IsPrefix](&quot;_C&quot;,aux) and</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">         StringTools[IsDigit](substring(aux,3..-1)) then       </Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">           indexConst:=indexConst+1; auxcc:=subsop(i=C[indexConst],auxcc);</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">      else auxcc:=subsop(i=aux,auxcc); fi:  </Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    od:</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">    return auxcc, indexConst;</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">  fi:</Text-field>
</Input>
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">end proc:</Text-field>
</Input>
</Group>
</Section>
</Section>
<Section collapsed="true" MultipleChoiceAnswerIndex="-1" MultipleChoiceRandomizeChoices="false" TrueFalseAnswerIndex="-1" EssayAnswerRows="5" EssayAnswerColumns="60"><Title>
<Text-field style="Heading 1" layout="Heading 1">Illustrative Examples</Text-field></Title>
<Text-field style="Text" layout="Normal">In order to show the functionality and the use of the routines developed, we apply our Maple package to several concrete optimal control problems found in the literature. The obtained results show the correctness and usefulness of the Maple code. All the computational processing was carried
out with Maple version 9.5 on a 1.4 GHz Pentium Centrino with 512MB RAM. The computing time of procedure <Font italic="true">Symmetry </Font>is indicated for each example in the format <Font encoding="UTF-8">min\342\200\231sec\342\200\235</Font>. All the other Maple commands run instantaneously.</Text-field>
<Section collapsed="true" MultipleChoiceAnswerIndex="-1" MultipleChoiceRandomizeChoices="false" TrueFalseAnswerIndex="-1" EssayAnswerRows="5" EssayAnswerColumns="60"><Title>
<Text-field style="Heading 2" layout="Heading 2">Conservation Laws in the Optimal Control</Text-field></Title>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 1</Font><Font encoding="UTF-8"> (0\342\200\23102\342\200\235) Let us begin with the minimization of the functional </Font><Equation executable="false" style="2D Math" input-equation="Int(L(u(t)), t = a .. b)">NiMtSSRJbnRHNiI2JC1JIkxHRiU2Iy1JInVHRiU2I0kidEdGJS9GLTtJImFHRiVJImJHRiU=</Equation> subject to the control system <Equation executable="false" style="2D Math" input-equation="diff(x(t), t) = phi(u(t))*x(t)">NiMvLUklZGlmZkclKnByb3RlY3RlZEc2JC1JInhHNiI2I0kidEdGKkYsKiYtSSRwaGlHRio2Iy1JInVHRipGKyIiIkYoRjM=</Equation>. This is a very simple problem, with one state variable (n = 1) and one control variable (m = 1). With Maple definitions</Text-field>
<Group labelreference="L9" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">l:=L(u); Phi:=phi(u)*x;</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJsRzYiLUkiTEdGJTYjSSJ1R0Yl</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRQaGlHNiIqJi1JJHBoaUdGJTYjSSJ1R0YlIiIiSSJ4R0YlRis=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">our procedure Symmetry determines the infinitesimal invariance generators of the optimal control problem under consideration:</Text-field>
<Group labelreference="L10" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(l,Phi,t,x,u);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ji9JIlVHNiIiIiEvSSJYR0YmKiYmSSJDR0YmNiMiIiJGLkkieEdGJkYuL0kkUHNpR0koX3N5c2xpYkdGJiwkKiZJJHBzaUdGJkYuRitGLiEiIi9JIlRHRiYmRiw2IyIiIw==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal"><Font encoding="UTF-8">The family of Conservation Laws associated with the generators just obtained, is easily obtained through our procedure Noether (the sign of percentage \342\200\223 % \342\200\223 is an operator used in Maple to represent the result of the previous command):</Font></Text-field>
<Group labelreference="L11" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(l,Phi,t,x,u, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCYqKCZJIkNHNiI2IyIiIkYqLUkieEdGKDYjSSJ0R0YoRiotSSRwc2lHRihGLUYqRioqJiwmKiYmRjA2IyIiIUYqLUkiTEdGKDYjLUkidUdGKEYtRipGKiooRi9GKi1JJHBoaUdGKEY5RipGK0YqRipGKiZGJzYjIiIjRiohIiJJJmNvbnN0R0Yo</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The obtained conservation law depends on two parameters. Since the problem is autonomous, the fact that the Hamiltonian <Equation executable="false" style="2D Math" input-equation="H = psi[0]*L(u(t))+psi(t)*phi(u(t))*x(t)">NiMvSSJIRzYiLCYqJiZJJHBzaUdGJTYjIiIhIiIiLUkiTEdGJTYjLUkidUdGJTYjSSJ0R0YlRixGLCooLUYpRjJGLC1JJHBoaUdGJUYvRiwtSSJ4R0YlRjJGLEYs</Equation>  is constant along the extremals is a trivial consequence of the property (8). With the substitutions</Text-field>
<Group labelreference="L12" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[1]=1,C[2]=0, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvKiYtSSJ4RzYiNiNJInRHRiciIiItSSRwc2lHRidGKEYqSSZjb25zdEdGJw==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">one gets the conservation law obtained in [24, Example 4].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 2</Font><Font encoding="UTF-8"> (1\342\200\23113\342\200\235) Let us consider now the following problem:</Font></Text-field>
<Group labelreference="L13" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=u[1]^2+u[2]^2; phi:=[u[1]*cos(x[3]),u[1]*sin(x[3]),u[2]];</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiLCYqJCkmSSJ1R0YlNiMiIiIiIiNGLEYsKiQpJkYqNiNGLUYtRixGLA==</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiI3JSomJkkidUdGJTYjIiIiRistSSRjb3NHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHRiU2IyZJInhHRiU2IyIiJEYrKiZGKEYrLUkkc2luR0YuRjFGKyZGKTYjIiIj</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">where the control system serves as model for the kinematics of a car [12, Example 18, p. 750]. In this case the optimal control problem has three state variables (n = 3) and two controls (m = 2). The conservation law for this example, and the next ones, is obtained by the same process followed in Example 1.</Text-field>
<Group labelreference="L14" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, [x[1],x[2],x[3]], [u[1],u[2]]);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ky8mSSJYRzYiNiMiIiMsJiomJkkiQ0dGJzYjIiIiRi8mSSJ4R0YnRi5GL0YvJkYtNiMiIiVGLy9JIlRHRicmRi1GKC8mRiZGLiwmKiZGLEYvJkYxRihGLyEiIiZGLTYjIiIkRi8vJkkkUHNpR0koX3N5c2xpYkdGJ0Y/IiIhLyZJIlVHRidGKEZFLyZGSEYuRkUvJkZDRi4sJComRixGLyZJJHBzaUdGJ0YoRi9GPS8mRiZGP0YsLyZGQ0YoKiZGLEYvJkZQRi5GLw==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L15" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L, phi, t, [x[1],x[2],x[3]], [u[1],u[2]], %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCoqJiwmKiYmSSJDRzYiNiMiIiJGLC0mSSJ4R0YqNiMiIiM2I0kidEdGKkYsISIiJkYpNiMiIiRGLEYsLSZJJHBzaUdGKkYrRjJGLEYsKiYsJiomRihGLC0mRi9GK0YyRixGLCZGKTYjIiIlRixGLC0mRjpGMEYyRixGLComRihGLC0mRjpGNkYyRixGLComLCoqJiZGOjYjIiIhRiwsJiokKS0mSSJ1R0YqRitGMkYxRixGLCokKS0mRlNGMEYyRjFGLEYsRixGLCooRjhGLEZRRiwtSSRjb3NHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHRio2Iy0mRi9GNkYyRixGLCooRkNGLEZRRiwtSSRzaW5HRmVuRmhuRixGLComRkZGLEZWRixGLEYsJkYpRjBGLEY0SSZjb25zdEdGKg==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">Choosing <Equation executable="false" style="2D Math" input-equation="C[1] = 1">NiMvJkkiQ0c2IjYjIiIiRig=</Equation>, <Equation executable="false" style="2D Math" input-equation="C[2]">NiMmSSJDRzYiNiMiIiM=</Equation> = <Equation executable="false" style="2D Math" input-equation="C[3]">NiMmSSJDRzYiNiMiIiQ=</Equation> = <Equation executable="false" style="2D Math" input-equation="C[4]">NiMmSSJDRzYiNiMiIiU=</Equation> = 0 we obtain, from Theorem 7, the conservation law</Text-field>
<Group labelreference="L16" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[1]=1,C[2]=0,C[3]=0,C[4]=0, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCgqJi0mSSJ4RzYiNiMiIiM2I0kidEdGKSIiIi0mSSRwc2lHRik2I0YuRixGLiEiIiomLSZGKEYyRixGLi0mRjFGKkYsRi5GLi0mRjE2IyIiJEYsRi5JJmNvbnN0R0Yp</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">which corresponds to the symmetry group of planar (orientation-preserving) isometries given in [12, Example 18, p. 750].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 3</Font><Font encoding="UTF-8"> (0\342\200\23101\342\200\235) Let us return to a scalar problem (n = m = 1):</Font></Text-field>
<Group labelreference="L17" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=exp(t*x)*u; phi:=t*x*u^2;</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiKiYtSSRleHBHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHRiU2IyomSSJ0R0YlIiIiSSJ4R0YlRi9GL0kidUdGJUYv</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiIqKEkidEdGJSIiIkkieEdGJUYoKUkidUdGJSIiI0Yo</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L18" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, x, u);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ji9JJFBzaUdJKF9zeXNsaWJHNiIsJComSSRwc2lHRiciIiImSSJDR0YnNiNGK0YrISIiL0kiVUdGJyomRixGK0kidUdGJ0YrL0kiVEdGJywkKiZJInRHRidGK0YsRitGLy9JIlhHRicqJkYsRitJInhHRidGKw==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L19" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L, phi, t, x, u, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCYqKCZJIkNHNiI2IyIiIkYqLUkieEdGKDYjSSJ0R0YoRiotSSRwc2lHRihGLUYqRioqKCwmKigmRjA2IyIiIUYqLUkkZXhwRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliR0YoNiMqJkYuRipGK0YqRiotSSJ1R0YoRi1GKkYqKipGL0YqRi5GKkYrRiopRj4iIiNGKkYqRipGLkYqRiZGKkYqSSZjb25zdEdGKA==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">By choosing <Equation executable="false" style="2D Math" input-equation="C[1] = 1">NiMvJkkiQ0c2IjYjIiIiRig=</Equation></Text-field>
<Group labelreference="L20" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">expand(subs(C[1]=1, %));</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCgqJi1JInhHNiI2I0kidEdGKCIiIi1JJHBzaUdGKEYpRitGKyoqRipGKyZGLTYjIiIhRistSSRleHBHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHRig2IyomRipGK0YmRitGKy1JInVHRihGKUYrRisqKkYsRispRioiIiNGK0YmRispRjlGPUYrRitJJmNvbnN0R0Yo</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">one obtains the conservation law of [25, Example 1].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 4</Font><Font encoding="UTF-8"> (6\342\200\23141\342\200\235) We now consider an optimal control problem with four state variables (n = 4) and two controls (m = 2):</Font></Text-field>
<Group labelreference="L21" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=u[1]^2+u[2]^2;</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">phi:=[x[3],x[4],-x[1]*(x[1]^2+x[2]^2)+u[1],-x[2]*(x[1]^2+x[2]^2)+u[2]];
</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiLCYqJCkmSSJ1R0YlNiMiIiIiIiNGLEYsKiQpJkYqNiNGLUYtRixGLA==</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiI3JiZJInhHRiU2IyIiJCZGKDYjIiIlLCYqJiZGKDYjIiIiRjIsJiokKUYwIiIjRjJGMiokKSZGKDYjRjZGNkYyRjJGMiEiIiZJInVHRiVGMUYyLCYqJkY5RjJGM0YyRjsmRj1GOkYy</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L22" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, [x[1],x[2],x[3],x[4]], [u[1],u[2]]);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8LS9JIlRHNiImSSJDR0YmNiMiIiQvJkkiVUdGJjYjIiIjLCQqKCMiIiJGL0YzLCgqKkYvRjMmRig2IyIiJ0YzJkkidUdGJjYjRjNGMyZJJHBzaUdGJjYjIiIhRjNGMyomJkYoRjtGMyZGPUYpRjMhIiIqJkZCRjNGNkYzRjNGM0Y8RkNGQy8mSSRQc2lHSShfc3lzbGliR0YmRjsqJkZBRjMmRj1GLkYzLyZGR0YuLCQqJkZBRjMmRj1GO0YzRkMvJkZHRikqJiZGPTYjIiIlRjNGQUYzLyZGR0ZULCRGQEZDLyZJIlhHRiZGKSomRkFGMyZJInhHRiZGVEYzLyZGZW5GLiwkKiZGQUYzJkZobkY7RjNGQy8mRmVuRjsqJkZBRjMmRmhuRi5GMy8mRmVuRlQsJComRkFGMyZGaG5GKUYzRkMvJkYtRjssJCooRjJGMywoKipGL0YzRjZGMyZGOkYuRjNGPEYzRjNGUkZDKiZGU0YzRjZGM0YzRjNGPEZDRjM=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L23" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L, phi, t, [x[1],x[2],x[3],x[4]], [u[1],u[2]], %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCwqKCZJIkNHNiI2IyIiIkYqLSZJInhHRig2IyIiIzYjSSJ0R0YoRiotJkkkcHNpR0YoRilGMEYqRioqKEYmRiotJkYtRilGMEYqLSZGNEYuRjBGKiEiIiooRiZGKi0mRi02IyIiJUYwRiotJkY0NiMiIiRGMEYqRioqKEYmRiotJkYtRkJGMEYqLSZGNEY+RjBGKkY6KiYsLComJkY0NiMiIiFGKiwmKiQpLSZJInVHRihGKUYwRi9GKkYqKiQpLSZGVEYuRjBGL0YqRipGKkYqKiZGMkYqRkVGKkYqKiZGOEYqRjxGKkYqKiZGQEYqLCYqJkY2RiosJiokKUY2Ri9GKkYqKiQpRitGL0YqRipGKkY6RlJGKkYqRioqJkZHRiosJiomRitGKkZobkYqRjpGV0YqRipGKkYqJkYnRkJGKkY6SSZjb25zdEdGKA==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The substitutions</Text-field>
<Group labelreference="L24" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[1]=-1,C[3]=0, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCoqJi0mSSJ4RzYiNiMiIiM2I0kidEdGKSIiIi0mSSRwc2lHRik2I0YuRixGLiEiIiomLSZGKEYyRixGLi0mRjFGKkYsRi5GLiomLSZGKDYjIiIlRixGLi0mRjE2IyIiJEYsRi5GMyomLSZGKEZARixGLi0mRjFGPEYsRi5GLkkmY29uc3RHRik=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L25" drawlabel="true">
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal"></Text-field>
</Input>
</Group>
<Text-field style="Text" layout="Normal">conduce us to the conservation law provided in [27, Example 5.2].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 5</Font><Font encoding="UTF-8"> (6\342\200\23142\342\200\235) Another problem with n = 4 and m = 2:</Font></Text-field>
<Group labelreference="L26" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=u[1]^2+u[2]^2; phi:=[u[1]*(1+x[2]),u[1]*x[3],u[2],u[1]*x[3]^2];</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiLCYqJCkmSSJ1R0YlNiMiIiIiIiNGLEYsKiQpJkYqNiNGLUYtRixGLA==</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiI3JiomJkkidUdGJTYjIiIiRissJkYrRismSSJ4R0YlNiMiIiNGK0YrKiZGKEYrJkYuNiMiIiRGKyZGKUYvKiZGKEYrKUYyRjBGKw==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L27" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, [x[1],x[2],x[3],x[4]], [u[1],u[2]]);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8LS8mSSJYRzYiNiMiIiIsJiomJkkiQ0dGJ0YoRikmSSJ4R0YnRihGKUYpJkYtNiMiIiVGKS8mRiZGMSwmKiZGLEYpJkYvRjFGKUYpJkYtNiMiIiRGKS8mSSRQc2lHSShfc3lzbGliR0YnNiMiIiMsJCooI0ZARjpGKUYsRikmSSRwc2lHRidGP0YpISIiLyZGJkY/LCYqJkZDRilGLEYpRikqKEZDRilGLEYpJkYvRj9GKUYpLyZGJkY5LCQqKCNGKUY6RilGLEYpJkYvRjlGKUYpLyZGPUY5LCQqKEZRRilGLEYpJkZFRjlGKUZGLyZGPUYxLCQqJiZGRUYxRilGLEYpRkYvJkY9RigsJComRixGKSZGRUYoRilGRi9JIlRHRicsJiooRkNGKUYsRilJInRHRidGKUYpJkYtRj9GKS8mSSJVR0YnRigsJCooRlFGKSZJInVHRidGKEYpRixGKUZGLyZGZG9GPywkKihGUUYpRixGKSZGaG9GP0YpRkY=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L28" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L, phi, t, [x[1],x[2],x[3],x[4]], [u[1],u[2]], %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCwqJiwmKiYmSSJDRzYiNiMiIiJGLC0mSSJ4R0YqRis2I0kidEdGKkYsRiwmRik2IyIiJUYsRiwtJkkkcHNpR0YqRitGMEYsRiwqJiwmKiYjIiIjIiIkRixGKEYsRiwqKEY7RixGKEYsLSZGLzYjRjxGMEYsRixGLC0mRjdGQUYwRixGLCoqI0YsRj1GLEYoRiwtJkYvNiNGPUYwRiwtJkY3RkhGMEYsRiwqJiwmKiZGKEYsLSZGL0YzRjBGLEYsJkYpRkhGLEYsLSZGN0YzRjBGLEYsKiYsLComJkY3NiMiIiFGLCwmKiQpLSZJInVHRipGK0YwRjxGLEYsKiQpLSZGaG5GQUYwRjxGLEYsRixGLCooRmZuRiwsJkYsRixGP0YsRixGNUYsRiwqKEZmbkYsRkZGLEZCRixGLComRltvRixGSUYsRiwqKEZmbkYsKUZGRjxGLEZRRixGLEYsLCYqKEY7RixGKEYsRjFGLEYsJkYpRkFGLEYsISIiSSZjb25zdEdGKg==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">With the substitutions</Text-field>
<Group labelreference="L29" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[1]=3,C[2]=0,C[3]=0,C[4]=0, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCwqKCIiJCIiIi0mSSJ4RzYiNiNGJzYjSSJ0R0YrRictJkkkcHNpR0YrRixGLUYnRicqJiwmIiIjRicqJkY0RictJkYqNiNGNEYtRidGJ0YnLSZGMUY4Ri1GJ0YnKiYtJkYqNiNGJkYtRictJkYxRj5GLUYnRicqKEYmRictJkYqNiMiIiVGLUYnLSZGMUZERi1GJ0YnKihGNEYnLCwqJiZGMTYjIiIhRicsJiokKS0mSSJ1R0YrRixGLUY0RidGJyokKS0mRlNGOEYtRjRGJ0YnRidGJyooRlFGJywmRidGJ0Y2RidGJ0YvRidGJyooRlFGJ0Y8RidGOUYnRicqJkZWRidGP0YnRicqKEZRRicpRjxGNEYnRkZGJ0YnRidGLkYnISIiSSZjb25zdEdGKw==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L30" drawlabel="true">
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal"></Text-field>
</Input>
</Group>
<Text-field style="Text" layout="Normal">we have the conservation law obtained in [27, Example 5.3].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 6</Font><Font encoding="UTF-8"> (0\342\200\23104\342\200\235) Let us consider</Font></Text-field>
<Group labelreference="L31" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=u^2; phi:=[1+y^2,u];</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiKiQpSSJ1R0YlIiIjIiIi</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiI3JCwmIiIiRigqJClJInlHRiUiIiNGKEYoSSJ1R0Yl</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L32" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, [x,y], u);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8KC9JIlRHNiIsJiooIyIiIiIiI0YqJkkiQ0dGJjYjRipGKkkidEdGJkYqRiomRi02I0YrRiovJkkiWEdGJkYuLChGKCEiIiomRixGKkkieEdGJkYqRiomRi02IyIiJEYqLyZJJFBzaUdJKF9zeXNsaWJHRiZGLiwkKiZGLEYqJkkkcHNpR0YmRi5GKkY2LyZGPkYxLCQqKCNGKiIiJUYqRixGKiZGQ0YxRipGNi8mRjRGMSwkKihGSEYqRixGKkkieUdGJkYqRiovSSJVR0YmLCQqKEZIRipGLEYqSSJ1R0YmRipGNg==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L33" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L, phi, t, [x,y], u, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCgqJiwoKigjIiIiIiIjRikmSSJDRzYiNiNGKUYpSSJ0R0YtRikhIiIqJkYrRiktSSJ4R0YtNiNGL0YpRikmRiw2IyIiJEYpRiktJkkkcHNpR0YtRi5GNEYpRikqKiNGKSIiJUYpRitGKS1JInlHRi1GNEYpLSZGOjYjRipGNEYpRikqJiwoKiYmRjo2IyIiIUYpKS1JInVHRi1GNEYqRilGKSomRjhGKSwmRilGKSokKUY+RipGKUYpRilGKSomRkBGKUZKRilGKUYpLCZGJ0YpJkYsRkJGKUYpRjBJJmNvbnN0R0Yt</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">From substitutions</Text-field>
<Group labelreference="L34" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[1]=-4,C[2]=0,C[3]=0,%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCgqJiwmKiYiIiMiIiJJInRHNiJGKUYpKiYiIiVGKS1JInhHRis2I0YqRikhIiJGKS0mSSRwc2lHRis2I0YpRjBGKUYpKiYtSSJ5R0YrRjBGKS0mRjQ2I0YoRjBGKUYxKihGKEYpLCgqJiZGNDYjIiIhRikpLUkidUdGK0YwRihGKUYpKiZGMkYpLCZGKUYpKiQpRjdGKEYpRilGKUYpKiZGOUYpRkNGKUYpRilGKkYpRilJJmNvbnN0R0Yr</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">we obtain the conservation law in [27, Example 6.2].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 7</Font><Font encoding="UTF-8"> (2\342\200\23144\342\200\235) We consider now a minimum time problem with the following control system:</Font></Text-field>
<Group labelreference="L35" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">phi:=[1+x[2],x[3],u,x[3]^2-x[2]^2]; L:=1:</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiI3JiwmIiIiRigmSSJ4R0YlNiMiIiNGKCZGKjYjIiIkSSJ1R0YlLCYqJClGLUYsRihGKCokKUYpRixGKCEiIg==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L36" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, [x[1],x[2],x[3],x[4]], u);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8LC9JIlRHNiImSSJDR0YmNiMiIiYvJkkiWEdGJjYjIiIiLCgqJiwmKiYjRi8iIiNGLyZGKDYjRjVGLyEiIiomRjRGLyZGKEYuRi9GOEYvSSJ0R0YmRi9GLyooRjRGL0Y2Ri8mSSJ4R0YmRi5GL0YvJkYoNiMiIiVGLy8mRi1GQCwqKiZGOkYvRjtGL0Y4KiZGOkYvRj1GL0YvKiZGNkYvJkY+RkBGL0YvJkYoNiMiIiRGLy8mRi1GSiwkKihGNEYvRjZGLyZGPkZKRi9GLy8mRi1GNywmRjlGOCooRjRGL0Y2Ri8mRj5GN0YvRi8vJkkkUHNpR0koX3N5c2xpYkdGJkZKLCQqKEY0Ri9GNkYvJkkkcHNpR0YmRkpGL0Y4LyZGWEY3LCQqKEY0Ri9GNkYvJkZnbkY3Ri9GOC8mRlhGLiwmKihGNEYvRjZGLyZGZ25GLkYvRjgqJiZGZ25GQEYvRjpGL0Y4LyZGWEZALCQqJkY2Ri9GY29GL0Y4L0kiVUdGJiwkKihGNEYvSSJ1R0YmRi9GNkYvRi8=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L37" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L, phi, t, [x[1],x[2],x[3],x[4]], u, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCwqJiwoKiYsJiomIyIiIiIiI0YrJkkiQ0c2IjYjRixGKyEiIiomRipGKyZGLjYjRitGK0YxRitJInRHRi9GK0YrKihGKkYrRi1GKy0mSSJ4R0YvRjQ2I0Y1RitGKyZGLjYjIiIlRitGKy0mSSRwc2lHRi9GNEY6RitGKyomLCZGMkYxKihGKkYrRi1GKy0mRjlGMEY6RitGK0YrLSZGQEYwRjpGK0YrKipGKkYrRi1GKy0mRjk2IyIiJEY6RistJkZARktGOkYrRisqJiwqKiZGM0YrRjVGK0YxKiZGM0YrRjdGK0YrKiZGLUYrLSZGOUY8RjpGK0YrJkYuRktGK0YrLSZGQEY8RjpGK0YrKiYsLCZGQDYjIiIhRisqJiwmRitGK0ZERitGK0Y+RitGKyomRklGK0ZGRitGKyomLUkidUdGL0Y6RitGTUYrRisqJiwmKiQpRklGLEYrRisqJClGREYsRitGMUYrRldGK0YrRismRi42IyIiJkYrRjFJJmNvbnN0R0Yv</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">With the appropriate values for the constants,</Text-field>
<Group labelreference="L38" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[1]=0,C[2]=2,C[3]=0,C[4]=0,C[5]=0,%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCoqJiwmSSJ0RzYiISIiLSZJInhHRig2IyIiIjYjRidGLkYuLSZJJHBzaUdGKEYtRi9GLkYuKiYtJkYsNiMiIiNGL0YuLSZGMkY2Ri9GLkYuKiYtJkYsNiMiIiRGL0YuLSZGMkY9Ri9GLkYuKihGN0YuLSZGLDYjIiIlRi9GLi0mRjJGREYvRi5GLkkmY29uc3RHRig=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">we obtain the conservation law derived in [27, Example 6.3].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 8</Font><Font encoding="UTF-8"> (0\342\200\23125\342\200\235) Follows another problem of minimum time, with control system given</Font></Text-field>
<Group labelreference="L39" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">phi:=[1+y^2-z^2,z,u]; L:=1:</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiI3JSwoIiIiRigqJClJInlHRiUiIiNGKEYoKiQpSSJ6R0YlRixGKCEiIkYvSSJ1R0Yl</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L40" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, [x,y,z], u);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ki9JIlRHNiImSSJDR0YmNiMiIiMvJkkkUHNpR0koX3N5c2xpYkdGJjYjIiIiLCQqJiZGKEYvRjAmSSRwc2lHRiZGL0YwISIiLyZGLUYpLCQqKCNGMEYqRjBGM0YwJkY1RilGMEY2LyZGLTYjIiIkLCQqKEY7RjAmRjVGP0YwRjNGMEY2LyZJIlhHRiZGKSwkKihGO0YwRjNGMEkieUdGJkYwRjAvJkZGRj8sJCooRjtGMEYzRjBJInpHRiZGMEYwL0kiVUdGJiwkKihGO0YwRjNGMEkidUdGJkYwRjAvJkZGRi8sKComRjNGMEkidEdGJkYwRjYqJkYzRjBJInhHRiZGMEYwJkYoRj9GMA==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L41" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L, phi, t, [x,y,z], u, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCoqJiwoKiYmSSJDRzYiNiMiIiJGLEkidEdGKkYsISIiKiZGKEYsLUkieEdGKjYjRi1GLEYsJkYpNiMiIiRGLEYsLSZJJHBzaUdGKkYrRjJGLEYsKiojRiwiIiNGLEYoRiwtSSJ5R0YqRjJGLC0mRjg2I0Y7RjJGLEYsKipGOkYsRihGLC1JInpHRipGMkYsLSZGOEY0RjJGLEYsKiYsKiZGODYjIiIhRiwqJkY2RiwsKEYsRiwqJClGPEY7RixGLCokKUZCRjtGLEYuRixGLComRj5GLEZCRixGLComRkRGLC1JInVHRipGMkYsRixGLCZGKUZARixGLkkmY29uc3RHRio=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">Substitutions</Text-field>
<Group labelreference="L42" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[1]=2,C[2]=0,C[3]=0, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCgqJiwmKiYiIiMiIiJJInRHNiJGKSEiIiomRihGKS1JInhHRis2I0YqRilGKUYpLSZJJHBzaUdGKzYjRilGMEYpRikqJi1JInlHRitGMEYpLSZGMzYjRihGMEYpRikqJi1JInpHRitGMEYpLSZGMzYjIiIkRjBGKUYpSSZjb25zdEdGKw==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">specify the conservation law in the one obtained in [27, Example 6.4].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal">
We finish the section by applying our Maple package to three important problems of geodesics in sub-Riemannian geometry. The reader, interested in the study of symmetries of flat distributions of sub-Riemannian geometry, is referred to [19].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 9</Font><Font encoding="UTF-8"> (Martinet \342\200\223 (2, 2, 3) problem) Given the problem (n = 3, m = 2)</Font></Text-field>
<Group labelreference="L43" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=u[1]^2+u[2]^2; phi:=[u[1],u[2]/(1+alpha*x[1]),x[2]^2*u[1]];</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiLCYqJCkmSSJ1R0YlNiMiIiIiIiNGLEYsKiQpJkYqNiNGLUYtRixGLA==</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiI3JSZJInVHRiU2IyIiIiomJkYoNiMiIiNGKiwmRipGKiomSSZhbHBoYUdGJUYqJkkieEdGJUYpRipGKiEiIiomKSZGM0YtRi5GKkYnRio=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">we consider two distinct situations: <Equation executable="false" style="2D Math" input-equation="alpha = 0">NiMvSSZhbHBoYUc2IiIiIQ==</Equation> (Martinet problem of sub-Riemannian geometry <Font encoding="UTF-8">in the flat case \342\200\223 see [2]) and </Font><Equation executable="false" style="2D Math" input-equation="alpha &lt;&gt; 0">NiMwSSZhbHBoYUc2IiIiIQ==</Equation> (non-flat case).</Text-field>
<Text-field style="Text" layout="Normal"><Font italic="true">
Flat Problem (</Font><Equation executable="false" style="2D Math" input-equation="alpha = 0">NiMvSSZhbHBoYUc2IiIiIQ==</Equation><Font encoding="UTF-8" italic="true">, 1\342\200\23106\342\200\235):</Font></Text-field>
<Group labelreference="L44" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">alpha:=0;</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSZhbHBoYUc2IiIiIQ==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L45" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, [x[1],x[2],x[3]], [u[1],u[2]]);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ky8mSSJYRzYiNiMiIiIsJiooI0YpIiIkRikmSSJDR0YnRihGKSZJInhHRidGKEYpRikmRi82I0YtRikvJkYmRjMsJiomRi5GKSZGMUYzRilGKSZGLzYjIiIlRikvJkYmNiMiIiMsJCooRixGKUYuRikmRjFGPkYpRikvJkkiVUdGJ0Y+LCQqKEYsRilGLkYpJkkidUdGJ0Y+RikhIiIvJkkkUHNpR0koX3N5c2xpYkdGJ0Y+LCQqKEYsRilGLkYpJkkkcHNpR0YnRj5GKUZKLyZGTUYoLCQqKEYsRilGLkYpJkZSRihGKUZKLyZGTUYzLCQqJkYuRikmRlJGM0YpRkovJkZFRigsJCooRixGKUYuRikmRklGKEYpRkovSSJUR0YnLCYqKCNGP0YtRilGLkYpSSJ0R0YnRilGKSZGL0Y+Rik=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L46" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L, phi, t, [x[1],x[2],x[3]], [u[1],u[2]], %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCoqJiwmKigjIiIiIiIkRikmSSJDRzYiNiNGKUYpLSZJInhHRi1GLjYjSSJ0R0YtRilGKSZGLDYjRipGKUYpLSZJJHBzaUdGLUYuRjJGKUYpKipGKEYpRitGKS0mRjE2IyIiI0YyRiktJkY4RjxGMkYpRikqJiwmKiZGK0YpLSZGMUY1RjJGKUYpJkYsNiMiIiVGKUYpLSZGOEY1RjJGKUYpKiYsKiomJkY4NiMiIiFGKSwmKiQpLSZJInVHRi1GLkYyRj1GKUYpKiQpLSZGVUY8RjJGPUYpRilGKUYpKiZGNkYpRlNGKUYpKiZGPkYpRlhGKUYpKihGSEYpKUY6Rj1GKUZTRilGKUYpLCYqKCNGPUYqRilGK0YpRjNGKUYpJkYsRjxGKUYpISIiSSZjb25zdEdGLQ==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">With the substitutions</Text-field>
<Group labelreference="L47" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[1]=3,C[2]=0,C[3]=0,C[4]=0, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCoqJi0mSSJ4RzYiNiMiIiI2I0kidEdGKUYrLSZJJHBzaUdGKUYqRixGK0YrKiYtJkYoNiMiIiNGLEYrLSZGMEY0RixGK0YrKigiIiRGKy0mRig2I0Y5RixGKy0mRjBGPEYsRitGKyooRjVGKywqKiYmRjA2IyIiIUYrLCYqJCktJkkidUdGKUYqRixGNUYrRisqJCktJkZKRjRGLEY1RitGK0YrRisqJkYuRitGSEYrRisqJkY2RitGTUYrRisqKEY9RispRjJGNUYrRkhGK0YrRitGLUYrISIiSSZjb25zdEdGKQ==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">we get the conservation law first obtained in [25, Example 2].</Text-field>
<Text-field style="Text" layout="Normal"><Font italic="true">
Non-Flat Problem (</Font><Equation executable="false" style="2D Math" input-equation="alpha &lt;&gt; 0">NiMwSSZhbHBoYUc2IiIiIQ==</Equation><Font encoding="UTF-8" italic="true">, 1\342\200\23114\342\200\235):</Font></Text-field>
<Group labelreference="L48" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">alpha:='alpha';</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSZhbHBoYUc2IkYk</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L49" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">simplify(Symmetry(L, phi, t, [x[1],x[2],x[3]], [u[1],u[2]]));</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ky8mSSJYRzYiNiMiIiIqKCZJIkNHRic2IyIiJ0YpLCZGKUYpKiZJJmFscGhhR0YnRikmSSJ4R0YnRihGKUYpRilGMSEiIi8mRiY2IyIiIyIiIS8mSSJVR0YnRjcsJComRitGKSZJInVHRidGN0YpRjQvJkkkUHNpR0koX3N5c2xpYkdGJ0YoLCQqJkYrRikmSSRwc2lHRidGKEYpRjQvJkZDNiMiIiQsJComRitGKSZGSEZLRilGNC8mRjxGKCwkKiZGK0YpJkZARihGKUY0L0kiVEdGJywmKihGOEYpRitGKUkidEdGJ0YpRikmRiw2IyIjNkYpLyZGJkZLLCYqJkYrRikmRjNGS0YpRikmRiw2IyIjNUYpLyZGQ0Y3Rjk=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L50" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L, phi, t, [x[1],x[2],x[3]], [u[1],u[2]], %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCgqKiZJIkNHNiI2IyIiJyIiIiwmRitGKyomSSZhbHBoYUdGKEYrLSZJInhHRig2I0YrNiNJInRHRihGK0YrRitGLiEiIi0mSSRwc2lHRihGMkYzRitGKyomLCYqJkYmRistJkYxNiMiIiRGM0YrRismRic2IyIjNUYrRistJkY4Rj5GM0YrRisqJiwqKiYmRjg2IyIiIUYrLCYqJCktJkkidUdGKEYyRjMiIiNGK0YrKiQpLSZGUDYjRlFGM0ZRRitGK0YrRisqJkY2RitGTkYrRisqKC0mRjhGVkYzRitGVEYrRixGNUYrKihGQ0YrKS0mRjFGVkYzRlFGK0ZORitGK0YrLCYqKEZRRitGJkYrRjRGK0YrJkYnNiMiIzZGK0YrRjVJJmNvbnN0R0Yo</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">When C6 = 1 and C10 = C11 = 0,</Text-field>
<Group labelreference="L51" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[6]=1,C[10]=0,C[11]=0, %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCgqKCwmIiIiRicqJkkmYWxwaGFHNiJGJy0mSSJ4R0YqNiNGJzYjSSJ0R0YqRidGJ0YnRikhIiItJkkkcHNpR0YqRi5GL0YnRicqJi0mRi02IyIiJEYvRictJkY0RjhGL0YnRicqKCIiI0YnLCoqJiZGNDYjIiIhRicsJiokKS0mSSJ1R0YqRi5GL0Y9RidGJyokKS0mRkg2I0Y9Ri9GPUYnRidGJ0YnKiZGMkYnRkZGJ0YnKigtJkY0Rk1GL0YnRktGJ0YmRjFGJyooRjpGJyktJkYtRk1GL0Y9RidGRkYnRidGJ0YwRidGMUkmY29uc3RHRio=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">we obtain the conservation law proved in [23, Example 2].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 10 </Font><Font encoding="UTF-8">(Heisenberg \342\200\223 (2, 3) problem) (1\342\200\23104\342\200\235) The Heisenberg (2, 3) problem can </Font>be formulated as follows:</Text-field>
<Group labelreference="L52" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=1/2*(u[1]^2+u[2]^2);</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">phi:=[u[1], u[2], u[2]*x[1]];</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiLCYqJiMiIiIiIiNGKSkmSSJ1R0YlNiNGKUYqRilGKSomRihGKSkmRi02I0YqRipGKUYp</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiI3JSZJInVHRiU2IyIiIiZGKDYjIiIjKiZGK0YqJkkieEdGJUYpRio=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The problem was proved to be completely integrable using three independent conservation laws [22]. Such conservation laws can now be easily obtained with our Maple functions.</Text-field>
<Group labelreference="L53" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, [x[1],x[2],x[3]], [u[1],u[2]]);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ky8mSSJVRzYiNiMiIiMsJComJkkiQ0dGJzYjIiIiRi8mSSJ1R0YnRihGLyEiIi8mSSJYR0YnRi4sJiZGLUYoRi8qJkYsRi8mSSJ4R0YnRi5GL0YvLyZGJkYuLCQqJkYsRi8mRjFGLkYvRjIvJkkkUHNpR0koX3N5c2xpYkdGJ0YuLCQqJkYsRi8mSSRwc2lHRidGLkYvRjIvJkZCRigsJiomRixGLyZGR0YoRi9GMiomJkZHNiMiIiRGL0Y3Ri9GMi8mRkJGTywkKihGKUYvRixGL0ZORi9GMi8mRjVGTywoKiZGN0YvJkY6RihGL0YvKihGKUYvRixGLyZGOkZPRi9GLyZGLUZPRi8vSSJUR0YnLCYqKEYpRi9GLEYvSSJ0R0YnRi9GLyZGLTYjIiIlRi8vJkY1RigsJiomRixGL0ZZRi9GLyZGLTYjIiImRi8=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L54" drawlabel="true">
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=Noether(L, phi, t, [x[1],x[2],x[3]], [u[1],u[2]], %);</Text-field>
</Input>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSNDTEc2Ii8sKiomLCYmSSJDR0YlNiMiIiMiIiIqJiZGKzYjRi5GLi0mSSJ4R0YlRjE2I0kidEdGJUYuRi5GLi0mSSRwc2lHRiVGMUY1Ri5GLiomLCYqJkYwRi4tJkY0RixGNUYuRi4mRis2IyIiJkYuRi4tJkY5RixGNUYuRi4qJiwoKiZGKkYuRj1GLkYuKihGLUYuRjBGLi0mRjQ2IyIiJEY1Ri5GLiZGK0ZKRi5GLi0mRjlGSkY1Ri5GLiomLCoqJiZGOTYjIiIhRi4sJiomI0YuRi1GLiktJkkidUdGJUYxRjVGLUYuRi4qJkZXRi4pLSZGZW5GLEY1Ri1GLkYuRi5GLiomRjdGLkZZRi5GLiomRkJGLkZobkYuRi4qKEZNRi5GaG5GLkYyRi5GLkYuLCYqKEYtRi5GMEYuRjZGLkYuJkYrNiMiIiVGLkYuISIiSSZjb25zdEdGJQ==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">We now want to eliminate the controls from the previous family of conservation laws. We begin to define the Hamiltonian:</Text-field>
<Group labelreference="L55" drawlabel="true">
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">H:=-L+Vector[row]([psi[1](t), psi[2](t), psi[3](t)]).Vector(phi);</Text-field>
</Input>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJIRzYiLCwqJiMiIiIiIiNGKSkmSSJ1R0YlNiNGKUYqRikhIiIqJkYoRikpJkYtNiNGKkYqRilGLyomRixGKS0mSSRwc2lHRiVGLjYjSSJ0R0YlRilGKSomRjJGKS0mRjdGM0Y4RilGKSooRjJGKSZJInhHRiVGLkYpLSZGNzYjIiIkRjhGKUYp</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The stationary condition (7) permits to obtain the pair of controls (<Equation executable="false" style="2D Math" input-equation="u[1](t), u[2](t)">NiM2JC0mSSJ1RzYiNiMiIiI2I0kidEdGJy0mRiY2IyIiI0Yq</Equation>).</Text-field>
<Group labelreference="L56" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">solve({diff(H,u[1])=0, diff(H,u[2])=0}, {u[1],u[2]}):</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(x[1]=x[1](t), u[1]=u[1](t), u[2]=u[2](t), %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8JC8tJkkidUc2IjYjIiIjNiNJInRHRigsJi0mSSRwc2lHRihGKUYrIiIiKiYtJkkieEdGKDYjRjFGK0YxLSZGMDYjIiIkRitGMUYxLy0mRidGNkYrLSZGMEY2Ris=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">It is not difficult to show that the problem does not admit abnormal extremals, so one can choose, without any loss of generality,  <Equation executable="false" style="2D Math" input-equation="psi[0] = -1">NiMvJkkkcHNpRzYiNiMiIiEsJCIiIiEiIg==</Equation>.</Text-field>
<Group labelreference="L57" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=subs(psi[0]=-1, %, CL);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSNDTEc2Ii8sKiomLCYmSSJDR0YlNiMiIiMiIiIqJiZGKzYjRi5GLi0mSSJ4R0YlRjE2I0kidEdGJUYuRi5GLi0mSSRwc2lHRiVGMUY1Ri5GLiomLCYqJkYwRi4tJkY0RixGNUYuRi4mRis2IyIiJkYuRi4tJkY5RixGNUYuRi4qJiwoKiZGKkYuRj1GLkYuKihGLUYuRjBGLi0mRjQ2IyIiJEY1Ri5GLiZGK0ZKRi5GLi0mRjlGSkY1Ri5GLiomLCoqJiNGLkYtRi4pRjdGLUYuRi4qJkZSRi4pLCZGQkYuKiZGMkYuRk1GLkYuRi1GLiEiIiomRkJGLkZWRi5GLiooRk1GLkZWRi5GMkYuRi5GLiwmKihGLUYuRjBGLkY2Ri5GLiZGKzYjIiIlRi5GLkZYSSZjb25zdEdGJQ==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">It is easy to extract from the family of conservation laws just obtained, three independent conservation laws. We just need to fix one constant to a non-zero value, and choose all the other constants to be zero:</Text-field>
<Group labelreference="L58" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[3]=1,seq(C[i]=0,i=1..5), CL);</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[2]=1,seq(C[i]=0,i=1..5), CL);</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">simplify(subs(C[4]=-1,seq(C[i]=0,i=1..5), CL));</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLSZJJHBzaUc2IjYjIiIkNiNJInRHRidJJmNvbnN0R0Yn</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCYtJkkkcHNpRzYiNiMiIiI2I0kidEdGKEYqKiYtJkkieEdGKDYjIiIjRitGKi0mRic2IyIiJEYrRipGKkkmY29uc3RHRig=</Equation></Text-field>
</Output>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCoqJiMiIiIiIiNGJyktJkkkcHNpRzYiNiNGJzYjSSJ0R0YtRihGJ0YnKiZGJkYnKS0mRiw2I0YoRi9GKEYnRicqKEYzRictJkkieEdGLUYuRi9GJy0mRiw2IyIiJEYvRidGJyooRiZGJylGN0YoRicpRjpGKEYnRidJJmNvbnN0R0Yt</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The last conservation law corresponds to the Hamiltonian. This, and  <Equation executable="false" style="2D Math" input-equation="psi[3] = const">NiMvJkkkcHNpRzYiNiMiIiRJJmNvbnN0R0Ym</Equation>, are trivial conservation laws for the problem. The missing first integral to solve the problem, <Equation executable="false" style="2D Math" input-equation="x[2]*psi[3]+psi[1]">NiMsJiomJkkieEc2IjYjIiIjIiIiJkkkcHNpR0YnNiMiIiRGKkYqJkYsNiNGKkYq</Equation>, was obtained in [22].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 11</Font><Font encoding="UTF-8"> (Cartan \342\200\223 (2, 3, 5) problem) (30\342\200\23134\342\200\235) The Cartan problem with growth </Font>vector (2, 3, 5) can be posed in the following way:</Text-field>
<Group labelreference="L59" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=1/2*(u[1]^2+u[2]^2);</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">phi:=[u[1], u[2], u[2]*x[1], 1/2*u[2]*x[1]^2, u[2]*x[1]*x[2]];</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiLCYqJiMiIiIiIiNGKSkmSSJ1R0YlNiNGKUYqRilGKSomRihGKSkmRi02I0YqRipGKUYp</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiI3JyZJInVHRiU2IyIiIiZGKDYjIiIjKiZGK0YqJkkieEdGJUYpRiosJCooI0YqRi1GKkYrRiopRi9GLUYqRioqKEYrRipGL0YqJkYwRixGKg==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The integrability of the problem was recently established in [19]. This is possible with five independent conservation laws. They can easily be determined with our Maple package.</Text-field>
<Group labelreference="L60" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, [x[1],x[2],x[3],x[4],x[5]], [u[1],u[2]]);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ly9JIlRHNiIsJiooIyIiIyIiJCIiIiZJIkNHRiY2I0YsRixJInRHRiZGLEYsJkYuNiMiIiVGLC8mSSJYR0YmRi8sJCooI0YsRitGLEYtRiwmSSJ4R0YmRi9GLEYsLyZGNjYjRiosJiZGLkY+RiwqKEY5RixGLUYsJkY7Rj5GLEYsLyZGNkYyLCYqJkYtRiwmRjtGMkYsRiwmRi42IyIiJkYsLyZJIlVHRiZGLywkKihGOUYsJkkidUdGJkYvRixGLUYsISIiLyZGTUY+LCQqKEY5RixGLUYsJkZRRj5GLEZSLyZJJFBzaUc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkdGJkYvLCQqKEY5RixGLUYsJkkkcHNpR0YmRi9GLEZSLyZGWkY+LCQqKEY5RixGLUYsJkZbb0Y+RixGUi8mRlo2I0YrLCYqKEYpRiwmRltvRmNvRixGLUYsRlIqJkZARiwmRltvRklGLEZSLyZGWkYyLCQqJiZGW29GMkYsRi1GLEZSLyZGWkZJLCQqJkYtRixGaG9GLEZSLyZGNkZJLCgqJkZARiwmRjtGY29GLEYsKiZGLUYsJkY7RklGLEYsJkYuRmNvRiwvJkY2RmNvLCYqKEYpRixGLUYsRmZwRixGLCZGLjYjIiInRiw=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L61" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=Noether(L, phi, t, [x[1],x[2],x[3],x[4],x[5]], [u[1],u[2]], %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSNDTEc2Ii8sLioqIyIiIiIiJEYqJkkiQ0dGJTYjRipGKi0mSSJ4R0YlRi42I0kidEdGJUYqLSZJJHBzaUdGJUYuRjJGKkYqKiYsJiZGLTYjIiIjRioqKEYpRipGLEYqLSZGMUY6RjJGKkYqRiotJkY2RjpGMkYqRioqJiwmKigjRjtGK0YqRixGKi0mRjE2I0YrRjJGKkYqJkYtNiMiIidGKkYqLSZGNkZHRjJGKkYqKiYsJiomRixGKi0mRjE2IyIiJUYyRipGKiZGLTYjIiImRipGKi0mRjZGUkYyRipGKiomLCgqJkY5RipGRUYqRioqJkYsRiotJkYxRlVGMkYqRiomRi1GR0YqRiotJkY2RlVGMkYqRioqJiwuKiYmRjY2IyIiIUYqLCYqJiNGKkY7RiopLSZJInVHRiVGLkYyRjtGKkYqKiZGZG9GKiktJkZob0Y6RjJGO0YqRipGKkYqKiZGZm9GKkY0RipGKiomRltwRipGP0YqRioqKEZbcEYqRi9GKkZLRipGKioqRmRvRipGW3BGKilGL0Y7RipGV0YqRioqKkZbcEYqRi9GKkY9RipGam5GKkYqRiosJiooRkRGKkYsRipGM0YqRiomRi1GUkYqRiohIiJJJmNvbnN0R0Yl</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The Hamiltonian is given by</Text-field>
<Group labelreference="L62" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">H:=-L+Vector[row]([psi[1](t), psi[2](t), psi[3](t), psi[4](t),psi[5](t)]).Vector(phi);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJIRzYiLDAqJiMiIiIiIiNGKSkmSSJ1R0YlNiNGKUYqRikhIiIqJkYoRikpJkYtNiNGKkYqRilGLyomRixGKS0mSSRwc2lHRiVGLjYjSSJ0R0YlRilGKSomRjJGKS0mRjdGM0Y4RilGKSooRjJGKSZJInhHRiVGLkYpLSZGNzYjIiIkRjhGKUYpKipGKEYpRjJGKSlGPkYqRiktJkY3NiMiIiVGOEYpRikqKkYyRilGPkYpJkY/RjNGKS0mRjc2IyIiJkY4RilGKQ==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">and the extremal controls are obtained through the stationary condition (7).</Text-field>
<Group labelreference="L63" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">solve({diff(H,u[1])=0, diff(H,u[2])=0}, {u[1],u[2]}):</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(x[1]=x[1](t),x[2]=x[2](t), u[1]=u[1](t),u[2]=u[2](t), %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8JC8tJkkidUc2IjYjIiIiNiNJInRHRigtJkkkcHNpR0YoRilGKy8tJkYnNiMiIiNGKywqKigtJkkieEdGKEYpRitGKi0mRjlGM0YrRiotJkYvNiMiIiZGK0YqRiotJkYvRjNGK0YqKiZGN0YqLSZGLzYjIiIkRitGKkYqKigjRipGNEYqKUY3RjRGKi0mRi82IyIiJUYrRipGKg==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L64" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=subs(psi[0]=-1, %, CL);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSNDTEc2Ii8sLioqIyIiIiIiJEYqJkkiQ0dGJTYjRipGKi0mSSJ4R0YlRi42I0kidEdGJUYqLSZJJHBzaUdGJUYuRjJGKkYqKiYsJiZGLTYjIiIjRioqKEYpRipGLEYqLSZGMUY6RjJGKkYqRiotJkY2RjpGMkYqRioqJiwmKigjRjtGK0YqRixGKi0mRjE2I0YrRjJGKkYqJkYtNiMiIidGKkYqLSZGNkZHRjJGKkYqKiYsJiomRixGKi0mRjE2IyIiJUYyRipGKiZGLTYjIiImRipGKi0mRjZGUkYyRipGKiomLCgqJkY5RipGRUYqRioqJkYsRiotJkYxRlVGMkYqRiomRi1GR0YqRiotJkY2RlVGMkYqRioqJiwuKiYjRipGO0YqKUY0RjtGKkYqKiZGX29GKiksKiooRi9GKkY9RipGam5GKkYqRj9GKiomRi9GKkZLRipGKiooRl9vRiopRi9GO0YqRldGKkYqRjtGKiEiIiomRmNvRipGP0YqRioqKEZjb0YqRi9GKkZLRipGKioqRl9vRipGY29GKkZnb0YqRldGKkYqKipGY29GKkYvRipGPUYqRmpuRipGKkYqLCYqKEZERipGLEYqRjNGKkYqJkYtRlJGKkYqRmhvSSZjb25zdEdGJQ==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The five conservation laws we are looking for, are easily obtained (the last one corresponds to the Hamiltonian):</Text-field>
<Group labelreference="L65" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[6]=1,seq(C[i]=0,i=1..6), CL);</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[5]=1,seq(C[i]=0,i=1..6), CL);</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[3]=1,seq(C[i]=0,i=1..6), CL);</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[2]=1,seq(C[i]=0,i=1..6), CL);</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">simplify(subs(C[4]=-1,seq(C[i]=0,i=1..6), CL));</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLSZJJHBzaUc2IjYjIiIkNiNJInRHRidJJmNvbnN0R0Yn</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLSZJJHBzaUc2IjYjIiIlNiNJInRHRidJJmNvbnN0R0Yn</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLSZJJHBzaUc2IjYjIiImNiNJInRHRidJJmNvbnN0R0Yn</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCYtJkkkcHNpRzYiNiMiIiM2I0kidEdGKCIiIiomLSZJInhHRig2IyIiJEYrRi0tJkYnNiMiIiZGK0YtRi1JJmNvbnN0R0Yo</Equation></Text-field>
</Output>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLDgqKiMiIiIiIiNGJyktJkkieEc2IjYjRic2I0kidEdGLSIiJEYnLSZJJHBzaUdGLTYjRjFGL0YnLSZGNDYjIiIlRi9GJ0YnKipGJkYnLSZGNDYjRihGL0YnKUYqRihGJ0Y2RidGJyoqRiZGJ0Y+RicpLSZGLEY9Ri9GKEYnKS0mRjQ2IyIiJkYvRihGJ0YnKihGO0YnRipGJ0YyRidGJyoqRj5GJ0ZBRidGREYnRjJGJ0YnKixGJkYnRilGJ0ZBRidGREYnRjZGJ0YnKipGKkYnRkFGJ0ZERidGO0YnRicqJkYmRicpRjtGKEYnRicqKEYmRidGPkYnKUYyRihGJ0YnKigjRiciIilGJylGKkY5RicpRjZGKEYnRicqJkYmRicpLSZGNEYuRi9GKEYnRidJJmNvbnN0R0Yt</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">One can say that for the Cartan (2, 3, 5) problem we have four trivial first integrals: the Hamiltonian H; and the multipliers  <Equation executable="false" style="2D Math" input-equation="psi[3]">NiMmSSRwc2lHNiI2IyIiJA==</Equation>,  <Equation executable="false" style="2D Math" input-equation="psi[4]">NiMmSSRwc2lHNiI2IyIiJQ==</Equation>,  <Equation executable="false" style="2D Math" input-equation="psi[5]">NiMmSSRwc2lHNiI2IyIiJg==</Equation>. Together with the non-trivial integral <Equation executable="false" style="2D Math" input-equation="x[3]*psi[5]+psi[2]">NiMsJiomJkkieEc2IjYjIiIkIiIiJkkkcHNpR0YnNiMiIiZGKkYqJkYsNiMiIiNGKg==</Equation>, the problem becomes completely integrable (see [19]).</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
</Section>
<Text-field style="Text" layout="Normal"></Text-field>
<Section collapsed="true" MultipleChoiceAnswerIndex="-1" MultipleChoiceRandomizeChoices="false" TrueFalseAnswerIndex="-1" EssayAnswerRows="5" EssayAnswerColumns="60"><Title>
<Text-field style="Heading 2" layout="Heading 2">Conservation Laws in the Calculus of Variations</Text-field></Title>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal">Since any problem of the calculus of variations can always be rewritten as an optimal control problem, we can also apply our Maple package to obtain variational symmetries and conservation laws in the classical context of the calculus of variations, and thus recovering the previous investigations of the authors [7]. We recall that for the problems of the calculus of variations there are no abnormal extremals (one can always choose  <Equation executable="false" style="2D Math" input-equation="psi[0] = -1">NiMvJkkkcHNpRzYiNiMiIiEsJCIiIiEiIg==</Equation>). Follow some examples.</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 12</Font><Font encoding="UTF-8"> (0\342\200\23108\342\200\235) We begin with a very simple problem of the calculus of variations, </Font>where the Lagrangian depends only on one dependent variable (n = 1), and where there are no derivatives of higher order than the first one (r = 1): <Equation executable="false" style="2D Math" input-equation="L = t*(diff(x(t), t))^2">NiMvSSJMRzYiKiZJInRHRiUiIiIqJCktSSVkaWZmRyUqcHJvdGVjdGVkRzYkLUkieEdGJTYjRidGJyIiI0YoRig=</Equation>. According with the above mentioned technique of rewriting the problem as an optimal control problem, we write the following definitions in Maple:</Text-field>
<Group labelreference="L66" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=t*v^2; u:=v; phi:=u;</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiKiZJInRHRiUiIiIpSSJ2R0YlIiIjRig=</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJ1RzYiSSJ2R0Yl</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiJJInZHRiU=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">Our procedure Symmetry determine the general infinitesimal generators which define the family of symmetries for the problem of the calculus of variations under consideration:</Text-field>
<Group labelreference="L67" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L,phi,t,x,u);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ji9JIlVHNiIsJComSSJ2R0YmIiIiJkkiQ0dGJjYjRipGKiEiIi9JIlRHRiYqJkYrRipJInRHRiZGKi9JJFBzaUdJKF9zeXNsaWJHRiYiIiEvSSJYR0YmJkYsNiMiIiM=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The conservation laws corresponding to the computed symmetries, are obtained with the procedure Noether:</Text-field>
<Group labelreference="L68" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L,phi,t,x,u,%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCYqJiZJIkNHNiI2IyIiIyIiIi1JJHBzaUdGKDYjSSJ0R0YoRitGKyooLCYqKCZGLTYjIiIhRitGL0YrKS1JInZHRihGLkYqRitGKyomRixGK0Y3RitGK0YrJkYnNiNGK0YrRi9GKyEiIkkmY29uc3RHRig=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">Going back to the original notation (<Equation executable="false" style="2D Math" input-equation="v = diff(x(t), t)">NiMvSSJ2RzYiLUklZGlmZkclKnByb3RlY3RlZEc2JC1JInhHRiU2I0kidEdGJUYt</Equation>), we can write:</Text-field>
<Group labelreference="L69" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=subs(psi[0]=-1,v(t)=diff(x(t),t),%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSNDTEc2Ii8sJiomJkkiQ0dGJTYjIiIjIiIiLUkkcHNpR0YlNiNJInRHRiVGLUYtKigsJiomRjFGLSktSSVkaWZmRyUqcHJvdGVjdGVkRzYkLUkieEdGJUYwRjFGLEYtISIiKiZGLkYtRjZGLUYtRi0mRio2I0YtRi1GMUYtRjxJJmNvbnN0R0Yl</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">In this case one can easily use the definition of first integral (a function that is preserved along the extremals of the problem), to verify the validity of the obtained expression. For that we compute the pair (<Equation executable="false" style="2D Math" input-equation="x(t), psi(t)">NiM2JC1JInhHNiI2I0kidEdGJi1JJHBzaUdGJkYn</Equation>) that satisfies the adjoint system (4) and the maximality condition (5) of the Pontryagin maximum principle (Theorem 1).</Text-field>
<Group labelreference="L70" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">H:=-L+psi(t)*phi;</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJIRzYiLCYqJkkidEdGJSIiIilJInZHRiUiIiNGKSEiIiomLUkkcHNpR0YlNiNGKEYpRitGKUYp</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L71" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">{diff(H,u)=0, diff(psi(t),t)=-diff(H,x)};</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8JC8sJiooIiIjIiIiSSJ0RzYiRihJInZHRipGKCEiIi1JJHBzaUdGKjYjRilGKCIiIS8tSSVkaWZmRyUqcHJvdGVjdGVkRzYkRi1GKUYw</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">After substituting <Equation executable="false" style="2D Math" input-equation="v = diff(x(t), t)">NiMvSSJ2RzYiLUklZGlmZkclKnByb3RlY3RlZEc2JC1JInhHRiU2I0kidEdGJUYt</Equation>, we obtain the extremals by solving the above system of differential equations:</Text-field>
<Group labelreference="L72" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(v=diff(x(t),t),%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8JC8tSSVkaWZmRyUqcHJvdGVjdGVkRzYkLUkkcHNpRzYiNiNJInRHRitGLSIiIS8sJiooIiIjIiIiRi1GMy1GJjYkLUkieEdGK0YsRi1GMyEiIkYpRjNGLg==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L73" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">dsolve(%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8JC8tSSRwc2lHNiI2I0kidEdGJ0kkX0MyR0YnLy1JInhHRidGKCwmKigjIiIiIiIjRjFGKkYxLUkjbG5HNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHRidGKEYxRjFJJF9DMUdGJ0Yx</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">Expression for <Equation executable="false" style="2D Math" input-equation="x(t)">NiMtSSJ4RzYiNiNJInRHRiU=</Equation> coincides with the Euler-Lagrange extremal ([7, Example 5.1]). Substituting the extremals in the conservation law one obtains, as expected, a true proposition:</Text-field>
<Group labelreference="L74" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">expand(subs(%,CL));</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCYqJiZJIkNHNiI2IyIiIyIiIkkkX0MyR0YoRitGKyooI0YrIiIlRismRic2I0YrRispRixGKkYrISIiSSZjb25zdEdGKA==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">Substituting only  <Equation executable="false" style="2D Math" input-equation="psi(t)">NiMtSSRwc2lHNiI2I0kidEdGJQ==</Equation>, one can get the family of conservation laws in the notation of the calculus of variations:</Text-field>
<Group labelreference="L75" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">expand(subs(psi(t)=K[2],CL)); </Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCgqJiZJIkNHNiI2IyIiIyIiIiZJIktHRihGKUYrRisqKCZGJzYjRitGKylJInRHRihGKkYrKS1JJWRpZmZHJSpwcm90ZWN0ZWRHNiQtSSJ4R0YoNiNGMkYyRipGK0YrKipGL0YrRjJGK0YsRitGNEYrISIiSSZjb25zdEdGKA==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L76" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[2]*K[2]=0,C[1]=-1,%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCYqJilJInRHNiIiIiMiIiIpLUklZGlmZkclKnByb3RlY3RlZEc2JC1JInhHRig2I0YnRidGKUYqISIiKihGJ0YqJkkiS0dGKDYjRilGKkYsRipGKkkmY29uc3RHRig=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 13</Font><Font encoding="UTF-8"> (Kepler\342\200\231s problem) (0\342\200\23117\342\200\235) We now obtain the conservation laws for Kepler\342\200\231s problem \342\200\223 see [3, p. 217]. In this case the Lagrangian depends on two dependent </Font>variables (n = 2), without derivatives of higher-order (r = 1):</Text-field>
<Group labelreference="L77" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:= m/2*(v[1]^2+v[2]^2)+K/sqrt(q[1]^2+q[2]^2); x:=[q[1],q[2]]; u:=[v[1],v[2]]; phi:=[v[1],v[2]];
</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiLCYqKCMiIiIiIiNGKUkibUdGJUYpLCYqJCkmSSJ2R0YlNiNGKUYqRilGKSokKSZGMDYjRipGKkYpRilGKUYpKiZJIktHRiVGKSksJiokKSZJInFHRiVGMUYqRilGKSokKSZGPUY1RipGKUYpRighIiJGKQ==</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJ4RzYiNyQmSSJxR0YlNiMiIiImRig2IyIiIw==</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJ1RzYiNyQmSSJ2R0YlNiMiIiImRig2IyIiIw==</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiI3JCZJInZHRiU2IyIiIiZGKDYjIiIj</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The family of conservation laws for the problem is easily obtained with our Maple package:</Text-field>
<Group labelreference="L78" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, x, u);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8KS9JIlRHNiImSSJDR0YmNiMiIiovJkkiWEdGJjYjIiIiKiYmRig2IyIiJUYvJkkicUdGJjYjIiIjRi8vJkkkUHNpR0koX3N5c2xpYkdGJkY2LCQqJkYxRi8mSSRwc2lHRiZGLkYvISIiLyZGOkYuKiZGMUYvJkY/RjZGLy8mRi1GNiwkKiZGMUYvJkY1Ri5GL0ZALyZJIlVHRiZGNiwmKiYmRihGNkYvJkkidkdGJkYuRi9GQCoqLCZGMUZARk9GL0YvJkY/NiMiIiFGQEkibUdGJkZARj5GL0ZALyZGTEYuLDImRig2IyIiJ0YvJkYoNiMiIiZGLyZGKDYjIiIoRi8mRihGLkYvKiZGT0YvJkZRRjZGL0YvJkYoNiMiIiRGLyZGKDYjIiIpRi8qKCwmKihGV0YvLC5GZG9GL0Zeb0YvRmVuRi9GYW9GL0Zbb0YvRmhuRi9GL0ZURi9GQComRkRGLywmRjFGL0ZPRkBGL0ZARi9GVEZARldGQEYv</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L79" drawlabel="true">
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">simplify(%);</Text-field>
</Input>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8KS9JIlRHNiImSSJDR0YmNiMiIiovJkkiVUdGJjYjIiIiKigsKCoqJkYoNiMiIiNGLyZJInZHRiZGNEYvJkkkcHNpR0YmNiMiIiFGL0kibUdGJkYvRi8qJiZGKDYjIiIlRi8mRjlGNEYvISIiKiZGQUYvRjNGL0YvRi9GOEZCRjxGQi8mRi1GNCwkKigsKCoqRjNGLyZGN0YuRi9GOEYvRjxGL0YvKiZGPkYvJkY5Ri5GL0ZCKiZGTEYvRjNGL0YvRi9GOEZCRjxGQkZCLyZJIlhHRiZGLiomRj5GLyZJInFHRiZGNEYvLyZJJFBzaUdJKF9zeXNsaWJHRiZGNCwkRktGQi8mRlZGLkY9LyZGUEY0LCQqJkY+Ri8mRlNGLkYvRkI=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L80" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L, phi, t, x, u, %):</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=subs(psi[0]=-1,%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSNDTEc2Ii8sKCooJkkiQ0dGJTYjIiIlIiIiLSZJInFHRiU2IyIiIzYjSSJ0R0YlRi0tJkkkcHNpR0YlNiNGLUYzRi1GLSooRilGLS0mRjBGOEYzRi0tJkY3RjFGM0YtISIiKiYsKiooI0YtRjJGLUkibUdGJUYtLCYqJCktJkkidkdGJUY4RjNGMkYtRi0qJCktJkZJRjFGM0YyRi1GLUYtRj4qJkkiS0dGJUYtKSwmKiQpRjpGMkYtRi0qJClGLkYyRi1GLUZCRj5GPiomRjVGLUZHRi1GLSomRjxGLUZMRi1GLUYtJkYqNiMiIipGLUY+SSZjb25zdEdGJQ==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">To obtain the conservation laws in the format of the calculus of variations, one needs to compute the Pontryagin multipliers (<Equation executable="false" style="2D Math" input-equation="psi[1](t), psi[2](t)">NiM2JC0mSSRwc2lHNiI2IyIiIjYjSSJ0R0YnLSZGJjYjIiIjRio=</Equation>),</Text-field>
<Group labelreference="L81" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">H:=-L+Vector[row]([psi[1](t), psi[2](t)]).Vector(phi);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJIRzYiLCoqKCMiIiIiIiNGKUkibUdGJUYpLCYqJCkmSSJ2R0YlNiNGKUYqRilGKSokKSZGMDYjRipGKkYpRilGKSEiIiomSSJLR0YlRikpLCYqJCkmSSJxR0YlRjFGKkYpRikqJCkmRj5GNUYqRilGKUYoRjZGNiomRi9GKS0mSSRwc2lHRiVGMTYjSSJ0R0YlRilGKSomRjRGKS0mRkVGNUZGRilGKQ==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L82" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">solve({diff(H,v[1])=0,diff(H,v[2])=0},{psi[1](t), psi[2](t)});</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8JC8tJkkkcHNpRzYiNiMiIiM2I0kidEdGKComSSJtR0YoIiIiJkkidkdGKEYpRi8vLSZGJzYjRi9GKyomRi5GLyZGMUY1Ri8=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">and substitute the expressions, together with <Equation executable="false" style="2D Math" input-equation="v[1](t) = diff(q[1](t), t)">NiMvLSZJInZHNiI2IyIiIjYjSSJ0R0YnLUklZGlmZkclKnByb3RlY3RlZEc2JC0mSSJxR0YnRihGKkYr</Equation> and <Equation executable="false" style="2D Math" input-equation="v[2](t) = diff(q[2](t), t)">NiMvLSZJInZHNiI2IyIiIzYjSSJ0R0YnLUklZGlmZkclKnByb3RlY3RlZEc2JC0mSSJxR0YnRihGKkYr</Equation>:</Text-field>
<Group labelreference="L83" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">expand(subs(%,v[1](t)=v[1],v[2](t)=v[2],v[1]=diff(q[1](t),t),v[2]=diff(q[2](t),t),CL));</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCwqKiZJIkNHNiI2IyIiJSIiIi0mSSJxR0YoNiMiIiM2I0kidEdGKEYrSSJtR0YoRistSSVkaWZmRyUqcHJvdGVjdGVkRzYkLSZGLjYjRitGMUYyRitGKyoqRiZGK0Y4RitGM0YrLUY1NiRGLEYyRishIiIqKiNGK0YwRismRic2IyIiKkYrRjNGKylGNEYwRitGPioqRkBGK0ZBRitGM0YrKUY8RjBGK0Y+KihGQUYrSSJLR0YoRispLCYqJClGOEYwRitGKyokKUYsRjBGK0YrRkBGPkYrSSZjb25zdEdGKA==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">This is the conservation law in [7, Example 5.2].</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 14</Font><Font encoding="UTF-8"> (6\342\200\23142\342\200\235) Let us see an example of the calculus of variations whose Lagrangian </Font>depends on two functions (n = 2) and higher-order derivatives (r = 2): <Equation executable="false" style="2D Math" input-equation="L = (diff(x[1](t), t))^2+(diff(x[2](t), `$`(t, 2)))^2">NiMvSSJMRzYiLCYqJCktSSVkaWZmRyUqcHJvdGVjdGVkRzYkLSZJInhHRiU2IyIiIjYjSSJ0R0YlRjMiIiNGMUYxKiQpLUYqNiQtJkYvNiNGNEYyLUkiJEdGKzYkRjNGNEY0RjFGMQ==</Equation>.</Text-field>
<Text-field style="Text" layout="Normal">We write the problem in the optimal control terminology, and make use of our Maple procedure Symmetry to compute the symmetries:</Text-field>
<Group labelreference="L84" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=v[1]^2+a[2]^2; xx:=[x[1],x[2],v[1],v[2]]; u:=[a[1],a[2]]; phi:=[v[1],v[2],a[1],a[2]];</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiLCYqJCkmSSJ2R0YlNiMiIiIiIiNGLEYsKiQpJkkiYUdGJTYjRi1GLUYsRiw=</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSN4eEc2IjcmJkkieEdGJTYjIiIiJkYoNiMiIiMmSSJ2R0YlRikmRi9GLA==</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJ1RzYiNyQmSSJhR0YlNiMiIiImRig2IyIiIw==</Equation></Text-field>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSRwaGlHNiI3JiZJInZHRiU2IyIiIiZGKDYjIiIjJkkiYUdGJUYpJkYvRiw=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L85" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, phi, t, xx, u);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8LS8mSSJYRzYiNiMiIiUsJiZJIkNHRic2IyIiIkYuKiYmRiw2IyIiJEYuJkkidkdGJzYjIiIjRi5GLi8mRiZGMSwkKiZGMEYuJkY0Ri1GLiEiIi8mSSJVR0YnRjUsJiomRjBGLiZJImFHRidGNUYuRjwqJiZGLEY1Ri4mSSRwc2lHRidGMUYuRi4vJkY/Ri0sKCooRjJGLkYwRi4mRkNGLUYuRjwqKkY2Ri4mRkc2IyIiIUYuRkVGLkZCRi5GPComRkVGLiZGR0YoRi5GPC8mSSRQc2lHSShfc3lzbGliR0YnRigsJComRjBGLkZSRi5GPC8mRlVGMSomRjBGLkZGRi4vJkZVRi0sJComRjBGLiZGR0YtRi5GPC8mRlVGNSwkKihGMkYuRjBGLiZGR0Y1Ri5GPC9JIlRHRicsJiooRjZGLkkidEdGJ0YuRjBGLkYuJkYsRihGLi8mRiZGLSwmKiZGMEYuJkkieEdGJ0YtRi5GLiZGLDYjIiImRi4vJkYmRjUsKComRmRvRi5GK0YuRi4qKEYyRi5GMEYuJkZbcEY1Ri5GLiZGLDYjIiInRi4=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">We choose, in the conservation law returned by our Maple procedure Noether, <Equation executable="false" style="2D Math" input-equation="psi[0] = -1">NiMvJkkkcHNpRzYiNiMiIiEsJCIiIiEiIg==</Equation>, and then go back to the calculus of variations notation: <Equation executable="false" style="2D Math" input-equation="v[1](t) = diff(x[1](t), t)">NiMvLSZJInZHNiI2IyIiIjYjSSJ0R0YnLUklZGlmZkclKnByb3RlY3RlZEc2JC0mSSJ4R0YnRihGKkYr</Equation>, <Equation executable="false" style="2D Math" input-equation="v[2](t) = diff(x[2](t), t)">NiMvLSZJInZHNiI2IyIiIzYjSSJ0R0YnLUklZGlmZkclKnByb3RlY3RlZEc2JC0mSSJ4R0YnRihGKkYr</Equation>, <Equation executable="false" style="2D Math" input-equation="a[1](t) = diff(x[1](t), `$`(t, 2))">NiMvLSZJImFHNiI2IyIiIjYjSSJ0R0YnLUklZGlmZkclKnByb3RlY3RlZEc2JC0mSSJ4R0YnRihGKi1JIiRHRi42JEYrIiIj</Equation> and <Equation executable="false" style="2D Math" input-equation="a[2](t) = diff(x[2](t), `$`(t, 2))">NiMvLSZJImFHNiI2IyIiIzYjSSJ0R0YnLUklZGlmZkclKnByb3RlY3RlZEc2JC0mSSJ4R0YnRihGKi1JIiRHRi42JEYrRik=</Equation>:</Text-field>
<Group labelreference="L86" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L, phi, t, xx, u, %):</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=subs(psi[0]=-1, v[1](t)=diff(x[1](t),t), v[2](t)=diff(x[2](t),t), a[1](t)=diff(x[1](t),t$2), a[2](t)=diff(x[2](t),t$2),%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSNDTEc2Ii8sLComLCYqJiZJIkNHRiU2IyIiJCIiIi0mSSJ4R0YlNiNGLzYjSSJ0R0YlRi9GLyZGLDYjIiImRi9GLy0mSSRwc2lHRiVGM0Y0Ri9GLyomLCgqJkY1Ri8mRixGM0YvRi8qKEYuRi9GK0YvLSZGMjYjIiIjRjRGL0YvJkYsNiMiIidGL0YvLSZGO0ZDRjRGL0YvKihGK0YvLUklZGlmZkclKnByb3RlY3RlZEc2JEYwRjVGLy0mRjtGLUY0Ri8hIiIqJiwmRj9GLyomRitGLy1GTDYkRkFGNUYvRi9GLy0mRjs2IyIiJUY0Ri9GLyomLC4qJClGS0ZERi9GUSokKS1GTDYkRkEtSSIkR0ZNNiRGNUZERkRGL0ZRKiZGOUYvRktGL0YvKiZGSEYvRlVGL0YvKiZGT0YvLUZMNiRGMEZdb0YvRi8qJkZXRi9GW29GL0YvRi8sJiooRkRGL0Y1Ri9GK0YvRi8mRixGWUYvRi9GUUkmY29uc3RHRiU=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">Similarly to Example 12, we can also compute through Maple the extremals and verify, by definition, the validity of the obtained family of conservation laws.</Text-field>
<Group labelreference="L87" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">vpsi:=Vector[row]([psi[1](t), psi[2](t), psi[3](t), psi[4](t)]):</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">H:=-L+vpsi.Vector(phi);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJIRzYiLC4qJCkmSSJ2R0YlNiMiIiIiIiNGLCEiIiokKSZJImFHRiU2I0YtRi1GLEYuKiZGKUYsLSZJJHBzaUdGJUYrNiNJInRHRiVGLEYsKiYmRipGM0YsLSZGN0YzRjhGLEYsKiYmRjJGK0YsLSZGNzYjIiIkRjhGLEYsKiZGMUYsLSZGNzYjIiIlRjhGLEYs</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L88" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">{diff(H,u[1])=0, diff(H,u[2])=0, diff(vpsi[1],t)=-diff(H,xx[1]), diff(vpsi[2],t)=-diff(H,xx[2]), diff(vpsi[3],t)=-diff(H,xx[3]), diff(vpsi[4],t)=-diff(H,xx[4])}:</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(v[1]=diff(x[1](t),t), a[2]=diff(x[2](t),t$2), %);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8KC8tSSVkaWZmRyUqcHJvdGVjdGVkRzYkLSZJJHBzaUc2IjYjIiIjNiNJInRHRixGMCIiIS8sJiomRi4iIiItRiY2JC0mSSJ4R0YsRi1GLy1JIiRHRic2JEYwRi5GNSEiIi0mRis2IyIiJUYvRjVGMS8tRiY2JEY/RjAsJEYpRj4vLSZGKzYjIiIkRi9GMS8tRiY2JC0mRis2I0Y1Ri9GMEYxLy1GJjYkRkhGMCwmKiZGLkY1LUYmNiQtJkY6RlFGL0YwRjVGNUZPRj4=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">Solving the above system of equations, that result from the maximality condition and adjoint system,</Text-field>
<Group labelreference="L89" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">dsolve(%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8KC8tJkkkcHNpRzYiNiMiIiM2I0kidEdGKEkkX0M1R0YoLy0mRic2IyIiJUYrLCYqJkYtIiIiRixGNSEiIkkkX0MzR0YoRjUvLSZJInhHRihGKUYrLCoqKCNGNSIjN0Y1Ri1GNSlGLCIiJEY1RjYqKCNGNUYyRjVGN0Y1KUYsRipGNUY1KiZJJF9DMUdGKEY1RixGNUY1SSRfQzJHRihGNS8tJkYnNiNGNUYrSSRfQzZHRigvLSZGO0ZLRissJiooI0Y1RipGNUZMRjVGLEY1RjVJJF9DNEdGKEY1Ly0mRic2I0ZBRisiIiE=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">we obtain the extremals (the extremal state trajectories <Equation executable="false" style="2D Math" input-equation="x[1](t)">NiMtJkkieEc2IjYjIiIiNiNJInRHRiY=</Equation> and <Equation executable="false" style="2D Math" input-equation="x[2](t)">NiMtJkkieEc2IjYjIiIjNiNJInRHRiY=</Equation> are the same as the ones obtained in [7, Example 5.3], by solving the Euler-Lagrange necessary optimality condition) that, substituted in the conservation law,</Text-field>
<Group labelreference="L90" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">expand(subs(%,CL));</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLDQqKEkkX0M2RzYiIiIiJkkiQ0dGJzYjIiIkRihJJF9DNEdGJ0YoRigqJkYmRigmRio2IyIiJkYoRigqKkYsRihJJF9DNUdGJ0YoRilGKEkkX0MyR0YnRihGKComRjNGKCZGKjYjIiInRihGKComJkYqNiNGKEYoSSRfQzNHRidGKEYoKihGKUYoSSRfQzFHRidGKEY8RihGKCooI0YoIiIlRigpRiYiIiNGKCZGKjYjRkFGKCEiIiooRkBGKClGPEZDRihGREYoRkYqKEYzRihGPkYoRkRGKEZGSSZjb25zdEdGJw==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">conduces to a true proposition (constant equal constant). Finally, substituting only the Pontryagin multipliers,</Text-field>
<Group labelreference="L91" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs({psi[1](t)=K[6], psi[3](t)=0, psi[4](t)=-K[5]*t+K[3], psi[2](t)=K[5]}, CL);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCoqJiwmKiYmSSJDRzYiNiMiIiQiIiItJkkieEdGKjYjRi02I0kidEdGKkYtRi0mRik2IyIiJkYtRi0mSSJLR0YqNiMiIidGLUYtKiYsKComRjNGLSZGKUYxRi1GLSooRixGLUYoRi0tJkYwNiMiIiNGMkYtRi0mRilGOUYtRi0mRjhGNUYtRi0qJiwmRj5GLSomRihGLS1JJWRpZmZHJSpwcm90ZWN0ZWRHNiRGQEYzRi1GLUYtLCYqJkZFRi1GM0YtISIiJkY4RitGLUYtRi0qJiwsKiQpLUZKNiRGLkYzRkNGLUZPKiQpLUZKNiRGQC1JIiRHRks2JEYzRkNGQ0YtRk8qJkY3Ri1GVUYtRi0qJkZFRi1GSUYtRi0qJkZNRi1GWUYtRi1GLSwmKihGQ0YtRjNGLUYoRi1GLSZGKTYjIiIlRi1GLUZPSSZjb25zdEdGKg==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">the conservation law takes the form of a differential equation of less order than the one obtained in [7, Example 5.3] (the Hamiltonian approach is here more suitable than the Lagrangian one).</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 15</Font><Font encoding="UTF-8"> (Emden-Fowler) (0\342\200\23101\342\200\235) Given the variational problem of Emden-Fowler </Font>[3, p. 220], defined by the Lagrangian</Text-field>
<Group labelreference="L92" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:= t^2/2*(v^2-x^6/3);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiLCQqKCMiIiIiIiNGKSlJInRHRiVGKkYpLCYqJClJInZHRiVGKkYpRikqJiNGKSIiJEYpKUkieEdGJSIiJ0YpISIiRilGKQ==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">we are interested to find, following our methodology, the conservation laws for the problem.</Text-field>
<Group labelreference="L93" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, v, t, x, v);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ji9JIlhHNiIqJiZJIkNHRiY2IyIiIkYrSSJ4R0YmRisvSSJVR0YmLCQqKCIiJEYrSSJ2R0YmRitGKEYrRisvSSRQc2lHSShfc3lzbGliR0YmLCQqJkkkcHNpR0YmRitGKEYrISIiL0kiVEdGJiwkKigiIiNGK0kidEdGJkYrRihGK0Y5</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L94" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L,v,t,x,v,%):</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=subs(psi[0]=-1,%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSNDTEc2Ii8sJiooJkkiQ0dGJTYjIiIiRiwtSSJ4R0YlNiNJInRHRiVGLC1JJHBzaUdGJUYvRixGLCoqIiIjRiwsJiooI0YsRjRGLClGMEY0RiwsJiokKS1JInZHRiVGL0Y0RixGLComI0YsIiIkRiwpRi0iIidGLCEiIkYsRkMqJkYxRixGPEYsRixGLEYwRixGKUYsRixJJmNvbnN0R0Yl</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The expression for the <Equation executable="false" style="2D Math" input-equation="psi(t)">NiMtSSRwc2lHNiI2I0kidEdGJQ==</Equation> comes from the stationary condition.</Text-field>
<Group labelreference="L95" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">H:=-L+psi(t)*v;</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJIRzYiLCYqKCMiIiIiIiNGKSlJInRHRiVGKkYpLCYqJClJInZHRiVGKkYpRikqJiNGKSIiJEYpKUkieEdGJSIiJ0YpISIiRilGNyomLUkkcHNpR0YlNiNGLEYpRjBGKUYp</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L96" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">solve(diff(H,v)=0,{psi(t)});</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Iy8tSSRwc2lHNiI2I0kidEdGJyomKUYpIiIjIiIiSSJ2R0YnRi0=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L97" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(%,v(t)=diff(x(t),t),v=diff(x(t),t),CL): expand(%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCgqKiZJIkNHNiI2IyIiIkYqLUkieEdGKDYjSSJ0R0YoRiopRi4iIiNGKi1JJWRpZmZHJSpwcm90ZWN0ZWRHNiRGK0YuRipGKiooKUYuIiIkRipGJkYqKUYxRjBGKkYqKiojRipGN0YqRjZGKkYmRiopRisiIidGKkYqSSZjb25zdEdGKA==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">Fixing C1 = 3,</Text-field>
<Group labelreference="L98" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[1]=3,%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCgqKiIiJCIiIi1JInhHNiI2I0kidEdGKkYnKUYsIiIjRictSSVkaWZmRyUqcHJvdGVjdGVkRzYkRihGLEYnRicqKEYmRicpRixGJkYnKUYvRi5GJ0YnKiZGNEYnKUYoIiInRidGJ0kmY29uc3RHRio=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">we obtain the same conservation law as the one obtained in [7, Example 5.4], with the methods of the calculus of variations.</Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 16</Font><Font encoding="UTF-8"> (Thomas-Fermi) (0\342\200\23101\342\200\235) We consider the problem of Thomas-Fermi [3, </Font>p. 220], showing an example of a problem of the calculus of variations which does not admit variational symmetries.</Text-field>
<Group labelreference="L99" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=1/2*v^2+2/5*x^(5/2)/sqrt(t);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiLCYqJiMiIiIiIiNGKSlJInZHRiVGKkYpRikqKCNGKiIiJkYpKUkieEdGJSNGL0YqRikpSSJ0R0YlRighIiJGKQ==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L100" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Symmetry(L, v, t, x, v);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ji9JIlRHNiIiIiEvSSJYR0YmRicvSSJVR0YmRicvSSRQc2lHSShfc3lzbGliR0YmRic=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">Our Maple function Symmetry returns, in this case, vanishing generators. As explained <Font encoding="UTF-8">in \302\2473, this means that the problem does not admit symmetries.</Font></Text-field>
<Text-field style="Text" layout="Normal"></Text-field>
<Text-field style="Text" layout="Normal"><Font bold="true">Example 17</Font><Font encoding="UTF-8"> (Damped Harmonic Oscillator) (0\342\200\23102\342\200\235) We consider a harmonic oscillator with restoring force \342\210\222kx, emersed in a liquid in such a way that the motion of the mass m is damped by a force proportional to its velocity. Using Newton\342\200\231s second law one </Font>obtains, as the equation of motion, the Euler-Lagrange differential equation associated with <Font encoding="UTF-8">the following Lagrangian [11, pp. 432\342\200\223434]:</Font></Text-field>
<Group labelreference="L101" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">L:=1/2*(m*v^2-k*x^2)*exp((a/m)*t);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJMRzYiLCQqKCMiIiIiIiNGKSwmKiZJIm1HRiVGKSlJInZHRiVGKkYpRikqJkkia0dGJUYpKUkieEdGJUYqRikhIiJGKS1JJGV4cEc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkdGJTYjKihJImFHRiVGKUYtRjRJInRHRiVGKUYpRik=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">In order to find the conservation laws, we first obtain, as usual, the generators which define the symmetries of the problem.</Text-field>
<Group labelreference="L102" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">simplify(Symmetry(L,v,t,x,v));</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Ji9JIlVHNiIqJiZJIkNHRiY2IyIiIyIiIkkidkdGJkYsL0kiWEdGJiomRihGLEkieEdGJkYsL0kkUHNpR0koX3N5c2xpYkdGJiwkKiZJJHBzaUdGJkYsRihGLCEiIi9JIlRHRiYsJCoqRitGLEkibUdGJkYsRihGLEkiYUdGJkY4Rjg=</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L103" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">Noether(L,v,t,x,v,%):</Text-field>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">CL:=subs(psi[0]=-1,%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSNDTEc2Ii8sJiooJkkiQ0dGJTYjIiIjIiIiLUkieEdGJTYjSSJ0R0YlRi0tSSRwc2lHRiVGMEYtRi0qLEYsRi0sJiooI0YtRixGLSwmKiZJIm1HRiVGLSktSSJ2R0YlRjBGLEYtRi0qJkkia0dGJUYtKUYuRixGLSEiIkYtLUkkZXhwRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliR0YlNiMqKEkiYUdGJUYtRjpGQUYxRi1GLUZBKiZGMkYtRjxGLUYtRi1GOkYtRilGLUZJRkFGLUkmY29uc3RHRiU=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">The value for  (t) is easily determined, and we can write the obtained family of conservation laws in the language of the calculus of variations.</Text-field>
<Group labelreference="L104" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">H:=-L+psi(t)*v;</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM+SSJIRzYiLCYqKCMiIiIiIiNGKSwmKiZJIm1HRiVGKSlJInZHRiVGKkYpRikqJkkia0dGJUYpKUkieEdGJUYqRikhIiJGKS1JJGV4cEc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkdGJTYjKihJImFHRiVGKUYtRjRJInRHRiVGKUYpRjQqJi1JJHBzaUdGJTYjRj1GKUYvRilGKQ==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L105" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">solve(diff(H,v)=0,{psi(t)});</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiM8Iy8tSSRwc2lHNiI2I0kidEdGJyooSSJtR0YnIiIiSSJ2R0YnRiwtSSRleHBHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHRic2IyooSSJhR0YnRixGKyEiIkYpRixGLA==</Equation></Text-field>
</Output>
</Group>
<Group labelreference="L106" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">simplify(subs(%,v(t)=diff(x(t),t),v=diff(x(t),t),CL));</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvKiwmSSJDRzYiNiMiIiMiIiJJIm1HRidGKi1JJGV4cEc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkdGJzYjKihJImFHRidGKkYrISIiSSJ0R0YnRipGKiwoKigtSSJ4R0YnNiNGNUYqLUklZGlmZkdGLzYkRjhGNUYqRjNGKkYqKiZGK0YqKUY7RilGKkYqKiZJImtHRidGKilGOEYpRipGKkYqRjNGNEkmY29uc3RHRic=</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">Choosing an appropriate value to the constant <Equation executable="false" style="2D Math" input-equation="C[2]">NiMmSSJDRzYiNiMiIiM=</Equation></Text-field>
<Group labelreference="L107" drawlabel="true">
<Text-field prompt="&gt; " style="Maple Input" layout="Normal">subs(C[2]=-a/(2*m),%);</Text-field>
<Output>
<Text-field style="2D Output" layout="Maple Output" linespacing="0.5"><Equation executable="false" style="2D Output">NiMvLCQqKCMiIiIiIiNGJy1JJGV4cEc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYjKihJImFHRi5GJ0kibUdGLiEiIkkidEdGLkYnRicsKCooLUkieEdGLjYjRjRGJy1JJWRpZmZHRiw2JEY3RjRGJ0YxRidGJyomRjJGJylGOkYoRidGJyomSSJrR0YuRicpRjdGKEYnRidGJ0YzSSZjb25zdEdGLg==</Equation></Text-field>
</Output>
</Group>
<Text-field style="Text" layout="Normal">we obtain the conservation law in [11, Ch. 7, Example 1.10].</Text-field>
</Section>
</Section>
<Section collapsed="true" MultipleChoiceAnswerIndex="-1" MultipleChoiceRandomizeChoices="false" TrueFalseAnswerIndex="-1" EssayAnswerRows="5" EssayAnswerColumns="60"><Title>
<Text-field style="Heading 1" layout="Heading 1">References</Text-field></Title>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[1] D. H. Bailey and J. M. Borwein, Experimental Mathematics: Examples, Methods and Implications, Notices of the American Math. Society, 52 (2005), No. 5, pp. 502\342\200\223514.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[2] B. Bonnard, M. Chyba, and E. Tr\303\251lat, Sub-Riemannian Geometry: One-Parameter Deformation of the Martinet Flat Case, Journal of Dynamical and Control Systems, 4 (1998), No. 1, pp. 59\342\200\22376.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item">[3] B. van Brunt, The Calculus of Variations, Springer-Verlag New York, 2004.</Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[4] D. S. Djukic, Noether\342\200\231s theorem for optimum control systems, Internat. J. Control, 1 (1973), No. 18, pp. 667\342\200\223672.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[5] A. Echeverr\303\255a-Enr\303\255quez, J. Mar\303\255n-Solano, M. C. Mu\303\261oz-Lecanda, and N. Rom\303\241n- Roy, Symmetries and reduction in optimal control theory, Proceedings of the XI Fall Workshop on Geometry and Physics, Publ. R. Soc. Mat. Esp., 6 (2004), pp. 203\342\200\223208.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[6] I. K. Gogodze, Symmetry in Problems of Optimal Control (in Russian), Proc. of extended sessions of seminar of the Vekua Institute of Applied Mathematics, Tbilisi University, Tbilisi, 3 (1998), No. 3, pp. 39 \342\200\223 42.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[7] P. D. F. Gouveia and D. F. M. Torres, Computa\303\247\303\243o Alg\303\251brica no C\303\241lculo das Varia\303\247\303\265es: Determina\303\247\303\243o de Simetrias e Leis de Conserva\303\247\303\243o (in Portuguese), Research report CM04/I-23, Dep. Mathematics, Univ. of Aveiro, September 2004. Presented at XXVII CNMAC (Brazilian Congress of Applied Mathematics and Computation), FAMAT/PUCRS, Porto Alegre, RS, Brasil, September 13-16, 2004. E-Print: arXiv:math.OC/0411211.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[8] J. W. Grizzle and S. I. Marcus, The structure of nonlinear control systems possessing symmetries, IEEE Trans. Automat. Control, 30 (1985), No. 3, pp. 248\342\200\223258.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item">[9] A. Gugushvili, O. Khutsishvili, V. Sesadze, G. Dalakishvili, N. Mchedlishvili, T. Khutsishvili, V. Kekenadze, and D. F. M. Torres, Symmetries and Conservation Laws in Optimal Control Systems, Georgian Technical University, Tbilisi, 2003.</Text-field>
<Text-field style="Bullet Item" layout="Bullet Item">[10] J. D. Logan, Invariant Variational Principles, Academic Press [Harcourt Brace Jovanovich Publishers], 1977.</Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[11] J. D. Logan, Applied Mathematics \342\200\223 A Contemporary Approach, John Wiley &amp; Sons, New York, 1987.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[12] Ph. Martin, R. M. Murray, and P. Rouchon, Flat systems, in Mathematical control theory, Part 1, 2 (Trieste, 2001), ICTP Lect. Notes, VIII, Abdus Salam Int. Cent. Theoret. Phys., Trieste (2002), pp. 705\342\200\223768,</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[13] E. Mart\303\255nez, Reduction in optimal control theory, Rep. Math. Phys. 53 (2004), No. 1, pp. 79\342\200\22390.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[14] E. Noether, Invariante Variationsprobleme, G\303\266tt. Nachr. (1918), pp. 235\342\200\223257.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item">[15] P. J. Olver, Applications of Lie Groups to Differential Equations, Springer-Verlag, 1986.</Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[16] B. Pal\303\241ncz, Z. Beny\303\263, and L. Kov\303\241cs, Control System Professional Suite, Product Review, IEEE Control Systems Magazine 25 (2005), No. 4, pp. 67\342\200\22375.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item">[17] L. S. Pontryagin, V. G. Boltyanskii, R. V. Gamkrelidze, and E. F. Mishchenko, The mathematical theory of optimal processes, Interscience Publishers John Wiley &amp; Sons, Inc. New York-London, 1962.</Text-field>
<Text-field style="Bullet Item" layout="Bullet Item">[18] D. Richards, Advanced Mathematical Methods with Maple, Cambridge University Press, 2002.</Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[19] Yu. L. Sachkov, Symmetries of flat rank two distributions and sub-Riemannian structures, Trans. Amer. Math. Soc. 356 (2004), No. 2, pp. 457\342\200\223494.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[20] W. Sarlet and F. Cantrijn, Generalizations of Noether\342\200\231s theorem in classical mechanics, SIAM Rev., 23 (1981), No. 4, pp. 467\342\200\223494.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item">[21] S. Ya. Serovaiskii, Counterexamples in optimal control theory, Inverse and Ill-posed Problems Series, VSP, Utrecht, 2004.</Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[22] I. A. Taimanov, Integrable geodesic flows of nonholonomic metrics, J. Dynam. Control Systems, 3 (1997), No. 1, pp. 129\342\200\223147.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[23] D. F. M. Torres, On the Noether Theorem for Optimal Control, European Journal of Control, 8 (2002), No. 1, pp. 56\342\200\22363.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[24] D. F. M. Torres, A Remarkable Property of the Dynamic Optimization Extremals, Investiga\303\247\303\243o Operacional, 22 (2002), No. 2, pp. 253\342\200\223263. E-Print: arXiv:math.OC/0212102.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[25] D. F. M. Torres, Conservation Laws in Optimal Control, Dynamics, Bifurcations and Control, F. Colonius, L. Gr\303\274ne, eds., Lecture Notes in Control and Information Sciences 273 (2002), Springer-Verlag, Berlin, Heidelberg, pp. 287\342\200\223296.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[26] D. F. M. Torres, Proper Extensions of Noether\342\200\231s Symmetry Theorem for Nonsmooth Extremals of the Calculus of Variations, Communications on Pure and Applied Analysis, 3 (2004), No. 3, pp. 491\342\200\223500. E-Print: arXiv:math.OC/0302127.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[27] D. F. M. Torres, Quasi-Invariant Optimal Control Problems, Portugali\303\246 Mathematica (N.S.), 61 (2004), No. 1, pp. 97\342\200\223114. E-Print: arXiv:math.OC/0302264.</Font></Text-field>
<Text-field style="Bullet Item" layout="Bullet Item"><Font encoding="UTF-8">[28] D. F. M. Torres, Weak Conservation Laws for Minimizers which are not Pontryagin Extremals, Proc. of the 2005 International Conference \342\200\234Physics and Control\342\200\235 (PhysCon 2005), August 24-26, 2005, Saint Petersburg, Russia. Edited by A.L. Fradkov and A.N. Churilov, 2005 IEEE, pp. 134\342\200\223138. E-Print: arXiv:math.OC/0503415.</Font></Text-field>
</Section>
<Text-field executable="false" family="Times New Roman" opaque="false" foreground="[0,0,0]" superscript="false" placeholder="false" readonly="false" subscript="false" bold="false" italic="false" underline="false" background="[255,255,255]" size="12" linebreak="space" spaceabove="0" rightmargin="0" bullet="none" firstindent="0" linespacing="0.0" pagebreak-before="false" leftmargin="0" alignment="left" initial="0" spacebelow="0"></Text-field>
<Group labelreference="L108" drawlabel="true">
<Input>
<Text-field style="Text" layout="Normal"><Font italic="true">Legal Notice: The copyright for this application is owned by the author(s). Neither Maplesoft nor the author are responsible for any errors contained within and are not liable for any damages resulting from the use of this material. This application is intended for non-commercial, non-profit use only. Contact the author for permission if you wish to use this application in for-profit activities.</Font></Text-field>
</Input>
</Group>
<Text-field executable="false" family="Times New Roman" opaque="false" foreground="[0,0,0]" superscript="false" placeholder="false" readonly="false" subscript="false" bold="false" italic="false" underline="false" background="[255,255,255]" size="12" linebreak="space" spaceabove="0" rightmargin="0" bullet="none" firstindent="0" linespacing="0.0" pagebreak-before="false" leftmargin="0" alignment="left" initial="0" spacebelow="0"></Text-field>
</Worksheet>