{VERSION 5 0 "IBM INTEL LINUX" "5.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 "" -1 256 "times" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 0 2 2 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 12 0 0 0 0 2 1 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 1 24 0 0 0 0 2 2 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 258 "" 0 "" {TEXT 256 33 "One Dimensional Plot of Solutions" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "restart:\nwit h(plots):\nwith(DEtools):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 109 "Def ine the differential equation using parameters:\nFor a different equat ion, you will have to change the ODE." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "r:= 1; K:= 1;\nODE := [diff(x(t),t) = r*x(t)*(K-x(t)) /K];" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 83 "Next pick the initial con ditions which show the important features of the equation." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "IC:=[[x(0)=2],[x(0)=1],[x(0)=0.1],[ x(0)=0],[x(0)=-0.1]];" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 141 "Plot t \+ versus x. \nNote: for a different ODE, you will probably have to chan ge the range of x displayed. \n(Here the range is from -1 to 2.) " }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "DEplot(ODE, [x(t)], t=0..5 , \nIC,linecolour=BLUE, x=-1..2, stepsize=0.1,\narrows=NONE, method=c lassical[rk4],scene=[t,x]);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 53 "Pl ot the vector field for T' =1 and x' = r x(K-x)/K" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "fieldplot([1,r*x(t)*(K-x(t))/K], T=0..5, \+ x = -1..2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 9 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }