{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 }
{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 Font 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 30 "Elliot
 Tanis\nSeptember 4, 2000" }}{PARA 0 "" 0 "" {TEXT -1 26 "Figure 1.4-4
  (F1_4-4.mws)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "read `a:c
hap01.txt`:\nX := EX1_4_3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
8 "nops(X);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "q1 := Percen
tile(X, 0.25);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "q3 := eva
lf(Percentile(X, 0.75));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 
"IQR := q3 - q1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "Infence
 := q3 + 1.5*IQR;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "Outfen
ce := q3 + 3*IQR;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "XX :=
    [ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5
, 5, 6, 6, 6, 6, 8, 8, 9,15,17,22,23,24,24,25,27,27,27];" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "L := [[32,1], [43, 1]];" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 259 "P1 := BoxWhisker(XX):\nL1 := [[Inf
ence,0.5], [Infence, 1.5]]:\nL2 := [[Outfence, 0.5], [Outfence, 1.5]]:
\nP2 := plot(L1, linestyle = 3, color=black):\nP3 := plot(L2,x = 0 .. \+
50, y = 0 .. 2, linestyle = 3, color=black):\nP4 := ScatPlot(L):\ndisp
lay(\{P1, P2, P3,P4\});" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 90 "      \+
                Figure 1.4-4:  Box plot with fences for 40 wind relate
d catastrophes" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "read `a:BoxPlot.txt`:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 403 "with(plots):\nL := [[32,.6], [43, .6]]:\nP1 := BoxPl
ot(XX):\nL1 := [[Infence,0.2], [Infence, 1]]:\nL2 := [[Outfence, 0.2],
 [Outfence, 1]]:\nP2 := plot(L1, linestyle = 3, color=black):\nP3 := p
lot(L2,x = 0 .. 50, y = 0 .. 1, linestyle = 3, color=black):\nP4 := Sc
atPlot(L):\nt1 := textplot([32, 0.61, `o`],font=[TIMES,BOLD,12]):\nt2 \+
:= textplot([43, 0.61, `o`],font=[TIMES,BOLD,12]):\ndisplay(\{P1, P2, \+
P3,t1, t2\});" }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 0 "" }{TEXT 256 
66 "Figure 1.4-4 Box plot with fences for 40 wind-related catastrophes
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 8 }
{VIEWOPTS 1 1 0 1 1 1803 }