{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 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 1 }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 1 }1 0 0 
0 6 6 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 1 }0 0 0 -1 4 4 0 0 0 0 0 0 -1 0 }}
{SECT 0 {PARA 0 "" 0 "" {TEXT -1 31 "This is all the Maple syntax in" 
}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 "" {TEXT -1 23 "Chapter
 2, Sections 2.7" }}{PARA 4 "" 0 "" {TEXT -1 75 "An Introduction to th
e Mathematics of Biology, with Computer Algebra Models" }}{PARA 4 "" 
0 "" {TEXT -1 34 "by Yeargers, Shonkwiler, & Herod. " }}{PARA 0 "" 0 "
" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 40 "The Syntax has been rev
ised for Maple 6." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 11 "Section 2.7" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 7 "Page 66" }
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "with(stats): with(plots): w
ith(describe):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "roll:=[se
q(n,n=2..12)];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "prob:=[1/
36,2/36,3/36,4/36,5/36,6/36,5/36,4/36,3/36,2/36,1/36];" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "wtroll:=[seq(Weight(roll[i]-1/2..ro
ll[i]+1/2,prob[i]),i=1..11)];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 29 "statplots[histogram](wtroll);" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" 
}}{PARA 0 "" 0 "" {TEXT -1 7 "Page 67" }}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 68 "Sum('roll[i]*prob[i]','i'=1..11) = sum('roll[i]*prob[
i]','i'=1..11);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "Sum('(ro
ll[i]-7)^2*prob[i]','i'=1..11) = \n\011\011sum('(roll[i]-7)^2*prob[i]'
,'i'=1..11);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "mean(wtroll
); variance(wtroll);" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 
"" {TEXT -1 12 "Page 68 & 69" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
15 "with(combinat):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "perm
ute([1,3,4]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "numbperm(3
);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "numbcomb(6,3);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "binomial(6,3);" }}}{PARA 0 "
" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 7 "Page 71" }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "n:=60;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 56 "flip:=[seq(binomial(n,i)*(1/2)^i*(1-1/2)^(n-i),i=0..n
)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "wtflip:=[seq(Weight(
i-1..i,flip[i]),i=1..n+1)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
90 "with(describe): mu:=evalf(mean(wtflip)); sigma:=evalf(standarddevi
ation(wtflip));\nsigma^2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
52 "G:=x->exp(-(x-mu)^2/(2*sigma^2))/(sigma*sqrt(2*Pi));" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "J:=plot(G(x),x=0..n):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "K:=statplots[histogram](wtflip):" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "plots[display](\{J,K\});" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 12 "Exercise 2.7" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 11 "Exercise \+
1." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "with(combinat):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "permute([a,b,c,d,e,f],3);\nn
ops(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "numbperm(6,3);" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "6!/3!;" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 33 "choose([a,b,c,d,e,f],3);\nnops(%);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "numbcomb(6,3);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "6!/(3!*(6-3)!);" }}}{PARA 0 "" 0 "
" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 11 "Exercise 2." }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "with(combinat):" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 30 "numbcomb(5,3); \nnumbcomb(5,2);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "numbperm(5,3);" }}}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 11 "Exercise 3." }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(stats); with(describe):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "die:=rand(1..6):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "for i from 1 to 6 do\n     counts[i
]:=0:\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from 1 \+
to 300 do\n\011n:=die():\n\011counts[n]:= counts[n] + 1:\n\011od:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "for i from 1 to 6 do\n     p
rint(counts[i]);\nod;" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 
0 "" {TEXT -1 11 "Exercise 4." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 28 "with(stats): with(describe):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 34 "red:=rand(1..6):\nblue:=rand(1..6):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 41 "for i from 2 to 12 do\n\011counts[i]:=0:
\n\011od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "for i from 1 t
o 360 do\n\011n:=red()+blue():\n\011counts[n]:=counts[n] + 1;\n\011od:
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "for i from 2 to 12 do\n
\011print(counts[i]);\n\011od;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 54 "throws:=[seq(Weight(i-1/2..i+1/2,counts[i]),i=2..12)];" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 166 "theory:= [Weight(2,10), Wei
ght(3,20),Weight(4,30),Weight(5,40),\n\011\011\011Weight(6,50),Weight(
7,60),Weight(8,50),Weight(9,40),\n\011\011\011Weight(10,30),Weight(11,
20),Weight(12,10)];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "mu:=
mean(theory); sigma:=standarddeviation(theory);" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 56 "y:=x->360*exp(-(x-mu)^2/(2*sigma^2))/(sigma*sq
rt(2*Pi));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "J:=statplots[
histogram](throws):\nK:=plot([x,y(x),x=0..14]):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 22 "plots[display](\{J,K\});" }}}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 10 "Exercise 5" }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 116 "binomial(2,0)*1/4*1/4; binomial(2,
1)*3/4*1/4; binomial(2,2)*3/4*3/4;\n\011sum(binomial(2,j)*(3/4)^j*(1/4
)^(2-j),j=0..2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "binomia
l(5,2)*(3/4)^2*(1/4)^3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "
sum(binomial(5,j)*(3/4)^j*(1/4)^(5-j),j=2..5);" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 
1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }