d) x- and y-solution curves for the IVP

> DOMAIN := t = 0 .. 1 ;

[Maple Math]

> IC := [ x(0) = 1, y(0) = 0 ];

[Maple Math]

> P1:= DEplot( MODEL, VAR, DOMAIN, [ IC ],

> scene=[ t, x ], arrows=NONE, linecolor=BLUE ):

> P2:= DEplot( MODEL, VAR, DOMAIN, [ IC ],

> scene=[ t, y ], arrows=NONE, linecolor=GREEN ):

> display( [ P1, P2 ] , title = `x and y solution curves for # 18` );

[Maple Plot]

>