MVR5
I/context/cfpushR6$%"aG'%"LG<$%%nameG%&stackG6#%"tG6#%inCopyright~(c)~1997~by~W
aterloo~Maple~Inc.~All~rights~reserved.G6"C%-%'ASSERTG6#-%)assignedG6#F*@$4-%%t
ypeG6$9%F*-%'assignG6$F<-&F*6#.%$newGF/-&F*6#.%%pushG6$9$F<F/F/F/6",
I5CM_RemoveAssumptionsR6#%"fGF+F-F/C&-%(readlibG6#%'assumeG@$-F:6$FK%.HasAssump
tionGC$-F>6$-%*substringG6$FK;"""!"#.Fgn-%'RETURNG6#Fgn>8$-%'indetsGFX@%0Fbo<"-
%$mapG6$9!Fbo%%NULLGF/F/F/6",
I0context/cfparseR6#'%#CFG%)CF_CLASSG6=%(arglistG%(ActionsG%+ActionNameG%+Actio
nKeysG%)AncestorG%-ConditionalsG%0ConditionalKeysG%%DataG%,DescriptionG%%fileG%
%headG%+HelpStringG%(IfBlockG%%MenuG%$KeyG%&LocCFG%+MenuStringG%,MenuEntriesG%+
RecognizerG%-ReplacementsG%)SubMenusG%-SubMenusKeysG%#t0G%%tailG%%TestG%)warnin
gsG%"xGF-F/CK@$0%4context/InitializedG%%trueG--FS6#.%-context/initGF/-FS6#%1con
text/cmglobalG-FS6#%.context/cfgetG-FS6#%8context/cfparse/contentG-FS6#%6contex
t/cfparse/menusG-FS6#%;context/cfparse/recognizerG>83FK>%0_EnvContextDataG-%&ta
bleGF/>8%-Fdo6$Fjs.%*CF_ACTIONG>8:-%%timeGF/-%)userinfoG6%F[o<#F^p-%(sprintfG6%
QF%7.3f~:~Replacing~%d~Actions~by~Keys.6",&FgtF[oFft!""-%%nopsG6#F`t>8'F]t?&8>F
`tFdrC&>82-F\s6#-F_s6$Q+MenuString6"Fju>&Fhu6#Fju-%*CM_ACTIONG6#F]v>&F\t6#FgvFj
u-Fbs6$FgvF]t>87<#-%$seqG6$/&F\tFfvFju/Fju-Fio6$%#opG7#-%(entriesG6#Fhu>Fjs-%%s
ubsG6$F`wFjs>8)-Fdo6$Fjs.%/CF_CONDITIONALG-Fjt6%F[oF\u-F^u6%QK%7.3f~:~Replacing
~%d~Conditionals~by~Keys.FauFbu-Feu6#Fdx>F`w-Fio6$%Bcontext/cfparse/splitcondit
ionalsGFdx>Fdx-Fax6$F`wFdx>FjsF`x>8*F]t?&FjuFdxFdrC'>F]v-F\s6#Q*ConditionFau>&F
iyFfv-%/CM_CONDITIONALGFiv>8+-Fio6$RF+F/F/F/@$-F:6$FKFhv&F\t6#-%/CM_ACTION_DATA
G6#-Fjw6#FKF/F/F/Fju>&F\t6#FbzFju-Fbs6$FbzF]t>F`w<#-Fcw6$Few/Fju-Fio6$Fjw7#-F]x
6#Fiy>Fjs-%)CM_CLASSG6#-Fjw6#F`x>88-Fdo6$Fjs.%+CF_SUBMENUG-Fjt6%F[oF\u-F^u6$QD%
7.3f~:~Replacing~Submenus~by~Keys.FauFbu>89F]t?&FjuFi\lFdrC%>F]vF`v>&Fd]lFfv-%+
CM_SUBMENUGFiv>&F\t6#Fi]lFju>F`w<#-Fcw6$Few/Fju-Fio6$Fjw7#-F]x6#Fd]l>FjsF`x>Fjs
-Fax6$<%/FcpFd\l/%(CF_CODEG%(CM_CODEG/%-CF_SEPARATORG%-CM_SEPARATORGFjs-Fjt6%F[
oF\u-F^u6$QD%7.3f~:~Building~Menu~Templates~...FauFbu-Fes6%Fjs7"F\`l>8=-%*inter
faceG6#.%*warnlevelG-F``l6#/Fb`l""!-Fjt6%F[oF\u-F^u6$Q@%7.3f~:~Building~Recogni
zer~...FauFbu>86-Fhs6$Fjs-%%evalG6#F\t>%,ContextDataGFaal-F``l6#/Fc`lF^`l-Fjt6%
F[oF\u-F^u6$Q>%7.3f~:~CONTEXTMENU~CompletedFauFbu-F_o6#-Fbal6#F^alF/6$F\tFealF/
Fau,
I-context/initR6"6#%.ReadlibDefineG6$%FCopyRight~1997~by~Waterloo~Maple~Inc.G%f
nCopyright~(c)~1997~Waterloo~Maple~Inc.~All~rights~reserved.GFeblCco@$/FcrFdr-F
_o6#F\p>8$FS-Facl6#.%3context/autoassignG-Facl6#.%9context/BuildInputStringG-Fa
cl6#.%8context/InitializeProcsG-Facl6#.F_s-Facl6#.F^p-Facl6#.%?context/cfparse/
classtoifblockG-Facl6#.%<context/cfparse/act_TRIPLESG-Facl6#.%=context/cfparse/
act_completeG-Facl6#.%?context/cfparse/act_LINEARFUNCG-Facl6#.%<context/cfparse
/conditionalG-Facl6#.Fbs-Facl6#.Fes-Facl6#.Fhs-Facl6#.F">%*CM_GlobalG-FS6#.F\s-
Facl6#.%<convert/CONTEXTMENU/TRIPLESG-Facl6#.%?convert/CONTEXTMENU/LINEARFUNCG-
Facl6#%6context/defaultconfigG-Facl6#.%5context/fixpiecewiseG-Facl6#.%0context/
fullkeyG-Facl6#.%3context/isparsableG>%.CM_IsParsableG.-FS6#F^hl-Facl6#.%1conte
xt/jointextG-Facl6#.%3context/multiparseG-Facl6#.Fa_l-Facl6#.FM-Facl6#.%+CM_Get
VarsG-Facl6#.%0CM_GetArrayVarsG-Facl6#.%,CM_GetFuncsG-Facl6#.%.CM_InertFuncsG-F
acl6#.%4convert/CONTEXTMENUG-Facl6#.%<convert/context/ListToStackG-Facl6#.%<con
vert/context/StackToListG-Facl6#.%/type/CF_ACTIONG-Facl6#.%.type/CF_CLASSG-Facl
6#.%-type/CF_CODEG-Facl6#.%1type/CF_CODETYPEG-Facl6#.%4type/CF_CONDITIONALG-Fac
l6#.%2type/CF_SEPARATORG-Facl6#.%0type/CF_SUBMENUG-Facl6#.%/type/CM_ACTIONG-Fac
l6#.%.type/CM_BUILDG-Facl6#.%.type/CM_CLASSG-Facl6#.%-type/CM_CODEG-Facl6#.%4ty
pe/CM_CONDITIONALG-Facl6#.%0type/CM_IFBLOCKG-Facl6#.%3type/CM_InertFuncsG-Facl6
#.%2type/CM_SEPARATORG-Facl6#.%0type/CM_SUBMENUG-Facl6#.%1type/CM_MathFuncG-Fac
l6#.%/type/CM_MatrixG-Facl6#.%0type/CM_NOPRINTG-Facl6#.%2type/CM_PIECEWISEG-Fac
l6#.%3type/HasAssumptionG-Facl6#.%9type/context/Unbounded@@G-FS6#.F*-Facl6#.%+A
PPENDPLOTG-Facl6#.%,APPENDPLOTSG-Facl6#.%+DELETEPLOTG-Facl6#.%.EDITSMARTPLOTG-F
acl6#.%4SMARTPLOTADD_OptionG-Facl6#.%/SMARTPLOTColorG-Facl6#.%4SMARTPLOTColor_L
istG-Facl6#.%3SMARTPLOTGetColorsG-Facl6#.%6SMARTPLOTFindCoords2DG-Facl6#.%6SMAR
TPLOTFindCoords3DG-Facl6#.%-SMARTPLOTFixG>FcrFdrF\pFebl6%FeflFahlFcrFeblFebl,
I/SMARTPLOTColorR6#'F'<$%%listG%$setG6&%"CG%(LocListG%"iG%"nGF-F/C*>F`t7#Fa[l@$
/<#-FjwFfu<#-Fjw6#-FebmF/>F`tF\`l>Fhu-FeuF]em@$4-F56#%5SMARTPLOTColor_IndexG>Ff
emFg`l>Fbo&F^em6#,&FfemF[oF[oF[o?(8&F[oF[oF/3-%'memberG6$FboF`t1F]fmFhuC$>Ffem-
%$modG6$F[fmFhu>FboFiem>FfemFefmFboF/6$FebmFfemF/6",
I.CM_InertFuncs<*%$IntG%$SumG%&DESolG%&RESolG%%DiffG%&LimitG%'NormalG%(ProductG
6",
IBcontext/cfparse/splitconditionalsR6#'%%CondGFhx6*F,%'resultGF]rFfpFip%,LocAnc
estorG%2ConditionalsTableG%2ConditionalsGroupG6#FjblFauC)>6$8&8(-F_s6$7$Q%TestF
cvQ)Ancestor6"9$>Fhu-%'removeG6%F:F]im%"=G>8*F]t?&8$FhuFdrC&-F26#-F:6$FfimFhv>8
)-F_s6$F[im&F\t6#Ffim@$/F]jm%%FAILG>F]jmFfhm-F"6$Ffim&Fdim6#Fdx>8%F\p?&Ffim7#-%
(indicesGFa\lFdrC%>Ffhm-FjwFajm>8+-%(convertG6$-Fbal6#&Fdim6#Fb[n%4context/Stac
kToListG@%/FfhmFdjm>F[[n6$F[[n-Fhx6$/FjhmFehm-Fjw6#Fd[n>F[[n6$F[[n-Fhx6%Fc\n/F[
imFfhmFd\n/F]imF[[nFauFauFauFau,
I?context/cfparse/act_LINEARFUNCR6#'%%CodeGFa_lF/6#FjblF/C$@$FbrFer-F_elFb[lF/F
/F/6",
I0type/CF_SUBMENURFOF/F-F/3-F:6$FK-%)specfuncG6$%)anythingGF\]l/-Fdo6$FKFdtFgoF
/F/F/6",
I<convert/context/ListToStackR6#'F'F]dm6#%#STGFa]nF/C&F1>Fbo-&F*6#FDF/-Fio6%&F*
6#FIFKFbo-Fbal6#FboF/F/F/6",
I:context/cfparse/joinblockR6#'%'blocksG-F]dm6#%+CM_IFBLOCKG6'Fcq%'KeySetGF_r%(
NewCodeG%-continuationG6#F.6"C)-FS6#.Fhhl>8(%&falseG>8'Q!6">8%<"?&8&9$FdrC&>8$-
F_s6$Q$KeyFcvFban@%-F`fmFafm-%&ERRORG6#-F^u6$Q1Repeated~Key:~%sFb`nFfan>F_an-%&
unionG6$F_an<#Ffan>F[an-Fhhl6%Q"~F]anF[an-%<context/cfparse/ifblockcodeG6$FbanF
h`n>Fh`nFdr@$/Fh`nFdr>F[an-Fhhl6%FjbnF[anQ$fi;6"-Fa_l6#FhuFb`nFb`nFb`nFb`n,
I(lyapexpR6)'%"gG%*procedureG'%#x0G%(numericG'%"cGF`dn'%"dGF`dn'%"rG%'posintG'%
"mGFgdn'FcdmFgdn6%%#dgG%$ptsG%&stepsGF/F/C)@$19'9&-F]bn6%%;d~should~be~greater~
than~cGFbenFcen@$19*9)-F]bn6%%;n~should~be~greater~than~mGFienFjen>F`t-%&arrayG
6#;F[o,$9(""#>Fbo-&%"DG6#F[oFb[l>F]fmR6+F[dn'F\enF]dnF^dnFadnFcdnFednFhdnFjdn'F
]enF`fn6*%&rangeGF%%#x1G%#d1GFbdm%"jG%$sumG%#leGF/F/C%>Fbo,&FdfnF[oFbenFcu>FdxF
g`l?(F`tFben*&FboF[oFjenFcuF/2$""&!"(-%$absG6#,&FdfnF[oF`tFcuC*>Fdx,&FdxF[oF[oF
[o>F]fmFcen?(8(F[oF[oFienFdr>F]fm-FK6$F]fmF`t>FiyFg`l?(FjhnF[oF[o,&9+F[oFienFcu
FdrC%>F]fmF\in>Fhu-F<F]in>Fiy,&FiyF[o-%#lnG6#-FbhnF^xF[o>Fez*&FiyF[oF`inFcu>&9,
6#,&FdxFefnFcuF[oF`t>&F`jn6#,$FdxFefnFezF/F/F/-%'evalhfG6#-F]fm6+FKFboF<FcenFbe
nFdfnFjenFien-%$varGFfu-%*pointplotG6$Fjdm/%&styleG%%LINEGF/F/F/F/,
I0context/fullkeyR6$'%%RootG<$F)%'stringG'%(CurrentGFj[oF/Fa]nF/C$@$5-F:6$FKF)/
FKF\an-F_o6#F<-%$catG6%FKQ"_6"F<F/F/F/Fi\o,
I/type/CM_MatrixRFOF/Fa]nF/-%&evalbG6#0-Fdbn6$-%'selectG6%F:-Fdo6$FKF`fn<$%'mat
rixG%'vectorG-Fdo6$FK-F\^n6$F^^n<&Fh]o%'MATRIXGFi]o%'VECTORGFgoF/F/F/6",
I<context/cfparse/conditionalR6#'FcqFcz6%F`]n%,ConditionalGF]rF-F/C--FS6#.F_s-F
S6#.Fa_lFd`n-%(raadlibGFdhl-F26#-F56#&F\tFb[l>F`tFe_o>F]fm-Fi^o6$FjhmF`t-F26#0F
]fmF\an>Fbo-F^u6%Qenif~not~(~%s~)~then~stack[push](~%a~=~NULL,~Exclusions)~fi;6
"-Fhhl6$FjbnF]fmFK@$4-F_hlFc_n-F]bn6$%>unable~to~parse~condition~forGF`t-Fa_lFc
_nF/F/F/Fa`o,
I;context/cfparse/recognizerR6$'FbpFd\l'%%DATAGF^t6'F\qFcqFaqF`]n%'IfCodeGFa]nF
/C0F]s-FS6#Fgdl-FS6#F_hl-FS6#Fhhl-FS6#Fa_l>F`t-F_s6$FianFK>F]fm-FgdlFb[l>Fjhn-F
`im6%F:F]fmFbim-F26#/-Feu6#FjhnF[o-F26#-F_hl6#-Fa_l6#-FjwFhbo>Fhu-Fa_l6AQ(proc(
f)6"QWlocal~RememberFlag,Exclusions,Vars,Nvars,Funcs,NFuncs;FdcoQ`pglobal~`cont
ext/CM_GLOBALG`,~ContextData,~`context/Initialized`,~`context/InitProcs`,FdcoQB
~~~~~_EnvContextData,~ContextKey;FdcoQ/option~system;FdcoQ9"ContextMenu~Procedu
re";FdcoQ`oif~`context/Initialized`~<>~true~then~readlib('`context/init`')()~fi
:Fdco-F^u6$Q2ContextKey~:=~%a;FdcoF`t-F^u6$Q7_EnvContextData~:=~%a;FdcoQ%DATAFd
coQFContextData~:=~eval(_EnvContextData);Fdco-F^u6$QHif~`context/InitProcs`[%a]
~<>~true~thenFdcoF`t-F^u6$QJreadlib('`context/InitializeProcs`')(%a);FdcoF`t-F^
u6$QA`context/InitProcs`[%a]~:=~true;FdcoF`tFdcnQ0readlib(stack);FdcoQ>Exclusio
ns~:=~stack['new']():FdcoQ6RememberFlag~:=~true;FdcoF_coQTContext~:=~_EnvContex
tData[~CM_BUILD(ContextKey)~];FdcoQGif~stack['depth'](Exclusions)~>~0~thenFdcoQ
gnExclusions~:=~convert(~Exclusions~,~`context/StackToList`~);FdcoQGContext~:=~
subs(Exclusions~,~Context);FdcoFdcnQ<if~RememberFlag~=~true~thenFdcoQhn~~~~Cont
ext~~:=~convert(Context,'CONTEXTMENU',~"Top",~args~);FdcoQ?~~~~procname(args)~:
=~Context;FdcoQ%elseFdcoQgn~~~~Context~:=~Convert(Context,'CONTEXTMENU',~"Top",
~args~);FdcoFdcnQ)Context;FdcoQ$end6"@$4-F_hlF^xC&>FealFaal>%+GlobalCodeGFhu-%(
fprintfG6#-Fhhl6$Q"|+FdcoFhu-F]bn6#Q;Unable~to~parse~RecognizerFdco>Fhu-F\ilF^x
>Fhu-Fax6$<#/FadoFaal-FbalF^xF/6%FealFafo%3context/CM_GLOBALGGF/Fdco,
I8context/cfparse/topmenuR6&%3SimplificationTypeGFeqF`q'%&AListGF]dm6'%(Content
G%&MenusG%+ActionListGF_r%(EntriesG6#Fjbl6"C,-FS6#F*-FS6#Fbs>8%-F^tFaho>&Fhho6#
Q%MainFaho-&F*6#FDFaho-Fio6%%9context/cfparse/pushmenuG9'Fhho>8$-Ff[n6$F[ioF\\n
-F26#-F:6$FfioF]dm>Ffio-Fio6$R6#F_rFahoFahoFaho@%-F:6$9$F[^l-Fbs6$FejoT#FejoFah
oFaho6$F]hoFhhoFfio>Ffio-%Acontext/cfparse/removeduplicatesG6#Ffio-%)CM_BUILDG6
&Fejo9%9&FfioFaho6#F\tFahoFaho,
I>convert/CONTEXTMENU/recursiveR6#%'ActionG6,%+TypeStringGFeqF`q%+SelectionsG%+
ActionProcGF_r%"vG%%varsG%)submenusG%(varprocG6#Fjbl6"C(-Fjt6%""#<#%,ContextMen
uG-F>6$Feal-%%copyG6#F\t>8)&9"6#;Fe\p!""-F26#3-F:6$9$F]dm/-Feu6#Fi]p""%>6&8%8&8
'8(-FjwF\^p@-/Fb^p7#Q$VAR6"C&>8+%,_EnvCM_VarsG@$2"""-Feu6#F\_p>F\_p-%%sortG6#7#
-FjwFb_p-F26#-F:6$F\_p<$-F]dm6#F)-F^dmF_`p>8,-Fcw6$7%-F^u6$%#%aG8*Fa^p&Fc^p6#Fi
`p/Fi`pF\_p/Fb^p7#Q%FUNCFi^pC%>F\_p-F^jl6#F^]p-F26#-F:6$F\_p<$-F^dm6#%)function
G-F]dmFjap>Fb`pFc`p/Fb^p7#Q&PAIRSFi^pC'>F\_p-Fe_p6#7#-Fjw6#-FfilFcap-F26#/Fa_pF
e\p>F\_p-&%)combinatG6#.%(permuteGFb_p-F26#-F:6$F\_p%)listlistG>Fb`p-Fcw6$7%-F^
u6$%&%a,%aG&Fi`pFa\pFa^p&Fc^p6#-FjwF[apF\ap-F:6$Fb^p7#-F]dm6#<%F)F`dnFj[oC$>F\_
p-Fjw6$F`_pFb^p>Fb`pFc`p-F:6$Fb^p-F]dm6#Fj[oC(>8--Fhhl6%Q"/Fa\pFfjl-Fjw6#Fhu-F2
6#-F:6$FdepF)@$4-F:6$-Fbal6#FdepF]dn-F]bn6$%CSelection~type~not~implemented~yet
GFb^p>F\_p-FdepFcapFccp>Fb`p-Fcw6$7%-Fhn6$Ff`p;Fe\p!"#Q.sub-selectionFa\pF`dpF\
apFdfp-F_o6#-%,CONTEXTMENUG6%F`^pFa^p7#Fb`pFa\p6%FealF\tF]_pFa\pFa\p,
I+DELETEPLOTR6$'%)positionGFgdn'%%PlotGF[bpF/F-F/-F_o6#-%'subsopG6$/FKF\pF<F/F/
F/6",
I<convert/CONTEXTMENU/TRIPLESRF/6#F]\pFa]nF/C%>Fbo-Fe_p6#7#-Fjw6#--FS6#.Ffil6#9
"-F26#/-FeuFc_n""$>Fbo-&F_cp6#.FbcpFc_nF/F/F/6",
I4type/CF_CONDITIONALRFOF/F-F/-F:6$FK-F\^n6$F^^nFgxF/F/F/6",
I2type/CF_SEPARATORRFOF/F-F/-F:6$FK-F\^n6$F^^n.Fc_lF/F/F/6",
I9type/context/Unbounded@@RFOF/Fa]nF/3-F:6$FKF[bp53-F:6$-Fjw6$Fg`lFKF[bp-F:6$-F
jw6$Fg`lFj[q-.%#@@G6$F^^nF)-F:6$Fj[qF`\qF/F/F/6",
I*lasterror%OIEEE~Math:~SignalNaN,~nan,~0,~000000000000FC7FGF/,
I2type/CM_SEPARATORRFOF/F-F/-F:6$FK-F\^n6$F^^n.Fd_lF/F/F/6",
I+APPENDPLOTR6$F\dn'%*dimensionGFgdn6+%,CoordinatesG%)NewPlotsGFP%&PlistG%"PG%&
PlotsG%/ExcludedColorsG%)newcolorG%(OptionsGF-F/C-@$Fbr--FS6#FirF/@'/F[pF]am>Fh
u7#FK/F[pFaam>FhuFK>FhuFg^q-F26#-F:6$Fhu-F]dm6#<%F]dm%*algebraicG/Fb_qFb_q-F26#
5/F<Fefn/F<F[jp>Fdx-Fc]o6$R6#F_rF/F/F/-F:6$FKF]dmF/F/F/7#&Ffip6#;F[jp9#>8,-F`im
6$RF]`qF/F/F/F^`qF/F/F/F``q>FfemFg`l>Fiy--FS6#FibmF_y>F`tF\p@&Fg_qC%>Fbo--FS6#F
]cmF_y>%6_EnvSMARTPLOTCoords2DGFbo?&F]fmFhuFdrC$@'-F:6$F]fm<$FbimFb_qC'@$53-F:6
$F]fmFb_q2F[o-Feu6#-Ffil6#F]fm3-F:6$F]fmFbim2FefnFebq-F]bn6#%Eattempting~to~add
~3D-Plot~to~2D-PlotG>Fez-FabmFa\l>Fiy7$-FjwFa\lFez>Fjhn-Fjw6#-%*smartplotGFhbq>
Fjhn-F]bm6$Fjhn/.%&colorGFez-F:6$F]fmF]dmC%@$53-F:6$&F]fmFjfnFb_q2F[o-Feu6#-Ffi
l6#Fhdq3-F:6$FhdqFbim2FefnFjdqF]cq>FjhnF]fm@%4-%$hasG6$Fjhn<$F^dq.%'colourGC%>F
ezFacq>FiyFccq>FjhnF[dq>Fiy7$Fdcq-Fjw6#-Fibm6#7#Fjhn-F]bn6#%2unknown~structureG
>F`t6$F`tFjhnFh_qC%>Fbo--FS6#FacmF_y>%6_EnvSMARTPLOTCoords3DGFbo?&F]fmFhuFdrC$@
'F[bqC$@$53FbbqF\cq3Fjbq2F[jpFebq-F]bn6#%3too~many~variablesG>Fjhn-Fjw6#-%,smar
tplot3dGFhbqF`dqC$@$53FfdqFaeq3F_eq2F[jpFjdqF[hq>FjhnF]fmFffq>F`tFjfq6%-FjwF_yF
`t-Fjw6#Ff`qF/FeemF/6",
I0CM_GetArrayVarsR6#'FPF`fn6$%%valsGF,Fa]nF/C%>FboFgo?&F`t<#FfipFdr@%-F:6$F`tF`
fn>Fbo-Fdbn6$Fbo-Fio6$Fjw<#-F]xFfu>Fbo<$FboF`t-FfilFc_nF/F/F/6",
I1context/cmglobalR6$'%#wwG<$%'symbolGFj[o'FPF^^n6'%"wG%,NotAssignedG%%exprG%'n
ewvarGFbdmF-F/C.>FboFK-F26#-F:6$FboF][r>F`tRF]`qF/Fa]nF/C$@$4F`\o-F_o6#Fi`n-F]]
o6#/FK-FbalFb[lF/F/F/@$-F:6$F[p%(indexedGC$>&%7context/cmglobal/namesGFc_n,&-Fj
w6$F[oF[pF[oFcuF[o-F26#3-F:6$F\]r%(integerG1FcuF\]r@$2F[oFd`q>F]fmF<@$-F:6$FboF
j[oC&@$4-F56#F\]r@%4-Ffeq6$-Fdo6$F]fmFj[oFboC$>F\]rFcu-F_oFc_n>F\]rFcu?(Fjhn,&F
\]rF[oF[oF[oF[oF/FdrC$>Fhu-Ff[n6$-Ff\o6%%!GFboFjhnFj[o@$4-Ffeq6$Fg^rFhu%&breakG
>F\]rFjhn-F_oF^x-F26#-F:6$FboF^[r>Fbo-Ff[n6$FKFj[o@&455-F5Fb[lFa^r-Ffeq6$-Fdo6$
F]fmF^[rFbo>F\]rFcuF`^r>F\]rFcu@%-F:6$F]fmF]dn?(FjhnF^_rF[oF/FdrC$>FhuFc_r@$3-F
`tF^x4-Ffeq6$-FbalFhbqFhuFj_r?(FjhnF^_rF[oF/FdrC$>FhuFc_r@$3Fgar4-Ffeq6$F[arFhu
Fj_r>F\]rFjhnF\`rF/6#F]]rF/6",
I.type/CM_CLASSRFOF/F-F/-F:6$FK-F\^n6$F^^n.Fd\lF/F/F/6",
I0type/CM_NOPRINTRF]`qF/Fa]nF/-F:6$FK-F\^n6$F^^n<$%&PADICG%&CFRACGF/F/F/6",
I0type/CM_SUBMENURFOF/F-F/-F:6$FK-F\^n6$Fj[o.F[^lF/F/F/6",
I8context/InitializeProcsR6#'FcqFj[o6$F_r%%KeysGFa]nF/C&>F`t-Fc]o6%F:7#-F_[nFca
l7#F^[r>F`t-Fio6$FjwF`t?&FboF`tFdrC$-F26#-F:6$&F\tFc_nF]dn-F>6$Fbo-Fbal6#Fger>&
%2Context/InitProcsGFb[lFdrF/6$F\tF^frF/6",
I=context/cfparse/act_completeRF^]nF/Fa]nF/C%-FS6#.F\ilFd`n-F\il6#-Fa_l6ZQgnpro
c(s1::uneval,s2::uneval,s3::uneval,s4::uneval,s5::uneval)6"Q_o~~~~local~Eval,~E
valLabel,Parameters,AutoAssignFlag,ParseFlag,Nargs,F\grQO~~~~~~~~F,Labels,Param
s,i,ProcBody,CodeString;F\grQ;~~~~global~none,CM_Global;F\grQ@~~~~"Complete~Act
ion~Template";F\grQD~~~~readlib(~'`context/cmglobal`');F\grQB~~~~readlib(~'`con
text/testeq`');F\grFagrQQ~~~~Parameters~:=~select(~type~,~[args]~,~`=`~);F\grQj
n~~~~AutoAssignFlag~:=~subs(~op(Parameters),~"autoassign"=FAIL~,F\grQ6~~~~~~"au
toassign"~);F\grQX~~~~ParseFlag~:=~~subs(~op(Parameters),~"parse"=false~,F\grQ1
~~~~~~"parse"~);F\grQG~~~~Nargs~:=~nargs~-~nops(Parameters);F\grQap~~~~if~not~t
ype([args[1]]~,~list(list)~)~then~ERROR(`list~of~lists~expected`,args)~fi;F\grQ
D~~~~Eval~:=~()~->~op(~eval(~subs(~|frF\grQM~~~~~~~~~~~PIECEWISE=`context/fixpi
ecewise`,F\grQ:~~~~~~~~~~~MATRIX=matrix,F\grQI~~~~~~~~~~~VECTOR=vector|hr~,~[ar
gs]~)));~F\grQ\p~~~~Labels~:=~vector(~map(~convert~,~map2(~op~,~1~,~[args[1..Na
rgs]]~)~,~name~));F\grQ6~~~~for~i~to~Nargs~doF\grQ<~~~~~~~~if~Labels[i]~=~noneF
\grQK~~~~~~~~or~(not~type(Labels[i],name))~thenF\grQS~~~~~~~~~~~~~Labels[i]~:=~
Eval(op(2..-1,args[i]));F\grQ\p~~~~~~~~elif~not~`context/testeq`(eval(Labels[i]
),~eval(op(2..-1,args[i]))~)~thenF\grFbhrQ,~~~~~~~~fi;F\grQ(~~~~od;F\grQG~~~~if
~type(~procname~,~indexed~)~thenF\grQdo~~~~~~~~Params~:=~seq(~CF_ARG.i~=~op(i,p
rocname)~,~i=1..nops(procname)~);F\grQ)~~~~elseF\grQ8~~~~~~~~Params~:=~NULL;F\g
rQ(~~~~fi;F\grQ8~~~~ProcBody~:=~subs(~|frF\grQ]p~~~~~~~'f'=~~~`if`(~type([Label
s[1]],[indexed])~and~evalb(op(0,Labels[1])=Labels),F\grQN~~~~~~~~~~~~~~~~eval(L
abels[1],1),Labels[1]),F\grQar~~~~~~~'ARGS'~=~(seq(`if`(~type([Labels[i]],[inde
xed])~and~evalb(op(0,Labels[i])=Labels),eval(Labels[i],1),Labels[i]),F\grQ:~~~~
~~~~~~~i=1..Nargs~)),F\grQ/~~~~~~~Params,F\grQS~~~~~~~'`CM_Global`(a)'~=~`conte
xt/cmglobal`('a'),F\grQS~~~~~~~'`CM_Global`(b)'~=~`context/cmglobal`('b'),F\grQ
S~~~~~~~'`CM_Global`(x)'~=~`context/cmglobal`('x'),F\grQL~~~~~~~'CM_GLOBALG'~=~
`context/CM_GLOBALG`,F\grQ1~~~~~~~~NULL~|hr,~F\gr-Fhhl6&FjbnQ9proc()~global~CM_
ASSIGN;F\grFa[lFieoQ'~~~~);F\grQ]o~~~~CodeString~:=~readlib('`context/BuildInpu
tString`')(ProcBody);F\grQho~~~~CodeString~:=~readlib('`context/autoassign`')(C
odeString,AutoAssignFlag);F\grQ>~~~~if~ParseFlag~=~true~then~F\grQP~~~~~~~~Code
String~:=~`context/jointext`(~"~"~,F\grQR~~~~~~~~~~~~"if~true~then"~,~CodeStrin
g~,~"fi"~);F\grQJ~~~~~~~~~parse(~CodeString~,~statement~);F\grFhhrQ4~~~~~~~~Cod
eString;F\grFjhrFieoF/F/F/F\gr,
I6SMARTPLOTFindCoords2DR6#'F[^qF]dm6)Fbdm%"pG%+candidatesG%(nextposG%*newcoords
G%"XG%"YGFa]nF/C)>Fdx.%%_NoXG>Fiy.%%_NoYG-FSF6>FjhnF@>Fhu-&F*6#.%&depthGFhbo?&F
`tFK2FhuFefnC(@$1F[jpFf[sFj_r>F]fm-F`im6%F`fm&F`t6#;FefnF[jp<$FdxFiy@$/F]fmF\`l
%%nextG-Fio6%FFF]fmFjhn?(FboF[oF[o-%$minG6$FefnFf[sFdr@&/FboF[o>Fdx&FjhnFc_n/Fb
oFefn>FiyFc]s>FhuFf[s7$FdxFiyF/F/F/6",
I.EDITSMARTPLOTRF/6(%1characterizationGFbdm%*newoptionGF[^qF^^qFj]qF-F/C%@$FbrF
a^q>FfemFg`l@%-F:6$&FfipFjfnFf]rC)>F`tFd^s>F]fm&Ffip6#Fefn>Fhu-Fc]o6$RF]`qF/F/F
/F^`qF/F/F/F``q>Fjhn-F`im6$RF]`qF/F/F/F^`qF/F/F/F``q>Fdx-F]bm6$&FhuFfuF]fm>Fhu-
Fchp6$/F`tFdxFhu-F_o6$-FjwF^xF_coC(>F]fmFd^s>Fhu-Fc]o6$RF]`qF/F/F/F^`qF/F/F/7#&
Ffip6#;FefnFd`q>Fjhn-F`im6$RF]`qF/F/F/F^`qF/F/F/Fc`s@%-F:6$F]fm/F)F^^n>Fbo-%$lh
sGFhbq>FboF]fm>Fjhn-F`im6%R6$F_r%"yGF/F/F/-FfeqFJF/F/F/FjhnFbo-F_o6%F\`sF_coF]f
mF/FeemF/6",
I4SMARTPLOTColor_ListRF/F/Fa]nF/7*.%$redG.%&greenG.%%blueG.%(magentaG.%'orangeG
.%%plumG.%&coralG.%$tanGF/F/F/6",
I1type/CM_MathFuncRFO6%F\dnF,%#kkG6%%'systemG%)rememberGFjblF/C$@$Fd[qC%>FboFj[
q>F`t-Fax6$/F]fmFbo-.F5Fhbq@%54F`t-F:6$Fbo%)mathfuncG-F_o6#FdrF`\rF`\rF/F/F/6",
IAcontext/cfparse/removeduplicatesR6#'%&clistGF]dm6'%%LocCG%&lastxGFbdmFcdmF\ho
F`hoFahoC+@$2-Feu6#FK""#-F_oFges>8'Ffes>Ffio-F`fn6#;"""F[fs>FhhoFdjm?(8&F`fsF`f
sF[fsFdr@%/&Fejo6#FcfsFhho>&FfioFgfsF\pC$>FifsFffs>FhhoFffs>8(7#-Fcw6$Fifs/Fcfs
F_fs?(FahoF`fsF`fsFaho32""!-Feu6#F^gs/&F^gs6#F`fsQ0<SeparatorLine>Fa\p>F^gs&F^g
s6#;Fhes!""?(FahoF`fsF`fsFaho3Fegs/&F^gs6#FahsF\hs>F^gs&F^gs6#;F`fs!"#F^gsFahoF
ahoFahoFaho,
I.context/cfgetR6$'F_r<$Fj[o-F]dm6#Fj[o'FhasF[bp6$%'valuesGF^^qF-F/C&@$F^`qC$>F
bo-Fio6%F[pFKF<-F_o6#-FjwFc_n>F`t-Fc]o6%F:<#-FjwFd\o/Fj[oF^^n>Fbo-Fax6$F`tFK@%/
FboFK-F_o6#FdjmF[_rF/F/F/6",
I<convert/context/StackToListR6#'%"sGF^t6'FbdmFcdm%#TTG%$TotGFdgnFa]nF/C&F1-F26
#-F:6$FKF*>F`t-&F*6#Fj[sFb[l>Fhu7#-Fcw6$&FKFc_n/Fbo;F[oF`tF/F/F/6",
I6context/cfparse/menusR6%'%#CMGFd\l'F_qF]dm'F\rF]dm6-F\ho%,CurrentMenuGF]q%%He
adGF`qFbdmFcq%(KeyListGFeq%%TailGF_rF-F/C-Fi^o>6$FiyF]fm-F_s6$7$FianQ,Descripti
onF\imFK>%/_EnvContextKeyG--FS6#.F[hl6$Fj]tFiy-F26#-F:6$Fj]tFj[o>Fbo-F`im6%F:Ff
dmFbim>FdxFg`l?&8.FboFdrC(>FdxFghn-Fjt6%""'F\u-F^u6$Q1Content~index=%dFahoFdx@$
4-F:6$Fi^tFd\lFi\s>Fhu-Fio6$Fjw7$F<-Fc]o6%F:&Fbo6#;F[oFdx<&Fd_lFhvF[^lFcz>8--Fi
o6$Fjw7$-Fc]o6%F:&Fbo6#;FdxFcuF_`tFcen-F[p6%Fi^tFhuFa`t>F`t-Fego6&Q'normalFa\pF
j]tF]fm-Fio6$Fjw7%F<-Fc]o6%F:FboF_`tFcen>&F\t6#-F_[p6#Fj]tF`t>Fez-Fc]o6%F:F[er7
#F_[p-Fe_p6$-Fio6$FjwFezR6$F%%"bGF/F/F/-F]]o6#2-Fjw6$F[oFK-Fjw6$F[oF<F/F/F/F/6$
Fj]tF\tF/Faho,
I?convert/CONTEXTMENU/LINEARFUNCRF/6$F]\pF_rFa]nF/C&>Fbo-&F^jl6#.%'linearG6#Fii
q>Fbo7#F^js@$2F[oFjip>Fbo-Fe_p6#Fict-F_o6#7#-Fcw6$7#F`t/F`tFboF/F/F/6",
I4context/InitializedFdrF/,
I<context/cfparse/act_TRIPLESRF^]nF/Fa]nF/C%FdfrFd`n-F\il6#-Fa_l6UF[grQU~~~~loc
al~AutoAssignFlag,ParseFlag,Parameters,Nargs,6"QQ~~~~~~~~F,Labels,Params,i,Proc
Body,CodeString,t;F`etQ1~~~~global~none;F`etQ7~~~~"Action~Template";F`etFcgrFdg
rFegrFfgrFggrFhgrQH~~~~ASSERT(~type([args[1]],listlist)~);F`etQL~~~~F~:=~map2(~
op~,~2~,~[args[1..Nargs]]~);F`etQW~~~~F~:=~eval(~subs(|frPIECEWISE=`context/fix
piecewise`,F`etF\hrQC~~~~~~~~~~~VECTOR=vector|hr~,~F~));~F`etQco~~~~Labels~:=~m
ap(~convert~,~map2(~op~,~1~,~[args[1..Nargs]]~)~,~name~);F`etQ=~~~~for~i~to~nop
s(Labels)~doF`etF`hrFahrQW~~~~~~~~~~~~~Labels~:=~subsop(i=op(2,args[i]),Labels)
;F`etQU~~~~~~~~elif~(eval(Labels[i])~<>~op(2,args[i]))~thenF`etQao~~~~~~~~~~~~~
WARNING(sprintf(~"value~of~%s~has~changed|+",~Labels[i]));F`etFjetFdhrFehrFfhrF
ghrFhhrFihrFjhrF[irQ6~~~~~~~'f'=Labels[1],F`etQ<~~~~~~~'ARGS'~=~op(Labels),F`et
F`irQL~~~~~~~'`CM_Global`(a)'~=~`CM_Global`('a'),F`etQL~~~~~~~'`CM_Global`(b)'~
=~`CM_Global`('b'),F`etQL~~~~~~~'`CM_Global`(x)'~=~`CM_Global`('x'),F`etFeir-Fh
hl6&FjbnQ>proc()~global~locg,CM_ASSIGN;F`etFa[lFieoFiirFjirF[jrF\jrF]jrQfn~~~~~
~~~~~~~~~~~~~~~~~"if~true~then"~,~CodeString~,~"fi"~);F`etQG~~~~~~parse(~CodeSt
ring~,~statement~);F`etFhhrF`jrFjhrFieoF/F/F/F`et,
I+CM_GetVarsRF/F]`qFecsF/C$>Fbo-%&minusG6$-Fdo6$FiiqF)<$%*constantsG.%*otherwis
eG-Fc]o6%R6$F][oFc[rF/6$%)operatorG%&arrowGF/-%(dependsG6$F<FKF/F/F/Fbo7#FfipF/
F/F/6",
I?context/cfparse/classtoifblockR6#'Fj\t<#Fd\l6)F]qF]rF^^qF`]nFjp%+SubClassesGF
_`n6#%jnCopyright~(c)~1997~by~~Waterloo~Maple~Inc.~All~rights~reserved.GF/C1>Fj
]t-F\^t6$Fj]tF]bo-F26#-F5F^s-F26#-F5F[bo>F]fm-Fc]o6%F:FKFbim>Fafm-F_s6$7$Fh]tFj
hmF]fm@$-F:6$F`tFj[o>F`t-Fa_lFfu>Fhu-Fc]o6%F:FKF^_o>Fjhn-Fc]o6%F:FKFcz@$2Fg`lFg
bo>Fjhn-Fio6$-FS6#.FgelFjhn>Fiy-Fa_l6#F\an>Fdx-Fc]o6%F:FKFd\l@$2Fg`lF^yC$>Fdx-F
io6$F[p7#F\iq>Fiy-Fe_nF_y>Fiy-Fa_l6%F\`sF_coFiy@$4--FSFdhlFa\lC%>Fiy-F^u6$Q(Cod
e=%sFb`n-Fd`n6&FjbnQ'proc()FjeoFiyFieo-%'lprintGFa\l-F]bn6#-F^u6$QCunable~to~pa
rse~code~for~Class:~%aFb`nFj]t-F\`n6&/FianFj]t/FjhmF`t/Fh]tFboFiyF/F/F/Fb`n,
I-type/CM_CODERFOF/F-F/-F:6$FK-F\^n6$Fj[oF^_oF/F/F/6",
I5context/fixpiecewiseRF/6$%&fixitGF,Fa]nF/C%>FboRF]`qF/Fa]nF/@%/&FKFi^sFcgt&FK
Fjfn6$Fg^uFh^uF/F/F/>F`t-Fio6$FboF^ht-%*piecewiseG6#FjdmF/F/F/6",
I6SMARTPLOTFindCoords3DRFcjr6*FbdmFgjrFhjrFijrFfjrFjjrF[[s%"ZGFa]nF/C*>FdxF^[s>
FiyFa[s>Fez.%%_NoZGFc[s>FhuF@>F]fm-Fg[sF^x?&FjhnFK2F]fmF[jpC'>F`t-F`im6%F`fm&Fj
hn6#;Fefn""%<%FdxFiyFez@$/F`tF\`lFi\s-Fio6%FFF`tFhu?(Fbo,&F]fmF[oF[oF[oF[o-F^]s
6$F[jpF]`uFdr@(Fa]s>Fdx&FhuFc_nFd]s>FiyFcau/FboF[jp>FezFcau>F]fmF]`u7%FdxFiyFez
F/F/F/6",
I>convert/CONTEXTMENU/transformR6#FP6%F]hmF_r%)CodeTypeG6#F.Fa\pC&>F`^pF_]p@$Fg
]p-F_o6#-Fio6$9!F`]p@--F:6$Fi]p-Fhv6#<$Q)completeFi^pQ%PLOTFi^pC$-F26#-F56#&F\t
6#-F_[l6#Fd^p>8$Fecu-F:6$Fi]p-Fhv6#<(F]dmQ'SINGLEFi^pF`bpQ(TRIPLESFa\pFh^pF_apC
$Facu>Fjcu-Fd[p6$FecuF`^p-F:6$Fi]pFczC%-F26#-F56#&F\t6#-%4CM_CONDITIONAL_DATAGF
hcu>FjcuF]eu>Fjcu-Fjw6#-Fio6%FgbuFjcuF`^p-F:6$Fi]p.-F\^n6$F^^nF_[pC%-F26#-F:6$F
KF_[p>Fjcu-Ffjl6%Fi]pQ(SubMenuFa\pF`^p@$5/FjcuF\p/7$&Fjcu6#F`_p&Fjcu6#F]^p7$F_a
t7">FjcuF\p5-F:6$Fi]pFd_l/Fi]pF\hs>FjcuF\hsC$Facu>FjcuFddu-F_o6#FjcuFa\pF\]pFa\
pFa\p,
I,APPENDPLOTSRFc]qFf]qF-F/C-@$FbrFa^q@'Fe^q>FhuFg^qFh^q>FhuFK>FhuFg^qF[_qFd_q>F
dx-Fc]o6$RF]`qF/F/F/F^`qF/F/F/F``q>Ff`q-F`im6$RF]`qF/F/F/F^`qF/F/F/F``q>FfemFg`
l>FiyF\aq>F`tF\p@&Fg_qC%>FboFcaq>FgaqFbo?&F]fmFhuFdrC$@'F[bqC'@$F`bqF]cq>FezFac
q>FiyFccq>FjhnFfcq>FjhnF[dqF`dqC%@$FddqF]cq>FjhnF]fm@%FdeqC%>FezFacq>FiyFccq>Fj
hnF[dq>FiyF`fqFffq>F`tFjfqFh_qC%>FboF]gq>FagqFbo?&F]fmFhuFdrC$@'F[bqC$@$FggqF[h
q>FjhnF_hqF`dqC$@$FehqF[hq>FjhnF]fmFffq>F`tFjfqF[iqF/FeemF/6",
I6context/defaultconfig-Fcp6=/FianQ'System6"/FjhmQ%trueFg[v/Fh]tQ/Top~Level~Men
uFg[v-F`_l6)Q4if~nargs~=~~0~then~Fg[vQjn~~~~RETURN(~CONTEXTMENU(Empty,`No~Objec
t~Selected`,~[]~)~);~fi;Fg[vQ;Vars~:=~~CM_GetVars(args);Fg[vQ6Nvars~:=~~nops(Va
rs);Fg[vQCFuncs~:=~~indets(|frargs|hr,function);Fg[vQ@FuncNames~:=~~map2(op,0,F
uncs);Fg[vQ5_EnvCM_Vars~:=~Vars;Fg[v-Fcp6+/FianQ3ExpressionSequenceFg[v/FjhmQSn
args~<>~1~or~type(f,specfunc(anything,|fr`$`,seq|hr))Fg[v/Fh]tQ@Actions~on~Expr
ession~SequencesFg[v-F`_l6-Q/g~:=~|fr~args~|hr;Fg[vQ>while~indets(g,set)~<>~|fr
g|hr~doFg[vQgn~~~~g~:=~map(~(x~->~if~type(x,set)~then~op(x)~else~x~fi),g);Fg[vQ
$od;Fg[vQ>if~indets(g,array)~<>~|fr|hr~thenFg[vQA~~~~Vars~:=~~CM_GetArrayVars(g
);Fg[vFdcnFa\vQ>Funcs~:=~~indets(g,function);Fg[vFc\vFd\v-Fdt6'/FbvQ/Make~into~
ListFg[v/F[imQ,ConversionsFg[v/Q+HelpStringFcvQ2Convert~to~a~listFg[v/Q)CodeTyp
e6"F^cu/Q%Code6"Q)[~ARGS~]Fg[v-Fdt6'/FbvQ.Make~into~SetFg[vFj]v/F]^vQ1Convert~t
o~a~setFg[vF_^v/Fc^vQ)|fr~ARGS~|hrFg[v-Fhx6%/Fjhm-F`_l6#Q<type(|frargs|hr,set(a
lgebraic))Fg[vFj]v-Fdt6&/FbvQ,Equate~to~0Fg[v/F]^vQ>Equate~simple~algebraics~to
~0Fg[vF_^v/Fc^v-F`_l6#Q@map(~proc(x)~x=0~end~,~|frARGS|hr);Fg[v-Fcp6&/FianQ*Con
stantsFg[v/FjhmQ(Nvars=0Fg[v/Fh]tQBActions~on~sequences~of~ConstantsFg[v-F`_l6#
Q5ASSERT(~Nvars~=~0~);Fg[v-Fcp6(/FianQ%EqnsFg[v/FjhmQFtype(|frargs|hr,set(algeb
raic=algebraic))Fg[v/Fh]tQBActions~on~sequences~of~EquationsFg[v-Fcp6'/FianQ,De
rivativesFg[v/FjhmQVhas(FuncNames,|frD,Diff,diff|hr)~and~CM_GetFuncs(f)~<>~|fr|
hrFg[v/Fh]tQOActions~on~sequences~of~Differential~EquationsFg[v-Fdt6&/FbvQ+Solv
e~D.E.Fg[v/F]^vQ>Solve~a~differential~equationFg[v/F`^vF_ap/Fc^vQ<dsolve(~|frAR
GS|hr,~|frCF_ARG1|hr~)Fg[v-Fdt6&/FbvQ9Add~an~Initial~ConditionFg[v/F]^vQOAugmen
t~equation~set~with~an~initial~conditionFg[vF_bv/Fc^vQDinitialcondition[CF_ARG1
](~|frARGS|hr~)Fg[v-Fcp6'/FianQ(RecEqnsFg[v/Fjhm-F`_l6&Q2(type(g,set(`=`))Fg[vQ
[o~and~select(type,indets(g,function(linear)),`context/undefined`)Fg[vQA~~~~~mi
nus~CM_GetFuncs(g)~<>~|fr|hr)Fg[vQMand~(FuncNames~intersect~CM_InertFuncs~=~|fr
|hr)Fg[v/Fh]tQMActions~on~sequences~of~Recurrence~EquationsFg[v-Fdt6&/FbvQ1Solv
e~RecurrenceFg[v/F]^vQ<Solve~a~recurrence~relationFg[v/F`^vQ+LINEARFUNCFg[v/Fc^
vQ:rsolve(~|frARGS|hr,~CF_ARG1~)Fg[v-Fdt6&FdbvFfbvF]dvFhbv-Fcp6&F[av/FjhmQ1type
(g,set(`=`))Fg[v/Fh]tQLActions~on~sequences~of~Algebraic~EquationsFg[v-Fdt6&/Fb
vQ5Eliminate~a~variableFg[v/F]^vQ]oDetermine~value~of~a~specific~variable~in~te
rms~of~other~variablesFg[v/F`^vFh^p/Fc^vQ:solvefor[CF_ARG1](~ARGS~)Fg[v-Fcp6&/F
ianQ1System~ConstantsFg[v/FjhmQjnmember(f,|fr0,~true,~false,~FAIL,~infinity|hr)
~or~type(f,~infinity)Fg[v/Fh]tQ<Actions~on~System~ConstantsFg[v-Fhx6%/Fjhm-F`_l
6&Q(f=0~andFg[vQM(SearchText("~NT",~interface(version))<>0~orFg[vQKSearchText("
PPC",interface(version))<>0~orFg[vQ<interface(prompt)='`#-->`')Fg[v/F[imQ&Plots
Fg[v-Fdt6&/FbvQ(2D-PlotFg[v/F]^vQ@Generate~a~two-dimensional~plotFg[vF_^v/Fc^vQ
-smartplot(f)Fg[v-Fcp6+/FianQ'NumberFg[v/FjhmQgntype(f,algebraic)~and~Nvars~=~0
~and~indets(f,CM_Matrix)~=~|fr|hrFg[v/Fh]tQ3Actions~on~NumbersFg[v-Fdt6&/FbvQ,A
pproximateFg[v/F]^vQCUse~n-digit~floating~point~numbersFg[v/F`^v7'F_hn"#5"#?"#]
"$+"/Fc^vQ2evalf(f,~CF_ARG1)Fg[v-Fhx6%/Fjhm-F`_l6&Q3not~(has(f,I))~andFg[vF`fvF
afvFbfvFcfvFefv-Fcp6-/FianQ(IntegerFg[v/FjhmQ0type(f,integer)Fg[v/Fh]tQ4Actions
~on~IntegersFg[v-Fdt6&/FbvQ0Integer~FactorsFg[v/F]^vQ2Factor~an~integerFg[vF_^v
/Fc^vQ+ifactor(f)Fg[v-Fdt6&/FbvQ+Next~PrimeFg[v/F]^vQ>Locate~the~next~largest~p
rimeFg[vF_^v/Fc^vQ8numtheory[nextprime](f)Fg[v-Fdt6&/FbvQ/Test~PrimalityFg[v/F]
^vQ3Test~for~primalityFg[vF_^v/Fc^vQ6numtheory[isprime](f)Fg[v-Fdt6&/FbvQ)Divis
orsFg[v/F]^vF\[wF_^v/Fc^vQ7numtheory[divisors](f)Fg[v-Fdt6&/FbvQ$PhiFg[v/F]^vQ1
Totient~functionFg[vF_^v/Fc^vQ2numtheory[phi](f)Fg[v-Fdt6&/FbvQ$TauFg[v/F]^vQ<N
umber~of~positive~divisorsFg[vF_^v/Fc^vQ2numtheory[tau](f)Fg[v-Fdt6&/FbvQ&Sigma
Fg[v/F]^vQ9Sum~of~positive~divisorsFg[vF_^v/Fc^vQ4numtheory[sigma](f)Fg[v-Fhx6$
/FjhmQ1type(f,negative)Fg[v-Fdt6&/FbvQ/Absolute~ValueFg[v/F]^vQBThe~absolute~va
lue~of~the~integerFg[vF_^v/Fc^vQ'abs(f)Fg[v-Fcp6)/FianQ4Non-Integer~NumericFg[v
/FjhmQ1type(f,realcons)Fg[v/Fh]tQAActions~on~Non-Integer~ConstantsFg[v-Fdt6&/Fb
vQ&FloorFg[v/F]^vQ6Next~smallest~integerFg[vF_^v/Fc^vQ)floor(f)Fg[v-Fdt6&/FbvQ(
CeilingFg[v/F]^vQ5Next~largest~integerFg[vF_^v/Fc^vQ(ceil(f)Fg[v-Fdt6&/FbvQ0Fra
ctional~PartFg[v/F]^vQ<Fractional~part~of~a~numberFg[vF_^v/Fc^vQ(frac(f)Fg[v-Fc
p6'/FianQ&FloatFg[v/FjhmQ.type(f,float)Fg[v/Fh]tQ?Actions~on~Approximate~Number
sFg[v-Fdt6'/FbvQ)RationalFg[vFj]v/F]^vQ=Convert~to~a~rational~numberFg[vF_^v/Fc
^vQ6convert(f,'rational')Fg[v-Fdt6'/FbvQ3Continued~FractionFg[vFj]v/F]^vQ@Conve
rt~to~a~continued~fractionFg[vF_^v/Fc^vQ<convert(evalf(f),'confrac')Fg[v-Fcp6,/
FianQ(ComplexFg[v/FjhmQ0type(f,complex)Fg[v/Fh]tQ;Actions~on~Complex~NumbersFg[
v-F`_l6#QOASSERT(~not~type(f,~|frinteger,rational,float|hr))Fg[v-Fdt6&/FbvQ*Rea
l~PartFg[v/F]^vQ6Real~part~of~a~numberFg[vF_^v/Fc^vQ&Re(f)Fg[v-Fdt6&/FbvQ/Imagi
nary~PartFg[v/F]^vQ;Imaginary~part~of~a~numberFg[vF_^v/Fc^vQ&Im(f)Fg[v-Fdt6&/Fb
vQ*ConjugateFg[v/F]^vQ>Complex~conjugate~of~a~numberFg[vF_^v/Fc^vQ-conjugate(f)
Fg[v-Fdt6&/FbvQ%NormFg[v/F]^vQ(L2~normFg[vF_^v/Fc^vQ:sqrt(~Re(f)^2~+~Im(f)^2)~F
g[v-Fdt6'/FbvQ(a~+~b~iFg[vFj]v/F]^vQ:Write~as~a~complex~numberFg[vF_^v/Fc^vQ+ev
alc(~f~)Fg[v-Fdt6'/FbvQ&PolarFg[vFj]v/F]^vQ=Convert~to~polar~coordinatesFg[vF_^
v/Fc^vQ:convert(evalc(~f~),polar)Fg[v-Fcp6&/FianQ<Constant~Valued~ExpressionsFg
[v/FjhmQHFuncNames~intersect~CM_InertFuncs~<>~|fr|hrFg[v/Fh]tQGActions~on~Const
ant~Valued~ExpressionsFg[v-Fdt6&/FbvQ)EvaluateFg[v/F]^vQ:Complete~indicated~act
ionFg[vF_^v/Fc^vQ)value(f)Fg[v-Fcp6,/FianQ%NameFg[v/FjhmQWtype(f,name)~and~not~
type(f,|frtable,procedure,hfarray|hr)Fg[v/Fh]tQ1Actions~on~NamesFg[v-Fdt6&/FbvQ
.DifferentiateFg[v/F]^vQ4Take~the~derivativeFg[vF_ev/Fc^vQ1diff(f,CF_ARG1);Fg[v
-Fdt6&/FbvQ*IntegrateFg[v/F]^vQAEvaluate~the~indefinite~integralFg[vF_ev/Fc^vQ0
int(f,CF_ARG1);Fg[v-Fdt6'/FbvQ+DerivativeFg[v/F[imQ.ConstructionsFg[v/F]^vQ7Con
struct~a~derivativeFg[vF_ev/Fc^vQ1Diff(f,CF_ARG1);Fg[v-Fdt6'/FbvQ)IntegralFg[vF
cgw/F]^vQ6Construct~an~integralFg[vF_ev/Fc^vQ0Int(f,CF_ARG1);Fg[v-Fhx6$/Fjhm-F`
_l6%F`fvFafvFbfv-Fdt6'/FbvQ%PlotFg[vFcfv/F]^vQ5Plot~in~2~dimensionsFg[vF_^vF[gv
-Fhx6%/FjhmQ6type(f,HasAssumption)Fg[v-Fdt6&/FbvQ1What~AssumptionsFg[v/F]^vQIDi
splay~assumptions~placed~on~a~variableFg[vF_^v/Fc^vQ2about(f);~eval(f)Fg[v-Fdt6
&/FbvQ3Remove~AssumptionsFg[v/F]^vQCRemove~assumptions~from~a~variableFg[vF_^v/
Fc^vQ8CM_RemoveAssumptions(f)Fg[v-Fhx6(/FjhmQ4not~type(f,indexed)Fg[v-Fdt6'/Fbv
Q-Non-NegativeFg[v/F[imQ,AssumptionsFg[v/F]^vQ=Assume~value~is~non-negativeFg[v
F_^v/Fc^vQ3additionally(0<=f)Fg[v-Fdt6'/FbvQ2Strictly~PositiveFg[vFhjw/F]^vQBAs
sume~value~is~strictly~positiveFg[vF_^v/Fc^vQ2additionally(0<f)Fg[v-Fdt6'/FbvQ-
Non-PositiveFg[vFhjw/F]^vQ=Assume~value~is~non-positiveFg[vF_^v/Fc^vQ3additiona
lly(f<=0)Fg[v-Fdt6'/FbvQ2Strictly~NegativeFg[vFhjw/F]^vQBAssume~value~is~strict
ly~negativeFg[vF_^v/Fc^vQ2additionally(f<0)Fg[v-Fdt6'/FbvQ)Non-ZeroFg[vFhjw/F]^
vQ9Assume~value~is~non-zeroFg[vF_^v/Fc^vQ3additionally(f<>0)Fg[v-Fcp6(/FianQ'St
ringFg[v/FjhmQ/type(f,string)Fg[v/Fh]tQ3Actions~on~StringsFg[v-Fhx6$/FjhmQ1CM_I
sParsable(f)Fg[v-Fdt6&/FbvQ&ParseFg[v/F]^vQ;Parse~as~a~Maple~statementFg[vF_^v/
Fc^vQ)parse(f)Fg[v-Fdt6&/FbvQ'LengthFg[v/F]^vQCDetermine~the~number~of~characte
rsFg[vF_^v/Fc^vQ*length(f)Fg[v-Fdt6'/FbvQ1Make~into~SymbolFg[v/F]^vQ4Convert~to
~a~symbolFg[vFj]vF_^v/Fc^vQ2convert(f,symbol)Fg[v-Fcp6%/FianQ(BooleanFg[v/FjhmQ
Itype(f,boolean)~and~not~type(f,relation)Fg[v/Fh]tQ?Actions~on~Boolean~Expressi
onsFg[v-Fcp6+/FianQ)RelationFg[v/FjhmQStype(f,relation)~and~type([op(f)],list(a
lgebraic))Fg[v/Fh]tQ=Actions~on~General~RelationsFg[v-Fdt6&/FbvQ/Left-hand~Side
Fg[v/F]^vQ6Left~side~of~relationFg[vF_^v/Fc^vQ'lhs(f)Fg[v-Fdt6&/FbvQ0Right-hand
~SideFg[v/F]^vQ7Right~side~of~relationFg[vF_^v/Fc^vQ'rhs(f)Fg[v-Fdt6&/FbvQ-Move
~To~LeftFg[v/F]^vQ>Move~to~left~side~of~relationFg[vF_^v/Fc^vQ<op(0,f)(lhs(f)-r
hs(f)~,~0~)Fg[v-Fdt6&/FbvQ.Move~To~RightFg[v/F]^vQ?Move~to~right~side~of~relati
onFg[vF_^v/Fc^vQ9op(0,f)(0,rhs(f)-lhs(f))Fg[v-Fcp6)/FianQ)EquationFg[v/FjhmQ,ty
pe(f,`=`)Fg[v/Fh]tQ5Actions~on~EquationsFg[v-Fcp6'Fcav/FjhmQWhas(FuncNames,~|fr
D,Diff,diff|hr)~and~CM_GetFuncs(f)~<>~|fr|hrFg[v/Fh]tQBActions~on~Differential~
EquationsFg[v-Fdt6&F[bvF]bvF_bv/Fc^vQ7dsolve(~f~,~|frCF_ARG1|hr)Fg[v-Fdt6&FdbvF
fbvF_bv/Fc^vQ?initialcondition[CF_ARG1](~f~)Fg[v-Fcp6'F\cv/Fjhm-F`_l6%Qhn(selec
t(type,indets(f,function(linear)),`context/undefined`)~Fg[vQ<minus~CM_GetFuncs(
f)~<>~|fr|hr)Fg[vFdcv/Fh]tQ@Actions~on~Recurrence~EquationsFg[v-Fdt6&FicvF[dvF]
dv/Fc^vQ6rsolve(~f~,~CF_ARG1~)Fg[vFadv-Fcp6&/FianQ&Var_1Fg[v/FjhmQ\oNvars=1~and
~(lhs(f)<>Vars[1]~or~has(indets(rhs(f),name),Vars[1]))Fg[v/Fh]tQEActions~on~Sin
gle~Variable~RelationsFg[v-Fdt6&/FbvQ&SolveFg[v/F]^vQ>Determine~value~of~a~vari
ableFg[vF_^v/Fc^vQ-solve(~|frf|hr~)Fg[v-Fcp6'/FianQ&Var_nFg[v/FjhmQ*Nvars~>~1Fg
[v/Fh]tQDActions~on~Multi-Variable~RelationsFg[v-Fdt6&/FbvQ>Solve~Equation~for~
a~VariableFg[v/F]^vQ>Solve~equation~for~a~variableFg[vF_ev/Fc^vQ7solve(~|frf|hr
,~|frCF_ARG1|hr)Fg[v-Fcp6'/FianQ4Plottable~RelationsFg[v/FjhmQfn(not~has(f,I))~
and~(FuncNames~intersect~CM_InertFuncs~=~|fr|hr)Fg[v/Fh]tQ@Actions~for~2D~and~3
D~relationsFg[v-Fhx6%/Fjhm-F`_l6&Q.Nvars~=~2~andFg[vF`fvFafvFbfvFcfv-Fdt6&/FbvQ
1Implicit~2D-PlotFg[v/F]^vFfgx/F`^vF`bp/Fc^vQ>smartplot[CF_ARG1,CF_ARG2](f)Fg[v
-Fhx6%/Fjhm-F`_l6&Q.Nvars~=~3~andFg[vF`fvFafvFbfvFcfv-Fdt6&/FbvQ1Implicit~3D-Pl
otFg[v/F]^vFdhx/F`^vFadu/Fc^vQHsmartplot3d[CF_ARG1,CF_ARG2,CF_ARG3](f)Fg[v-Fcp6
'/FianQ+InequalityFg[v/FjhmQ0not~type(f,`=`)Fg[v/Fh]tQ8Actions~on~InequalitiesF
g[v-Fdt6&/FbvQ'EquateFg[v/F]^vQ8Change~into~an~equationFg[vF_^v/Fc^vQ0lhs(f)~=~
rhs(f)Fg[v-Fdt6&/FbvQ'VerifyFg[v/F]^vQAApply~heuristic~test~to~relationFg[vF_^v
/Fc^vQ)evalb(f)Fg[v-Fcp6*/FianQ%ListFg[v/FjhmQ-type(f,list)Fg[v/Fh]tQ1Actions~o
n~ListsFg[v-F`_l6#Q9ASSERT(~type(f,~list)~);Fg[v-Fdt6'Fh^vFj]vFj^vF_^v/Fc^vQ/co
nvert(f,set)Fg[v-Fhx6%/FjhmQHnops(f)~>~0~and~type(f,list(algebraic))Fg[vFj]v-Fd
t6&Ff_vFh_vF_^v/Fc^v-F`_l6#Q>map(~proc(x)~x=0~end~,~ARGS);Fg[v-Fhx6$/FjhmQ,nops
(f)~>~1Fg[v-Fdt6&/FbvQ%SortFg[v/F]^vQ*Sort~listFg[vF_^v/Fc^vQ(sort(f)Fg[v-Fcp6&
F[av/FjhmQ_p(nops(f)~>~0)~and~(type(f,list(algebraic=algebraic)))~and~(not~has(
f,|frD,Diff,diff|hr))Fg[v/Fh]tQ>Actions~on~Lists~of~EquationsFg[v-Fdt6&/FbvQ4So
lve~Each~EquationFg[v/F]^vQGSolve~each~equation~in~list~separatelyFg[vF_ev/Fc^v
Q9map(solve,~f,~|frCF_ARG1|hr)Fg[v-Fcp6)/FianQ$SetFg[v/FjhmQ,type(f,set)Fg[v/Fh
]tQ0Actions~on~SetsFg[v-Fcp6&F``vFb`v/Fh]tQ=Actions~on~sets~of~ConstantsFg[vFf`
v-Fdt6'Fh]vFj]vF\^vF_^v/Fc^vQ4convert(~f~,~list~)Fg[v-Fhx6%/FjhmQGnops(f)~>~0~a
nd~type(f,set(algebraic))Fg[vFj]v-Fdt6&Ff_vFh_vF_^v/Fc^v-F`_l6#Q;map(~proc(x)~x
=0~end~,~f);Fg[v-Fcp6)F[av/FjhmQct((nops(f)~>~1)~and~(type(f,set(algebraic=alge
braic))))~or~~~~~~~~~~~~((nops(f)~=~1)~and~(type(op(f),`=`)~and~not~type(op(f),
name=constant)~and~Nvars>0))Fg[v/Fh]tQ=Actions~on~sets~of~EquationsFg[vFjbxFhcx
-Fcp6&/FianQ'Eqns_1Fg[v/FjhmQ*nops(f)=1Fg[v/Fh]tQBActions~on~an~Algebraic~Equat
ionsFg[v-Fdt6&F_exF]evF_ev/Fc^vQ9solve(~f~,~|fr~CF_ARG1~|hr~)Fg[v-Fcp6&/FianQ'E
qns_2Fg[v/FjhmQ*nops(f)>1Fg[v/Fh]tQGActions~on~sets~of~Algebraic~EquationsFg[v-
Fdt6&/FbvQ*EliminateFg[vF]evF_ev/Fc^vQ7solvefor[CF_ARG1](~f~)Fg[v-Fcp6(/FianQ&R
angeFg[v/FjhmQ.type(f,range)Fg[v/Fh]tQ2Actions~on~RangesFg[v-Fdt6&/FbvQ2Left~En
d~of~RangeFg[v/F]^vQ>Get~starting~point~of~a~rangeFg[vF_^vFh`x-Fdt6&/FbvQ3Right
~End~of~RangeFg[v/F]^vQ<Get~ending~point~of~a~rangeFg[vF_^vF`ax-Fdt6&/FbvQ.Reve
rse~RangeFg[v/F]^vQ=Reverse~the~order~of~a~rangeFg[vF_^v/Fc^vQ/rhs(f)..lhs(f)Fg
[v-Fcp6'/FianQ*HasSeriesFg[v/FjhmQ7indets(f,series)~<>~|fr|hrFg[v/Fh]tQIActions
~on~expressions~containing~SeriesFg[v-Fcp6'/FianQ*NotSeriesFg[v/FjhmQ4not~type(
f,~series)Fg[v/Fh]tQ[oActions~on~expressions~which~contain~series~(but~are~not~
series)Fg[v-Fdt6&/FbvQ/Series~about~0Fg[v/F]^vQSSeries~of~expression~about~0~in
~specified~variableFg[vF_ev/Fc^vQ4series(f,CF_ARG1=0)Fg[v-Fdt6&/FbvQ/Series~abo
ut~aFg[v/F]^vQ[oSeries~of~expression~about~a~general~point~in~specified~variabl
eFg[vF_ev/Fc^vQ?series(f,CF_ARG1=CM_Global(a))Fg[v-Fcp6+/FianQ'SeriesFg[v/FjhmQ
/type(f,series)Fg[v/Fh]tQ2Actions~on~SeriesFg[v-Fdt6&/FbvQ>Truncate~Series~to~P
olynomialFg[v/F]^vQ2Remove~Order~termFg[vF_^v/Fc^vQ6convert(~f,~polynom~)Fg[v-F
dt6&/FbvQ3Pade~ApproximationFg[v/F]^vQ>Convert~to~a~Pade~approximantFg[vF_^v/Fc
^vQ5convert(~f,~ratpoly)Fg[vF_fwFgfwF_gwFigw-Fcp6%/FianQ*ProcedureFg[v/FjhmQ2ty
pe(f,procedure)Fg[v/Fh]tQ6Actions~on~ProceduresFg[v-Fcp6'/FianQ*HasMatrixFg[v/F
jhm-F`_l6$QDselect(type,indets(f,array),matrix)Fg[vQYunion~indets(f,specfunc(an
ything,|frMATRIX,matrix|hr))~<>~|fr|hrFg[v/Fh]tQ<Objects~containing~MatricesFg[
v-Fcp6&/FianQ*NotMatrixFg[v/FjhmQZnot~(type(f,|frmatrix,specfunc(anything,|frMA
TRIX,matrix|hr)|hr))Fg[v/Fh]tQ_oActions~on~expressions~which~contain~matrices~(
but~are~not~matrices)Fg[v-Fdt6&/FbvQ5Evaluate~as~a~MatrixFg[v/F]^vQ;Evaluate~ma
trix~expressionFg[vF_^v/Fc^v-F`_l6#Q*evalm(f);Fg[v-Fcp6-/FianQ'MatrixFg[v/FjhmQ
Ttype(f,|frmatrix,specfunc(anything,|frMATRIX,matrix|hr)|hr)Fg[v/Fh]tQ2Matrix~O
perationsFg[v-F`_l6#QC_EnvCM_Vars~:=~CM_GetArrayVars(f);Fg[v-Fdt6&/FbvQ*Transpo
seFg[v/F]^vQ6Transpose~of~a~matrixFg[vF_^v/Fc^v-F`_l6#Q5linalg[transpose](f)Fg[
v-Fdt6&/FbvQ&ShapeFg[v/F]^vQ;Number~of~rows~and~columnsFg[vF_^v/Fc^v-F`_l6#QF[l
inalg[rowdim](f),linalg[coldim](f)]Fg[v-Fdt6'/FbvQ&MapleFg[v/F]^vQDGenerate~cor
responding~Maple~syntaxFg[vFj]vF_^v/Fc^vQ7sprintf(`%a`,evalm(f))Fg[v-Fdt6'/FbvQ
&LaTeXFg[v/F]^vQDGenerate~corresponding~LaTeX~syntaxFg[vFj]vF_^v/Fc^vQ)latex(f)
Fg[v-F`_l6#QCg~:=~eval(subs(MATRIX=matrix,f)~);Fg[v-Fhx6&/FjhmQ=not~(has([op(g)
],~infinity))Fg[v-Fdt6&/FbvQ%RankFg[v/F]^vQ1Rank~of~a~matrixFg[vF_^v/Fc^v-F`_l6
#Q3linalg[rank](~f~);Fg[v-Fdt6'/FbvQ+C~LanguageFg[v/F]^vQ:Generate~optimized~C~
CodeFg[vFj]vF_^v/Fc^vQ:readlib(C)(f,'optimized')Fg[v-Fdt6'/FbvQ(FORTRANFg[v/F]^
vQ@Generate~optimized~FORTRAN~CodeFg[vFj]vF_^v/Fc^vQ7fortran(f,'optimized')Fg[v
-Fcp6./FianQ'SquareFg[v/FjhmQco(linalg[rowdim](g)=linalg[coldim](g))~and~(not~(
has([op(g)],~infinity)))Fg[v/Fh]tQ;Actions~on~Square~MatricesFg[v-Fdt6&/FbvQ,De
terminantFg[v/F]^vQ8Determinant~of~a~matrixFg[vF_^v/Fc^v-F`_l6#Q/linalg[det](f)
Fg[v-Fdt6&/FbvQ(InverseFg[v/F]^vQ4Inverse~of~a~matrixFg[vF_^v/Fc^v-F`_l6#Q3lina
lg[inverse](f)Fg[v-Fdt6&/FbvQ&TraceFg[v/F]^vQ2Trace~of~a~matrixFg[vF_^v/Fc^v-F`
_l6#Q1linalg[trace](f)Fg[v-Fdt6&/FbvQ:Characteristic~PolynomialFg[v/F]^vQKFind~
characteristic~polynomial~of~a~matrixFg[vF_^v/Fc^v-F`_l6#QFlinalg[charpoly](~f~
,~CM_Global('x'))Fg[v-Fdt6&/FbvQ,EigenvaluesFg[v/F]^vQGEigenvalues~of~a~linear~
transformationFg[vF_^v/Fc^v-F`_l6#Q7linalg[eigenvals](~f~)Fg[v-Fdt6&/FbvQ-Eigen
vectorsFg[v/F]^vQHEigenvectors~of~a~linear~transformationFg[vF_^v/Fc^v-F`_l6#Q8
linalg[eigenvects](~f~)Fg[v-F`_l6#QDEntries~:=~map(op,~|frentries(~g~)|hr);Fg[v
-Fcp6'/FianQ.IntegerMatrixFg[v/FjhmQ;type(Entries,set(integer))Fg[v/Fh]tQ:Integ
er~Matrix~OperationsFg[v-Fdt6&/FbvQ2Smith~Normal~FormFg[v/F]^vQGSmith~normal~fo
rm~of~an~integer~matrixFg[vF_^v/Fc^v-F`_l6#Q4linalg[ismith](~f~)Fg[v-Fdt6&/FbvQ
4Hermite~Normal~FormFg[v/F]^vQIHermite~normal~form~of~an~integer~matrixFg[vF_^v
/Fc^v-F`_l6#Q6linalg[ihermite](~f~)Fg[v-Fcp6'/FianQ0AlgebraicMatrixFg[v/FjhmQZi
ndets(Entries,name)~<>~|fr|hr~and~type(Entries,set(polynom))Fg[v/Fh]tQ<Algebrai
c~Matrix~OperationsFg[v-Fdt6&Fhbz/F]^vQISmith~normal~form~of~an~algebraic~matri
xFg[vF_ev/Fc^v-F`_l6#Q=linalg[smith](~f~,~CF_ARG1~)Fg[v-Fdt6&Fbcz/F]^vQKHermite
~normal~form~of~an~algebraic~matrixFg[vF_ev/Fc^v-F`_l6#Q?linalg[hermite](~f~,~C
F_ARG1~)Fg[v-Fcp6'/FianQ*HasVectorFg[v/Fjhm-F`_l6$QDselect(type,indets(f,array)
,vector)Fg[vQZ~union~indets(f,specfunc(anything,|frVECTOR,vector|hr))~<>~|fr|hr
Fg[v/Fh]tQ>Actions~on~Vector~ExpressionsFg[v-Fcp6&/FianQ*NotVectorFg[v/FjhmQZno
t~(type(f,|frvector,specfunc(anything,|frVECTOR,vector|hr)|hr))Fg[v/Fh]tQ]oActi
ons~on~expressions~which~contain~vectors~(but~are~not~vectors)Fg[v-Fdt6&/FbvQ5E
valuate~as~a~VectorFg[v/F]^vQ;Evaluate~vector~expressionFg[vF_^vFchy-Fcp6./Fian
Q'VectorFg[v/FjhmQTtype(f,|frvector,specfunc(anything,|frVECTOR,vector|hr)|hr)F
g[v/Fh]tQ3Actions~on~VectorsFg[vF_iy-Fdt6'/FbvQ2One-column~MatrixFg[vFj]v/F]^vQ
?Convert~to~a~one~column~matrixFg[vF_^v/Fc^vQOmatrix(~[seq([f[i]],i=1..linalg[v
ectdim](f))])Fg[v-Fdt6'/FbvQ/One-row~MatrixFg[vFj]v/F]^vQ<Convert~to~a~one-row~
matrixFg[vF_^v/Fc^vQOmatrix(~[[seq(f[i],i=1..linalg[vectdim](f))]])Fg[v-Fdt6'Fh
]vFj]vF\^vF_^v/Fc^v-F`_l6#Fc^y-Fdt6&/FbvQ*DimensionFg[v/F]^vQ3Length~of~a~vecto
rFg[vF_^v/Fc^v-F`_l6#Q3linalg[vectdim](f)Fg[v-Fdt6&Fd^xFccwF_^v/Fc^v-F`_l6#Q2li
nalg[norm](f,2)Fg[vFfjyF^[z-Fhx6%F[\zFg\zF_]z-Fcp6'/FianQ&TableFg[v/FjhmQ.type(
f,table)Fg[v/Fh]tQ=Actions~on~Tables~and~ArraysFg[v-Fdt6&/FbvQ(IndicesFg[v/F]^v
Q8Get~indicies~of~a~tableFg[vF_^v/Fc^vQ-[indices(f)]Fg[v-Fdt6&/FbvQ(EntriesFg[v
/F]^vQ7Get~entries~of~a~tableFg[vF_^v/Fc^vQ-[entries(f)]Fg[v-Fcp6&/FianQ(Hfarra
yFg[v/FjhmQ0type(f,hfarray)Fg[v/Fh]tQEActions~on~Arrays~of~Hardware~FloatsFg[v-
Fdt6'/FbvQ5Software~Float~ArrayFg[vFj]v/F]^vQAConvert~array~to~software~floatsF
g[vF_^v/Fc^vQ5convert(~f~,~array~)Fg[v-Fcp6//FianQ)MathFuncFg[v/FjhmQ4type(f,CM
_MathFunc)Fg[v/Fh]tQBActions~on~Mathematical~FunctionsFg[v-F`_l6#Q5ASSERT(~Nvar
s~>~0~);Fg[v-Fcp6%/FianQ*PrintFUNCFg[v/FjhmQ3type(f,CM_NOPRINT)Fg[v/Fh]tQEActio
ns~on~Pretty-Printing~FunctionsFg[v-Fhx6%/FjhmQ:not(type(f,CM_PIECEWISE))Fg[v-F
dt6'FhjyFjjyFj]vF_^v/Fc^vQ1sprintf(`%a`,f);Fg[vF^[z-Fhx6%/FjhmQin(not(type(f,CM
_PIECEWISE)))~and~(not(hastype(f,|frlist,range|hr)))Fg[vFg\zF_]z-Fdt6&FaewFcewF
_^v/Fc^vQ*value(f);Fg[v-Fhx6%/FjhmQ;not~type(f,function(name))Fg[v-Fdt6&/FbvQ)S
implifyFg[v/F]^vQ4Simplify~expressionFg[vF_^v/Fc^vQ-simplify(f);Fg[v-Fdt6&/FbvQ
'ExpandFg[v/F]^vQ2Expand~expressionFg[vF_^v/Fc^vQ*expand(f)Fg[v-Fhx6%/FjhmQNnot
~(FuncNames~intersect~CM_InertFuncs~<>~|fr|hr)Fg[vF_fwFgfw-Fhx6%/Fjhm-F`_l6(QP(
not~(FuncNames~intersect~CM_InertFuncs~<>~|fr|hr))Fg[vQ0and~(Nvars~=~1)Fg[vQ3an
d~(not~has(f,I))Fg[vQOand~(SearchText("~NT",~interface(version))<>0~Fg[vQN~~~or
~SearchText("PPC",interface(version))<>0Fg[vQ@~or~interface(prompt)='`#-->`')Fg
[vFcfvFefv-Fhx6%/Fjhm-F`_l6(Fb`[lQ0and~(Nvars~=~2)Fg[vFd`[lFe`[lFf`[lFg`[lFcfv-
Fdt6&/FbvQ(3D-PlotFg[v/F]^vQBGenerate~a~three-dimensional~plotFg[vFhgx/Fc^vQ@sm
artplot3d[CF_ARG1,CF_ARG2](f)Fg[v-Fcp6,/FianQ5Other~Math~FunctionsFg[v/FjhmQcon
ot~(type(f,~CM_PIECEWISE)~or~(FuncNames~intersect~CM_InertFuncs~<>~|fr|hr))Fg[v
/Fh]tQBActions~on~General~Math~FunctionsFg[vF_gwFigw-Fdt6'/FbvQ2Definite~Integr
alFg[vFcgw/F]^vQ>Construct~a~definite~integralFg[vF_ev/Fc^vQ:Int(f,CF_ARG1=`%?`
..`%?`)Fg[v-Fdt6'/FbvQ$SumFg[vFcgw/F]^vQ9Construct~a~definite~sumFg[vF_ev/Fc^vQ
:Sum(f,CF_ARG1=`%?`..`%?`)Fg[v-Fdt6'/FbvQ(ProductFg[vFcgw/F]^vQ=Construct~a~def
inite~productFg[vF_ev/Fc^vQ>Product(f,CF_ARG1=`%?`..`%?`)Fg[v-Fdt6'/FbvQ&LimitF
g[vFcgw/F]^vQ2Construct~a~limitFg[vF_ev/Fc^vQ6Limit(f,CF_ARG1=`%?`)Fg[v-Fcp6'/F
ianQ;Non-Trivial~Trig~FunctionsFg[v/FjhmQTtype(f,function(|fr`^`,`+`,`*`|hr))~a
nd~(type(f,~trig))Fg[v/Fh]tQOActions~on~Non-Trivial~Trigonometric~FunctionsFg[v
-Fdt6'/FbvQ,ExponentialFg[vFj]v/F]^vQARewrite~in~terms~of~exponentialsFg[vF_^v/
Fc^vQ3convert(~f~,~exp~)Fg[v-Fhx6%/FjhmQ>not~member(op(0,f),|frsin,cos|hr)Fg[vF
j]v-Fdt6&/FbvQ(sin/cosFg[v/F]^vQDRewrite~in~terms~of~sine~and~cosineFg[vF_^v/Fc
^vQ6convert(~f~,~sincos~)Fg[v-Fcp69/FianQ5Algebraic~ExpressionFg[vFh[v/Fh]tQIAc
tions~on~remaining~general~expressionsFg[vFj\[lF_fwFgfwF_gwFigwF^b[lFfb[lF^c[lF
fc[l-Fdt6'FhjyFjjyFj]vF_^v/Fc^vQ0sprintf(`%a`,f)Fg[vF^[z-Fhx6$/Fjhm-F`_l6#Q:ind
ets(f,|fr`*`,`^`|hr)~<>~|fr|hrFg[v-Fdt6&/FbvQ'FactorFg[v/F]^vQPFactor~(as~if~th
e~expression~were)~a~polynomialFg[vF_^v/Fc^vQ*factor(f)Fg[v-Fhx6%/FjhmQ<not~has
type(f,|frlist,range|hr)Fg[vFg\zF_]z-Fhx6%/Fjhm-F`_l6%Q7(not~type(f,expanded))F
g[vQO~or~(type(f,ratpoly)~and~degree(denom(f))~>~0)Fg[vQN~or~type(f,'`context/h
asexpandablemathfunc`')Fg[v-Fdt6&F[_[l/F]^vQRSimplify~(as~if~the~expression~wer
e)~a~polynomialFg[vF_^v/Fc^vQ,simplify(f)Fg[v-Fdt6&Fc_[l/F]^vQPExpand~(as~if~th
e~expression~were)~a~polynomialFg[vF_^vFg_[lFegvF]`[lFh`[l-Fcp6'/FianQ+Polynomi
alFg[v/FjhmQ0type(f,polynom)Fg[v/Fh]tQ4Rational~PolynomialFg[v-Fdt6'/FbvQ,Horne
r~FormFg[vFj]v/F]^vQ<Horner~form~of~a~polynomialFg[vF_ev/Fc^vQ:convert(f,horner
,CF_ARG1)Fg[v-Fcp6&/FianQ-MultivariateFg[vFiex/Fh]tQDActions~on~Multivariate~Po
lynomialsFg[v-Fdt6&/FbvQ(CollectFg[v/F]^vQZCollect~coefficients~with~respect~to
~a~specified~variableFg[vF_ev/Fc^vQ3collect(f,CF_ARG1)Fg[v-Fcp6)/FianQ(RatPolyF
g[v/FjhmQItype(f,ratpoly)~and~degree(denom(f))~>~0Fg[v/Fh]tQ8Quotient~of~Polyno
mialsFg[v-Fdt6&/FbvQ'NormalFg[v/F]^vQBRewrite~with~a~common~denominatorFg[vF_^v
/Fc^vQ*normal(f)Fg[v-Fdt6&/FbvQ*NumeratorFg[v/F]^vQ5Select~the~numeratorFg[vF_^
v/Fc^vQ)numer(f)Fg[v-Fdt6&/FbvQ,DenominatorFg[v/F]^vQ7Select~the~denominatorFg[
vF_^v/Fc^vQ)denom(f)Fg[v-Fdt6'/FbvQ2Partial~FractionsFg[vFj]v/F]^vQ=Convert~to~
partial~fractionsFg[vF_ev/Fc^vQ;convert(f,parfrac,CF_ARG1)Fg[v-Fcp6'/FianQ3Gene
ral~ExpressionFg[vFh[v/Fh]tQ=General~Algebraic~ExpressionFg[v-Fdt6&/FbvQ(Combin
eFg[v/F]^vQ;Combine~similar~structuresFg[v/F`^v7&%%trigGFiin%&powerG%(radicalG/
Fc^vQ3combine(f,CF_ARG1)Fg[v-Fcp6&/FianFbewF[ew/Fh]tQ2One~Variable~CaseFg[v-Fdt
6&Faew/F]^vQ?Complete~specified~computationFg[vF_^vFc^[l-Fc_lF/-F]]l6%/FbvFijw/
F]^vQ@Sub-menu~of~various~assumptionsFg[v/Q3SimplificationTypeFd^vF_at-F]]l6%/F
bvFdgw/F]^vQBSub-menu~of~various~constructionsFg[vF`_\l-F]]l6%/FbvF[^v/F]^vQ@Su
b-menu~of~various~conversionsFg[vF`_\l-F]]l6%/FbvFdfv/F]^vQ:Sub-menu~of~Plot~Co
mmandsFg[vF`_\lFg[v,
I.CM_IsParsableFb\uF/,
I0type/CM_IFBLOCKRF]`qF/Fa]nF/-F:6$FK-F\^n6$F^^nF\`nF/F/F/6",
I(CM_CODERF/F+F-F/C%>Fbo-Fdo6$F^ht-F\^n6$F^^n<$F^_o.F`_l>Fbo-Fio6$RF]`qF/F/F//F
KFa[lF/F/F/Fbo-.F[p6#-Fjw6#-FaxF\_uF/F/F/6",
I-type/CF_CODERFOF/F-F/-F:6$FK-F\^n6$Fj[oFba\lF/F/F/6",
I-SMARTPLOTFixR6$'FfjrF]dmFd]q6#%%newpGF-F/C%>FboFK@&Fg_qC%-F26#52-FeuFb[lFg`u-
F:6$&FK6#Fg`uFbim@$52Fdc\lF[jp4-F:6$&FK6#F[jpF)>Fbo7&Fh^uFg^uFb[s-Fjw6#&FK6#;F[
jpFcu-F26#-F:6$&FboFd\s7$F)F)Fh_qC$@$5Fcc\l4-F:6$Fgc\lF)>Fbo7%-Fjw6#&FK6#;F[oF[
jpFj_u-Fjw6#&FK6#;Fg`uFcu-F26#-F:6$&FboFe`u7%F)F)F)FboF/F/F/6",
I9context/BuildInputStringR6#'F`]nF]dn6$Fbdm%+CodeStringGFa]nF/C*>F`t-F^u6$Q#%a
6"Fe\r>F`t-Fhn6$F`t;""*!"&>F`t-Ff\o6$F`t%";G@$2Fg`l-%+searchtextG6$Q'local~Fbg\
lF`tC$?(FboF[oF[oF/4-F`fm6$-Fhn6$F`tFbo<$Q":Fbg\lQ";Fbg\lF/>F`t-Fhn6$F`t;,&FboF
[oFefnF[oFcu@$2Fg`l-F`h\l6$Q(global~Fbg\lF`tC$?(FboF[oF[oF/Feh\lF/>F`tF^i\l@$2F
g`l-F`h\l6$Q)options~Fbg\lF`tC$?(FboF[oF[oF/Feh\lF/>F`tF^i\l@$2Fg`l-F`h\l6$Q-de
scription~Fbg\lF`tC$?(FboF[oF[oF/Feh\lF/>F`tF^i\lF`tF/F/F/Fbg\l,
I4type/CM_CONDITIONALRFOF/F-F/-F:6$FK-F\^n6$F^^n.FczF/F/F/6",
I'newwebR6)F[dnF^dnFadnFcdn'F%F`dnFhdnFjdn6&%#p1G%#p2GF]enF^enF/F/C*@$FaenFden@
$FhenF[fn>F]fm-F`fn6#;F[o,&FienFefnFjenF\o>FhuR6*F[dnF^dnFadnFcdnFe[]lFhdnFjdnF
_gn6$FbgnFbdmF/F/C%>FboF<?(F`tF[oF[oFjenFdr>Fbo-FK6$FboFdfn?(F`tF[oF[o,&FienF[o
FjenFcuFdrC%>Fbo-%&evalfG6#Fi\]l>&Fain6#,&F`tFefnFcuF[oFbo>&Fain6#,$F`tFefnFi\]
lF/F/F/-Fhjn6#-Fhu6*FKF<FcenFbenFdfnFjenFien-F][oFhbq>Fbo-F_[o6$-FjwFhbqFa[o>F`
t-%%plotG6$-FK6$F_rFdfn/F_r;FcenFben-%(displayG6#FejqF/F/F/F/,
I3context/isparsableRFO6$F\dnF]hmFa]nF/C'Fjao-FS6#F\il>F`t-%*traperrorG6#-F\il6
#-Fa_l6%Fj\uFKFieo@$/F`tFg\qF`\rFhdsF/F/F/Fjeo,
I3context/multiparseRFO6$F_r%%TextGF-F/C%>F`tF\an@%-F:6$FK-F\^n6$Fj[o<%%%TEXTGF
`_lFa_l>F`t-Fd`n6$FjbnFa[l>F`t-Fd`n6$FjbnFfip-%&parseGFfuF/F/F/F]an,
I1type/CF_CODETYPERFOF/F-F/-F:6$FK<)F]dm-%*identicalG6#F^cu-Fia]l6#F`du-Fia]l6#
F_ap-Fia]l6#Fh^p-Fia]l6#F_cu-Fia]l6#F`bpF/F/F/Fi^p,
I&stack=6"Fi`nE\[l'%&emptyGR6#Fa[tF/6#%aoCopyright~(c)~1990~by~the~University~o
f~Waterloo.~All~rights~reserved.GF/C$@$4-F:6$FK.F*-F]bn6#%/stack~expectedG-F]]o
6#/&FK6#Fg`lFg`lF/F/F/Fj[sRF[c]lF/F\c]lF/C$@$F`c]lFdc]lFjc]lF/F/F/FIR6$F_rFa[tF
/F\c]lF/C%@$4-F:6$F<Fcc]lFdc]l>&F<F[d]l,&Fgd]lF[oF[oF[o>&F<6#Fgd]lFKF/F/F/%$pop
GRF[c]lF]`qF\c]lF/C&>Fbo-&F*6#.%$topGFb[l>&FK6#Fjc]l-%&evalnG6#Ffe]l>Fjc]l,&Fjc
]lF[oFcuF[oFboF/F/F/Fde]lRF[c]lF/F\c]lF/C$@$-&F*6#.Fib]lFb[l-F]bn6#%,empty~stac
kG-Fbal6$Ffe]lF[oF/F/F/FDRF/6$FbdmFa[tF\c]lF/C%>&F`tF[d]lFd`q?(FboF[oF[oFd`qFdr
>&F`t6#,(Fd`qF[oFboFcuF[oF[o&FfipFc_nFjdmF/F/F/Fgb]l,
I4convert/CONTEXTMENUR6$'%#BMGF_[p%&LevelG6(F_rFbdmFdgnF\ho%)TopLevelG%&LocCMGF
-F/C,@%/F<Q$TopFa\p>FjhnFdr>FjhnFi`n>Fbo&FfipFfd\lF]fu>FdxFK>Fhu-Fjw6$Fg`uFdx>F
hu-Fax6$/FdjmF\p-Ff[n6%Fhu%6CONTEXTMENU/transformGFbo?(F]fm-FeuF^xFcuF[oFdr@$0&
FhuFhbqF\hsFj_r?(F`tF[oF[oFai]lFdr@$0Fe_sF\hsFj_r@%1F`tF]fm>Fhu&Fhu6#;F`tF]fm>F
huF\`l@%3/FhuF\`l4Fjhn-F_o6#F\p-F_o6#-Fegp6$-Fjw6$Fe\sFdxFhuF/FcalF/Fa\p,
I3type/CM_InertFuncsRFOF/Fa]nF/-F`fm6$FK<*.Fdgm.Fbgm.F^gm.F_gm.Fegm.Fcgm.F`gm.F
agmF/F/F/6",
I.type/CM_BUILDRF]`qF/Fa]nF/-F:6$FK-F\^n6$F^^nF_[pF/F/F/6",
I/type/CM_ACTIONRFOF+F-F/C$@$4Fd[qF`\r@%/Fd`qF[o-F:6$FK-F\^n6$F^^n.FhvC&>Fbo-Ff
_]l6#-F_s6$F`^vFe_o@$/FboFg\qF`\r@&5/FboFh^s3-F:6$Fh^sF^dm-F`fm6$FboFh^sFhds35/
Fh^sF]dm-F`fm6$F]dmFh^s-F:6$Fbo-F]dm6#<%F)F`dnFj[oFhdsFi`nF/F/F/Fa^v,
I<context/cfparse/ifblockcodeR6$'%&blockGF\`n'F``n%(booleanG6&%#IFGF]r%+Context
KeyGF_`nFa`nFb`nC(>F_an-Fd`n6$Fjbn-F_s6$FjhmFcan>FbanF]bo-F26#30F_anF\an-Fb\u6#
F`t@%/9%Fi`n>F[an-F^u6%Q=if~%s~then~ContextKey~:=~%a;Fb`nF_anFban>F[an-F^u6%Q?e
lif~%s~then~ContextKey~:=~%a;Fb`nF_anFban>F[an-Fhhl6%FjbnF[an-Fjw6$""%FcanFfcnF
b`nFb`nFb`nFb`n,
I&orbitRFjcn6$F]enF^enF/F/C(@$FaenFden@$FhenF[fn>Fbo-F`fn6#;F[o,$*&FdfnF[oF\]]l
F[oFefn>F`tR6*F[dnF^dnFadnFcdnFednFhdnFjdnF_gn6'FagnF%FbgnFbdmFdgnF/F/C%>Fbo,&F
benF[oFcenFcu>FjhnFg`l?(F`tFcen*&FboF[oFdfnFcuF/2F^hn-Fbhn6#,&FbenF[oF`tFcuC&>F
jhn,&FjhnF[oF[oF[o>F]fmF<?(FhuF[oF[oFjenFdr>F]fmF\in?(FhuF[oF[oF\]]lFdrC%>F]fmF
\in>&Fain6#,(FhuFefnFcuF[o*&,&FjhnF[oFcuF[oF[oF\]]lF[oFefnF`t>&Fain6#,&FhuFefnF
ec^lFefnF]fmF/F/F/-Fhjn6#-F`t6*FKF<FcenFbenFdfnFjenFien-F][oFc_n-F_[o6$F^js/Fb[
o%&POINTGF/F/F/F/,
I3SMARTPLOTGetColorsR6#F'6#FbdnF-F/C%>Fbo-Fc]o6%Ffeq-Fdo6$FK/F)F)Fheq@$Ffo>Fbo-
Fio6$%$rhsGFbo-F_oF^dtF/F/F/6",
I3context/autoassignR6$'F`]n<$Fj[oFa_l'%+AssignFlagGF\_^l62%&LabelG%)CodeBodyG%
*LocStringG%&StatsGFbdmFdgnFcdm%,laststatendG%(statendG%&NamesG%*NamesSubsGF\g\
l%%ProcG%)ProcBodyGF_]t%)LastStatGFa]nF/C(-FS6#F``lFdfr>%3type/CM_AssignmentGRF
]`qF/Fa]nF/3-F:6$FKFi\r/Fj[q.%*CM_ASSIGNGF/F/F/>80-Fb_]l6#-Fa_l6%FdftFKFieo>8/-
-FS6#.Ficl6#Ffg^l@%5/F<Fi`n3/F<Fdjm/-F``l6#.%+autoassignG.%%noneGC(@$4-Ffeq6$-F
balFah^l&Fdg^lFjfnC$>F\h^l-FhhlF]a]l-F_oFb[l>F]fmF\h^l>F\h^lF\p>Fjhn-%+SearchTe
xtG6$Q*CM_ASSIGN6"F]fm?(F/F[oF[oF/2Fg`lFjhnC(>F\h^l6$F\h^l-Fhn6$F]fm;F[oFfc^l>F
]fm-Fhn6$F]fm;FjhnFcu>Fdx-F`h\l6$Q#:=F`j^lF]fm@$/FdxFg`l-F]bn6$%3invalid~assign
mentGF]fm>F]fm-Fhn6$F]fm;,&FdxF[oFefnF[oFcu>Fjhn-F`h\lF^j^l>F\h^l-Fhhl6%FjbnF\h
^lF]fmC--F26#-F:6$F\h^lFj[o@$1-F]j^l6$F_j^lF\h^lFg`lC+>FdxFg`l>Fiy-%'lengthG6#F
\h^l>FezFg`l>Ff`qFg`l?(FjhnF[oF[oFiyFdrC%@$/-Fhn6$F\h^l;FjhnFjb^lF`[_lFi\s@$32F
[oFjhn/-Fhn6$F\h^l;Ffc^lFjhnQ#::F`j^lFi\s@$-F`fm6$-Fhn6$F\h^lFjhnFjh\lC%>FdxFgh
n>FezFf`q>Ff`qFjhn-F26#32Fg`lFdx/Ff`qFiy@%/FdxF[oC$>F]vF\p>FjsF\h^lC%-F26#32Fg`
lFez2FezFiy>F]v-Fhn6$F\h^l;F[oFez>Fjs-Fhn6$F\h^l;,&FezF[oF[oF[oFcu@$55552Fg`l-F
]j^l6$F`[_lFjs2Fg`l-F]j^l6$Q'~then~F`j^lFjs2Fg`l-F]j^l6$Q%~do~F`j^lFjs2Fg`l-F]j
^l6$Q*smartplotF`j^lFjs2Fg`l-F]j^l6$Q&latexF`j^lFjs-F_oF^]_l>F\h^l-Fhhl6&FjbnF]
vQ0CM_ASSIGN[1]~:=F`j^lFjsFa\_l>Ffg^l-F\il6%FdftF\h^lFieo>Fa`tF\p?(FjhnF[oF[oF/
-Ffeq6$Fci^l&Fdg^lFhboF/>Fa`t<#-Fcw6$&Fdg^lF_y/FdxFhj^l@%/%5interface/autoassig
nGF\i^l>Fbo.%"RG>FboF_c_l>Fi^t-Fio6&R6%F_rF'Fff^lF/F/F//FK-Fefl6$F<FcenF/F/F/Fa
`tFboFci^l>Ffg^l-Fax6$Fi^tFci^l>F\h^l-FiclFah^lF/6$%%locgGF]g^lF/F`j^l,
I2type/CM_PIECEWISERF]`qF/Fa]nF/-F:6$FK-F\^n6$F^^n<$%*PIECEWISEGF^_uF/F/F/6",
I1context/jointextR6#'FbdnFj[o6%%2separation_stringG%(NewTextG%)TextListGF-F/C)
Fjao>FboFK>F]fm-Fa_l6#&Ffip6#;FefnFcu-F26#-F:6$7#Fb^]l-F]dm6#F][r@&2-FeuFhbqF[o
-F_oF_[u2Fef_lFefn-F_o6#-Fjw6$F[oF]fm>F`t-Fio6$RF]`qF/F/F/6$FKT#F/F/6$Fae_lFboF
]fm-Ff\o6#-Fjw6$FjnF`tF/F/F/6",
I4SMARTPLOTADD_OptionR6$'Fj]qF]dmF%6$%$keyG%%locPGF-F/C%@%-F:6$F<F^as>Fbo-FaasF
d\o>FboF<>F`t-F`im6%FfeqFKFbo>F`t7$FjdmF<F/F/F/6",
I3type/HasAssumptionRF/F+F-F/C&>Fbo-FbalFeip@$4-F:6$7#FboF]erF`\r@$/-Fhn6$FboFc
u%"|irGC$>Fbo-Fhn6$FboFjn>FboFb_n-F56#&%2property/OrigNameGFc_nF/F/F/6",
I/type/CF_ACTIONRFOF/F-F/-F:6$FK-F\^n6$F^^nFctF/F/F/6",
I'cobwebR6(F[dnF^dnFjdnFadnFcdnFe[]lFf[]lF/F/C)@$1FdfnFben-F]bn6%FfenFdfnFben>F
]fm-F`fn6#;F[o,&FcenFg`uFefnF[o>FhuR6)F[dnF^dnFjdnFadnFcdnFe[]lF_gn6%Fbgn%#x2GF
bdmF/F/C&>FboF<>&FienFjfnF<>&FienFi^sFg`l?(F]fmF[oF[oFcenFdrC(>F`t-FK6$FboFjen>
&Fien6#,&F]fmFg`uFcuF[oFbo>&Fien6#,$F]fmFg`uF`t>&Fien6#,&F]fmFg`uF[oF[oF`t>&Fie
n6#,&F]fmFg`uFefnF[oF`t>FboF`tF/F/F/-Fhjn6#-Fhu6)FKF<FcenFbenFdfnFjenF^^]l>FboF
`^]l>F`t-Fe^]l6$<$F_r-FK6$F_rFjen/F_r;FbenFdfnF[_]lF/F/F/F/,
I8context/cfparse/contentR6$'FcqF[bp'F]hoF^t6.%(DataKeyG%'ObjectGF]rFfp%*Proced
ureGFhgoF\hoFeqF`qF^buF`]n%)ProcNameGFecsF/C'-F``l6#/Fc`lFg`l>F`tFK@$Fc_o>F`tFe
_oF]s@--F:6$FKFd_l-F_o6#F\hsFjzC*>6&FezFf`qFa`tFi^t-F_s6$7&FbvF]^vF`^vFc^vF`t>F
i^t-Fa_l6#Fi^t>F\h^l--FS6#.F\s6#-Ff\o6$%$CM:GFez>FboF^[l@$-F5F[frFhi^l@)-F`fm6$
Fa`t<$F_cuF^cuC$>Fjhn--FS6#.F_elFe``l>Fger7%FezFf`qF\h^l5-F`fm6$Fa`t<%F`duF_apF
h^p-F:6$Fa`tFc^^lC$>FjhnFha`l>Fger7&FezFf`q7#Fa`tF\h^l-F`fm6$Fa`t<$F`bpFaduC$>F
jhnFha`l>FgerFgb`lC&>Fjhn-Ff[n6$-Fhhl6%F\an%5context/cfparse/act_GFa`tF)@$4-F:6
$-FbalFhboF]dn-F]bn6#-F^u6$QCAction~CodeType~not~recognized:~%a6"Fa`t>Fjhn-Fjhn
Fe``l>FgerFgb`l>&F\tF^]_lFjc`lFhi^l-F:6$FKF[^lC%>6%FdxFezFf`q-F_s6$7%Fa_\lFbvF]
^vF`t@%-F56#&F<6#FezC$>Fiy-Ff[n6$Fae`lF\\n>Fiy-Fio6%F[pFiyF<>FiyF\`l@%3/FdxF_at
/FiyF\`lFcj]l-F_o6#-F_[p6&FdxFezFf`qFiy-F:6$FKFczC(>F]fm-F_sFi_o>Fhu-Fc]o6%F:F`
tFhv>Fhu-Fio6%F[p7#F\`sF<>Fbo-F`euF`[l>FgerFhuFhi^l-F:6$FKFd\l-F]bn6#QPCM_CLASS
~should~not~appear~in~a~list~of~actionsF`d`lFhi^lF/F/F/F`d`l,
I,CM_GetFuncsRF/6(%%fsetGF\dn%"hG%"uG%$idxG%-FunctionTypeGFecsF/C&>F`t-Ff_]l6#-
Fio6%Ff[nF^htFifn@$F]`]lC$-Fjt6%Fefn<#Fg\pQ6error~in~convert~to~D6"-F_o6#Fgo>Fb
o-Fc]o6%F:-FdoFfuF[bp@%Fg\rC(>Fdx-Fjw6#F[p>F]fm-Fc]o6%F:Fbo-F[bpF_y>F]fm-F`im6%
F:F]fm<$%4context/Unbounded@@G-F[bp6#%)constantG>F]fm-Fbal6#-Fax6$/FifnFjwF]fm>
F]fm-F`im6$RF]`qF/FhgtF/52F[oFdc\l-F:6$Fj[qFgdsF/F/F/F]fm>F]fm-Fio6$RF]`q6#F]h`
lF/F/C%-F26#Fd[q>Fbo-Fdo6$FKF^[r@%/FjipF[o-Fj[q6#-Fjw6$F[oFboF\pF/F/F/F]fmC&>F]
fm-Fc]o6%F:Fbo-F[bp6#F)>F]fmF\j`l>F]fmFdj`l>F]fm-F`im6$RF]`qF/FhgtF/F][alF/F/F/
F]fmF/F/F/F[i`l,
I9context/cfparse/pushmenuR6$FcqF]ho6%F\\oF,FipF`hoFahoC*-FSFj^o-FS6#.F">FcfsF]
io@%-F56#&F\tFges>FfioF[^al>FfioFejo-F26#-F:6$FfioF[bp>Fhho-F_s6$F[imFfio@$4-F`
fm6$Fhho<$FdjmF\an>FcfsFhho-F"6$Fejo&Fa[pFgfsFahoFc[pFahoFaho,
I*CM_GlobalFijqF/,
I.type/CF_CLASSRFOF/F-F/3333-F:6$FK-F\^n6$F^^n.Fcp-Ffeq6$FKFian-Ffeq6$FKFjhm-Ff
eq6$FKFbv-Ffeq6$FKF]^vF/F/F/Fcv
