' File XVIIITest -- Test the algorithm using a non-coupled example.

' Given this test system:
'  X"{t} = Sin[t]                         We have X{t} = -Sin[t] - - - - - Key display options  to verify.
'  Y"{t} = Cos[t]                        We have Y{t} = -Cos[t]- - - - - Key display options to verify.
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

F{t,x,u,z,w } = u                      ' Set u = X'{t}
G{t,x,u,z,w} = Sin[t]               ' then G{ } = X"{t}

H{t,x,u,z,w} = w                      ' Set w = Y'{t}
R{t,x,u,z,w} = Cos[t]               ' then R{ } = Y"{t}

to = 0 : tf = 6.28  :  xo = 0  :  uo = -1  :  zo = -1  :  wo = 0

IVP[F,G,H,R,{to,tf, xo,uo,zo,wo} { 1, 0.05, 2} ]

