{VERSION 4 0 "APPLE_PPC_MAC" "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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 }{PSTYLE "Warning" -1 7 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 
0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 
0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 
0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple P
lot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 
1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 41 "with(stats):with(statplots): with(plots):" }
}{PARA 7 "" 1 "" {TEXT -1 116 "Warning, these names have been redefine
d: anova, describe, fit, importdata, random, statevalf, statplots, tra
nsform\n" }}{PARA 7 "" 1 "" {TEXT -1 158 "Warning, these names have be
en redefined: boxplot, histogram, scatterplot, xscale, xshift, xyexcha
nge, xzexchange, yscale, yshift, yzexchange, zscale, zshift\n" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 355 "uscensusdata:=[[1790,\0113.
929\n],[1800,\0115.308],\011[1900,\01175.996],\n[1810,\0117.240],\011[
1910,\01191.972],\n[1820,\0119.638],\011[1920,\011105.711],\n[1830,
\01112.866],\011[1930,\011122.775],\n[1840,\01117.069],\011[1940,\0111
31.669],\n[1850,\01123.192],\011[1950,\011150.697],\n[1860,\01131.443]
,\011[1960,\011179.323],\n[1870,\01138.558],\011[1970,\011203.185],\n[
1880,\01150.156],\011[1980,\011226.546],\n[1890,\01162.948],\011[1990,
\011248.710]];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%-uscensusdataG777$
\"%!z\"$\"%HR!\"$7$\"%+=$\"%3`F*7$\"%+>$\"&'*f(F*7$\"%5=$\"%SsF*7$\"%5
>$\"&s>*F*7$\"%?=$\"%Q'*F*7$\"%?>$\"'6d5F*7$\"%I=$\"&mG\"F*7$\"%I>$\"'
vF7F*7$\"%S=$\"&pq\"F*7$\"%S>$\"'p;8F*7$\"%]=$\"&#>BF*7$\"%]>$\"'(p]\"
F*7$\"%g=$\"&V9$F*7$\"%g>$\"'B$z\"F*7$\"%q=$\"&e&QF*7$\"%q>$\"'&=.#F*7
$\"%!)=$\"&c,&F*7$\"%!)>$\"'YlAF*7$\"%!*=$\"&[H'F*7$\"%!*>$\"'5([#F*" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "uscensusyear:=uscensusdat
a[1..21,1];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "uscensuspops:=uscens
usdata[1..21,2];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%-uscensusyearG77
\"%!z\"\"%+=\"%+>\"%5=\"%5>\"%?=\"%?>\"%I=\"%I>\"%S=\"%S>\"%]=\"%]>\"%
g=\"%g>\"%q=\"%q>\"%!)=\"%!)>\"%!*=\"%!*>" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%-uscensuspopsG77$\"%HR!\"$$\"%3`F($\"&'*f(F($\"%SsF($
\"&s>*F($\"%Q'*F($\"'6d5F($\"&mG\"F($\"'vF7F($\"&pq\"F($\"'p;8F($\"&#>
BF($\"'(p]\"F($\"&V9$F($\"'B$z\"F($\"&e&QF($\"'&=.#F($\"&c,&F($\"'YlAF
($\"&[H'F($\"'5([#F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "uscensusplot:=scatterplot(u
scensusyear,uscensuspops, color=blue, symbol=CIRCLE):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "display(uscensusplot);" }}{PARA 13 
"" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6$-%'POINTSG697$\"%!z\"$\"%
HR!\"$7$\"%+=$\"%3`F*7$\"%+>$\"&'*f(F*7$\"%5=$\"%SsF*7$\"%5>$\"&s>*F*7
$\"%?=$\"%Q'*F*7$\"%?>$\"'6d5F*7$\"%I=$\"&mG\"F*7$\"%I>$\"'vF7F*7$\"%S
=$\"&pq\"F*7$\"%S>$\"'p;8F*7$\"%]=$\"&#>BF*7$\"%]>$\"'(p]\"F*7$\"%g=$
\"&V9$F*7$\"%g>$\"'B$z\"F*7$\"%q=$\"&e&QF*7$\"%q>$\"'&=.#F*7$\"%!)=$\"
&c,&F*7$\"%!)>$\"'YlAF*7$\"%!*=$\"&[H'F*7$\"%!*>$\"'5([#F*-%'COLOURG6&
%$RGBG$\"\"!FjpFip$\"*++++\"!\")-%'SYMBOLG6#%'CIRCLEG-%%VIEWG6$;$\"%q<
Fjp$\"%5?Fjp;$!+++\"\\0#F]q$\"++5)=t#!\"(" 1 2 0 1 10 0 2 9 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "for i from 1 to 20 do j[i]:=
 evalf((uscensuspops[i+1]+uscensuspops[i])/2) od:" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 26 "avgy:=[seq(j[i],i=1..20)];" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%%avgyG76$\"+++]=Y!\"*$\"+++?lS!\")$\"+++!=;%F+$\"+
++gg\\F+$\"+++]!3&F+$\"+++XndF+$\"+++&)GfF+$\"+++0#y'F+$\"+++?#*pF+$\"
+++!pV(F+$\"+++0VxF+$\"+++X%p)F+$\"++++2\"*F+$\"+++$Q0\"!\"($\"++]S*3
\"FD$\"++]r37FD$\"++]qm7FD$\"+++^$Q\"FD$\"+++ZZ9FD$\"+++He:FD" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 118 "for i from 1 to 20 do k[i]:= evalf(1/j[i]*(uscensu
spops[i+1]-uscensuspops[i])/(uscensusyear[i+1]-uscensusyear[i])) od:" 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "diffquo:=[seq(k[i],i=1..20)];" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(diffquoG76$\"+1z\"e)H!#6$\"+Pm&)Q<F
($\"+etjN=F($\"+E)*43<F($\"+<Rl+=F($\"+/&zdm\"F($\"+x^)*R<F($\"+'p'e?;
F($\"+JZuz;F($\"+\\Y'4a\"F($\"+W<ic:F($\"+W-^m9F($\"+'et\\X\"F($\"+'Qi
KS\"F($\"+gqpN9F($\"+T,+i8F($\"+F!>BM\"F($\"+4c%\\F\"F($\"+.d\"eD\"F($
\"+k()3#>\"F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "diffquoplot:=scatterplot(avg
y,diffquo, color=blue, symbol=CIRCLE):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "display(diffquoplot);" }}{PARA 13 "" 1 "" {GLPLOT2D 
400 300 300 {PLOTDATA 2 "6$-%'POINTSG687$$\"+++]=Y!\"*$\"+1z\"e)H!#67$
$\"+++?lS!\")$\"+Pm&)Q<F,7$$\"+++!=;%F0$\"+etjN=F,7$$\"+++gg\\F0$\"+E)
*43<F,7$$\"+++]!3&F0$\"+<Rl+=F,7$$\"+++XndF0$\"+/&zdm\"F,7$$\"+++&)GfF
0$\"+x^)*R<F,7$$\"+++0#y'F0$\"+'p'e?;F,7$$\"+++?#*pF0$\"+JZuz;F,7$$\"+
++!pV(F0$\"+\\Y'4a\"F,7$$\"+++0VxF0$\"+W<ic:F,7$$\"+++X%p)F0$\"+W-^m9F
,7$$\"++++2\"*F0$\"+'et\\X\"F,7$$\"+++$Q0\"!\"($\"+'QiKS\"F,7$$\"++]S*
3\"Fgo$\"+gqpN9F,7$$\"++]r37Fgo$\"+T,+i8F,7$$\"++]qm7Fgo$\"+F!>BM\"F,7
$$\"+++^$Q\"Fgo$\"+4c%\\F\"F,7$$\"+++ZZ9Fgo$\"+.d\"eD\"F,7$$\"+++He:Fg
o$\"+k()3#>\"F,-%'COLOURG6&%$RGBG$\"\"!F]rF\\r$\"*++++\"F0-%'SYMBOLG6#
%'CIRCLEG-%%VIEWG6$;$!++]D]5F0$\"++0]4<Fgo;$\"+]er75F,$\"+?3>lJF," 1 
2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 62 "with(stats):\nfroto:=fit[leastsquare[[x,y]]]([avgy,
diffquo]):%;" }}{PARA 7 "" 1 "" {TEXT -1 116 "Warning, these names hav
e been redefined: anova, describe, fit, importdata, random, statevalf,
 statplots, transform\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%\"yG,&$\"
+E+ekA!#6\"\"\"*&$\"+ay_5z!#9F)%\"xGF)!\"\"" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 16 "sam:=rhs(froto);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$samG,&$\"+E+ekA!#6\"\"\"*&
$\"+ay_5z!#9F)%\"xGF)!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
30 "lsqline:=plot(sam,x=0..160):%;" }}{PARA 13 "" 1 "" {GLPLOT2D 400 
300 300 {PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"\"!F)$\"38+++E+ekA!#>7$$\"3^
mmmmYa([$!#<$\"3IkAx1<*pB#F,7$$\"3cLLLL'Q?_'F0$\"3'G:ExD()H@#F,7$$\"3n
mmmmWkM**F0$\"3XYoAW<*f=#F,7$$\"3!pmmm7()pL\"!#;$\"3LR1%pG<)e@F,7$$\"3
JLLL.r()y;F@$\"3\\)Q1^)>xJ@F,7$$\"3ummmwG&e*>F@$\"30BkEGvp1@F,7$$\"3%)
******HH1CBF@$\"3lhyd!QM23#F,7$$\"3%pmmmB)\\jEF@$\"3[%o(4cK)Q0#F,7$$\"
3:+++q\\%=+$F@$\"39_U^V#=r-#F,7$$\"3!RLLL<w)\\LF@$\"3_dRBQre**>F,7$$\"
32nmmYAUcOF@$\"3v!e<dsP`(>F,7$$\"3S+++?0_,SF@$\"3ju=oI'Q![>F,7$$\"3D++
++e.[VF@$\"3T3\"RHWF1#>F,7$$\"39+++![n>o%F@$\"3Ky$zVo6U*=F,7$$\"3'pmmm
V4_)\\F@$\"3'oCK\\kB-(=F,7$$\"3lLLL`MzX`F@$\"3=en&ea*pT=F,7$$\"3)QLLLT
b7l&F@$\"3!ReFC*e`<=F,7$$\"38+++!H!e1gF@$\"3Hwm3>yU*y\"F,7$$\"36LLL8I5
@jF@$\"3gL-X6uak<F,7$$\"31,++!H%=mmF@$\"30y0%4m\\st\"F,7$$\"3k+++qKy%*
pF@$\"3F=(*4ZdD6<F,7$$\"3yMLLL=kPtF@$\"3a5u%\\#Q8%o\"F,7$$\"3hLLLBI\\_
wF@$\"335Q'QVF#f;F,7$$\"3_mmmmD5#*zF@$\"3u%eVj_iBj\"F,7$$\"3\\nmmO9'[M
)F@$\"3#)yZnPuX/;F,7$$\"3C+++q!R>l)F@$\"3nTl&f(f;!e\"F,7$$\"3'zmmmK\"f
$)*)F@$\"3N0X\"=`IRb\"F,7$$\"3:+++g0AE$*F@$\"3ODd(3vEo_\"F,7$$\"3Z+++?
kTh'*F@$\"3Zq\\+*)4J+:F,7$$\"3)3+++lNd)**F@$\"3EU*zfibYZ\"F,7$$\"3++++
'o$eM5!#:$\"3;,.Y>(phW\"F,7$$\"3ALLL\"QSp1\"Fbu$\"3))G0\\lQd?9F,7$$\"3
3+++g!)[,6Fbu$\"3#y:_!G[C$R\"F,7$$\"3fmmm\"R$zK6Fbu$\"3_q$R#e1[o8F,7$$
\"3=+++)Q=q;\"Fbu$\"39#ef&zoST8F,7$$\"3ELLLU9A*>\"Fbu$\"3Q63tjD$fJ\"F,
7$$\"37+++8H)GB\"Fbu$\"3B%G*fjXI*G\"F,7$$\"3ELLL`Jzl7Fbu$\"3n<aJE3Fj7F
,7$$\"3$******\\7Z-I\"Fbu$\"3H3/1;f,O7F,7$$\"3\"ommYRIML\"Fbu$\"3>7>;)
>m(47F,7$$\"3'omm13ltO\"Fbu$\"3uP*z-2AH=\"F,7$$\"3_LLLq(=5S\"Fbu$\"3$R
8I`A+j:\"F,7$$\"3<+++;I%>V\"Fbu$\"3DB\"fY^P=8\"F,7$$\"3cLLL\"p&Qn9Fbu$
\"36iYh([+Q5\"F,7$$\"3%ommE/'3*\\\"Fbu$\"3<qUROQsy5F,7$$\"3/+++H_)G`\"
Fbu$\"3HL5!f*o)>0\"F,7$$\"3<+++j`Bl:Fbu$\"30qAHKiRE5F,7$$\"$g\"F)$\"3%
G++Opb*))**!#?-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q\"x6\"Q
!6\"-%%VIEWG6$;F(Ffz%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 29 "display(diffquoplot,lsqline);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'POINTSG687$$\"+++]=Y!\"*$\"+1z
\"e)H!#67$$\"+++?lS!\")$\"+Pm&)Q<F,7$$\"+++!=;%F0$\"+etjN=F,7$$\"+++gg
\\F0$\"+E)*43<F,7$$\"+++]!3&F0$\"+<Rl+=F,7$$\"+++XndF0$\"+/&zdm\"F,7$$
\"+++&)GfF0$\"+x^)*R<F,7$$\"+++0#y'F0$\"+'p'e?;F,7$$\"+++?#*pF0$\"+JZu
z;F,7$$\"+++!pV(F0$\"+\\Y'4a\"F,7$$\"+++0VxF0$\"+W<ic:F,7$$\"+++X%p)F0
$\"+W-^m9F,7$$\"++++2\"*F0$\"+'et\\X\"F,7$$\"+++$Q0\"!\"($\"+'QiKS\"F,
7$$\"++]S*3\"Fgo$\"+gqpN9F,7$$\"++]r37Fgo$\"+T,+i8F,7$$\"++]qm7Fgo$\"+
F!>BM\"F,7$$\"+++^$Q\"Fgo$\"+4c%\\F\"F,7$$\"+++ZZ9Fgo$\"+.d\"eD\"F,7$$
\"+++He:Fgo$\"+k()3#>\"F,-%'COLOURG6&%$RGBG$\"\"!F]rF\\r$\"*++++\"F0-%
'SYMBOLG6#%'CIRCLEG-%'CURVESG6$7S7$F\\r$\"38+++E+ekA!#>7$$\"3^mmmmYa([
$!#<$\"3IkAx1<*pB#F[s7$$\"3cLLLL'Q?_'F_s$\"3'G:ExD()H@#F[s7$$\"3nmmmmW
kM**F_s$\"3XYoAW<*f=#F[s7$$\"3!pmmm7()pL\"!#;$\"3LR1%pG<)e@F[s7$$\"3JL
LL.r()y;F_t$\"3\\)Q1^)>xJ@F[s7$$\"3ummmwG&e*>F_t$\"30BkEGvp1@F[s7$$\"3
%)******HH1CBF_t$\"3lhyd!QM23#F[s7$$\"3%pmmmB)\\jEF_t$\"3[%o(4cK)Q0#F[
s7$$\"3:+++q\\%=+$F_t$\"39_U^V#=r-#F[s7$$\"3!RLLL<w)\\LF_t$\"3_dRBQre*
*>F[s7$$\"32nmmYAUcOF_t$\"3v!e<dsP`(>F[s7$$\"3S+++?0_,SF_t$\"3ju=oI'Q!
[>F[s7$$\"3D++++e.[VF_t$\"3T3\"RHWF1#>F[s7$$\"39+++![n>o%F_t$\"3Ky$zVo
6U*=F[s7$$\"3'pmmmV4_)\\F_t$\"3'oCK\\kB-(=F[s7$$\"3lLLL`MzX`F_t$\"3=en
&ea*pT=F[s7$$\"3)QLLLTb7l&F_t$\"3!ReFC*e`<=F[s7$$\"38+++!H!e1gF_t$\"3H
wm3>yU*y\"F[s7$$\"36LLL8I5@jF_t$\"3gL-X6uak<F[s7$$\"31,++!H%=mmF_t$\"3
0y0%4m\\st\"F[s7$$\"3k+++qKy%*pF_t$\"3F=(*4ZdD6<F[s7$$\"3yMLLL=kPtF_t$
\"3a5u%\\#Q8%o\"F[s7$$\"3hLLLBI\\_wF_t$\"335Q'QVF#f;F[s7$$\"3_mmmmD5#*
zF_t$\"3u%eVj_iBj\"F[s7$$\"3\\nmmO9'[M)F_t$\"3#)yZnPuX/;F[s7$$\"3C+++q
!R>l)F_t$\"3nTl&f(f;!e\"F[s7$$\"3'zmmmK\"f$)*)F_t$\"3N0X\"=`IRb\"F[s7$
$\"3:+++g0AE$*F_t$\"3ODd(3vEo_\"F[s7$$\"3Z+++?kTh'*F_t$\"3Zq\\+*)4J+:F
[s7$$\"3)3+++lNd)**F_t$\"3EU*zfibYZ\"F[s7$$\"3++++'o$eM5!#:$\"3;,.Y>(p
hW\"F[s7$$\"3ALLL\"QSp1\"Fg\\l$\"3))G0\\lQd?9F[s7$$\"33+++g!)[,6Fg\\l$
\"3#y:_!G[C$R\"F[s7$$\"3fmmm\"R$zK6Fg\\l$\"3_q$R#e1[o8F[s7$$\"3=+++)Q=
q;\"Fg\\l$\"39#ef&zoST8F[s7$$\"3ELLLU9A*>\"Fg\\l$\"3Q63tjD$fJ\"F[s7$$
\"37+++8H)GB\"Fg\\l$\"3B%G*fjXI*G\"F[s7$$\"3ELLL`Jzl7Fg\\l$\"3n<aJE3Fj
7F[s7$$\"3$******\\7Z-I\"Fg\\l$\"3H3/1;f,O7F[s7$$\"3\"ommYRIML\"Fg\\l$
\"3>7>;)>m(47F[s7$$\"3'omm13ltO\"Fg\\l$\"3uP*z-2AH=\"F[s7$$\"3_LLLq(=5
S\"Fg\\l$\"3$R8I`A+j:\"F[s7$$\"3<+++;I%>V\"Fg\\l$\"3DB\"fY^P=8\"F[s7$$
\"3cLLL\"p&Qn9Fg\\l$\"36iYh([+Q5\"F[s7$$\"3%ommE/'3*\\\"Fg\\l$\"3<qURO
Qsy5F[s7$$\"3/+++H_)G`\"Fg\\l$\"3HL5!f*o)>0\"F[s7$$\"3<+++j`Bl:Fg\\l$
\"30qAHKiRE5F[s7$$\"$g\"F]r$\"3%G++Opb*))**!#?-Fiq6&F[r$\"#5!\"\"F\\rF
\\r-%+AXESLABELSG6$Q\"x6\"Q!6\"-%%VIEWG6$;$!++]D]5F0$\"++0]4<Fgo;$\"+]
er75F,$\"+?3>lJF," 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "20 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }