{VERSION 4 0 "IBM INTEL NT" "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 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 
-1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "
" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 
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 "T
itle" 0 18 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 1 0 0 0 0 0 0 0 }3 
0 0 -1 12 12 0 0 0 0 0 0 19 0 }{PSTYLE "Author" 0 19 1 {CSTYLE "" -1 
-1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 8 8 0 0 0 0 0 0 -1 0 }
}
{SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 60 "Example 4: Minimum-Length
 Confidence Intervals for Variances" }}{PARA 19 "" 0 "" {TEXT -1 15 "b
y Zavan Karian" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "restart: \+
with(plots, display):  libname:=\"C:/mylib/statistics\",libname: with(
stat):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "n := 7: alpha := \+
0.05:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "UsualL := S^2*(n-1
)*( 1/ChisquareP(n-1,alpha/2) - 1/ChisquareP(n-1,1-alpha/2) );" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'UsualLG,$*$)%\"SG\"\"#\"\"\"$\"++B&
QV%!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "f:=ChisquarePDF(
n-1,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG,$*&)%\"xG\"\"#\"\"\"
-%$expG6#,$F(#!\"\"F)F*#F*\"#;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 30 "eq1 := int(f, x=a..b)=1-alpha;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%$eq1G/,.*&)%\"bG\"\"#\"\"\"-%$expG6#,$F)#!\"\"F*F+#F1\"\")*&#F
+F*F+*&F)F+F,F+F+F1F,F1*(#F+F3F+)%\"aGF*F+-F-6#,$F:F0F+F+*(#F+F*F+F:F+
F;F+F+F;F+$\"#&*!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "eq2
:=a^2*subs(x=a,f)=b^2*subs(x=b,f);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%$eq2G/,$*&)%\"aG\"\"%\"\"\"-%$expG6#,$F)#!\"\"\"\"#F+#F+\"#;,$*&)%\"
bGF*F+-F-6#,$F8F0F+F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "so
lution := fsolve(\{eq1,eq2\},\{a,b\},\{a=0..n-1, b=n-1..infinity\});" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)solutionG<$/%\"bG$\"+jw4uA!\")/%
\"aG$\"+-aHB;!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "assign
(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "MinimumL := S^2*(n-
1)*(1/a-1/b);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)MinimumLG,$*$)%\"S
G\"\"#\"\"\"$\"+=SMKM!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
29 "100*(UsualL-MinimumL)/UsualL;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$
\"+DoxeA!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "n := 7:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "UsualL:=(n-1)*(1/ChisquareP(
n-1,alpha/2)-1/ChisquareP(n-1,1-alpha/2));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%'UsualLG$\"++B&QV%!\"*" }}}{EXCHG {PARA 7 "" 1 "" 
{TEXT -1 53 "Warning, incomplete string;  use \" to end the string\n" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "plot(UsualL, 0.01..0.2, 4
.4..4.6);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'
CURVESG6$7S7$$\"3-+++++++5!#>$\"3')*******H_QV%!#<7$$\"3pmm;Hf999F*F+7
$$\"3SL$3x3#\\u<F*F+7$$\"3ummTI!R(z@F*F+7$$\"3%om;H@swe#F*F+7$$\"3eL$3
-cmO*HF*F+7$$\"3im;/\"Hv+P$F*F+7$$\"3[+]PHZ#)fPF*F+7$$\"3+n;/cT!H;%F*F
+7$$\"35+](=!4pkXF*F+7$$\"35ML$e&z(z(\\F*F+7$$\"3%pm;zT,?M&F*F+7$$\"3E
,+]<c!=v&F*F+7$$\"3'3++D^#HjhF*F+7$$\"3c++]#QO)flF*F+7$$\"3@n;/1i$*>pF
*F+7$$\"3!GLLesH\"[tF*F+7$$\"3FLLL.e'3r(F*F+7$$\"3>+]P%49G8)F*F+7$$\"3
FLLLG)4j])F*F+7$$\"3T+]PWQ4;*)F*F+7$$\"3u+]7L^I1$*F*F+7$$\"3BML3x'\\Mr
*F*F+7$$\"3WL3_YNt35!#=F+7$$\"3um;zz@1\\5F]pF+7$$\"3smTg&H_44\"F]pF+7$
$\"3)**\\iXw<u7\"F]pF+7$$\"3!omT+Z,o;\"F]pF+7$$\"3$*****\\\"p)[27F]pF+
7$$\"3/+]()*>$HZ7F]pF+7$$\"3)**\\P%3h!eG\"F]pF+7$$\"3A+]7F\"o&G8F]pF+7
$$\"3QLL$Gq\"*pO\"F]pF+7$$\"3O++Drq,39F]pF+7$$\"3mmTg_@>X9F]pF+7$$\"3O
++vNV$e[\"F]pF+7$$\"3LL3xia2C:F]pF+7$$\"3O+v=f%[Sc\"F]pF+7$$\"3YLLep$H
Jg\"F]pF+7$$\"3:+v$4YVSk\"F]pF+7$$\"35nmm$f[Mo\"F]pF+7$$\"3\"om\"HLguB
<F]pF+7$$\"3qL3x*y4Pw\"F]pF+7$$\"3P++]JBV+=F]pF+7$$\"3wL$e%30_U=F]pF+7
$$\"3ymmmvY;!)=F]pF+7$$\"3@+vV47I?>F]pF+7$$\"3S+Dc$*pre>F]pF+7$$\"35++
+++++?F]pF+-%'COLOURG6&%$RGBG$\"#5!\"\"$\"\"!FauF`u-%+AXESLABELSG6$Q!6
\"Feu-%%VIEWG6$;$\"\"\"!\"#$\"\"#F_u;$\"#WF_u$\"#YF_u" 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 23 "f:=ChisquarePDF(n-1,x):" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 30 "eq1 := int(f, x=a..b)=1-alpha:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "eq2:=a^2*subs(x=a,f)=b^2*subs(x=b,f
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "MinLenArray := array(
1..39):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "for i from 2 to \+
40 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "eqns := subs(alpha=0.005*i
, \{eq1, eq2\});\nSol := fsolve(eqns, \{a,b\}, \{a=0..n-1, b=n-1..infi
nity\});" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "assign(Sol);" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 47 "MinLenArray[i-1] := [0.005*i, (n-1)*(1/a-
1/b)];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a:='a'; b:='b';" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 41 "MinLenList := convert(MinLenArray, list);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%+MinLenListG7I7$$\"#5!\"$$\"+=SMKM!\"*7$$\"#:F),&*&\"
\"\"F2%\"aG!\"\"\"\"'*&F5F2%\"bGF4F47$$\"#?F)F07$$\"#DF)F07$$\"#IF)F07
$$\"#NF)F07$$\"#SF)F07$$\"#XF)F07$$\"#]F)F07$$\"#bF)F07$$\"#gF)F07$$\"
#lF)F07$$\"#qF)F07$$\"#vF)F07$$\"#!)F)F07$$\"#&)F)F07$$\"#!*F)F07$$\"#
&*F)F07$$\"$+\"F)F07$$\"$0\"F)F07$$\"$5\"F)F07$$\"$:\"F)F07$$\"$?\"F)F
07$$\"$D\"F)F07$$\"$I\"F)F07$$\"$N\"F)F07$$\"$S\"F)F07$$\"$X\"F)F07$$
\"$]\"F)F07$$\"$b\"F)F07$$\"$g\"F)F07$$\"$l\"F)F07$$\"$q\"F)F07$$\"$v
\"F)F07$$\"$!=F)F07$$\"$&=F)F07$$\"$!>F)F07$$\"$&>F)F07$$\"$+#F)F0" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "A := plot(UsualL, 0.01..0.2
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "B:=plot(MinLenList, c
olor=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "# interface(
plotdevice=postscript, plotoutput=Fig4);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "display(\{A,B\});" }}{PARA 13 "" 1 "" {GLPLOT2D 400 
300 300 {PLOTDATA 2 "6&-%'CURVESG6$7S7$$\"3-+++++++5!#>$\"3')*******H_
QV%!#<7$$\"3pmm;Hf999F*F+7$$\"3SL$3x3#\\u<F*F+7$$\"3ummTI!R(z@F*F+7$$
\"3%om;H@swe#F*F+7$$\"3eL$3-cmO*HF*F+7$$\"3im;/\"Hv+P$F*F+7$$\"3[+]PHZ
#)fPF*F+7$$\"3+n;/cT!H;%F*F+7$$\"35+](=!4pkXF*F+7$$\"35ML$e&z(z(\\F*F+
7$$\"3%pm;zT,?M&F*F+7$$\"3E,+]<c!=v&F*F+7$$\"3'3++D^#HjhF*F+7$$\"3c++]
#QO)flF*F+7$$\"3@n;/1i$*>pF*F+7$$\"3!GLLesH\"[tF*F+7$$\"3FLLL.e'3r(F*F
+7$$\"3>+]P%49G8)F*F+7$$\"3FLLLG)4j])F*F+7$$\"3T+]PWQ4;*)F*F+7$$\"3u+]
7L^I1$*F*F+7$$\"3BML3x'\\Mr*F*F+7$$\"3WL3_YNt35!#=F+7$$\"3um;zz@1\\5F]
pF+7$$\"3smTg&H_44\"F]pF+7$$\"3)**\\iXw<u7\"F]pF+7$$\"3!omT+Z,o;\"F]pF
+7$$\"3$*****\\\"p)[27F]pF+7$$\"3/+]()*>$HZ7F]pF+7$$\"3)**\\P%3h!eG\"F
]pF+7$$\"3A+]7F\"o&G8F]pF+7$$\"3QLL$Gq\"*pO\"F]pF+7$$\"3O++Drq,39F]pF+
7$$\"3mmTg_@>X9F]pF+7$$\"3O++vNV$e[\"F]pF+7$$\"3LL3xia2C:F]pF+7$$\"3O+
v=f%[Sc\"F]pF+7$$\"3YLLep$HJg\"F]pF+7$$\"3:+v$4YVSk\"F]pF+7$$\"35nmm$f
[Mo\"F]pF+7$$\"3\"om\"HLguB<F]pF+7$$\"3qL3x*y4Pw\"F]pF+7$$\"3P++]JBV+=
F]pF+7$$\"3wL$e%30_U=F]pF+7$$\"3ymmmvY;!)=F]pF+7$$\"3@+vV47I?>F]pF+7$$
\"3S+Dc$*pre>F]pF+7$$\"35+++++++?F]pF+-%'COLOURG6&%$RGBG$\"#5!\"\"$\"
\"!FauF`u-F$6$7$7$$F^u!\"$$\"+=SMKM!\"*7$%%FAILGF\\v-Fjt6&F\\uF`uF`u$
\"*++++\"!\")-%+AXESLABELSG6%Q!6\"Fev%(DEFAULTG-%%VIEWG6$;$\"\"\"!\"#$
\"\"#F_uFgv" 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 101 "Impr
ov := [seq([0.005+0.005*i,(value(subs(alpha=0.005+0.005*i,UsualL)-MinL
enList[i][2]))], i=1..39)];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'Impr
ovG7I7$$\"#5!\"$$\"+#G3:+\"!\"*7$$\"#:F),($\"++B&QV%F,\"\"\"*&\"\"'F3%
\"aG!\"\"F7*&F5F3%\"bGF7F37$$\"#?F)F07$$\"#DF)F07$$\"#IF)F07$$\"#NF)F0
7$$\"#SF)F07$$\"#XF)F07$$\"#]F)F07$$\"#bF)F07$$\"#gF)F07$$\"#lF)F07$$
\"#qF)F07$$\"#vF)F07$$\"#!)F)F07$$\"#&)F)F07$$\"#!*F)F07$$\"#&*F)F07$$
\"$+\"F)F07$$\"$0\"F)F07$$\"$5\"F)F07$$\"$:\"F)F07$$\"$?\"F)F07$$\"$D
\"F)F07$$\"$I\"F)F07$$\"$N\"F)F07$$\"$S\"F)F07$$\"$X\"F)F07$$\"$]\"F)F
07$$\"$b\"F)F07$$\"$g\"F)F07$$\"$l\"F)F07$$\"$q\"F)F07$$\"$v\"F)F07$$
\"$!=F)F07$$\"$&=F)F07$$\"$!>F)F07$$\"$&>F)F07$$\"$+#F)F0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "PercImprov := [seq([0.005+0.005*i,
 100*(value(subs(alpha=0.005+0.005*i,UsualL))-MinLenList[i][2])/value(
subs(alpha=0.005+0.005*i,UsualL))], i=1..39)];" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%+PercImprovG7I7$$\"#5!\"$$\"+DoxeA!\")7$$\"#:F),($\"+
**********F,\"\"\"*&$\"+]]A`8!\"(F3%\"aG!\"\"F9*&$\"+]]A`8F7F3%\"bGF9F
37$$\"#?F)F07$$\"#DF)F07$$\"#IF)F07$$\"#NF)F07$$\"#SF)F07$$\"#XF)F07$$
\"#]F)F07$$\"#bF)F07$$\"#gF)F07$$\"#lF)F07$$\"#qF)F07$$\"#vF)F07$$\"#!
)F)F07$$\"#&)F)F07$$\"#!*F)F07$$\"#&*F)F07$$\"$+\"F)F07$$\"$0\"F)F07$$
\"$5\"F)F07$$\"$:\"F)F07$$\"$?\"F)F07$$\"$D\"F)F07$$\"$I\"F)F07$$\"$N
\"F)F07$$\"$S\"F)F07$$\"$X\"F)F07$$\"$]\"F)F07$$\"$b\"F)F07$$\"$g\"F)F
07$$\"$l\"F)F07$$\"$q\"F)F07$$\"$v\"F)F07$$\"$!=F)F07$$\"$&=F)F07$$\"$
!>F)F07$$\"$&>F)F07$$\"$+#F)F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 82 "StandLen := S^2*(n-1)*( 1/ChisquareP(n-1,alpha/2) - 1/Chisquar
eP(n-1,1-alpha/2) );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)StandLenG,$
*$)%\"SG\"\"#\"\"\"$\"++B&QV%!\"*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 43 "LFact := subs(\{alpha=0.05, S=1\}, StandLen);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&LFactG$\"++B&QV%!\"*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "PlotList1 := [seq( [i, value(subs(n
=i,LFact))], i=3..15)];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%*PlotList
1G7/7$\"\"$$\"++B&QV%!\"*7$\"\"%F(7$\"\"&F(7$\"\"'F(7$\"\"(F(7$\"\")F(
7$\"\"*F(7$\"#5F(7$\"#6F(7$\"#7F(7$\"#8F(7$\"#9F(7$\"#:F(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "A := plot(PlotList1, color=red): A;
" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6#
7/7$$\"\"$\"\"!$\"3')*******H_QV%!#<7$$\"\"%F*F+7$$\"\"&F*F+7$$\"\"'F*
F+7$$\"\"(F*F+7$$\"\")F*F+7$$\"\"*F*F+7$$\"#5F*F+7$$\"#6F*F+7$$\"#7F*F
+7$$\"#8F*F+7$$\"#9F*F+7$$\"#:F*F+-%'COLOURG6&%$RGBG$\"*++++\"!\")$F*F
*FY-%+AXESLABELSG6$Q!6\"Fgn-%%VIEWG6$%(DEFAULTGF\\o" 1 2 0 1 10 0 2 6 
1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 26 "f := ChisquarePDF(n-1, x);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%\"fG,$*&)%\"xG\"\"#\"\"\"-%$expG6#,$F(#!\"\"F)F*#F*
\"#;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "eq1 := int(f, x=a..
b)=1-alpha;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq1G/,.*&)%\"bG\"\"#
\"\"\"-%$expG6#,$F)#!\"\"F*F+#F1\"\")*&#F+F*F+*&F)F+F,F+F+F1F,F1*(#F+F
3F+)%\"aGF*F+-F-6#,$F:F0F+F+*(#F+F*F+F:F+F;F+F+F;F+$\"#&*!\"#" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "eq2 := a^2*subs(x=a,f) = b^2
*subs(x=b,f);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq2G/,$*&)%\"aG\"
\"%\"\"\"-%$expG6#,$F)#!\"\"\"\"#F+#F+\"#;,$*&)%\"bGF*F+-F-6#,$F8F0F+F
3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "alpha := 0.05;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&alphaG$\"\"&!\"#" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 26 "PlotArray := array(1..13);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%*PlotArrayG-%&arrayG6$;\"\"\"\"#87\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "for i from 3 to 15 do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "eqns := subs(n=i, \{eq1, eq2\});\nS
ol := fsolve(eqns, \{a,b\}, \{a=0..i-1, b=i-1..infinity\});" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 12 "assign(Sol);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 39 "PlotArray[i-2] := [i, (i-1)*(1/a-1/b)];" }}{PARA 0 ">
 " 0 "" {MPLTEXT 1 0 15 "a:='a'; b:='b';" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "Plot
List2 := convert(PlotArray, list);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%*PlotList2G7/7$\"\"$$\"+tY6W6!\"*7$\"\"%$\"+4?<;<F*7$\"\"&$\"+X$H#)G
#F*7$\"\"'$\"+#o'GgGF*7$\"\"($\"+=SMKMF*7$\"\")$\"+a8S/SF*7$\"\"*$\"+!
pekd%F*7$\"#5$\"+Fg^[^F*7$\"#6$\"+jLd?dF*7$\"#7$\"+*pIEH'F*7$\"#8$\"+O
!)okoF*7$\"#9$\"+s`uOuF*7$\"#:$\"+3F!)3!)F*" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 31 "B:=plot(PlotList2, color=blue):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 15 "display(\{A,B\});" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7/7$$\"\"$\"\"!$\"3')
*******H_QV%!#<7$$\"\"%F*F+7$$\"\"&F*F+7$$\"\"'F*F+7$$\"\"(F*F+7$$\"\"
)F*F+7$$\"\"*F*F+7$$\"#5F*F+7$$\"#6F*F+7$$\"#7F*F+7$$\"#8F*F+7$$\"#9F*
F+7$$\"#:F*F+-%'COLOURG6&%$RGBG$\"*++++\"!\")$F*F*FY-F$6$7/7$F($\"3.++
+tY6W6F-7$F/$\"36+++4?<;<F-7$F2$\"3)******\\MH#)G#F-7$F5$\"3#******>o'
GgGF-7$F8$\"3A+++=SMKMF-7$F;$\"3k*****RN,W+%F-7$F>$\"3%********oekd%F-
7$FA$\"3M+++Fg^[^F-7$FD$\"3u*****HOt0s&F-7$FG$\"3/+++*pIEH'F-7$FJ$\"3W
+++O!)okoF-7$FM$\"3&)*****>PXnV(F-7$FP$\"3F*****zq-)3!)F--FS6&FUFYFYFV
-%+AXESLABELSG6%Q!6\"Fcq%(DEFAULTG-%%VIEWG6$FeqFeq" 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 92 "[seq( [PlotList1[i][1], 100*(PlotLi
st1[i][2] - PlotList2[i][2])/PlotList1[i][2]], i=1..13)];" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#7/7$\"\"$$\"+uAf>u!\")7$\"\"%$\"+7%)QHhF(7$\"\"
&$\"+^X=R[F(7$\"\"'$\"+(o!)*[NF(7$\"\"($\"+DoxeAF(7$\"\")$\"+J'Hdo*!\"
*7$\"\"*$!+()*3j@$F=7$\"#5$!+jZ$=h\"F(7$\"#6$!+D'Q?!HF(7$\"#7$!+'[UA>%
F(7$\"#8$!+]jW#[&F(7$\"#9$!+7-lsnF(7$\"#:$!+uS&G1)F(" }}}}{MARK "40 1
" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }