Euler integration

RowBox[{RowBox[{eulerIntegrateOne[{tt_, θ_, dθ_}, traj_, dt_, dh_], :=, <br />, &nbs ...   , {tt + dt, θplus, dθplus}}]}], <br />,     , ]}]}], ;}]

RowBox[{eulerIntegrate[{θ_, dθ_}, traj_, dt_, steps_, dh_], :=, <br />,    ... sp;   , Interpolation /@ Transpose[p3]}]}], <br />,     , ]}]}]

Created by Mathematica  (October 21, 2003)