{VERSION 6 0 "SGI MIPS UNIX" "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 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }1 0 0 0 8 4 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 2" 3 4 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 8 2 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 4 "" 0 "" {TEXT -1 18 "Examples of DEplot" }} {PARA 0 "" 0 "" {TEXT -1 85 "Logistic growth with harvesting: y' = a \+ y (Ym-y) - H\nMichael Monagan, November 2005." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "de := diff(y(t),t)=a*y(t)*(Ym-y(t))-H;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "a := 1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "Ym := 4;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "H := 0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " with(DEtools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "DEplot( de, y(t), t=0..4, y= 0..5, [[y(0)=0.01]], arrows=medium );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "iv := [seq( [y(0)=i/2], i=0..10 )];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "DEplot( de, y(t), t=0..4, y=0..5, iv, arr ows=medium, linecolor=blue );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "H := 2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "DEplot( de, y(t), t=0..4, y=0..5, iv, arrows=medium, linecolor=blue );" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "H := 3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "DEplot( de, y(t), t=0..4, y=0..5, iv, arrows= medium, linecolor=blue );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "H := 4;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "DEplot( de, y(t ), t=0..4, y=0..5, iv, arrows=medium, linecolor=blue );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "H := 5;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 70 "DEplot( de, y(t), t=0..4, y=0..5, iv, arrows=medium , linecolor=blue );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "H := \+ 4.2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "DEplot( de, y(t), t =0..6, y=0..5, iv, arrows=medium, linecolor=blue, stepsize=0.1 );" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "21" 0 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }