{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 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 
"" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 1 14 0 0 0 0 
0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 
0 }{CSTYLE "" -1 261 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 
262 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 1 14 0 0 0 
0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 264 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 
0 0 }{CSTYLE "" -1 265 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" 
-1 266 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 267 "" 1 14 0 
0 0 0 0 1 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Tim
es" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }
{PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 
2 2 2 1 1 1 }1 1 0 0 0 0 1 0 1 0 1 2 0 1 }{PSTYLE "Normal" -1 257 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 1 1 1 }1 1 0 0 0 0 
1 0 1 0 2 2 0 1 }{PSTYLE "Heading 2" -1 258 1 {CSTYLE "" -1 -1 "Times
" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 }3 1 0 0 8 2 1 0 1 0 2 2 0 1 }
{PSTYLE "Normal" -1 259 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 
2 2 2 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "" 256 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 257 "" 0 "" {TEXT -1 12 "Elli
ot Tanis" }}{PARA 257 "" 0 "" {TEXT -1 17 "September 4, 2000" }}{PARA 
257 "" 0 "" {TEXT -1 26 "Figure 1.3-2  (F1_3-2.mws)" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 35 "read `a:chap01.txt`;\nMM := EX1_3_3;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "nops(MM);" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 41 "freq := ClassFreq(MM, 337.5 .. 547.5, 7);" 
}}}{EXCHG {PARA 0 "" 0 "" {TEXT 256 53 "We find the mean and the varia
nce of the class marks:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "
Digits := 10:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "num := sum
(freq[i]*(322.5 + 30*i), i = 1 .. 7);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "ubar := num/70;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 101 "numvar := sum(freq[i]*(322.5 + 30*i)^2 , i = 1 .. 7)
 -(sum(freq[i]*(322.5 + 30*i), i = 1 .. 7))^2/70;" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 13 "varu := %/69;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "su := sqrt(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 123 "xbar := evalf(Mean(MM));\ns := evalf(StDev(MM));\nm := Median
(MM);\nq[1] := Percentile(MM,0.25);\nq[3] := Percentile(MM, 0.75);" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "IQR := q[3] - q[1]; " }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "IQR/1.349;" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 28 "h := evalf(s*3.49/70^(1/3));" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Min(MM),Max(MM);" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 23 "r := Max(MM) - Min(MM);" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 4 "r/h;" }}}{EXCHG {PARA 256 "> " 0 "" 
{MPLTEXT 1 0 99 "P1 := PlotEmpPDF(MM, 337.5 .. 547.5, 7):\nP2 := Histo
gram(MM, 337.5 .. 547.5, 7):\ndisplay(\{P1, P2\});" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 27 "read `a:HistogramFill.txt`;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "CMP := [seq(352.5 + j*30, j = -1 ..
 7)];\nCM := [seq(352.5 + j*30, j = 0 .. 6)];" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 58 "freq := ClassFreq(MM, 337.5 .. 547.5, 7);\nh := \+
freq/70/30;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "pnts := [[CM
P[1], 0], seq([CMP[j], h[j-1]], j = 2 .. 8), [CMP[9],0]];" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 276 "P1 := HistogramFill(MM, 337.5 .. 5
47.5, 7):\nP2 := plot(pnts, x = 310 .. 570, xtickmarks=CM, color=black
, thickness=2):\ntxt1 := textplot([570,0.00032, `x`], font=[TIMES, BOL
D, 12]):\ntxt2 := textplot([325,0.0082, `h(x)`], font=[TIMES, BOLD, 12
]):\ndisplay(\{P1, P2, txt1, txt2\}); " }}}{EXCHG {PARA 258 "" 0 "" 
{TEXT -1 46 "Figure 1.3-2: Distances of McGwire's Home Runs" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "StemLeaf(MM);" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 257 0 "" }{TEXT 258 0 "" }{TEXT 
259 79 "Table 1.4-6: Ordered stem-and-leaf display of distances of McG
wire's home runs " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "nops(MM
);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 152 "freq := ClassFreq(MM
, 339.5 .. 559.5, 11);\nh := freq/70/20;\nCM := [seq(349.5 + 20*i, i =
 0 .. 10)];\nCMP := [seq(349.5 + 20*i, i = -1 .. 11)];\nCW := 20;\n" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "pnts := [[CMP[1], 0], seq(
[CMP[j], h[j-1]], j = 2 .. 12), [CMP[13],0]];" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 290 "P1 := plot(pnts,x = 310 .. 585, xtickmarks=CM, \+
color=black, thickness=2, labels=[``,``]):\nP2 := HistogramFill(MM, 33
9.5 .. 559.5, 11):\ntxt1 := textplot([578,0.00032, `x`], font=[TIMES, \+
BOLD, 12]):\ntxt2 := textplot([323,0.010, `h(x)`], font=[TIMES, BOLD, \+
12]):\ndisplay(\{P1, P2, txt1, txt2\});" }}}{EXCHG {PARA 259 "" 0 "" 
{TEXT -1 0 "" }{TEXT 260 0 "" }{TEXT 261 70 "Figure 1.4-3 Histogram an
d polygon of distances of McGwire's home runs" }}}{EXCHG {PARA 256 "" 
0 "" {TEXT 262 84 "The following data set gives the lengths of the hom
e runs hit by Sammy Sosa in 1998." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 272 "SS := [371,350,430,420,430,434,370,420,440,410,420,4
60,400,430,410,370,370,410,380,340,410,420,410,415,430,380,380,366,500
,380,390,400,364,432,428,440,365,420,347,438,390,375,374,400,361,480,3
60,368,430,440,380,438,414,482,364,363,374,417,464,430,480,480,434,344
,410,462]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 147 "nops(SS);\nx
bar := evalf(Mean(SS));\ns := evalf(StDev(SS));\nm := Median(SS);\nq[1
] := evalf(Percentile(SS,0.25));\nq[3] := evalf(Percentile(SS, 0.75));
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 223 "freq := ClassFreq(SS, \+
339.5 .. 559.5, 11);\nh := freq/66/20;\nCM := [seq(349.5 + 20*i, i = 0
 .. 10)];\nCMP := [seq(349.5 + 20*i, i = -1 .. 11)];\nCW := 20;\npnts \+
:= [[CMP[1], 0], seq([CMP[j], h[j-1]], j = 2 .. 12), [CMP[13],0]];" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 289 "P1 := plot(pnts,x = 320 ..
 570, xtickmarks=CM, color=black, thickness=2, labels=[``,``]):\nP2 :=
 HistogramFill(SS, 339.5 .. 559.5, 11):\ntxt1 := textplot([565,0.0006,
 `x`], font=[TIMES, BOLD, 12]):\ntxt2 := textplot([333,0.014, `h(x)`],
 font=[TIMES, BOLD, 12]):\ndisplay(\{P1, P2, txt1, txt2\});" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 263 0 "" }{TEXT 264 88 "Th
is histogram for Sosa's home runs uses the same grouping as Figure 1.4
-3 for McGwire's" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "StemLea
f(SS);" }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 18 "BoxWhisker(SS,M
M);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "read `a:BoxPlot.txt`
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 172 "bp := BoxPlot(SS,MM):
\ntxtss := textplot([330, 0.6, `ss`], font=[TIMES, BOLD, 12]):\ntxtmm \+
:= textplot([330, 1.6, `mm`], font=[TIMES, BOLD, 12]):\ndisplay(\{bp, \+
txtss, txtmm\});" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 265 51 "The followin
g data set combines the above two sets." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 558 "Comb := [364,368,364,419,424,347,462,419,437,419,371
,362,358,527,381, 545,478,440,471,451,425,366,477,397,433,388,423,409,
356,409,438,437,\n449,433,461,431,472,485,405,415,511,425,458,452,408,
374,464,398,409, 369, 385,477,393,509,501,450,472,497,458,381,430,341,
385,417,423,375,403,435,377,370,371,350,430,420,430,434,370,420,440,41
0,420,460,400,430,410,370,370,410,380,340,410,420,410,415,430,380,380,
366,500,380,390,400,364,432,428,440,365,420,347,438,390,375,374,400,36
1,480,360,368,430,440,380,438,414,482,364,363,374,417,464,430,480,480,
434,344,410,462]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 160 "nops(
Comb);\nxbar := evalf(Mean(Comb));\ns := evalf(StDev(Comb));\nMin(Comb
), evalf(Percentile(Comb,0.25)), Median(Comb), evalf(Percentile(Comb, \+
0.75)), Max(Comb);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 226 "freq
 := ClassFreq(Comb, 339.5 .. 559.5, 11);\nh := freq/136/20;\nCM := [se
q(349.5 + 20*i, i = 0 .. 10)];\nCMP := [seq(349.5 + 20*i, i = -1 .. 11
)];\nCW := 20;\npnts := [[CMP[1], 0], seq([CMP[j], h[j-1]], j = 2 .. 1
2), [CMP[13],0]];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 278 "P1 :=
 plot(pnts, x = 320 .. 585, xtickmarks=CM, color=black, thickness=2):
\nP2 := HistogramFill(Comb, 339.5 .. 559.5, 11):\ntxt1 := textplot([57
8,0.00035, `x`], font=[TIMES, BOLD, 12]):\ntxt2 := textplot([334,0.011
5, `h(x)`], font=[TIMES, BOLD, 12]):\ndisplay(\{P1, P2, txt1, txt2\});
" }}}{EXCHG {PARA 260 "" 0 "" {TEXT -1 0 "" }{TEXT 266 0 "" }{TEXT 
267 27 "Combined home run distances" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "StemLeaf(Comb,2,20);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 8 }{VIEWOPTS 1 1 0 1 1 1803 }