{VERSION 6 0 "IBM INTEL NT" "6.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 "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 Output" -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 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "Competition Model" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "eqn1 := x = 1.2*x - 0.001*x^2 - 0.002*x*y;\neqn2 := y = 1.25*y - 0.0015*y^2 - 0.0022*x*y;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%eqn1G/ %\"xG,(*&$\"#7!\"\"\"\"\"F&F,F,*&$F,!\"$F,)F&\"\"#F,F+*($F1F/F,F&F,%\" yGF,F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%eqn2G/%\"yG,(*&$\"$D\"!\" #\"\"\"F&F,F,*&$\"#:!\"%F,)F&\"\"#F,!\"\"*($\"#AF0F,%\"xGF,F&F,F3" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "solve(\{eqn1,eqn2\},\{x,y\}) ;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6&<$/%\"xG$\"\"!F'/%\"yGF&<$F(/F%$ \"$+#F'<$F$/F)$\"+nmmm;!\"(<$/F%$\"+C " 0 "" {MPLTEXT 1 0 13 "with(linalg ):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 38 "This enters the linear alge bra package" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "A := vector( [1.2*x - 0.001*x^2 - 0.002*x*y,\n1.25*y - 0.0015*y^2 - 0.0022*x*y]); \+ " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AGK%'vectorG6#7$,(*&$\"#7!\"\" \"\"\"%\"xGF.F.*&$F.!\"$F.)F/\"\"#F.F-*($F4F2F.F/F.%\"yGF.F-,(*&$\"$D \"!\"#F.F7F.F.*&$\"#:!\"%F.)F7F4F.F-*($\"#AF@F.F/F.F7F.F-Q(pprint06\" " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "J := jacobian(A, [x,y]) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"JGK%'matrixG6#7$7$,($\"#7!\" \"\"\"\"*&$\"\"#!\"$F.%\"xGF.F-*&$F1F2F.%\"yGF.F-,$*&$F1F2F.F3F.F-7$,$ *&$\"#A!\"%F.F6F.F-,($\"$D\"!\"#F.*&$\"#IF?F.F6F.F-*&$F>F?F.F3F.F-Q(pp rint36\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "x:=0;y:=0;\nJ0: =J(0,0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG\"\"!" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"yG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %#J0GK%'matrixG6#7$7$$\"#7!\"\"$\"\"!F.7$F-$\"$D\"!\"#Q(pprint66\"" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%\"JG6$\"\"\"F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "9 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }