{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 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Ohlfs" 1 14 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 "R3 Fo
nt 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 16 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 "R3 Font 2" -1 257 1 
{CSTYLE "" -1 -1 "Courier" 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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 346 "                        G
enerating Graphs from Data points\nName:\nDate:\n\nMaple will generate
 a graph of data points in the form of a list \ndata := [[x1,y1], [x2,
y2],...]\n\nThe restart command clears all Maple definitions and allow
s\nyou to rerun the worksheet with the variables undefined.\nThe with(
plots) command adds new plotting features and the " }}{PARA 0 "" 0 "" 
{TEXT -1 57 "setoptions command increases the default thickness of the
" }}{PARA 0 "" 0 "" {TEXT -1 19 "lines in the graphs" }}{PARA 0 "" 0 "
" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "restart:\nwith(pl
ots):setoptions(thickness=2):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 184 
"Use the seq command to generate a simple list of data.  Note\nthat if
 a Maple command ends with ; the result of the command\nis printed whi
le if it ends with : the result is not printed." }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 31 "data := [seq([n,n^2],n=0..10)]:" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 64 " Plot the list called data using the plot
 with different options" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "plot(dat
a);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "plot(data,style=POIN
T);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "plot(data,style=POIN
T,symbol=CROSS);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "plot(da
ta,style=POINT,symbol=CROSS,color=green);" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 98 "The solution of the aphid problem was a(n) = (f*r*(1-m))^
n*a(0)\ndefine a function for the solution" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 29 "a := n -> (f*r*(1-m))^n*a(0);" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 56 "assign the population at time 0, i.e. initial condit
ion." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "a(0) := 2;" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 132 "Suppose the fractional mortality is 80%,
 the sex ratio is 50%, and\nthe fecundity is 2.  Graph the population \+
size for 10 generations" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "m := 0.8
; r := 0.5; f:= 2.0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "dat
a2 := [seq([n,a(n)],n=0..10)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 37 "plot(data2,style=POINT,symbol=CROSS);" }}}{EXCHG {PARA 0 "" 0 
"" {TEXT -1 304 "Homework 1:  Experiment with different values of the \+
fecundity\nf to find the value f_critical that leads to a constant pop
ulation\nin time.  After you have found f_critical experimentally, use
 the\nexact solution to verify it.  This is why analytic solutions pro
ve\nuseful.  Show all work on this worksheet." }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "13" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }