{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 }{PSTYLE "" 
0 259 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 }{PSTYLE "" 0 260 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 57 "Elliot
 Tanis\nSeptember 4, 2000\nFigures 1.6-1 (F1_6-1.mws)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "read `a:ScatPlotCirc.txt`:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "L1 := [2,1.8,2.3,2.4, 3.1, 3
, 3.15, 3.4, 3.3, 4.1, 4.3, 4.15];" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 44 "L1a := [seq([k, L1[k]], k = 1 .. nops(L1))];" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "TimePlot(L1);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 362 "P1 := plot(L1a, x = 0 .. 13, y = 1
 .. 5, tickmarks=[3,5],color=black, thickness=2, title = `(a)  Sales (
x) vs. Year (t)`, titlefont=[TIMES, BOLD, 12]):\nP2 := ScatPlotCirc(L1
a):\ntxt1 := textplot([13,1.1, `t`],align=\{ABOVE,RIGHT\}, font=[TIMES
, BOLD, 12]):\ntxt2 := textplot([0.4, 5, `x`],align=\{ABOVE,RIGHT\}, f
ont=[TIMES, BOLD, 12]):\ndisplay(\{P1, P2, txt1, txt2\}); " }}}{EXCHG 
{PARA 258 "" 0 "" {TEXT -1 47 "  Figure 1.6-1(a): Sales of a company o
ver time" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 170 "L2 := [0.25, 1
.5, 0.5, 2.5, 0.75, 2.6, 1, 1.8, 1.25, 1.5, 1.5, 1.85, 1.75, 2.8, 2, 2
.55, 2.25, 2.1, 2.5, 2.9, 2.75, 2.85, 3, 2.7, 3.25,2.5, 3.5, 2.8, 3.75
, 3.2, 4, 2.85];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "L2a := \+
[seq([L2[2*k-1], L2[2*k]], k = 1 .. nops(L2)/2)];" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 541 "P1 := plot(L2a, x = 0 .. 4, y = 1 .. 4, lab
els=[``,``], color=black, thickness=2,title = `(b)  Sales (x) vs. Year
 by quarters (t)`, titlefont=[TIMES, BOLD, 12]):\nP2 := ScatPlotCirc(L
2a):\ntxt1 := textplot([4.1,1.08, `t`],align=\{ABOVE,RIGHT\}, font=[TI
MES,BOLD, 12]):\ntxt2 := textplot([0.1, 4, `x`],align=\{ABOVE,RIGHT\},
 font=[TIMES, BOLD, 12]):\ndisplay(\{PLOT(CURVES([[0,4.1],[0,0],[4.0,0
],[0,0]]), AXESTICKS([0.5=`0.5`,1.0=`1.0`,1.5=`1.5`,2.0=`2.0`,2.5=`2.5
`, 3.0=`3.0`, 3.5=`3.5`, 4.0=`4.0`],[1=`1`,2=`2`,3=`3`, 4=`4`])), P1, \+
P2, txt1, txt2\});" }}}{EXCHG {PARA 259 "" 0 "" {TEXT -1 45 "Figure 1.
6-2(b): Sales of a company over time" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 195 "L3 := [1, 1.7, 2, 1.5, 3, 1.8, 4, 1.9, 5, 1.75, 6, 1
.4, 7, 1.6, 8, 1.5, 9, 1.5, 10, 1.55, 11, 3.4, 12, 3.25, 13, 3.55, 14,
 3.4, 15, 3.45]:\nL3a := [seq([L3[2*k-1], L3[2*k]], k = 1 .. nops(L3)/
2)];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 485 "plot(L3a, x = 0 ..
 16, y = 1 .. 4, title = `(c)  Sales (y) vs. Weeks (x)`, titlefont=[TI
MES, BOLD, 12]):\nP1 := plot(L3a, x = 0 .. 16, y = 1 .. 4, tickmarks =
 [3,4],labels=[``,``], color=black, thickness=2,title = `(c)  Sales (x
) vs. Weeks (t)`, titlefont=[TIMES, BOLD, 12]):\nP2 := ScatPlotCirc(L3
a):\ntxt1 := textplot([16,1.08, `t`],align=\{ABOVE,RIGHT\}, font=[TIME
S, BOLD, 12]):\ntxt2 := textplot([0.2, 4, `x`],align=\{ABOVE,RIGHT\}, \+
font=[TIMES, BOLD, 12]):\ndisplay(\{P1, P2, txt1, txt2\});" }}}{EXCHG 
{PARA 260 "" 0 "" {TEXT -1 45 "Figure 1.6-1(c): Sales of a company ove
r 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 }