Phase Portrait

> IC := [ x(0) = 10, y(0) = 7, z(0)=7 ] ;

> PHASEplot := DEplot3d( MODEL, VAR, DOMAIN, [ IC ], WINDOW,

> arrows=NONE, stepsize=0.01,

> scene=[ x, y, z ], linecolor=BLUE,

> title = `Phase Portrait for Lorenz System` ):

> PHASEplot;

>