{VERSION 4 0 "IBM INTEL NT" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 4 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Times " 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 2 1 0 1 0 2 2 0 1 } {PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 1 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Cour ier" 1 10 255 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Out put" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE " " -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 35 "Initial Analysis of the Spotted Owl" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 18 "with( laylinalg );" }}{PARA 7 "" 1 "" {TEXT -1 80 " Warning, the protected names norm and trace have been redefined and un protected\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%_playlinalg~(version~1 .0)~--~A~Maple~Package~containing~Commands~and~Data~for~use~withG" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#%]pLinear~Algebra~and~Its~Applications ,~Updated~Second~Edition,~2000,~by~David~C.~LayG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%goCopyright~1999~--~Douglas~B.~Meade~(meade@math.sc.ed u).~All~rights~reserved.G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%!G" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#7fp%'adjdatG%'bgaussG%%c1s1G%%c1s2G%%c 1s3G%%c1s4G%%c1s5G%%c1s6G%%c1s7G%%c1s8G%%c1s9G%(c1supplG%%c2s1G%%c2s2G %%c2s3G%%c2s4G%%c2s5G%%c2s6G%%c2s7G%%c2s8G%%c2s9G%(c2supplG%%c3s1G%%c3 s2G%%c3s3G%(c3supplG%%c4s1G%%c4s2G%%c4s3G%%c4s4G%%c4s5G%%c4s6G%%c4s7G% %c4s8G%%c4s9G%(c4supplG%%c5s1G%%c5s2G%%c5s3G%%c5s4G%%c5s5G%%c5s6G%%c5s 7G%%c5s8G%(c5supplG%%c6s1G%%c6s2G%%c6s3G%%c6s4G%%c6s5G%%c6s6G%%c6s7G%% c6s8G%(c6supplG%%c7s1G%%c7s2G%%c7s3G%%c7s4G%%c7s5G%(c7supplG%(coordatG %(crypdatG%)cxeigdatG%(econdatG%&gaussG%#gsG%&indatG%%initG%'lsqdatG%& ludatG%(markdatG%)nulbasisG%(opendatG%'owldatG%(partdatG%*polyrootsG%% projG%&qrdatG%)qreigdatG%(randintG%)randstocG%(replaceG%(roundatG%'row datG%&scaleG%)schurdatG%)showdataG%)startdatG%%swapG%'visdatG" }}} {SECT 1 {PARA 4 "" 0 "" {TEXT -1 2 "1." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "owldat();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%[oData~f or~Project:~Initial~Analysis~of~the~Spotted~Owl~PopulationG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%gn~and~for~Project:~Using~Eigenvalues~to~St udy~the~Spotted~OwlG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$/%\"AG-%'matri xG6#7%7%\"\"!F*$\"#L!\"#7%$\"#=F-F*F*7%F*$\"#rF-$\"#%*F-/%#x0G-%'vecto rG6#7%\"$+\"F " 0 "" {MPLTEXT 1 0 0 "" }}} {SECT 1 {PARA 5 "" 0 "" {TEXT -1 2 "a." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "x := x0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG%#x0 G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "x := evalm( A &* x ); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG-%'vectorG6#7%$\"%+L!\"#$\"% +=F+$\"&+l\"F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "total := \+ add( x[i], i=1..3 );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&totalG$\"&+ ;#!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 1 {PARA 5 "" 0 "" {TEXT -1 2 "b." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "x := x0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "P := evalm( x ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "for i from 1998 to 2020 do" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " x := evalm( A &* x );" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " P := augment( P, x );" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 7 "end do:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG%#x 0G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "# evalm( P );" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "T := augment( col(P,1..4), c ol(P,14), col(P,24) ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "Y := vect or( 6, [$1997..2000,2010,2020] ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "S := vector( 6, i->add(T[j,i], j=1..3 ) ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "L := vector( 5, [`Year`, `Juvenile`, `Sub-Adult`, `Ad ult`, `Total`] ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "augment( LL, s tackmatrix( Y, T, S ) );" }}{PARA 8 "" 1 "" {TEXT -1 58 "Error, (in au gment) arguments must be matrices or vectors\n" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 1 {PARA 5 "" 0 "" {TEXT -1 2 "c." } }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with( plots ):" }}{PARA 7 " " 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined \n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "yr := vector( [ $ 199 7 .. 2020 ] ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "ptJ := zip( (x,y) ->[x,y], yr, row(P,1) ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "ptS := \+ zip( (x,y)->[x,y], yr, row(P,2) ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "ptA := zip( (x,y)->[x,y], yr, row(P,3) ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "pl otJ := plot( ptJ, color=red ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "p lotS := plot( ptS, color=blue ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "plotA := plot( ptA, color=green ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "display( [ plotJ, plotS, plotA ], title=\"Spotted Owl Populations \+ with t=0.18\" );" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%'CURVESG6%7:7$$\"%(*>\"\"!$\"$+\"F*7$$\"%)*>F*$\"#LF*7$$\"%**>F *$\"3H++++++Xa!#;7$$\"%+?F*$\"3x*********R+a&F77$$\"%,?F*$\"3q*******z 6oM&F77$$\"%-?F*$\"3?+++A0kb_F77$$\"%.?F*$\"3o*****ztZR<&F77$$\"%/?F*$ \"3++++;t+*3&F77$$\"%0?F*$\"3&*******f#=`+&F77$$\"%1?F*$\"3G+++M_?B\\F 77$$\"%2?F*$\"3t*****zrOC%[F77$$\"%3?F*$\"31+++1[)Hw%F77$$\"%4?F*$\"3E +++up$[o%F77$$\"%5?F*$\"3;+++#orzg%F77$$\"%6?F*$\"3p*****H]nB`%F77$$\" %7?F*$\"3w******oP+eWF77$$\"%8?F*$\"3)*******R,'[Q%F77$$\"%9?F*$\"3r** ****)f;HJ%F77$$\"%:?F*$\"3q*****\\X`@C%F77$$\"%;?F*$\"3q******R8bsTF77 $$\"%?F*$\"3s** ***>BA0(RF77$$\"%??F*$\"3t*****>%oP0RF7-%'COLOURG6&%$RGBG$\"*++++\"!\" )$F*F*Fbs-%*THICKNESSG6#\"\"#-F$6%7:F'7$F.$\"#=F*7$F3$\"3]************ Rf!#<7$F9$\"3;++++++,)*F`t7$F>$\"3s++++?2s**F`t7$FC$\"3;******R7EC'*F` t7$FH$\"3S+++SH:g%*F`t7$FM$\"3f+++Gf58$*F`t7$FR$\"3Q+++pJ@g\"*F`t7$FW$ \"3N*****z'Gd4!*F`t7$Ffn$\"3)******4Up<'))F`t7$F[o$\"3Z+++#4'Q;()F`t7$ F`o$\"3o*****4lsLd)F`t7$Feo$\"3;*****Hb1FV)F`t7$Fjo$\"3=*****z-\\VH)F` t7$F_p$\"3[+++0:Ee\")F`t7$Fdp$\"3'******Ry1W-)F`t7$Fip$\"3i*****>D[F*y F`t7$F^q$\"3))*****z()\\Kw(F`t7$Fcq$\"3-+++>i(ej(F`t7$Fhq$\"3F+++7Cf5v F`t7$F]r$\"39+++lTO(Q(F`t7$Fbr$\"3e******fx:msF`t7$Fgr$\"3c*****z,Sp9( F`t-F\\s6&F^sFbsFbsF_sFcs-F$6%7:F'7$F.$\"$l\"F*7$F3$\"3'***********zy; !#:7$F9$\"3#*********fC?;F[y7$F>$\"3#*******R$=Ef\"F[y7$FC$\"3!******4 &H'yc\"F[y7$FH$\"35+++HM7U:F[y7$FM$\"3/+++4Jw;:F[y7$FR$\"37+++u.)=\\\" F[y7$FW$\"3/+++m]Sn9F[y7$Ffn$\"37+++H(GLW\"F[y7$F[o$\"3.+++ovk>9F[y7$F `o$\"3#******\\0bjR\"F[y7$Feo$\"37+++)pWMP\"F[y7$Fjo$\"3!******HB54N\" F[y7$F_p$\"3*)*****p\\X(G8F[y7$Fdp$\"39+++CW%pI\"F[y7$Fip$\"3#******p/ ,bG\"F[y7$F^q$\"3/+++(\\4WE\"F[y7$Fcq$\"3$******4+kOC\"F[y7$Fhq$\"3%** ****>))eKA\"F[y7$F]r$\"3)******\\b)=.7F[y7$Fbr$\"3%******z_ZM=\"F[y7$F gr$\"3++++'RIS;\"F[y-F\\s6&F^sFbsF_sFbsFcs-%+AXESLABELSG6%Q!6\"F`]l-%% FONTG6#%(DEFAULTG-%&TITLEG6#QDSpotted~Owl~Populations~with~t=0.18Fa]lF cs-%%VIEWG6$Fe]lFe]l" 1 2 0 1 10 2 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 2 "2." }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A[2,1] := 0.30:" }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 15 "A = evalm( A );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%\"AG-%'matrixG6#7%7%\"\"!F*$\"#L!\"#7%$\"#IF-F*F*7%F* $\"#rF-$\"#%*F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {SECT 1 {PARA 5 "" 0 "" {TEXT -1 2 "a." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "x := x0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "x := ev alm( A &* x );" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "total := add( x[i ], i=1..3 );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG%#x0G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG-%'vectorG6#7%$\"%+L!\"#$\"%+IF+$\"&+l \"F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&totalG$\"&+G#!\"#" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 1 {PARA 5 "" 0 " " {TEXT -1 2 "b." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "x := x0; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "P := evalm( x ):" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 26 "for i from 1998 to 2020 do" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 23 " x := evalm( A &* x );" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " P := augment( P, x );" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "end do:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG%#x0G " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "# evalm( P );" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "T := augment( col(P,1..4), c ol(P,14), col(P,24) ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "Y := vect or( 6, [$1997..2000,2010,2020] ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "S := vector( 6, i->add(T[j,i], j=1..3 ) ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "L := vector( 5, [`Year`, `Juvenile`, `Sub-Adult`, `Ad ult`, `Total`] ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "augment( L, st ackmatrix( Y, T, S ) );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6 #7'7)%%YearG\"%(*>\"%)*>\"%**>\"%+?\"%5?\"%??7)%)JuvenileG\"$+\"$\"%+L !\"#$\"'+Xa!\"%$\")+?@e!\"'$\"+rDb&='!\")$\"+De!yw'F=7)%*Sub-AdultGF1$ \"%+IF4$\"&+!**F7$\")+]L;F:$\"+:n/R=F=$\"+)ee@,#F=7)%&AdultGF1$\"&+l\" F4$\"(+Sw\"F7$\"*+]%G " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 1 {PARA 5 "" 0 "" {TEXT -1 2 "c. " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with( plots ):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "yr := vector( [ $ 1997 .. 20 20 ] ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "ptJ := zip( (x,y)->[x,y] , yr, row(P,1) ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "ptS := zip( (x ,y)->[x,y], yr, row(P,2) ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "ptA \+ := zip( (x,y)->[x,y], yr, row(P,3) ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "plotJ : = plot( ptJ, color=red ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "plotS \+ := plot( ptS, color=blue ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "plot A := plot( ptA, color=green ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "d isplay( [ plotJ, plotS, plotA ], title=\"Spotted Owl Populations with \+ t=0.30\" );" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)- %'CURVESG6%7:7$$\"%(*>\"\"!$\"$+\"F*7$$\"%)*>F*$\"#LF*7$$\"%**>F*$\"3H ++++++Xa!#;7$$\"%+?F*$\"3L+++++?@eF77$$\"%,?F*$\"3l********\\)Qq&F77$$ \"%-?F*$\"3/+++]4QWdF77$$\"%.?F*$\"3H+++T-*)3eF77$$\"%/?F*$\"3'******> !HGheF77$$\"%0?F*$\"3=+++k%yL\"fF77$$\"%1?F*$\"3C+++^E)o'fF77$$\"%2?F* $\"3q******p#f3-'F77$$\"%3?F*$\"3E+++$3f_2'F77$$\"%4?F*$\"3K+++=d:IhF7 7$$\"%5?F*$\"3?+++rDb&='F77$$\"%6?F*$\"3++++x$\\9C'F77$$\"%7?F*$\"3+++ +g5&yH'F77$$\"%8?F*$\"3++++([iZN'F77$$\"%9?F*$\"3Z+++:#)=7kF77$$\"%:?F *$\"3c*****f(G8qkF77$$\"%;?F*$\"3&******p:,'GlF77$$\"%?F*$\"3[*****HH&>2nF77$$\"%??F*$ \"3m+++De!yw'F7-%'COLOURG6&%$RGBG$\"*++++\"!\")$F*F*Fbs-%*THICKNESSG6# \"\"#-F$6%7:F'7$F.$\"#IF*7$F3$\"3M+++++++**!#<7$F9$\"34+++++]L;F77$F>$ \"3'**********fju\"F77$FC$\"3!********\\l6r\"F77$FH$\"3-+++&G9Ls\"F77$ FM$\"31+++sqmUF77$F^q$\"35+++kklB>F77$Fcq$\"3'**** **H')R5%>F77$Fhq$\"3%)*****pM!ee>F77$F]r$\"3))******Q$zi(>F77$Fbr$\"3# ******4FQT*>F77$Fgr$\"39+++)ee@,#F7-F\\s6&F^sFbsFbsF_sFcs-F$6%7:F'7$F. $\"$l\"F*7$F3$\"31++++++k$\"3$***** ***\\@2u\"F[y7$FC$\"3))******p(p-w\"F[y7$FH$\"3-+++Mj9wz\"F[y7$FR$\"3))*****zDY\"3=F[y7$FW$\"3'*******3G]C=F[y7$Ffn$\"3$ ******4g()4%=F[y7$F[o$\"3'******\\%Hid=F[y7$F`o$\"31+++q)4W(=F[y7$Feo$ \"3))*****fH[8*=F[y7$Fjo$\"34+++:(R%3>F[y7$F_p$\"32+++-coD>F[y7$Fdp$\" 3*******zL(3V>F[y7$Fip$\"35+++Ejkg>F[y7$F^q$\"3!******p)ROy>F[y7$Fcq$ \"3%******pvTi*>F[y7$Fhq$\"3(******>3\"G9?F[y7$F]r$\"3'******>U$[K?F[y 7$Fbr$\"3-+++]-&30#F[y7$Fgr$\"3-+++_IQp?F[y-F\\s6&F^sFbsF_sFbsFcs-%+AX ESLABELSG6%Q!6\"F`]l-%%FONTG6#%(DEFAULTG-%&TITLEG6#QDSpotted~Owl~Popul ations~with~t=0.30Fa]lFcs-%%VIEWG6$Fe]lFe]l" 1 2 0 1 10 2 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{SECT 1 {PARA 4 "" 0 " " {TEXT -1 2 "3." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "PP := NU LL:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "for t from 0.18 to 0.30 by 0 .02 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " A[2,1] := t:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 " A = evalm( A );" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 " x := x0:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " P \+ := evalm( x ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 " for i from 1998 to 2020 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " x := evalm( A &* x );" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " P := augment( P, x ); " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 " end do:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 " yr := vector( [ $ 1997 .. 2020 ] ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 " ptJ := \+ zip( (x,y)->[x,y], yr, row(P,1) ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 " ptS := zip( (x,y)->[x,y], yr, row(P,2) ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 " ptA := zip( (x,y)->[x,y], yr, row(P,3) ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 " p lotJ := plot( ptJ, color=red ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 " plotS := plot( ptS, color=blue ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 " plotA := plot( ptA, color=green ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 104 " PP := PP, display( [ plotJ, plotS, plotA ], title= sprintf(\"Spotted Owl Populations with t=%4.2f\",t) );" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 7 "end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "display( [PP], insequence=true );" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6$-%(ANIMATEG6)7(-%'CURVESG6%7:7$$ \"%(*>\"\"!$\"$+\"F.7$$\"%)*>F.$\"#LF.7$$\"%**>F.$\"3H++++++Xa!#;7$$\" %+?F.$\"3x*********R+a&F;7$$\"%,?F.$\"3q*******z6oM&F;7$$\"%-?F.$\"3?+ ++A0kb_F;7$$\"%.?F.$\"3o*****ztZR<&F;7$$\"%/?F.$\"3++++;t+*3&F;7$$\"%0 ?F.$\"3&*******f#=`+&F;7$$\"%1?F.$\"3G+++M_?B\\F;7$$\"%2?F.$\"3t*****z rOC%[F;7$$\"%3?F.$\"31+++1[)Hw%F;7$$\"%4?F.$\"3E+++up$[o%F;7$$\"%5?F.$ \"3;+++#orzg%F;7$$\"%6?F.$\"3p*****H]nB`%F;7$$\"%7?F.$\"3w******oP+eWF ;7$$\"%8?F.$\"3)*******R,'[Q%F;7$$\"%9?F.$\"3r******)f;HJ%F;7$$\"%:?F. $\"3q*****\\X`@C%F;7$$\"%;?F.$\"3q******R8bsTF;7$$\"%?F.$\"3s*****>BA0(RF;7$$\"%??F.$ \"3t*****>%oP0RF;-%'COLOURG6&%$RGBG$\"*++++\"!\")$F.F.Ffs-%*THICKNESSG 6#\"\"#-F(6%7:F+7$F2$\"#=F.7$F7$\"3]************Rf!#<7$F=$\"3;++++++,) *Fdt7$FB$\"3s++++?2s**Fdt7$FG$\"3;******R7EC'*Fdt7$FL$\"3S+++SH:g%*Fdt 7$FQ$\"3f+++Gf58$*Fdt7$FV$\"3Q+++pJ@g\"*Fdt7$Fen$\"3N*****z'Gd4!*Fdt7$ Fjn$\"3)******4Up<'))Fdt7$F_o$\"3Z+++#4'Q;()Fdt7$Fdo$\"3o*****4lsLd)Fd t7$Fio$\"3;*****Hb1FV)Fdt7$F^p$\"3=*****z-\\VH)Fdt7$Fcp$\"3[+++0:Ee\") Fdt7$Fhp$\"3'******Ry1W-)Fdt7$F]q$\"3i*****>D[F*yFdt7$Fbq$\"3))*****z( )\\Kw(Fdt7$Fgq$\"3-+++>i(ej(Fdt7$F\\r$\"3F+++7Cf5vFdt7$Far$\"39+++lTO( Q(Fdt7$Ffr$\"3e******fx:msFdt7$F[s$\"3c*****z,Sp9(Fdt-F`s6&FbsFfsFfsFc sFgs-F(6%7:F+7$F2$\"$l\"F.7$F7$\"3'***********zy;!#:7$F=$\"3#********* fC?;F_y7$FB$\"3#*******R$=Ef\"F_y7$FG$\"3!******4&H'yc\"F_y7$FL$\"35++ +HM7U:F_y7$FQ$\"3/+++4Jw;:F_y7$FV$\"37+++u.)=\\\"F_y7$Fen$\"3/+++m]Sn9 F_y7$Fjn$\"37+++H(GLW\"F_y7$F_o$\"3.+++ovk>9F_y7$Fdo$\"3#******\\0bjR \"F_y7$Fio$\"37+++)pWMP\"F_y7$F^p$\"3!******HB54N\"F_y7$Fcp$\"3*)***** p\\X(G8F_y7$Fhp$\"39+++CW%pI\"F_y7$F]q$\"3#******p/,bG\"F_y7$Fbq$\"3/+ ++(\\4WE\"F_y7$Fgq$\"3$******4+kOC\"F_y7$F\\r$\"3%******>))eKA\"F_y7$F ar$\"3)******\\b)=.7F_y7$Ffr$\"3%******z_ZM=\"F_y7$F[s$\"3++++'RIS;\"F _y-F`s6&FbsFfsFcsFfsFgs-%+AXESLABELSG6%Q!6\"Fd]l-%%FONTG6#%(DEFAULTG-% &TITLEG6#QDSpotted~Owl~Populations~with~t=~.18Fe]l-%%VIEWG6$Fi]lFi]l7( -F(6%7:F+F1F67$F=$\"3)************oe&F;7$FB$\"3/++++SK1aF;7$FG$\"3=+++ gs4P`F;7$FL$\"3')*****zbt'y_F;7$FQ$\"3m*****z[$H:_F;7$FV$\"33+++cAZ_^F ;7$Fen$\"35+++kDo!4&F;7$Fjn$\"3/+++k-jH]F;7$F_o$\"3/+++)H(Hp\\F;7$Fdo$ \"3*******H%))o4\\F;7$Fio$\"31+++()fz][F;7$F^p$\"3m*******\\4Ez%F;7$Fc p$\"3B+++\\47NZF;7$Fhp$\"31+++#*>KyYF;7$F]q$\"39+++aV?AYF;7$Fbq$\"3s** ****e)fnc%F;7$Fgq$\"3r*****pV!)>^%F;7$F\\r$\"3')*****p5eyX%F;7$Far$\"3 <+++')\\Q/WF;7$Ffr$\"3m*******G`:N%F;7$F[s$\"3E+++A`N*H%F;F_sFgs-F(6%7 :F+7$F2$\"#?F.7$F7$\"3k*************f'Fdt7$F=$\"31++++++*3\"F;7$FB$\"3 ++++++Q<6F;7$FG$\"3%********zk73\"F;7$FL$\"3/+++_%>u1\"F;7$FQ$\"3%**** **>rMd0\"F;7$FV$\"3$******zpeI/\"F;7$Fen$\"3/+++^W\\I5F;7$Fjn$\"3(**** **H^O\"=5F;7$F_o$\"3&******H0Ef+\"F;7$Fdo$\"3s*****ff%fQ**Fdt7$Fio$\"3 F*****fox$>)*Fdt7$F^p$\"3S*****R(>f,(*Fdt7$Fcp$\"3Q++++!>_e*Fdt7$Fhp$ \"3Q*****z*=Cq%*Fdt7$F]q$\"3u*****R)Rkc$*Fdt7$Fbq$\"3#******zq3WC*Fdt7 $Fgq$\"3^+++=(>N8*Fdt7$F\\r$\"38+++u3'R-*Fdt7$Far$\"3p*****R@;d\"*)Fdt 7$Ffr$\"3M+++s*p(3))Fdt7$F[s$\"3/+++!e1Jq)FdtFdxFgs-F(6%7:F+Fix7$F7$\" 35++++++$p\"F_y7$F=$\"3.+++++GQ;F_y7$FB$\"3.++++AI<;F_y7$FG$\"3++++[!) f*f\"F_y7$FL$\"3'******f'>R!e\"F_y7$FQ$\"37+++H_Nh:F_y7$FV$\"3))****** z5jU:F_y7$Fen$\"36+++$QIT_\"F_y7$Fjn$\"3&******fmZe]\"F_y7$F_o$\"3/+++ )\\%y([\"F_y7$Fdo$\"3))*****z^_'=8F_y7$Ffr$\"37+++Y\\$GI\"F_y7$F[s$ \"3')*****f62sG\"F_yF_]lFgsFa]l-F[^l6#QDSpotted~Owl~Populations~with~t =~.20Fe]lF^^l7(-F(6%7:F+F1F67$F=$\"3>+++++wLcF;7$FB$\"3o*******>OeY&F; 7$FG$\"3:+++)*Rb=aF;7$FL$\"3/+++\\&QQQ&F;7$FQ$\"3=+++E-bU`F;7$FV$\"3.+ ++&*>I,`F;7$Fen$\"3s*****p@R2E&F;7$Fjn$\"3'*******e>[?_F;7$F_o$\"3#)** ***H&R^!=&F;7$Fdo$\"3()******zJ&39&F;7$Fio$\"3-+++^p\\,^F;7$F^p$\"35++ +1>Wi]F;7$Fcp$\"34+++7eoB]F;7$Fhp$\"3o*****RUE_)\\F;7$F]q$\"3/+++s91Z \\F;7$Fbq$\"3.+++#p)=4\\F;7$Fgq$\"3!)*****H&egr[F;7$F\\r$\"3:+++K2JM[F ;7$Far$\"3)******f7,tz%F;7$Ffr$\"3))*****>&[dgZF;7$F[s$\"3o*****RuHTs% F;F_sFgs-F(6%7:F+7$F2$\"#AF.7$F7$\"3!)************fsFdt7$F=$\"3#****** ******y>\"F;7$FB$\"34++++sUR7F;7$FG$\"3(******R'R[-7F;7$FL$\"3#******* z=3#>\"F;7$FQ$\"31+++\"[WW=\"F;7$FV$\"31+++]5Ov6F;7$Fen$\"3%*******QkG m6F;7$Fjn$\"3#******ziit:\"F;7$F_o$\"3)******4.1&[6F;7$Fdo$\"3++++qIrR 6F;7$Fio$\"3-++++x)48\"F;7$F^p$\"34+++H$HB7\"F;7$Fcp$\"32+++>st86F;7$F hp$\"3,+++z3@06F;7$F]q$\"3#******H\")\\n4\"F;7$Fbq$\"31+++CNN)3\"F;7$F gq$\"33+++7:-!3\"F;7$F\\r$\"3/+++)G`<2\"F;7$Far$\"3)******4O[N1\"F;7$F fr$\"33+++[iSb5F;7$F[s$\"33+++nkKZ5F;FdxFgs-F(6%7:F+Fix7$F7$\"3******* *****>2k\"F_y7$FG$\"3&*** ***pAm9j\"F_y7$FL$\"3))*****Rha*=;F_y7$FQ$\"3*)******\\^X1;F_y7$FV$\"3 '*******)RjTf\"F_y7$Fen$\"35+++IU'>e\"F_y7$Fjn$\"3%******Hr_)p:F_y7$F_ o$\"3++++(HMyb\"F_y7$Fdo$\"31+++n\"3fa\"F_y7$Fio$\"3++++0L2M:F_y7$F^p$ \"3)******R.HB_\"F_y7$Fcp$\"3)******Rnu1^\"F_y7$Fhp$\"3#******p`4\"*\\ \"F_y7$F]q$\"3#******p$Hj([\"F_y7$Fbq$\"3)******z>WiZ\"F_y7$Fgq$\"33++ +YE%\\Y\"F_y7$F\\r$\"3-+++9ws`9F_y7$Far$\"3()******R%)fU9F_y7$Ffr$\"3$ ******zYa:V\"F_y7$F[s$\"34+++W]f?9F_yF_]lFgsFa]l-F[^l6#QDSpotted~Owl~P opulations~with~t=~.22Fe]lF^^l7(-F(6%7:F+F1F67$F=$\"3q*********>1o&F;7 $FB$\"3.++++%[`_&F;7$FG$\"37+++O2,+bF;7$FL$\"3-+++jwmR&F;7$Fdo$\"39+++PfSy`F;7$Fio$\"39+++%\\)>g`F;7$ F^p$\"3l*****p]_?M&F;7$Fcp$\"3,+++!)y'RK&F;7$Fhp$\"34+++)[WfI&F;7$F]q$ \"3))*****f6#)zG&F;7$Fbq$\"3o*****Hb!3q_F;7$Fgq$\"35+++#fRAD&F;7$F\\r$ \"3o*****f-fWB&F;7$Far$\"3z*****plQn@&F;7$Ffr$\"3-+++u#y!*>&F;7$F[s$\" 3E+++ywZ\"=&F;F_sFgs-F(6%7:F+7$F2$\"#CF.7$F7$\"3$*************>zFdt7$F =$\"3'***********z18F;7$FB$\"3)********z[LO\"F;7$FG$\"3-+++;O3E8F;7$FL $\"3*******pd-+K\"F;7$FQ$\"3,+++_iY<8F;7$FV$\"3++++6m)HJ\"F;7$Fen$\"3* *******)zL%38F;7$Fjn$\"3)******R`6SI\"F;7$F_o$\"3'******Rq-'*H\"F;7$Fd o$\"3-+++#R-_H\"F;7$Fio$\"3++++Du\"3H\"F;7$F^p$\"3-+++RwW'G\"F;7$Fcp$ \"3++++-E4#G\"F;7$Fhp$\"3-+++\"H_xF\"F;7$F]q$\"3'******pnEMF\"F;7$Fbq$ \"3++++3d6p7F;7$Fgq$\"3)******HL>[E\"F;7$F\\r$\"3/+++-v`g7F;7$Far$\"3- +++m,Fc7F;7$Ffr$\"3%******zF*pmm\"F_y7$FG$\"3))*******[nMm\"F_y7$FL$\"35+++y8\"yl\"F_y7$FQ$ \"37+++yG1_;F_y7$FV$\"3-+++4#zkk\"F_y7$Fen$\"3,+++0D\"4k\"F_y7$Fjn$\"3 !******\\bc`j\"F_y7$F_o$\"3)******4)*>)H;F_y7$Fdo$\"3))*****Rd-Vi\"F_y 7$Fio$\"30+++!z.)=;F_y7$F^p$\"3%********fBLh\"F_y7$Fcp$\"36+++m>'yg\"F _y7$Fhp$\"3')*****H#)=Cg\"F_y7$F]q$\"3')*****p5%*pf\"F_y7$Fbq$\"3!**** **\\v(e\"f\"F_y7$Fgq$\"3%******\\q*>'e\"F_y7$F\\r$\"3!******f*)H3e\"F_ y7$Far$\"39+++l#yad\"F_y7$Ffr$\"3)******4vW,d\"F_y7$F[s$\"3'******HHH[ c\"F_yF_]lFgsFa]l-F[^l6#QDSpotted~Owl~Populations~with~t=~.24Fe]lF^^l7 (-F(6%7:F+F1F67$F=$\"3\"**********zus&F;7$FB$\"3o*******fg[e&F;7$FG$\" 35+++uuY\"e&F;7$FL$\"3q*****>0'[&f&F;7$FQ$\"3w*****zUv**f&F;7$FV$\"3y* *****R())Rg&F;7$Fen$\"3:+++Q_h3cF;7$Fjn$\"3%)*****HiPKh&F;7$F_o$\"3>++ +^r#yh&F;7$Fdo$\"3q*****R9BCi&F;7$Fio$\"3I+++k\\-FcF;7$F^p$\"3%******* e-jJcF;7$Fcp$\"3(******p@Rij&F;7$Fhp$\"3-+++r>&3k&F;7$F]q$\"3G+++1&oak &F;7$Fbq$\"3C+++;))3]cF;7$Fgq$\"3;+++/HracF;7$F\\r$\"3I+++#yS$fcF;7$Fa r$\"3?+++WC(Rm&F;7$Ffr$\"3y*****z*ygocF;7$F[s$\"3-+++ZrCtcF;F_sFgs-F(6 %7:F+7$F2$\"#EF.7$F7$\"33++++++!e)Fdt7$F=$\"3++++++q:9F;7$FB$\"31++++[ 9*[\"F;7$FG$\"33+++cP1_9F;7$FL$\"3/+++V:=^9F;7$FQ$\"3'******RPE[X\"F;7 $FV$\"33+++6O*fX\"F;7$Fen$\"3)******>2PqX\"F;7$Fjn$\"3/+++i*R#e9F;7$F_ o$\"3/+++#yT%f9F;7$Fdo$\"3++++f]jg9F;7$Fio$\"3'******p,I=Y\"F;7$F^p$\" 3%******4\\EIY\"F;7$Fcp$\"3%******p'QAk9F;7$Fhp$\"3#******f>AaY\"F;7$F ]q$\"3/+++7:im9F;7$Fbq$\"3/+++7=#yY\"F;7$Fgq$\"3%******>4B!p9F;7$F\\r$ \"3++++b`Aq9F;7$Far$\"3/+++.'G9Z\"F;7$Ffr$\"3%******\\$Gjs9F;7$F[s$\"3 1+++`!QQZ\"F;FdxFgs-F(6%7:F+Fix7$F7$\"3-+++++gN3\\$4.[2r\"F_y7$F]q$\"3))*****f7[@r\" F_y7$Fbq$\"33+++l$\\Nr\"F_y7$Fgq$\"31+++_<&\\r\"F_y7$F\\r$\"3')*****fG bjr\"F_y7$Far$\"3'*******o*fxr\"F_y7$Ffr$\"3)******>!e;>q&F;7$FQ$\"3*)******yQ9IdF;7$FV$\"3/+++Ed %yv&F;7$Fen$\"3;+++GpW'y&F;7$Fjn$\"3'*******p/=:eF;7$F_o$\"3%******HN2 S%eF;7$Fdo$\"3?+++w4)H(eF;7$Fio$\"3/+++>75-fF;7$F^p$\"3n*****\\Sl8$fF; 7$Fcp$\"3;+++EXxgfF;7$Fhp$\"33+++,&H.*fF;7$F]q$\"3?+++E5.?gF;7$Fbq$\"3 )******f\")z)\\gF;7$Fgq$\"3w*****\\gw)zgF;7$F\\r$\"3r*****\\7A+6'F;7$F ar$\"3')*****\\6<.9'F;7$Ffr$\"3E+++9BwqhF;7$F[s$\"3=+++p%e8?'F;F_sFgs- F(6%7:F+7$F2$\"#GF.7$F7$\"3A++++++S#*Fdt7$F=$\"30+++++gC:F;7$FB$\"3#** ******>:oh\"F;7$FG$\"3)******RQC/e\"F;7$FL$\"3++++z(=ce\"F;7$FQ$\"3'** ****p>^lf\"F;7$FV$\"3<+++'GSWg\"F;7$Fen$\"3:+++.o>7;F;7$Fjn$\"3&)***** *R^??;F;7$F_o$\"3&)*****>`]#G;F;7$Fdo$\"35+++f?KO;F;7$Fio$\"3&******Hn MWk\"F;7$F^p$\"3))*****4M)e_;F;7$Fcp$\"3++++8Byg;F;7$Fhp$\"3')*****p'o ,p;F;7$F]q$\"37+++gAHx;F;7$Fbq$\"3')*****po3co\"F;7$Fgq$\"3-+++[j'Rp\" F;7$F\\r$\"3%)******[aO-13r\"F;7$Ffr$\"30+++#z)G >z=F_y7$F[s$\"3))*****z1<&))=F_yF_]lFgsFa] l-F[^l6#QDSpotted~Owl~Populations~with~t=~.28Fe]lF^^l7(-F(6%7:F+F1F67$ F=$\"3L+++++?@eF;7$FB$\"3l********\\)Qq&F;7$FG$\"3/+++]4QWdF;7$FL$\"3H +++T-*)3eF;7$FQ$\"3'******>!HGheF;7$FV$\"3=+++k%yL\"fF;7$Fen$\"3C+++^E )o'fF;7$Fjn$\"3q******p#f3-'F;7$F_o$\"3E+++$3f_2'F;7$Fdo$\"3K+++=d:IhF ;7$Fio$\"3?+++rDb&='F;7$F^p$\"3++++x$\\9C'F;7$Fcp$\"3++++g5&yH'F;7$Fhp $\"3++++([iZN'F;7$F]q$\"3Z+++:#)=7kF;7$Fbq$\"3c*****f(G8qkF;7$Fgq$\"3& ******p:,'GlF;7$F\\r$\"3=+++)z(f(e'F;7$Far$\"31+++rv7ZmF;7$Ffr$\"3[*** **HH&>2nF;7$F[s$\"3m+++De!yw'F;F_sFgs-F(6%7:F+7$F2$\"#IF.7$F7$\"3M++++ +++**Fdt7$F=$\"34+++++]L;F;7$FB$\"3'**********fju\"F;7$FG$\"3!******** \\l6r\"F;7$FL$\"3-+++&G9Ls\"F;7$FQ$\"31+++sqmUF;7 $Fbq$\"35+++kklB>F;7$Fgq$\"3'******H')R5%>F;7$F\\r$\"3%)*****pM!ee>F;7 $Far$\"3))******Q$zi(>F;7$Ffr$\"3#******4FQT*>F;7$F[s$\"39+++)ee@,#F;F dxFgs-F(6%7:F+Fix7$F7$\"31++++++kz\"F_y7$FV$\"3))*****zDY\"3=F_y7$Fen$\"3'*******3G]C=F_y 7$Fjn$\"3$******4g()4%=F_y7$F_o$\"3'******\\%Hid=F_y7$Fdo$\"31+++q)4W( =F_y7$Fio$\"3))*****fH[8*=F_y7$F^p$\"34+++:(R%3>F_y7$Fcp$\"32+++-coD>F _y7$Fhp$\"3*******zL(3V>F_y7$F]q$\"35+++Ejkg>F_y7$Fbq$\"3!******p)ROy> F_y7$Fgq$\"3%******pvTi*>F_y7$F\\r$\"3(******>3\"G9?F_y7$Far$\"3'***** *>U$[K?F_y7$Ffr$\"3-+++]-&30#F_y7$F[s$\"3-+++_IQp?F_yF_]lFgsFa]l-F[^l6 #QDSpotted~Owl~Populations~with~t=~.30Fe]lF^^lFgs" 1 2 0 1 10 2 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" }}} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} }}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 3 4 1802 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }