' - - File: XVIIb
'     X''' - X'' + X' - X = 0         Use Model 1 format.

pi = 3.14159: c = 1E-3

F{t,x,y,z} = y
G{t,x,y,z} = z
H{t,x,y,z} = z - y + x

to = 0 : tf = 3.5*pi :  xo = 10 + c : yo =10 + c : zo = c - 10

IVP[F,G,H, {to, tf, xo, yo, zo} { 1.05,  0.05, 1}]

' - - - - - - - - - - - - - - - - - Plot known solution for comparision. - - - - - - - - - - - - - - - - - -
X{t} =10*Cos[t] + 10*Sin[t] + c * Exp[t]
V<t> = <t, X, 0>

tx = 0.10 : ty = 0 : tz = 0         ' We translate the t-axis a small amout to see the match.
U<t> = vTran[V, tx,ty,tz]        ' Otherwise, Plot vector V instead.

'Plot[U, {t, to, tf, 100}]

