{VERSION 3 0 "IBM INTEL NT" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 
0 0 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Fo
nt 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 14 0 0 0 0 2 1 2 0 0 0 
0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 
{CSTYLE "" -1 -1 "Courier" 1 14 0 0 0 0 2 2 2 0 0 0 0 0 0 }0 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "" 0 1 0 
0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "restart:\nread `a:st
atvr4.m`;\nwith(plots):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 55 "Elliot
 Tanis\nAugust 31, 2000\nFigure 1.6-4  (F1_6-4.mws)" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 34 "read `a:chap01.txt`;\nX := EX1_6_2;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "TimePlot(X);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "L := [seq([k, X[k]], k = 1 .. 20)];
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "read `a:ScatPlotCirc.tx
t`:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 379 "P1 := plot(L, x = 0
 .. 20, y = 0 .. 20,xtickmarks=[0,2,4,6,8,10,12,14,16,18,20], ytickmar
ks = [0,2,4,6,8,10,12,14,16,18,20],labels=[``,``], color=black, thickn
ess=2):\nP2 := ScatPlotCirc(L):\ntxt1 := textplot([20.5,0.5, `t`], fon
t=[TIMES, BOLD, 12], align=\{ABOVE, RIGHT\}):\ntxt2 := textplot([0.5, \+
20, `x`], font=[TIMES, BOLD, 12], align=\{ABOVE, RIGHT\}):\ndisplay(\{
P1,P2,txt1, txt2\});" }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 39 "Figure \+
1.6-4: Calculus scores over time" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 8 }{VIEWOPTS 1 1 0 1 
1 1803 }