Graphical Representation

> yr := vector( [ $1997 .. 2020 ] ):

> ptJ := zip( (x,y) -> [x,y], yr, row(P,1) ):

> ptS := zip( (x,y) -> [x,y], yr, row(P,2) ):

> ptA := zip( (x,y) -> [x,y], yr, row(P,3) ):

>

> plotJ := plot( ptJ, color=red ):

> plotS := plot( ptS, color=blue ):

> plotA := plot( ptA, color=green ):

> display( [ plotJ, plotS, plotA ], title="Spotted Owl Populations with t=0.18" );

>