{VERSION 6 0 "IBM INTEL NT" "6.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 "Times" 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 "" {MPLTEXT 1 0 32 "restart;with(stats):
with(plots):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "Times:=[0,5,10,15,2
0,25];Area:=[1290,9080,26960,58840,79770,113320];" }{TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "Data:=[[0,1290],[5,9080],[10
,26960],[15,58840],[20,79770],[25,113320]]:" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 71 "eq_fit:= fit[leastsquare[[x,y], y=A*x^2+B*x+C, \{A
,B,C\}]]([Times,Area]);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "fsolve(rhs(eq_fit)=0,x);" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "dataplot:=p
lot(Data,style=POINT,color=BLUE):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 36 "curve:=plot(rhs(eq_fit),x=-25..25): " }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "display(\{curve,dataplot\});" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "aD:=evalf((705/7)/(2*Pi));" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 148 "evalf(sqrt(1290*2/Pi)); \+
evalf(sqrt(9080*2/Pi)); evalf(sqrt(26960*2/Pi)); evalf(sqrt(58840*2/Pi
)); evalf(sqrt(79770*2/Pi)); evalf(sqrt(113320*2/Pi));" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "Times:=[0,5,10,15,20,25];Radius:=[2
8.66,76.03,131.01,193.54,225.35,268.59];" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 77 "Data1:=[[0,28.66],[5,76.03],[10,131.01],[15,193.54],[
20,225.35],[25,268.59]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 
"eq_fit1:= fit[leastsquare[[x,y], y=a*x+b, \{a,b\}]]([Times,Radius]);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "dataplot1:=plot(Data1,s
tyle=POINT,color=BLUE):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "
curve1:=plot(rhs(eq_fit1),x=-5..25): " }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 28 "display(\{curve1,dataplot1\});" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 25 "fsolve(rhs(eq_fit1)=0,x);" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 16 "aD1:=9.7722^2/4;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "19" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 
1 1 }