) Lindstedt('diff(x,t,2)+x-(e*x^3)/6,e,2,[1,0]);
          2
         e  (cos(5 T) - 24 cos(3 T) + 23 cos(T))
(%o3) [[[---------------------------------------
                          36864
   e (cos(3 T) - cos(T))
 - --------------------- + cos(T)],
            192
          2
       7 e    e
T = (- ---- - -- + 1) t]]
       3072   16
</pre>
<p>Antes de hacer uso de esta función ejecútense  <code>load(&quot;makeOrders&quot;)</code> y <code>load(&quot;lindstedt&quot;)</code>.
</p></dd></dl>


<hr size="6