{VERSION 3 0 "IBM INTEL LINUX" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {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 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 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 0 "> " 0 "" {MPLTEXT 1 0 24 "with(plots):s:=.4:q: =35:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "ODE:=(diff(N(t),t)= s*N(t)*(1-N(t)/q)-N(t)^2/(1+N(t)^2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$ODEG/-%%diffG6$-%\"NG6#%\"tGF,,&*&F)\"\"\",&F/F/F)#!\"\"\"#NF/$ \"\"%F2*&*$)F)\"\"#\"\"\"F:,&F/F/*$F8F:F/!\"\"F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "p:=dsolve(\{ODE,N(0)=40\},N(t),type=numeric); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pGR6#%(rkf45_xG6'%\"iG%(rkf45_ sG%)outpointG%#r1G%#r2G6#%aoCopyright~(c)~1993~by~the~University~of~Wa terloo.~All~rights~reserved.G6\"C&>8&-%&evalfG6#9$@$52-%$absG6#,$F3!\" \"-F<6#,&&%,loc_controlG6#\"\"#\"\"\"F3F?4-%'memberG6$&FD6#\"\"'<*F?FG !\"#FF$F?\"\"!$FPFR$FGFR$FFFRC%>FD-%%copyG6#=F06#;FG\"#EE\\[l;\"\"&$FG !\")\"#;FR\"#DFR\"\")\"&++$FNFG\"\"%F[o\"#>FR\"\"($FG!\"*\"#8FR\"#5FR \"#?$\"#SFR\"#%'loc_y0G-FY6#=F06#;FGFGE\\[l\"FGFio>% 'loc_y1G-FY6#=F0F]qE\\[l!@$0F;FRC$>&FD6#FepF3@%1%'DigitsG-%'evalhfG6#F ^rC$>8%-%*traperrorG6#-F`r6#-%=dsolve/numeric_solnall_rkf45G6,%&loc_FG -%$varG6#FD-F_s6#Fip-F_s6#Faq-F_s6#%'loc_F1G-F_s6#%'loc_F2G-F_s6#%'loc _F3G-F_s6#%'loc_F4G-F_s6#%'loc_F5G-F_s6#%)loc_workG@$/Fdr%*lasterrorGC %>8'-%+searchtextG6$.F`r-%(convertG6$-%#opG6$FG7#Fdr%%nameG>8(-F^u6$.% )hardwareGFau@%50F\\uFR0FjuFR-F[s6,F]sFDFipFaqFgsFjsF]tF`tFctFft-%&ERR ORG6#FdrFcv7$/%\"tGF7-%$seqG6$/&%$ordG6#,&8$FGFGFG&Fip6#Fcw/FcwF^qF06% FDFipFaqF0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "odeplot(p,[t, N(t)],0..10);" }}{PARA 13 "" 1 "" {INLPLOT "6#-%'CURVESG6$7T7$\"\"!$\" #SF(7$$\"+Fj\"3/#!#5$\"17>50WKOR!#97$$\"+aEj\"3%F.$\"1w;A)zD)yQF17$$\" +\")*[C7'F.$\"1pk,Q_wEQF17$$\"+3`Ej\")F.$\"1.'HIe8&zPF17$$\"+k\"3/-\"! \"*$\"1I+,E=`OPF17$$\"+(z*[C7FD$\"1#)fz')GOF17$$\"+'pMn$=FD$\"1)R69>))))f$F17$$\" +Hj\"3/#FD$\"1p+hO>RrNF17$$\"+iz*[C#FD$\"1K/:fz*[FD$\" 196\"3%Qx]LF17$$\"+C3/-^FD$\"1swosNOULF17$$\"+dC71`FD$\"1oQ,)\\bXL$F17 $$\"+!4/-^&FD$\"1m8mbQIFLF17$$\"+BdG9dFD$\"1q*4>rm0K$F17$$\"+ctO=fFD$ \"1bEl%f0VJ$F17$$\"+*)*[C7'FD$\"1+$e$o^[3LF17$$\"+A1`EjFD$\"1IY`WH2.LF 17$$\"+bAhIlFD$\"1q7?B!R!)H$F17$$\"+))QpMnFD$\"1Ci_heN$H$F17$$\"+@bxQp FD$\"1\"R?j1)**)G$F17$$\"+ar&G9(FD$\"1l:a2A%\\G$F17$$\"+(yQpM(FD$\"1Bh M]m;\"G$F17$$\"+?/-^vFD$\"1J]b.9lxKF17$$\"+`?5bxFD$\"1w/o#)zPuKF17$$\" +'o$=fzFD$\"1p#)*eGH8F$F17$$\"+>`Ej\")FD$\"14db\"[*[oKF17$$\"+_pMn$)FD $\"1!>!)f!R%eE$F17$$\"+&eG9d)FD$\"11]]q*yLE$F17$$\"+=-^v()FD$\"1E#fn2# 3hKF17$$\"+^=fz*)FD$\"1n8QR:%*eKF17$$\"+%[tO=*FD$\"1>WT:l%pD$F17$$\"+< ^v(Q*FD$\"1'zC(Rp3bKF17$$\"+]n$=f*FD$\"1h='eY`LD$F17$$\"+$Q=fz*FD$\"1L $R=TP