{VERSION 5 0 "IBM INTEL NT" "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 }{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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "restart;with(stats):
with(plots):" }}{PARA 0 "" 0 "" {TEXT -1 38 "Data fitting for the Musk
rat dispersal" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "Times:=[0,4,6,10,1
5,22];Area:=[0,5400,14000,37700,79300,201600];" }{TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "Data:=[[0,0],[4,5400],[6,140
00],[10,37700],[15,79300],[22,201600]]:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 61 "eq_fit:= fit[leastsquare[[x,y], y=a*x^2, \{a\}]]([Tim
es,Area]);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
44 "dataplot:=plot(Data,style=POINT,color=BLUE):" }{TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "curve:=plot(rhs(eq_fit),x=0.
.25): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "display(\{curve,d
ataplot\});" }{TEXT -1 0 "" }}}}{MARK "5 0 1" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }