M6R0
I/crop/plotarrayR6'%"PG%#u1G%#u2G%#l1G%#l2G6"6$%HMaple~Advisor~Database~1.01~fo
r~Maple~6G%gnCopyright~(c)~2000~by~Robert~B.~Israel.~~All~rights~reservedGF*-%/
plot/plotarrayG6'-%$mapG6$%-crop/setviewG9$9%9&9'9(F*F*F*F*,
I(flattenR6#%"xG6#%"dG6$F,%gnCopyright~(c)~1998~by~Robert~B.~Israel.~~All~right
s~reservedGF*@+-%%typeG6$F5%$setG-%#opG6#-F26$F:7#-FH6#F5-FD6$F5%%listG-FH6#-F2
6$F:F5-FD6$F5<$%&arrayG%&tableG@%3/9#""#/&9"6#Fin%&falseG-FH6#-F26$F:7#-%(entri
esGFN-FH6#-F26$-%"@G6$F:%$rhsG-%%sortG6$-FH6$!""-%%evalGFN%-flatten/compG-FD6$F
5%'rtableGC$>8$-%0rtable_num_dimsGFN@'/F\q""!7"/F\q"""-FH6#-F26$F:-%(convertGFP
-FH6#-F26$F:-Fjq6$F5%)listlistGF5F*F*F*F*,
I-flatten/compR6$%"sG%"tG6'%#isG%#itG%#nsG%#ntG%"RGF@F*C'>F\q-FH6$FdqF5>8%-FH6$
FdqF6>8&-%%nopsG6#7#F\q>8'-Fhs6#7#Fbs@+0FfsF\t-%'RETURNG6#2FfsF\t2FdqFfs@%/&F\q
6#Fdq&FbsFjt-Ffp6$/&F\q6#;FinFfsFaq/&FbsF`uFaq-Ffp6$/FitFaq/F[uFaq-FD6$7$F\qFbs
-FQ6#%)realconsG-%&evalbG6#2F\qFbs-FD6$Fju-FQ6#%'stringG-%)lexorderG6$F\qFbsC$>
8(Fju-F_v6#/F\w-F_p6#F\wF*F*F*F*,
I-crop/setviewR6#F%6$%"iG%"rGF+F*C$?(F\qFdqFdq-FhsFN%%trueG@$/-FH6$7$F\qFaqF5%%
VIEWG-Fct6#-%%cropG6%-%'subsopG6$/F\q%%NULLGF57#-%$seqG6$-%,crop/fixdefG6#Fbs/F
bs-FH6$F\qF5F[x-F26$%-crop/noemptyGF5F*F*F*F*,
I,crop/fixdefR6#FgwF*F+F*@%/F5%(DEFAULTG;,$%)infinityGFcpFazF5F*F*F*F*,
I%cropR6$'F%-%)specfuncG6$%)anythingG<$%%PLOTG%'PLOT3DG'Fgw-FQ6#;F]vF]v6$%"jG%$
dimGF+F*@%5Fgn-%(hastypeG6$F6Faz-F26%%,crop/objectGF5F6C$@%/-FH6$FaqF5F[[l>FbsF
in>Fbs""$-F_\l6$-%'CURVESG6%7#-%"$G6$7#-F^y6$-FH6$7$F\qFdqF6/F\q;FdqFbsFin7#-F[
]l6$7#-F^y6$-FH6$7$F\qFinF6Fc]lFin-%'COLOURG6&%$RGBGFdqFdqFdq-FH6#Fi[lF*F*F*F*,
I,crop/objectR6$F=FgwF*F+F*@/-FD6$F5-Fgz6$FizFg\l-%,crop/curvesG6%F5F6F^o-FD6$F
5-Fgz6$Fiz%)POLYGONSG-F]_l6%F5F6F[x-FD6$F5-Fgz6$Fiz%'POINTSG-%,crop/pointsG6$F5
F6-FD6$F5-Fgz6$Fiz%%TEXTG@%-%-crop/checkptG6$F_sF6F5F[y-FD6$F5-Fgz6$Fiz%%GRIDG-
%*crop/gridGF]`l-FD6$F5-Fgz6$Fiz<$%%MESHG%+ISOSURFACEG-%*crop/meshGF]`lF5F*F*F*
F*,
I+crop/pointR6$%"pGFgw6#FfwF+F*C$@&-FD6$F5%(hfarrayGO-FH6#-F26$FgalF_r-FD6$F5F[
v?(F\qFdqFdq-Fhs6#F6F[x@$-F_v6#52&F56#F\qF`]l2F[^lF`clOF[yF5F*F*F*F*,
I,crop/pointsRFial6,%(colspecG%%restG%&ctypeG%'loccolG%$ptsG%'newcolG%'newptsG%
#ptGFfw%"nGF+F*C%>Fiv-%-selectremoveG6%FDF5-Fgz6$Fiz<$%&COLORGF_^l@%/-FhsFaclFa
q>F\tFbqC%>F\q-FH6$FdqF\q>FfsF_el@)-FD6$-FH6$FinF\qF`bl>F\t7#-F:6#Feel/Ffs%$HUE
G@%/F[elFin>F\tFbq>F\t7#-FH6$;FinFcpF\q/F[el""%>F\tFbq>F\tFafl@%/F\tFbq-F26%Fga
lF5F6C)>6$F\wFbs-Fcdl6%FDFbs<$F`blFQ@$-FD6$-FH6$FdqF\wF`bl>F\w-Fjq6$FfglFar>8)F
[y>8*F[y>8--FhsFaw?(8,FdqFdqF`hlF[xC$>8+-FH6$FchlF\w@$-Fe`l6$FfhlF6C$>F^hl6$F^h
lFfhl@%F[fl>F\hl6$F\hl&F\t6#Fchl>F\hl6&F\hl&F\t6#,&FchlFc\l!"#Fdq&F\t6#,&FchlFc
\lFcpFdq&F\t6#,$FchlFc\l@%/F^hlF[yF[y-Fj_l6%F^hl-F_^l6$FfsF\hl-FHFbyF*F*F*F*,
I-crop/checkptRFialF[blF+F*C$?(F\qFdqFdqFiblF[x@$F\clOF^oF[xF*F*F*F*,
I+crop/curveRFial6)%$resG%+currentptsG%'lastptGFfwF_dl%'lastinG%%ptinGF+F*C+@&F
^bl-Fct6#-F][m6$F_rF64-FD6$F5-FQ6#F[v-FctFN>F\wFjw>F\qF[y>Ffs&F5Fjt>F\hl-Fe`l6$
FfsF6@%F\hl>FbsFfs>FbsF[y?(F\tFinFdqF\wF[xC&>F^hl-Fe`l6$&F56#F\tF6@'F^hl@%F\hl>
Fbs6$FbsF`]m>Fbs6$-%,crop/interpG6%FfsF`]mF6F`]mF\hl>F\q6$F\q7$Fbs-Fi]m6%F`]mFf
sF6>F\q6$F\qFh]m>FfsF`]m>F\hlF^hl@$0FbsF[y>F\q6$F\qF_tF\qF*F*F*F*,
I,crop/interpR6%%#p1G%#p2GFgw6*Ffw%"vG%#t1G%#t2G%#s1G%#s2G%#r1G%#r2GF+F*C&>F\wF
aq>F\hlFdq?(F\qFdqFdq-Fhs6#F7F[x@%/F`cl&F6Facl@$52F`cl-FH6$Fb]lF72-FH6$F]^lF7F`
clOF[yC)>Fbs*$,&F]`mFdqF`clFcpFcp>Ffs*&,&Fa`mFdqF`clFcpFdqFbsFdq>F\t*&,&Fd`mFdq
F`clFcpFdqFbsFdq@%2F\tFfsC$>F^hlF\t>FfhlFfsC$>F^hlFfs>FfhlF\t@$52FfhlFaq2FdqF^h
lOF[y>F\w-%$maxG6$F\wF^hl>F\hl-%$minG6$F\hlFfhl@'/F\wFaq,&*&F\hlFdqF6FdqFdq*&,&
FdqFdqF\hlFcpFdqF5FdqFdq/F\hlFdq,&*&F\wFdqF6FdqFdq*&,&FdqFdqF\wFcpFdqF5FdqFdq7$
F]cmFhbmF*F*F*F*,
I-crop/polygonRFial6$F`[mFfwF+F*C%@&F^bl-Fct6#-FbcmFj[mF[\mF`\m>F\qF5?(FbsFdqFd
qFiblF[xC$>F\q-%7crop/polygon/halfplaneG6&F\q-FH6$7$FbsFdqF6FbsF[x>F\q-F_dm6&F\
q-FH6$7$FbsFinF6FbsF^oF*F*F*F*,
I7crop/polygon/halfplaneR6&Fjal%"aGFfw%"bG6*F`[mFb[mFc[m%&checkG%(currentG%'cur
rinGF_dlFfrF+F*C*@$/F5FbqF`\m>FbsFd\m@%F8>F\tR6#FfrF*6$%)operatorG%&arrowGF*-F_
v6#1T$F5F*F*6$F]emF6>F\tRFjemF*F[fmF*-F_v6#1F5FafmF*F*Fbfm>Ffs-F\t6#&FbsFj_m@%F
fs>F\qFbs>F\qF[y?(F^hlFinFdqFjwF[xC'>F\w&F56#F^hl>F\hl-F\t6#&F\wFj_m@&F\hl@%Ffs
>F\q6$F\qF\wC$>Ffhl*&,&FggmFdqF6FcpFdq,&FggmFdqF[gmFcpFcp>F\q6%F\q,&*&,&FdqFdqF
fhlFcpFdqF\wFdqFdq*&FfhlFdqFbsFdqFdqF\wFfsC$>FfhlF^hm>F\q6$F\qFchm>FbsF\w>FfsF\
hl@$0Ffs-F\t6#&Fd\mFj_mC$>Ffhl*&,&F[gmFdqF6FcpFdq,&F[gmFdqFaimFcpFcp>F\q6$F\q,&
*&FehmFdqFbsFdqFdq*&FfhlFdqFd\mFdqFdqFjsF*F*F*F*,
I,crop/curvesR6%FjalFgw%&qpolyG6.FgclFhclFjclF\dlFicl%'curvesG%*newcurvesG%#cuG
Ffw%&newcuGF_dlF`[mF+F*C&>FivFbdl@%Fjdl>FfsFbqC%>F\qF_el>F\wF_el@)Fcel>FfsFhel/
F\wF\fl@%F^fl>FfsFbq>FfsFaflFefl>FfsFbq>FfsFafl@%/FfsFbq@%F7>8/-F26%FbcmF5F6>Fh
[n-F26%F][mF5F6C'>6$F\hlFbsF`gl>F\tF[y>F^hlF[y?(FchlFdqFdq-Fhs6#F\hlF[xC(>Ffhl-
FH6$FchlF\hl@%F7>F`hl-FbcmF[il>F`hl-F][mF[il>8.-Fhs6#7#F`hl@$/F`]nFaq\>F^hl6$F^
hlF`hl@%F^[n>F\t6$F\t-F[]l6$&FfsFcilF`]n>F\t6$F\t-FH6#-F26$FH7#-F[]l6$&Ffs6#;Fh
ilF_jlF`]n@'Fajl>Fh[nF[yF7>Fh[n-Fc_l6%F^hl-F_^l6$F\wF\tFfjl>Fh[n-Fg\lF__n-Fhy6#
Fh[nF*F*F*F*,
I,crop/hfgridR6+%"hG%#I1G%#I2G%#J1G%#J2G%"EG%"FG%"MG%"NG6$FfwFb[lF+F*C'?(F\qFdq
Fdq,&F6FdqFcpFdqF[x?(FbsFdqFdq9,F[x>&F5Fiv%*undefinedG?(F\q,&F7FdqFdqFdqFdq9+F[
x?(FbsFdqFdqFg`nF[x>Fi`nFj`n?(F\qF6FdqF7F[x?(FbsFdqFdq,&F8FdqFcpFdqF[x>Fi`nFj`n
?(F\qF6FdqF7F[x?(Fbs,&F9FdqFdqFdqFdqFg`nF[x>Fi`nFj`n?(F\qF6FdqF7F[x?(FbsF8FdqF9
F[x@$52Fi`n9)29*Fi`n>Fi`nFj`nF*F*F*F*,
I*crop/gridRFial61%#hfG%#i1G%#i2G%#j1G%#j2G%$bdsG%"mGF_dlF]emF^em%"cGF?%"eG%"fG
%"gGF+F*C3>F\q-%%copyG6#-FH6$Fc\lF5@$4-FD6$F\qF`bl>F\q-F`blFacl>F\hl-%,rtable_d
imsGFacl>F^hl-FH6$Fin&F\hlFjt>Ffhl-FH6$Fin&F\hlF]o>Fchl-FH6$7$FdqFdqF5>F`hl-FH6
$7$FdqFinF5@%/-FH6$FjdnF6F`z>FbsFdq>Fbs-F`bm6$Fdq-%%ceilG6#*&,(F`hlFdq*&FchlFdq
F^hlFdqFcp*&FaenFdq,&F^hlFdqFcpFdqFdqFdqFdq,&F`hlFdqFchlFcpFcp@%/-FH6$F^enF6Faz
>FfsF^hl>Ffs-Fdbm6$F^hl-%&floorG6#*&,(F`hlFdqF\fnFcp*&FbfnFdqF^fnFdqFdqFdqF_fnF
cp>F`]n-FH6$7$FinFdqF5>Fh[n-FH6$7$FinFinF5@%/-FH6$FagnF6F`z>F\tFdq>F\t-F`bm6$Fd
q-Fhen6#*&,(Fh[nFdq*&F`]nFdqFfhlFdqFcp*&FhgnFdq,&FfhlFdqFcpFdqFdqFdqFdq,&Fh[nFd
qF`]nFcpFcp@%/-FH6$FegnF6Faz>F\wFfhl>F\w-Fdbm6$Ffhl-Fifn6#*&,(Fh[nFdqFbhnFcp*&F
hhnFdqFdhnFdqFdqFdqFehnFcp@$52F\wF\t2FfsFbsOF[y@%/FiblFc\lC$>80-FH6$7$Fc\lFdqF6
>81-FH6$7$Fc\lFinF6C$>F\jn$FcpFaz>Fajn$FdqFaz-%'evalhfG6#-Ff_n6+F\qFbsFfsF\tF\w
F\jnFajnF^hlFfhl-Fhx6$/Fc\lF\qF5F*F*F*F*,
I*crop/meshRFial6+FdbnFibnFjbnF_dl%"oGF]emF^emFfw%&qmeshGF+F*C.>F\q-Fbcn6#F_s@$
Fgcn>F\qF[dn>FbsF]dn>Ffs-FH6$FinF[u>F\t-FH6$Fin&FbsF]o@$/F]tFffl>F\w-FH6$Fin&Fb
s6#Fc\l>F\hl-%&ArrayG6#;FdqFc\l>F^hlF]]o?(FfhlFdqFdqFiblF[xC$>&F\hl6#Ffhl-FH6$7
$FfhlFdqF6>&F^hlFf]o-FH6$7$FfhlFinF6@$/FiblFinC$>&F\hlF[]oFgjn>&F^hlF[]oFijn@%-
%)assignedGFaw-F[[o6#-%+crop/hfisoG6(F\qF\hlF^hlFfsF\tF\w-F[[o6#-%,crop/hfmeshG
6'F\qF\hlF^hlFfsF\t-Fhx6$/FdqF\qF5F*F*F*F*,
I,crop/hfmeshR6'FjalF]emF^emFjbnF_dl6%FfwFb[l%"kGF+F*?(F\qFdqFdqF8F[x?(FbsFdqFd
qF9F[x?(FfsFdqFdqFc\lF[x@$52&F56%F\qFbsFfs&F66#Ffs2&F7Fd`oFa`o>Fa`oFj`nF*F*F*F*,
I+crop/hfisoR6(FjalF]emF^emFjbnF_dlFe[o6&FfwFb[lFj_o%"lGF+F*?(F\qFdqFdqF8F[x?(F
bsFdqFdqF9F[x?(FfsFdqFdqF]bnF[x?(F\tFdqFdqFc\lF[x@$52&F56&F\qFbsFfsF\t&F6Fa]m2&
F7Fa]mFdao>FdaoFj`nF*F*F*F*