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,
I0context/fullkeyR6$'%%RootG<$F)%'stringG'%(CurrentGF^dnF/Fa]nF/C$@$5-F:6$FKF)/
FKF\an-F_o6#F<-%$catG6%FKQ"_6"F<F/F/F/F]en,
I(Darboux=F/Fi`nE\[l-%4Laplace_transformX0GR6#Fcdm6$%"mG%"MGF/F/C,>Fbo,&FKF[oFc
uF[o>F`t-%$maxG6%-%/order_functionG6#&%"AGFc_n-F_fn6#&%"BGFc_n-F_fn6#&F`dmFc_n>
%&DeltaG-%*pr_diffeqG6$F[gnF`t>%$PhiG-%4diffeq_to_transformG6#F[gn>&FbfnFb[l-%)
simplifyG6#-%*pullback0G6$F`gn,(FafnF[o*&-%#Y0G6#&%"HGFc_nF[oFahnFcuFcu%#P0GFcu
>&FffnFb[l-Fggn6#-Fjgn6$F`gn,&FefnF[o%#Q0GFcu>&F`dmFb[l-Fggn6#-Fjgn6$F`gn,*Fifn
F[o-%#X0GF`fnFcu*(FefnF[oF^hnF[oFahnFcuFcu-F_hnFdfnF[o>&FbhnFb[l-Fggn6#-Fjgn6$F
`gn,(-Fdin6#FegnF[o*&FegnF[oFehnF[oF[oF]inFcu@$/FhinFg`l>%(X_indexGFKF[oF/6)Fbf
nFffnF`dmFbhnF[gnF`gnFdjnF/%4Laplace_transformY0GRFcenFdenF/F/C,>FboFien>F`t-F\
fn6%-F_fn6#&%#DDGFc_n-F_fn6#&%"EGFc_n-F_fn6#&%"GGFc_n>F[gnF\gn>F`gnFagn>&F`[oFb
[l-Fggn6#-Fjgn6$F`gn,&F_[oF[oFchnF[o>&Fd[oFb[l-Fggn6#-Fjgn6$F`gn,(Fc[oF[o*&-Fdi
n6#&%"KGFc_nF[oF\]oFcuFcuF[inF[o>&Fh[oFb[l-Fggn6#-Fjgn6$F`gn,*Fg[oF[o-F_hnFb[oF
cu*(F_[oF[oFj\oF[oF\]oFcuFcu-FdinF^[oF[o>&F]]oFb[l-Fggn6#-Fjgn6$F`gn,(-F_hn6#Fc
\oF[o*&F\\oF[oFc\oF[oF[oF_]oFcu@$/Fi]oFg`l>%(Y_indexGFKF[oF/6)F`[oFd[oFh[oF]]oF
[gnF`gnFe^oF/%-Darboux_initGR6#%$expG6(FP%#A0G%#B0G%#C0G%&kappaG%&deltaGF/F/CA-
%&aliasG6(/%#u0G&%"uG6$Fg`lFg`l/%"pG&Fh_o6$F[oFg`l/%"qG&Fh_o6$Fg`lF[o/%"rG&Fh_o
6$""#Fg`l/%"sG&Fh_o6$F[oF[o/F,&Fh_o6$Fg`lFf`o>FdinRFi^oF/F/F/-Fjgn6$F`gn,&*&%#m
xGF[o-%#tdG6$FKF_rF[oF[o*&%#myGF[o-Ffao6$FK%"yGF[oF[oF/F/F/>F_hnRFi^oF/F/F/-Fjg
n6$F`gn,&*&%#nxGF[oFeaoF[oF[o*&%#nyGF[oFjaoF[oF[oF/F/F/>%#X1GRFi^oF/F/F/-%)pull
backG6$F`gn-%&&plusG6$-%&&multG6$Fdao-%(form_tdGFgao-F`co6$Fiao-FccoF[boF/F/F/>
%#Y1GRFi^oF/F/F/-Fjbo6$F`gn-F]co6$-F`co6$FcboFbco-F`co6$FeboFfcoF/F/F/>F[gn-F]g
n6$&FK6#F[oFf`o>Fbo&&&Fedo6#Ff`oFfdoF[eo>Fdao&FKF[eo>Fiao&FK6#""$>Fcbo&FK6#""%>
Febo&FK6#""&>8(&FK6#""'>%$rhoG&FK6#""(>F`gnFagn>Fdx,&*&FdaoF[oFeboF[oF[o*&FcboF
[oFiaoF[oFcu>Fchn-Fjgn6$F`gn*&,**&FeboF[o-Fdin6#FcboF[oF[o*&FcboF[o-Fdin6#FeboF
[oFcu*&FcboF[o-F_hn6#FiaoF[oF[o*&FeboF[o-F_hn6#FdaoF[oFcuF[oFdxFcu>F[in-Fjgn6$F
`gn*&,**&FdaoF[oFbgoF[oF[o*&FiaoF[oF_goF[oFcu*&FiaoF[oFhgoF[oF[o*&FdaoF[oFegoF[
oFcuF[oFdxFcu>F`t-Fjgn6$F`gn*&,&*&,&*&F[foF[o-%%diffG6$FboF\`oF[oF[oF_goFcuF[oF
eboF[oF[o*&,&*&F[foF[o-F\io6$FboF``oF[oF[oFbgoFcuF[oFcboF[oFcuF[oFdxFcu>F]fm-Fj
gn6$F`gn*&,&*&FihoF[oFiaoF[oFcu*&F_ioF[oFdaoF[oF[oF[oFdxFcu>Fhu*&F[foF[o-F\io6$
FboFg_oF[o>&Fbfn6#Fg`l-%'expandG6#-Fjgn6$F`gn,&F`tF[o*&-F_hn6#F`foF[oF`foFcuFcu
>&FffnF`jo-Fbjo6#-Fjgn6$F`gn,&F]fmF[o*&-FdinFijoF[oF`foFcuFcu>&F`dmF`jo-Fbjo6#-
Fjgn6$F`gn,,FhuF[o*&-Fdin6#FhjoF[oF`foFcuFcu*(F`tF[oFb[pF[oF`foFcuFcu*(F]fmF[oF
hjoF[oF`foFcuFcu*(Fb[pF[oFhjoF[oF`foF\oFf`o>&F`[oF`jo-Fbjo6#,&F_joF[oFchnF[o>&F
d[oF`jo-Fbjo6#,&F[[pF[oF[inF[o>&Fh[oF`jo-Fbjo6#Fd[p>&FbhnF`jo-Fbjo6#-Fjgn6$F`gn
,(-Fdin6#F_joF[o*&F_joF[oF[[pF[oF[oFd[pFcu>&F]]oF`jo-Fbjo6#-Fjgn6$F`gn,(-F_hn6#
Ff\pF[o*&Fa\pF[oFf\pF[oF[oF[]pFcu@%/F_]pFg`l>FdjnFg`l>Fdjn%)infinityG@%/Fi]pFg`
l>Fe^oFg`l>Fe^oFf^pF[oF/6:FdaoFiaoFcboFeboF[gnF`foFdjnFe^oF`gnFdinF_hnFgboFhcoF
chnF[inFbfnFffnF`dmF`[oFd[o%"FGFh[oFbhnF]]oF/%(tau_hatGRF/6+F[`oFbdm%$phiG%$var
G%$Up0G%#UpG%$ansG%#EqG%#_aGF/F/C+>F]fmFagn>FboFdjn>Fhu7#-Fcw6$&8,Ffu/F`t;F[o,&
FboF[oFf`oF[o>F[fo-%&v_zipG6%Fhu7$&%#xiGFfdo-Fcw6$&%$etaGFfu/F`t;Fg`lFbo%%plusG
>Fez-%'&wedgeG6$-%'&minusG6$-%#dVG6#&F]ap6#,&FboF[oF[oF[o-Fcap6$&F]ap6#Fb`pF[fo
F[bp>Fez-%*coeff_setG6#Fez>Fiy-%&solveG6$Fez-Ff[n6$FhuF^dm>Fdx-Fjbo6$F]fm-Fax6$
Fiy-%/biform_to_formG6#F[fo-Ffap6$-Fbcp6#%%tau0GFdxF/F/F/%2Laplace_transformGR6
$FeenFcdm6#FbdmF/F/C%?(FboF[oF[oFKFdr@$2FboFdjn-FaenFc_n?(FboF[oF[oF<Fdr@$2FboF
e^o-FfjnFc_nF[oF/F/F/%2Laplace_coframeX0GRFcen6%FeenFfenF`_oF/F/C)@$/FKFg`lC)>%
&ThetaG-F`co6$F`fo-%'biformG6#Fg_o>&F]apF`joF^ep>&Fi`pF`joF^ep>F]fmFffo>%'sigma
0G-Fe`p6%7$*&FeboF[oF]fmFcu,$*&FcboF[oF]fmFcuFcu-%7frameHorizontalBiformsGF/F`a
p>Fhcp-Fe`p6%7$,$*&FiaoF[oF]fmFcuFcu*&FdaoF[oF]fmFcuFafpF`ap-F_oFfdo>FboFien>F`
t-F\fn6$-%+order_formG6#&F]apFc_nF^fn>F[gnF\gn>F`gnFagn@%1FboFdjn>&F]apFb[l-Fgg
n6#-Fjbo6$F`gn-F]co6$-FhcoFagp-F`co6$FafnFbgp>Fhgp-Fggn6#-Fjbo6$F`gnF_hpF[oF/6)
F[gnF`gnF^epF]apFi`pFjepFhcpF/%*sigma_hatGRF/F__pF/F/C+>F]fmFagn>FboFdjn>FhuF[`
p>F[fo-Fe`p6%Fhu7$&F]apFfdo-Fcw6$&Fi`pFfuF^apF`ap>Fez-Fcap6$-Ffap6$-Fiap6#&Fi`p
F\bp-Fcap6$&Fi`pFabpF[foF]jp>FezFcbp>FiyFgbp>FdxF]cp-Ffap6$-Fbcp6#FjepFdxF/F/F/
%2Laplace_coframeY0GRFcenFhdpF/F/C)@$F[epC)>F^epF_ep>FeepF^ep>FgepF^ep>F]fmFffo
>FjepF[fp>FhcpFdfpFjfp>FboFien>F`t-F\fn6$-F`gp6#&Fi`pFc_nFa[o>F[gnF\gn>F`gnFagn
@%1FboFe^o>&Fi`pFb[l-Fggn6#-Fjbo6$F`gn-F]co6$-FgboFh[q-F`co6$Fc[oFi[q>F_\q-Fggn
6#-Fjbo6$F`gnFf\qF[oF/6*Fe^oF[gnF`gnF^epF]apFi`pFjepFhcpF/%3method_of_LaplaceXG
R6$%"hG%"kG6,F[`oFP%"gG%&alphaG%%betaG%"vG%$de1G%$de2G%"wGFbdmF/F/C+@%2Fg`l9#C$
>FhuFK>F[foF<C$>Fhu-%#_hG6#F_r>F[fo-%#_kG6#F\bo>FboFdjn>Fiy-%'dsolveG6$/,&-F\io
6$-F`tFg^qF_rF[o*&FefnF[oFe_qF[oF[oFg`l<#Fe_q>Fiy-Fax6$/%$_C1GF[foFiy>Fez-F__q6
$/,&-F\io6$-F]fmF[_qF\boF[o*&FafnF[oFd`qF[oF[o-Fax6$FiyFe_q<#Fd`q>Fez-Fax6$/F\`
qFhuFez>F_`p-Fax6$FezFd`q?(8-,&FboF[oFcuF[oF[oFg`lFdr>F_`p*&,&-F\io6$F_`pF_rF[o
*&&Fffn6#FaaqF[oF_`pF[oF[oF[o&FbhnFjaqFcuF_`pF/F/F/%3method_of_LaplaceYGRFa]qFd
]qF/F/C+@%F^^qC$>FhuFK>F[foF<C$>FhuFe^q>F[foFi^q>FboFdjn>Fiy-F__q6$/,&-F\io6$-F
`tF[_qF\boF[o*&FafnF[oF^cqF[oF[oFg`l<#F^cq>Fiy-Fax6$F\aqFiy>Fez-F__q6$/,&-F\io6
$-F]fmFg^qF_rF[o*&FefnF[oF[dqF[oF[o-Fax6$FiyF^cq<#F[dq>Fez-Fax6$F[`qFez>F_`p-Fa
x6$FezF[dq?(FaaqFbaqF[oFg`lFdr>F_`p*&,&-F\io6$F_`pF\boF[o*&&FbfnFjaqF[oF_`pF[oF
[oF[o&F]]oFjaqFcuF_`pF/F/F/%2method_of_LaplaceGRFa]q6&Ff]qFg]q%%ans1G%%ans2GF/F
/C&@%F^^qC$>FboFK>F`tF<C$>FboFe^q>F`tFi^q>F]fm-F_]q6$FboFg`l>Fhu-F\bq6$Fg`lF`t,
&F]fmF[oFhuF[oF/F/F/%(coframeGRF[dpF\dpF/F/C'?(FboFg`lF[oFKFdr-FfdpFc_n?(FboFg`
lF[oF<Fdr-FhjpFc_n@$2,&FdjnF[oF[oF[oFK>%$tauG-F]_pF/@$2,&Fe^oF[oF[oF[oF<>%&sigm
aG-FhhpF/F[oF/6$F^gqFdgqF/F/,
I/type/CM_MatrixRFOF/Fa]nF/-%&evalbG6#0-Fdbn6$-%'selectG6%F:-Fdo6$FK%&arrayG<$%
'matrixG%'vectorG-Fdo6$FK-F\^n6$F^^n<&Ffhq%'MATRIXGFghq%'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`tFcjq>F]fm-Fgiq6$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/F_[r,
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>F[fo-F
`im6%F:F]fmFbim-F26#/-FeuFccpF[o-F26#-F_hl6#-Fa_l6#-FjwFccp>Fhu-Fa_l6AQ(proc(f)
6"QWlocal~RememberFlag,Exclusions,Vars,Nvars,Funcs,NFuncs;Fa^rQ`pglobal~`contex
t/CM_GLOBALG`,~ContextData,~`context/Initialized`,~`context/InitProcs`,Fa^rQB~~
~~~_EnvContextData,~ContextKey;Fa^rQ/option~system;Fa^rQ9"ContextMenu~Procedure
";Fa^rQ`oif~`context/Initialized`~<>~true~then~readlib('`context/init`')()~fi:F
a^r-F^u6$Q2ContextKey~:=~%a;Fa^rF`t-F^u6$Q7_EnvContextData~:=~%a;Fa^rQ%DATAFa^r
QFContextData~:=~eval(_EnvContextData);Fa^r-F^u6$QHif~`context/InitProcs`[%a]~<
>~true~thenFa^rF`t-F^u6$QJreadlib('`context/InitializeProcs`')(%a);Fa^rF`t-F^u6
$QA`context/InitProcs`[%a]~:=~true;Fa^rF`tFdcnQ0readlib(stack);Fa^rQ>Exclusions
~:=~stack['new']():Fa^rQ6RememberFlag~:=~true;Fa^rF\^rQTContext~:=~_EnvContextD
ata[~CM_BUILD(ContextKey)~];Fa^rQGif~stack['depth'](Exclusions)~>~0~thenFa^rQgn
Exclusions~:=~convert(~Exclusions~,~`context/StackToList`~);Fa^rQGContext~:=~su
bs(Exclusions~,~Context);Fa^rFdcnQ<if~RememberFlag~=~true~thenFa^rQhn~~~~Contex
t~~:=~convert(Context,'CONTEXTMENU',~"Top",~args~);Fa^rQ?~~~~procname(args)~:=~
Context;Fa^rQ%elseFa^rQgn~~~~Context~:=~Convert(Context,'CONTEXTMENU',~"Top",~a
rgs~);Fa^rFdcnQ)Context;Fa^rQ$end6"@$4-F_hlF^xC&>FealFaal>%+GlobalCodeGFhu-%(fp
rintfG6#-Fhhl6$Q"|+Fa^rFhu-F]bn6#Q;Unable~to~parse~RecognizerFa^r>Fhu-F\ilF^x>F
hu-Fax6$<#/F^_rFaal-FbalF^xF/6%FealF^ar%3context/CM_GLOBALGGF/Fa^r,
I8context/cfparse/topmenuR6&%3SimplificationTypeGFeqF`q'%&AListGF]dm6'%(Content
G%&MenusG%+ActionListGF_r%(EntriesG6#Fjbl6"C,-FS6#F*-FS6#Fbs>8%-F^tF^cr>&Fecr6#
Q%MainF^cr-&F*6#FDF^cr-Fio6%%9context/cfparse/pushmenuG9'Fecr>8$-Ff[n6$FhcrF\\n
-F26#-F:6$FcdrF]dm>Fcdr-Fio6$R6#F_rF^crF^crF^cr@%-F:6$9$F[^l-Fbs6$FberT#FberF^c
rF^cr6$FjbrFecrFcdr>Fcdr-%Acontext/cfparse/removeduplicatesG6#Fcdr-%)CM_BUILDG6
&Fber9%9&FcdrF^cr6#F\tF^crF^cr,
I>convert/CONTEXTMENU/recursiveR6#%'ActionG6,%+TypeStringGFeqF`q%+SelectionsG%+
ActionProcGF_rFh]q%%varsG%)submenusG%(varprocG6#Fjbl6"C(-Fjt6%""#<#%,ContextMen
uG-F>6$Feal-%%copyG6#F\t>8)&9"6#;Fagr!""-F26#3-F:6$9$F]dm/-Feu6#Fehr""%>6&8%8&8
'8(-FjwFhhr@-/F^ir7#Q$VAR6"C&>8+%,_EnvCM_VarsG@$2"""-Feu6#Fhir>Fhir-%%sortG6#7#
-FjwF^jr-F26#-F:6$Fhir<$-F]dm6#F)-F^dmF[[s>8,-Fcw6$7%-F^u6$%#%aG8*F]ir&F_ir6#Fe
[s/Fe[sFhir/F^ir7#Q%FUNCFeirC%>Fhir-F^jl6#Fjgr-F26#-F:6$Fhir<$-F^dm6#%)function
G-F]dmFf\s>F^[sF_[s/F^ir7#Q&PAIRSFeirC'>Fhir-Fajr6#7#-Fjw6#-FfilF_\s-F26#/F]jrF
agr>Fhir-&%)combinatG6#.%(permuteGF^jr-F26#-F:6$Fhir%)listlistG>F^[s-Fcw6$7%-F^
u6$%&%a,%aG&Fe[sF]grF]ir&F_ir6#-FjwFg[sFh[s-F:6$F^ir7#-F]dm6#<%F)%(numericGF^dn
C$>Fhir-Fjw6$F\jrF^ir>F^[sF_[s-F:6$F^ir-F]dm6#F^dnC(>8--Fhhl6%Q"/F]grFfjl-Fjw6#
Fhu-F26#-F:6$Fa`sF)@$4-F:6$-Fbal6#Fa`s%*procedureG-F]bn6$%CSelection~type~not~i
mplemented~yetGF^ir>Fhir-Fa`sF_\sF_^s>F^[s-Fcw6$7%-Fhn6$Fb[s;Fagr!"#Q.sub-selec
tionF]grF\_sFh[sFbas-F_o6#-%,CONTEXTMENUG6%F\irF]ir7#F^[sF]gr6%FealF\tFiirF]grF
]gr,
I+DELETEPLOTR6$'%)positionG%'posintG'%%PlotGFg\sF/F-F/-F_o6#-%'subsopG6$/FKF\pF
<F/F/F/6",
I<convert/CONTEXTMENU/TRIPLESRF/6#FifrFa]nF/C%>Fbo-Fajr6#7#-Fjw6#--FS6#.Ffil6#9
"-F26#/-FeuFc_nFaeo>Fbo-&F[^s6#.F^^sFc_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$FKFg\s53-F:6$-Fjw6$Fg`lFKFg\s-F:6$-F
jw6$Fg`lFhfs-.%#@@G6$F^^nF)-F:6$FhfsF^gsF/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$Fe]q'%*dimensionGF\cs6+%,CoordinatesG%)NewPlotsGFP%&PlistG%"PG%&
PlotsG%/ExcludedColorsG%)newcolorG%(OptionsGF-F/C-@$Fbr--FS6#FirF/@'/F[pF]am>Fh
u7#FK/F[pFaam>FhuFK>FhuFeis-F26#-F:6$Fhu-F]dm6#<%F]dm%*algebraicG/F`jsF`js-F26#
5/F<Ff`o/F<Faeo>Fdx-F`hq6$RFg^qF/F/F/-F:6$FKF]dmF/F/F/7#&Feds6#;FaeoF_^q>F_`p-F
`im6$RFg^qF/F/F/F[[tF/F/F/F][t>FfemFg`l>Fiy--FS6#FibmF_y>F`tF\p@&FejsC%>Fbo--FS
6#F]cmF_y>%6_EnvSMARTPLOTCoords2DGFbo?&F]fmFhuFdrC$@'-F:6$F]fm<$FbimF`jsC'@$53-
F:6$F]fmF`js2F[o-Feu6#-Ffil6#F]fm3-F:6$F]fmFbim2Ff`oF`]t-F]bn6#%Eattempting~to~
add~3D-Plot~to~2D-PlotG>Fez-FabmFa\l>Fiy7$-FjwFa\lFez>F[fo-Fjw6#-%*smartplotGFc
]t>F[fo-F]bm6$F[fo/.%&colorGFez-F:6$F]fmF]dmC%@$53-F:6$&F]fmFfdoF`js2F[o-Feu6#-
Ffil6#Fc_t3-F:6$Fc_tFbim2Ff`oFe_tFh]t>F[foF]fm@%4-%$hasG6$F[fo<$Fi^t.%'colourGC
%>FezF\^t>FiyF^^t>F[foFf^t>Fiy7$F_^t-Fjw6#-Fibm6#7#F[fo-F]bn6#%2unknown~structu
reG>F`t6$F`tF[foFfjsC%>Fbo--FS6#FacmF_y>%6_EnvSMARTPLOTCoords3DGFbo?&F]fmFhuFdr
C$@'Ff\tC$@$53F]]tFg]t3Fe]t2FaeoF`]t-F]bn6#%3too~many~variablesG>F[fo-Fjw6#-%,s
martplot3dGFc]tF[_tC$@$53Fa_tF\`t3Fj_t2FaeoFe_tFfbt>F[foF]fmFaat>F`tFeat6%-FjwF
_yF`t-Fjw6#F_`pF/FeemF/6",
I0CM_GetArrayVarsR6#'FPFdhq6$%%valsGF,Fa]nF/C%>FboFgo?&F`t<#FedsFdr@%-F:6$F`tFd
hq>Fbo-Fdbn6$Fbo-Fio6$Fjw<#-F]xFfu>Fbo<$FboF`t-FfilFc_nF/F/F/6",
I1context/cmglobalR6$'%#wwG<$%'symbolGF^dn'FPF^^n6'F[^q%,NotAssignedG%%exprG%'n
ewvarGFbdmF-F/C.>FboFK-F26#-F:6$FboFhet>F`tRFg^qF/Fa]nF/C$@$4Fddn-F_o6#Fi`n-Fjg
q6#/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$Ffgt%(integerG1FcuFfgt@$2F[oF_^q>F]fmF<@$-F:6$FboF
^dnC&@$4-F56#Ffgt@%4-Fa`t6$-Fdo6$F]fmF^dnFboC$>FfgtFcu-F_oFc_n>FfgtFcu?(F[fo,&F
fgtF[oF[oF[oF[oF/FdrC$>Fhu-Ff[n6$-Fjdn6%%!GFboF[foF^dn@$4-Fa`t6$FaitFhu%&breakG
>FfgtF[fo-F_oF^x-F26#-F:6$FboFiet>Fbo-Ff[n6$FKF^dn@&455-F5Fb[lF[it-Fa`t6$-Fdo6$
F]fmFietFbo>FfgtFcuFjht>FfgtFcu@%-F:6$F]fmFaas?(F[foFhitF[oF/FdrC$>FhuF]jt@$3-F
`tF^x4-Fa`t6$-FbalFc]tFhuFdjt?(F[foFhitF[oF/FdrC$>FhuF]jt@$3Fa\u4-Fa`t6$Fe[uFhu
Fdjt>FfgtF[foFfjtF/6#FggtF/6",
I.type/CM_CLASSRFOF/F-F/-F:6$FK-F\^n6$F^^n.Fd\lF/F/F/6",
I0type/CM_NOPRINTRFg^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$F^dn.F[^lF/F/F/6",
I8context/InitializeProcsR6#'FcqF^dn6$F_r%%KeysGFa]nF/C&>F`t-F`hq6%F:7#-F_[nFca
l7#Fiet>F`t-Fio6$FjwF`t?&FboF`tFdrC$-F26#-F:6$&F\tFc_nFaas-F>6$Fbo-Fbal6#Fa`u>&
%2Context/InitProcsGFb[lFdrF/6$F\tFh`uF/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,FfauQO~~~~~~~~F,Labels,Param
s,i,ProcBody,CodeString;FfauQ;~~~~global~none,CM_Global;FfauQ@~~~~"Complete~Act
ion~Template";FfauQD~~~~readlib(~'`context/cmglobal`');FfauQB~~~~readlib(~'`con
text/testeq`');FfauF[buQQ~~~~Parameters~:=~select(~type~,~[args]~,~`=`~);FfauQj
n~~~~AutoAssignFlag~:=~subs(~op(Parameters),~"autoassign"=FAIL~,FfauQ6~~~~~~"au
toassign"~);FfauQX~~~~ParseFlag~:=~~subs(~op(Parameters),~"parse"=false~,FfauQ1
~~~~~~"parse"~);FfauQG~~~~Nargs~:=~nargs~-~nops(Parameters);FfauQap~~~~if~not~t
ype([args[1]]~,~list(list)~)~then~ERROR(`list~of~lists~expected`,args)~fi;FfauQ
D~~~~Eval~:=~()~->~op(~eval(~subs(~|frFfauQM~~~~~~~~~~~PIECEWISE=`context/fixpi
ecewise`,FfauQ:~~~~~~~~~~~MATRIX=matrix,FfauQI~~~~~~~~~~~VECTOR=vector|hr~,~[ar
gs]~)));~FfauQ\p~~~~Labels~:=~vector(~map(~convert~,~map2(~op~,~1~,~[args[1..Na
rgs]]~)~,~name~));FfauQ6~~~~for~i~to~Nargs~doFfauQ<~~~~~~~~if~Labels[i]~=~noneF
fauQK~~~~~~~~or~(not~type(Labels[i],name))~thenFfauQS~~~~~~~~~~~~~Labels[i]~:=~
Eval(op(2..-1,args[i]));FfauQ\p~~~~~~~~elif~not~`context/testeq`(eval(Labels[i]
),~eval(op(2..-1,args[i]))~)~thenFfauF\cuQ,~~~~~~~~fi;FfauQ(~~~~od;FfauQG~~~~if
~type(~procname~,~indexed~)~thenFfauQdo~~~~~~~~Params~:=~seq(~CF_ARG.i~=~op(i,p
rocname)~,~i=1..nops(procname)~);FfauQ)~~~~elseFfauQ8~~~~~~~~Params~:=~NULL;Ffa
uQ(~~~~fi;FfauQ8~~~~ProcBody~:=~subs(~|frFfauQ]p~~~~~~~'f'=~~~`if`(~type([Label
s[1]],[indexed])~and~evalb(op(0,Labels[1])=Labels),FfauQN~~~~~~~~~~~~~~~~eval(L
abels[1],1),Labels[1]),FfauQar~~~~~~~'ARGS'~=~(seq(`if`(~type([Labels[i]],[inde
xed])~and~evalb(op(0,Labels[i])=Labels),eval(Labels[i],1),Labels[i]),FfauQ:~~~~
~~~~~~~i=1..Nargs~)),FfauQ/~~~~~~~Params,FfauQS~~~~~~~'`CM_Global`(a)'~=~`conte
xt/cmglobal`('a'),FfauQS~~~~~~~'`CM_Global`(b)'~=~`context/cmglobal`('b'),FfauQ
S~~~~~~~'`CM_Global`(x)'~=~`context/cmglobal`('x'),FfauQL~~~~~~~'CM_GLOBALG'~=~
`context/CM_GLOBALG`,FfauQ1~~~~~~~~NULL~|hr,~Ffau-Fhhl6&FjbnQ9proc()~global~CM_
ASSIGN;FfauFa[lFf`rQ'~~~~);FfauQ]o~~~~CodeString~:=~readlib('`context/BuildInpu
tString`')(ProcBody);FfauQho~~~~CodeString~:=~readlib('`context/autoassign`')(C
odeString,AutoAssignFlag);FfauQ>~~~~if~ParseFlag~=~true~then~FfauQP~~~~~~~~Code
String~:=~`context/jointext`(~"~"~,FfauQR~~~~~~~~~~~~"if~true~then"~,~CodeStrin
g~,~"fi"~);FfauQJ~~~~~~~~~parse(~CodeString~,~statement~);FfauFbcuQ4~~~~~~~~Cod
eString;FfauFdcuFf`rF/F/F/Ffau,
I6SMARTPLOTFindCoords2DR6#'FihsF]dm6)FbdmF[`o%+candidatesG%(nextposG%*newcoords
G%"XG%"YGFa]nF/C)>Fdx.%%_NoXG>Fiy.%%_NoYG-FSF6>F[foF@>Fhu-&F*6#.%&depthGFccp?&F
`tFK2FhuFf`oC(@$1FaeoF_fuFdjt>F]fm-F`im6%F`fm&F`t6#;Ff`oFaeo<$FdxFiy@$/F]fmF\`l
%%nextG-Fio6%FFF]fmF[fo?(FboF[oF[o-%$minG6$Ff`oF_fuFdr@&/FboF[o>Fdx&F[foFc_n/Fb
oFf`o>FiyF\hu>FhuF_fu7$FdxFiyF/F/F/6",
I.EDITSMARTPLOTRF/6(%1characterizationGFbdm%*newoptionGFihsF\isFhhsF-F/C%@$FbrF
_is>FfemFg`l@%-F:6$&FedsFfdoF`htC)>F`tF]iu>F]fm&FedsF[eo>Fhu-F`hq6$RFg^qF/F/F/F
[[tF/F/F/F][t>F[fo-F`im6$RFg^qF/F/F/F[[tF/F/F/F][t>Fdx-F]bm6$&FhuFfuF]fm>Fhu-Fb
cs6$/F`tFdxFhu-F_o6$-FjwF^xF\^rC(>F]fmF]iu>Fhu-F`hq6$RFg^qF/F/F/F[[tF/F/F/7#&Fe
ds6#;Ff`oF_^q>F[fo-F`im6$RFg^qF/F/F/F[[tF/F/F/F[[v@%-F:6$F]fm/F)F^^n>Fbo-%$lhsG
Fc]t>FboF]fm>F[fo-F`im6%R6$F_rF\boF/F/F/-Fa`tFJF/F/F/F[foFbo-F_o6%FdjuF\^rF]fmF
/FeemF/6",
I4SMARTPLOTColor_ListRF/F/Fa]nF/7*.%$redG.%&greenG.%%blueG.%(magentaG.%'orangeG
.%%plumG.%&coralG.%$tanGF/F/F/6",
I1type/CM_MathFuncRFO6%Fe]qF,%#kkG6%%'systemG%)rememberGFjblF/C$@$FbfsC%>FboFhf
s>F`t-Fax6$/F]fmFbo-.F5Fc]t@%54F`t-F:6$Fbo%)mathfuncG-F_o6#FdrFjftFjftF/F/F/6",
IAcontext/cfparse/removeduplicatesR6#'%&clistGF]dm6'%%LocCG%&lastxGFbdmFcdmFibr
F]crF^crC+@$2-Feu6#FK""#-F_oF^`v>8'F]`v>Fcdr-Fdhq6#;"""Fb`v>FecrFdjm?(8&Fg`vFg`
vFb`vFdr@%/&Fber6#Fj`vFecr>&FcdrF^avF\pC$>F`avF]av>FecrF]av>8(7#-Fcw6$F`av/Fj`v
Ff`v?(F^crFg`vFg`vF^cr32""!-Feu6#Feav/&Feav6#Fg`vQ0<SeparatorLine>F]gr>Feav&Fea
v6#;F_`v!""?(F^crFg`vFg`vF^cr3F\bv/&Feav6#FhbvFcbv>Feav&Feav6#;Fg`v!"#FeavF^crF
^crF^crF^cr,
I&a_scl%ine:\mathware\vessiot\programs\vessiot_source_code\applications\GF/,
I.context/cfgetR6$'F_r<$F^dn-F]dm6#F^dn'F\boFg\s6$%'valuesGF\isF-F/C&@$F[[tC$>F
bo-Fio6%F[pFKF<-F_o6#-FjwFc_n>F`t-F`hq6%F:<#-FjwFhdn/F^dnF^^n>Fbo-Fax6$F`tFK@%/
FboFK-F_o6#FdjmFeitF/F/F/6",
I<convert/context/StackToListR6#'Fh`oF^t6'FbdmFcdm%#TTG%$TotG%"jGFa]nF/C&F1-F26
#-F:6$FKF*>F`t-&F*6#FcfuFb[l>Fhu7#-Fcw6$&FKFc_n/Fbo;F[oF`tF/F/F/6",
I6context/cfparse/menusR6%'%#CMGFd\l'F_qF]dm'F\rF]dm6-Fibr%,CurrentMenuGF]q%%He
adGF`qFbdmFcq%(KeyListGFeq%%TailGF_rF-F/C-Fgiq>6$FiyF]fm-F_s6$7$FianQ,Descripti
onF\imFK>%/_EnvContextKeyG--FS6#.F[hl6$FchvFiy-F26#-F:6$FchvF^dn>Fbo-F`im6%F:Ff
dmFbim>FdxFg`l?&8.FboFdrC(>Fdx,&FdxF[oF[oF[o-Fjt6%F^foF\u-F^u6$Q1Content~index=
%dF^crFdx@$4-F:6$FbivFd\lFbgu>Fhu-Fio6$Fjw7$F<-F`hq6%F:&Fbo6#;F[oFdx<&Fd_lFhvF[
^lFcz>Faaq-Fio6$Fjw7$-F`hq6%F:&Fbo6#;FdxFcuFhjv9&-F[p6%FbivFhuFaaq>F`t-Fbbr6&Q'
normalF]grFchvF]fm-Fio6$Fjw7%F<-F`hq6%F:FboFhjvFb[w>&F\t6#-F\fr6#FchvF`t>Fez-F`
hq6%F:Fe_u7#F\fr-Fajr6$-Fio6$FjwFezR6$F%%"bGF/F/F/-Fjgq6#2-Fjw6$F[oFK-Fjw6$F[oF
<F/F/F/F/6$FchvF\tF/F^cr,
I?convert/CONTEXTMENU/LINEARFUNCRF/6$FifrF_rFa]nF/C&>Fbo-&F^jl6#.%'linearG6#Fdd
t>Fbo7#Fgdv@$2F[oFids>Fbo-Fajr6#Fb^w-F_o6#7#-Fcw6$7#F`t/F`tFboF/F/F/6",
I4context/InitializedFdrF/,
I<context/cfparse/act_TRIPLESRF^]nF/Fa]nF/C%F^auFd`n-F\il6#-Fa_l6UFeauQU~~~~loc
al~AutoAssignFlag,ParseFlag,Parameters,Nargs,6"QQ~~~~~~~~F,Labels,Params,i,Proc
Body,CodeString,t;Fi_wQ1~~~~global~none;Fi_wQ7~~~~"Action~Template";Fi_wF]buF^b
uF_buF`buFabuFbbuQH~~~~ASSERT(~type([args[1]],listlist)~);Fi_wQL~~~~F~:=~map2(~
op~,~2~,~[args[1..Nargs]]~);Fi_wQW~~~~F~:=~eval(~subs(|frPIECEWISE=`context/fix
piecewise`,Fi_wFfbuQC~~~~~~~~~~~VECTOR=vector|hr~,~F~));~Fi_wQco~~~~Labels~:=~m
ap(~convert~,~map2(~op~,~1~,~[args[1..Nargs]]~)~,~name~);Fi_wQ=~~~~for~i~to~nop
s(Labels)~doFi_wFjbuF[cuQW~~~~~~~~~~~~~Labels~:=~subsop(i=op(2,args[i]),Labels)
;Fi_wQU~~~~~~~~elif~(eval(Labels[i])~<>~op(2,args[i]))~thenFi_wQao~~~~~~~~~~~~~
WARNING(sprintf(~"value~of~%s~has~changed|+",~Labels[i]));Fi_wFc`wF^cuF_cuF`cuF
acuFbcuFccuFdcuFecuQ6~~~~~~~'f'=Labels[1],Fi_wQ<~~~~~~~'ARGS'~=~op(Labels),Fi_w
FjcuQL~~~~~~~'`CM_Global`(a)'~=~`CM_Global`('a'),Fi_wQL~~~~~~~'`CM_Global`(b)'~
=~`CM_Global`('b'),Fi_wQL~~~~~~~'`CM_Global`(x)'~=~`CM_Global`('x'),Fi_wF_du-Fh
hl6&FjbnQ>proc()~global~locg,CM_ASSIGN;Fi_wFa[lFf`rFcduFdduFeduFfduFgduQfn~~~~~
~~~~~~~~~~~~~~~~~"if~true~then"~,~CodeString~,~"fi"~);Fi_wQG~~~~~~parse(~CodeSt
ring~,~statement~);Fi_wFbcuFjduFdcuFf`rF/F/F/Fi_w,
I+CM_GetVarsRF/Fg^qF\^vF/C$>Fbo-%&minusG6$-Fdo6$FddtF)<$%*constantsG.%*otherwis
eG-F`hq6%R6$Fa_pF]ftF/6$%)operatorG%&arrowGF/-%(dependsG6$F<FKF/F/F/Fbo7#FedsF/
F/F/6",
I?context/cfparse/classtoifblockR6#'Fcgv<#Fd\l6)F]qF]rF\isF`]nFjp%+SubClassesGF
_`n6#%jnCopyright~(c)~1997~by~~Waterloo~Maple~Inc.~All~rights~reserved.GF/C1>Fc
hv-Fehv6$FchvF[]r-F26#-F5F^s-F26#-F5Fi\r>F]fm-F`hq6%F:FKFbim>Fafm-F_s6$7$FahvFj
hmF]fm@$-F:6$F`tF^dn>F`t-Fa_lFfu>Fhu-F`hq6%F:FKF\jq>F[fo-F`hq6%F:FKFcz@$2Fg`lFe
]r>F[fo-Fio6$-FS6#.FgelF[fo>Fiy-Fa_l6#F\an>Fdx-F`hq6%F:FKFd\l@$2Fg`lF^yC$>Fdx-F
io6$F[p7#Fgct>Fiy-Fe_nF_y>Fiy-Fa_l6%FdjuF\^rFiy@$4--FSFdhlFa\lC%>Fiy-F^u6$Q(Cod
e=%sFb`n-Fd`n6&FjbnQ'proc()Fg`rFiyFf`r-%'lprintGFa\l-F]bn6#-F^u6$QCunable~to~pa
rse~code~for~Class:~%aFb`nFchv-F\`n6&/FianFchv/FjhmF`t/FahvFboFiyF/F/F/Fb`n,
I-type/CM_CODERFOF/F-F/-F:6$FK-F\^n6$F^dnF\jqF/F/F/6",
I5context/fixpiecewiseRF/6$%&fixitGF,Fa]nF/C%>FboRFg^qF/Fa]nF/@%/F]eoF\bwFedo6$
F]eoFedoF/F/F/>F`t-Fio6$FboFgbw-%*piecewiseG6#FjdmF/F/F/6",
I6SMARTPLOTFindCoords3DRF]eu6*FbdmF`euFaeuFbeuF[`oFceuFdeu%"ZGFa]nF/C*>FdxFgeu>
FiyFjeu>Fez.%%_NoZGF\fu>FhuF@>F]fm-F`fuF^x?&F[foFK2F]fmFaeoC'>F`t-F`im6%F`fm&F[
fo6#;Ff`oFeeo<%FdxFiyFez@$/F`tF\`lFbgu-Fio6%FFF`tFhu?(Fbo,&F]fmF[oF[oF[oF[o-Fgg
u6$FaeoFdjwFdr@(Fjgu>Fdx&FhuFc_nF]hu>FiyFi[x/FboFaeo>FezFi[x>F]fmFdjw7%FdxFiyFe
zF/F/F/6",
I>convert/CONTEXTMENU/transformR6#FP6%F]hmF_r%)CodeTypeG6#F.F]grC&>F\irF[hr@$Fc
hr-F_o6#-Fio6$9!F\hr@--F:6$Fehr-Fhv6#<$Q)completeFeirQ%PLOTFeirC$-F26#-F56#&F\t
6#-F_[l6#F`ir>8$F[^x-F:6$Fehr-Fhv6#<(F]dmQ'SINGLEFeirF\]sQ(TRIPLESF]grFdirF[\sC
$Fg]x>F`^x-Fafr6$F[^xF\ir-F:6$FehrFczC%-F26#-F56#&F\t6#-%4CM_CONDITIONAL_DATAGF
^^x>F`^xFc_x>F`^x-Fjw6#-Fio6%F]]xF`^xF\ir-F:6$Fehr.-F\^n6$F^^nF\frC%-F26#-F:6$F
KF\fr>F`^x-Ffjl6%FehrQ(SubMenuF]grF\ir@$5/F`^xF\p/7$&F`^x6#F\jr&F`^x6#Fihr7$Fh[
w7">F`^xF\p5-F:6$FehrFd_l/FehrFcbv>F`^xFcbvC$Fg]x>F`^xFj^x-F_o6#F`^xF]grFhgrF]g
rF]gr,
I,APPENDPLOTSRFahsFdhsF-F/C-@$FbrF_is@'Fcis>FhuFeisFfis>FhuFK>FhuFeisFiisFbjs>F
dx-F`hq6$RFg^qF/F/F/F[[tF/F/F/F][t>F_`p-F`im6$RFg^qF/F/F/F[[tF/F/F/F][t>FfemFg`
l>FiyFg[t>F`tF\p@&FejsC%>FboF^\t>Fb\tFbo?&F]fmFhuFdrC$@'Ff\tC'@$F[]tFh]t>FezF\^
t>FiyF^^t>F[foFa^t>F[foFf^tF[_tC%@$F__tFh]t>F[foF]fm@%F_`tC%>FezF\^t>FiyF^^t>F[
foFf^t>FiyF[atFaat>F`tFeatFfjsC%>FboFhat>F\btFbo?&F]fmFhuFdrC$@'Ff\tC$@$FbbtFfb
t>F[foFjbtF[_tC$@$F`ctFfbt>F[foF]fmFaat>F`tFeatFfctF/FeemF/6",
I6context/defaultconfig-Fcp6=/FianQ'System6"/FjhmQ%trueF]fx/FahvQ/Top~Level~Men
uF]fx-F`_l6)Q4if~nargs~=~~0~then~F]fxQjn~~~~RETURN(~CONTEXTMENU(Empty,`No~Objec
t~Selected`,~[]~)~);~fi;F]fxQ;Vars~:=~~CM_GetVars(args);F]fxQ6Nvars~:=~~nops(Va
rs);F]fxQCFuncs~:=~~indets(|frargs|hr,function);F]fxQ@FuncNames~:=~~map2(op,0,F
uncs);F]fxQ5_EnvCM_Vars~:=~Vars;F]fx-Fcp6+/FianQ3ExpressionSequenceF]fx/FjhmQSn
args~<>~1~or~type(f,specfunc(anything,|fr`$`,seq|hr))F]fx/FahvQ@Actions~on~Expr
ession~SequencesF]fx-F`_l6-Q/g~:=~|fr~args~|hr;F]fxQ>while~indets(g,set)~<>~|fr
g|hr~doF]fxQgn~~~~g~:=~map(~(x~->~if~type(x,set)~then~op(x)~else~x~fi),g);F]fxQ
$od;F]fxQ>if~indets(g,array)~<>~|fr|hr~thenF]fxQA~~~~Vars~:=~~CM_GetArrayVars(g
);F]fxFdcnFgfxQ>Funcs~:=~~indets(g,function);F]fxFifxFjfx-Fdt6'/FbvQ/Make~into~
ListF]fx/F[imQ,ConversionsF]fx/Q+HelpStringFcvQ2Convert~to~a~listF]fx/Q)CodeTyp
e6"Fd]x/Q%Code6"Q)[~ARGS~]F]fx-Fdt6'/FbvQ.Make~into~SetF]fxF`hx/FchxQ1Convert~t
o~a~setF]fxFehx/FihxQ)|fr~ARGS~|hrF]fx-Fhx6%/Fjhm-F`_l6#Q<type(|frargs|hr,set(a
lgebraic))F]fxF`hx-Fdt6&/FbvQ,Equate~to~0F]fx/FchxQ>Equate~simple~algebraics~to
~0F]fxFehx/Fihx-F`_l6#Q@map(~proc(x)~x=0~end~,~|frARGS|hr);F]fx-Fcp6&/FianQ*Con
stantsF]fx/FjhmQ(Nvars=0F]fx/FahvQBActions~on~sequences~of~ConstantsF]fx-F`_l6#
Q5ASSERT(~Nvars~=~0~);F]fx-Fcp6(/FianQ%EqnsF]fx/FjhmQFtype(|frargs|hr,set(algeb
raic=algebraic))F]fx/FahvQBActions~on~sequences~of~EquationsF]fx-Fcp6'/FianQ,De
rivativesF]fx/FjhmQVhas(FuncNames,|frD,Diff,diff|hr)~and~CM_GetFuncs(f)~<>~|fr|
hrF]fx/FahvQOActions~on~sequences~of~Differential~EquationsF]fx-Fdt6&/FbvQ+Solv
e~D.E.F]fx/FchxQ>Solve~a~differential~equationF]fx/FfhxF[\s/FihxQ<dsolve(~|frAR
GS|hr,~|frCF_ARG1|hr~)F]fx-Fdt6&/FbvQ9Add~an~Initial~ConditionF]fx/FchxQOAugmen
t~equation~set~with~an~initial~conditionF]fxFe\y/FihxQDinitialcondition[CF_ARG1
](~|frARGS|hr~)F]fx-Fcp6'/FianQ(RecEqnsF]fx/Fjhm-F`_l6&Q2(type(g,set(`=`))F]fxQ
[o~and~select(type,indets(g,function(linear)),`context/undefined`)F]fxQA~~~~~mi
nus~CM_GetFuncs(g)~<>~|fr|hr)F]fxQMand~(FuncNames~intersect~CM_InertFuncs~=~|fr
|hr)F]fx/FahvQMActions~on~sequences~of~Recurrence~EquationsF]fx-Fdt6&/FbvQ1Solv
e~RecurrenceF]fx/FchxQ<Solve~a~recurrence~relationF]fx/FfhxQ+LINEARFUNCF]fx/Fih
xQ:rsolve(~|frARGS|hr,~CF_ARG1~)F]fx-Fdt6&Fj\yF\]yFc^yF^]y-Fcp6&Fa[y/FjhmQ1type
(g,set(`=`))F]fx/FahvQLActions~on~sequences~of~Algebraic~EquationsF]fx-Fdt6&/Fb
vQ5Eliminate~a~variableF]fx/FchxQ]oDetermine~value~of~a~specific~variable~in~te
rms~of~other~variablesF]fx/FfhxFdir/FihxQ:solvefor[CF_ARG1](~ARGS~)F]fx-Fcp6&/F
ianQ1System~ConstantsF]fx/FjhmQjnmember(f,|fr0,~true,~false,~FAIL,~infinity|hr)
~or~type(f,~infinity)F]fx/FahvQ<Actions~on~System~ConstantsF]fx-Fhx6%/Fjhm-F`_l
6&Q(f=0~andF]fxQM(SearchText("~NT",~interface(version))<>0~orF]fxQKSearchText("
PPC",interface(version))<>0~orF]fxQ<interface(prompt)='`#-->`')F]fx/F[imQ&Plots
F]fx-Fdt6&/FbvQ(2D-PlotF]fx/FchxQ@Generate~a~two-dimensional~plotF]fxFehx/FihxQ
-smartplot(f)F]fx-Fcp6+/FianQ'NumberF]fx/FjhmQgntype(f,algebraic)~and~Nvars~=~0
~and~indets(f,CM_Matrix)~=~|fr|hrF]fx/FahvQ3Actions~on~NumbersF]fx-Fdt6&/FbvQ,A
pproximateF]fx/FchxQCUse~n-digit~floating~point~numbersF]fx/Ffhx7'Fieo"#5"#?"#]
"$+"/FihxQ2evalf(f,~CF_ARG1)F]fx-Fhx6%/Fjhm-F`_l6&Q3not~(has(f,I))~andF]fxFf`yF
g`yFh`yFi`yF[ay-Fcp6-/FianQ(IntegerF]fx/FjhmQ0type(f,integer)F]fx/FahvQ4Actions
~on~IntegersF]fx-Fdt6&/FbvQ0Integer~FactorsF]fx/FchxQ2Factor~an~integerF]fxFehx
/FihxQ+ifactor(f)F]fx-Fdt6&/FbvQ+Next~PrimeF]fx/FchxQ>Locate~the~next~largest~p
rimeF]fxFehx/FihxQ8numtheory[nextprime](f)F]fx-Fdt6&/FbvQ/Test~PrimalityF]fx/Fc
hxQ3Test~for~primalityF]fxFehx/FihxQ6numtheory[isprime](f)F]fx-Fdt6&/FbvQ)Divis
orsF]fx/FchxFbeyFehx/FihxQ7numtheory[divisors](f)F]fx-Fdt6&/FbvQ$PhiF]fx/FchxQ1
Totient~functionF]fxFehx/FihxQ2numtheory[phi](f)F]fx-Fdt6&/FbvQ$TauF]fx/FchxQ<N
umber~of~positive~divisorsF]fxFehx/FihxQ2numtheory[tau](f)F]fx-Fdt6&/FbvQ&Sigma
F]fx/FchxQ9Sum~of~positive~divisorsF]fxFehx/FihxQ4numtheory[sigma](f)F]fx-Fhx6$
/FjhmQ1type(f,negative)F]fx-Fdt6&/FbvQ/Absolute~ValueF]fx/FchxQBThe~absolute~va
lue~of~the~integerF]fxFehx/FihxQ'abs(f)F]fx-Fcp6)/FianQ4Non-Integer~NumericF]fx
/FjhmQ1type(f,realcons)F]fx/FahvQAActions~on~Non-Integer~ConstantsF]fx-Fdt6&/Fb
vQ&FloorF]fx/FchxQ6Next~smallest~integerF]fxFehx/FihxQ)floor(f)F]fx-Fdt6&/FbvQ(
CeilingF]fx/FchxQ5Next~largest~integerF]fxFehx/FihxQ(ceil(f)F]fx-Fdt6&/FbvQ0Fra
ctional~PartF]fx/FchxQ<Fractional~part~of~a~numberF]fxFehx/FihxQ(frac(f)F]fx-Fc
p6'/FianQ&FloatF]fx/FjhmQ.type(f,float)F]fx/FahvQ?Actions~on~Approximate~Number
sF]fx-Fdt6'/FbvQ)RationalF]fxF`hx/FchxQ=Convert~to~a~rational~numberF]fxFehx/Fi
hxQ6convert(f,'rational')F]fx-Fdt6'/FbvQ3Continued~FractionF]fxF`hx/FchxQ@Conve
rt~to~a~continued~fractionF]fxFehx/FihxQ<convert(evalf(f),'confrac')F]fx-Fcp6,/
FianQ(ComplexF]fx/FjhmQ0type(f,complex)F]fx/FahvQ;Actions~on~Complex~NumbersF]f
x-F`_l6#QOASSERT(~not~type(f,~|frinteger,rational,float|hr))F]fx-Fdt6&/FbvQ*Rea
l~PartF]fx/FchxQ6Real~part~of~a~numberF]fxFehx/FihxQ&Re(f)F]fx-Fdt6&/FbvQ/Imagi
nary~PartF]fx/FchxQ;Imaginary~part~of~a~numberF]fxFehx/FihxQ&Im(f)F]fx-Fdt6&/Fb
vQ*ConjugateF]fx/FchxQ>Complex~conjugate~of~a~numberF]fxFehx/FihxQ-conjugate(f)
F]fx-Fdt6&/FbvQ%NormF]fx/FchxQ(L2~normF]fxFehx/FihxQ:sqrt(~Re(f)^2~+~Im(f)^2)~F
]fx-Fdt6'/FbvQ(a~+~b~iF]fxF`hx/FchxQ:Write~as~a~complex~numberF]fxFehx/FihxQ+ev
alc(~f~)F]fx-Fdt6'/FbvQ&PolarF]fxF`hx/FchxQ=Convert~to~polar~coordinatesF]fxFeh
x/FihxQ:convert(evalc(~f~),polar)F]fx-Fcp6&/FianQ<Constant~Valued~ExpressionsF]
fx/FjhmQHFuncNames~intersect~CM_InertFuncs~<>~|fr|hrF]fx/FahvQGActions~on~Const
ant~Valued~ExpressionsF]fx-Fdt6&/FbvQ)EvaluateF]fx/FchxQ:Complete~indicated~act
ionF]fxFehx/FihxQ)value(f)F]fx-Fcp6,/FianQ%NameF]fx/FjhmQWtype(f,name)~and~not~
type(f,|frtable,procedure,hfarray|hr)F]fx/FahvQ1Actions~on~NamesF]fx-Fdt6&/FbvQ
.DifferentiateF]fx/FchxQ4Take~the~derivativeF]fxFe_y/FihxQ1diff(f,CF_ARG1);F]fx
-Fdt6&/FbvQ*IntegrateF]fx/FchxQAEvaluate~the~indefinite~integralF]fxFe_y/FihxQ0
int(f,CF_ARG1);F]fx-Fdt6'/FbvQ+DerivativeF]fx/F[imQ.ConstructionsF]fx/FchxQ7Con
struct~a~derivativeF]fxFe_y/FihxQ1Diff(f,CF_ARG1);F]fx-Fdt6'/FbvQ)IntegralF]fxF
iaz/FchxQ6Construct~an~integralF]fxFe_y/FihxQ0Int(f,CF_ARG1);F]fx-Fhx6$/Fjhm-F`
_l6%Ff`yFg`yFh`y-Fdt6'/FbvQ%PlotF]fxFi`y/FchxQ5Plot~in~2~dimensionsF]fxFehxFaay
-Fhx6%/FjhmQ6type(f,HasAssumption)F]fx-Fdt6&/FbvQ1What~AssumptionsF]fx/FchxQIDi
splay~assumptions~placed~on~a~variableF]fxFehx/FihxQ2about(f);~eval(f)F]fx-Fdt6
&/FbvQ3Remove~AssumptionsF]fx/FchxQCRemove~assumptions~from~a~variableF]fxFehx/
FihxQ8CM_RemoveAssumptions(f)F]fx-Fhx6(/FjhmQ4not~type(f,indexed)F]fx-Fdt6'/Fbv
Q-Non-NegativeF]fx/F[imQ,AssumptionsF]fx/FchxQ=Assume~value~is~non-negativeF]fx
Fehx/FihxQ3additionally(0<=f)F]fx-Fdt6'/FbvQ2Strictly~PositiveF]fxF^ez/FchxQBAs
sume~value~is~strictly~positiveF]fxFehx/FihxQ2additionally(0<f)F]fx-Fdt6'/FbvQ-
Non-PositiveF]fxF^ez/FchxQ=Assume~value~is~non-positiveF]fxFehx/FihxQ3additiona
lly(f<=0)F]fx-Fdt6'/FbvQ2Strictly~NegativeF]fxF^ez/FchxQBAssume~value~is~strict
ly~negativeF]fxFehx/FihxQ2additionally(f<0)F]fx-Fdt6'/FbvQ)Non-ZeroF]fxF^ez/Fch
xQ9Assume~value~is~non-zeroF]fxFehx/FihxQ3additionally(f<>0)F]fx-Fcp6(/FianQ'St
ringF]fx/FjhmQ/type(f,string)F]fx/FahvQ3Actions~on~StringsF]fx-Fhx6$/FjhmQ1CM_I
sParsable(f)F]fx-Fdt6&/FbvQ&ParseF]fx/FchxQ;Parse~as~a~Maple~statementF]fxFehx/
FihxQ)parse(f)F]fx-Fdt6&/FbvQ'LengthF]fx/FchxQCDetermine~the~number~of~characte
rsF]fxFehx/FihxQ*length(f)F]fx-Fdt6'/FbvQ1Make~into~SymbolF]fx/FchxQ4Convert~to
~a~symbolF]fxF`hxFehx/FihxQ2convert(f,symbol)F]fx-Fcp6%/FianQ(BooleanF]fx/FjhmQ
Itype(f,boolean)~and~not~type(f,relation)F]fx/FahvQ?Actions~on~Boolean~Expressi
onsF]fx-Fcp6+/FianQ)RelationF]fx/FjhmQStype(f,relation)~and~type([op(f)],list(a
lgebraic))F]fx/FahvQ=Actions~on~General~RelationsF]fx-Fdt6&/FbvQ/Left-hand~Side
F]fx/FchxQ6Left~side~of~relationF]fxFehx/FihxQ'lhs(f)F]fx-Fdt6&/FbvQ0Right-hand
~SideF]fx/FchxQ7Right~side~of~relationF]fxFehx/FihxQ'rhs(f)F]fx-Fdt6&/FbvQ-Move
~To~LeftF]fx/FchxQ>Move~to~left~side~of~relationF]fxFehx/FihxQ<op(0,f)(lhs(f)-r
hs(f)~,~0~)F]fx-Fdt6&/FbvQ.Move~To~RightF]fx/FchxQ?Move~to~right~side~of~relati
onF]fxFehx/FihxQ9op(0,f)(0,rhs(f)-lhs(f))F]fx-Fcp6)/FianQ)EquationF]fx/FjhmQ,ty
pe(f,`=`)F]fx/FahvQ5Actions~on~EquationsF]fx-Fcp6'Fi[y/FjhmQWhas(FuncNames,~|fr
D,Diff,diff|hr)~and~CM_GetFuncs(f)~<>~|fr|hrF]fx/FahvQBActions~on~Differential~
EquationsF]fx-Fdt6&Fa\yFc\yFe\y/FihxQ7dsolve(~f~,~|frCF_ARG1|hr)F]fx-Fdt6&Fj\yF
\]yFe\y/FihxQ?initialcondition[CF_ARG1](~f~)F]fx-Fcp6'Fb]y/Fjhm-F`_l6%Qhn(selec
t(type,indets(f,function(linear)),`context/undefined`)~F]fxQ<minus~CM_GetFuncs(
f)~<>~|fr|hr)F]fxFj]y/FahvQ@Actions~on~Recurrence~EquationsF]fx-Fdt6&F_^yFa^yFc
^y/FihxQ6rsolve(~f~,~CF_ARG1~)F]fxFg^y-Fcp6&/FianQ&Var_1F]fx/FjhmQ\oNvars=1~and
~(lhs(f)<>Vars[1]~or~has(indets(rhs(f),name),Vars[1]))F]fx/FahvQEActions~on~Sin
gle~Variable~RelationsF]fx-Fdt6&/FbvQ&SolveF]fx/FchxQ>Determine~value~of~a~vari
ableF]fxFehx/FihxQ-solve(~|frf|hr~)F]fx-Fcp6'/FianQ&Var_nF]fx/FjhmQ*Nvars~>~1F]
fx/FahvQDActions~on~Multi-Variable~RelationsF]fx-Fdt6&/FbvQ>Solve~Equation~for~
a~VariableF]fx/FchxQ>Solve~equation~for~a~variableF]fxFe_y/FihxQ7solve(~|frf|hr
,~|frCF_ARG1|hr)F]fx-Fcp6'/FianQ4Plottable~RelationsF]fx/FjhmQfn(not~has(f,I))~
and~(FuncNames~intersect~CM_InertFuncs~=~|fr|hr)F]fx/FahvQ@Actions~for~2D~and~3
D~relationsF]fx-Fhx6%/Fjhm-F`_l6&Q.Nvars~=~2~andF]fxFf`yFg`yFh`yFi`y-Fdt6&/FbvQ
1Implicit~2D-PlotF]fx/FchxF\b[l/FfhxF\]s/FihxQ>smartplot[CF_ARG1,CF_ARG2](f)F]f
x-Fhx6%/Fjhm-F`_l6&Q.Nvars~=~3~andF]fxFf`yFg`yFh`yFi`y-Fdt6&/FbvQ1Implicit~3D-P
lotF]fx/FchxFjb[l/FfhxFg^x/FihxQHsmartplot3d[CF_ARG1,CF_ARG2,CF_ARG3](f)F]fx-Fc
p6'/FianQ+InequalityF]fx/FjhmQ0not~type(f,`=`)F]fx/FahvQ8Actions~on~Inequalitie
sF]fx-Fdt6&/FbvQ'EquateF]fx/FchxQ8Change~into~an~equationF]fxFehx/FihxQ0lhs(f)~
=~rhs(f)F]fx-Fdt6&/FbvQ'VerifyF]fx/FchxQAApply~heuristic~test~to~relationF]fxFe
hx/FihxQ)evalb(f)F]fx-Fcp6*/FianQ%ListF]fx/FjhmQ-type(f,list)F]fx/FahvQ1Actions
~on~ListsF]fx-F`_l6#Q9ASSERT(~type(f,~list)~);F]fx-Fdt6'F^ixF`hxF`ixFehx/FihxQ/
convert(f,set)F]fx-Fhx6%/FjhmQHnops(f)~>~0~and~type(f,list(algebraic))F]fxF`hx-
Fdt6&F\jxF^jxFehx/Fihx-F`_l6#Q>map(~proc(x)~x=0~end~,~ARGS);F]fx-Fhx6$/FjhmQ,no
ps(f)~>~1F]fx-Fdt6&/FbvQ%SortF]fx/FchxQ*Sort~listF]fxFehx/FihxQ(sort(f)F]fx-Fcp
6&Fa[y/FjhmQ_p(nops(f)~>~0)~and~(type(f,list(algebraic=algebraic)))~and~(not~ha
s(f,|frD,Diff,diff|hr))F]fx/FahvQ>Actions~on~Lists~of~EquationsF]fx-Fdt6&/FbvQ4
Solve~Each~EquationF]fx/FchxQGSolve~each~equation~in~list~separatelyF]fxFe_y/Fi
hxQ9map(solve,~f,~|frCF_ARG1|hr)F]fx-Fcp6)/FianQ$SetF]fx/FjhmQ,type(f,set)F]fx/
FahvQ0Actions~on~SetsF]fx-Fcp6&FfjxFhjx/FahvQ=Actions~on~sets~of~ConstantsF]fxF
\[y-Fdt6'F^hxF`hxFbhxFehx/FihxQ4convert(~f~,~list~)F]fx-Fhx6%/FjhmQGnops(f)~>~0
~and~type(f,set(algebraic))F]fxF`hx-Fdt6&F\jxF^jxFehx/Fihx-F`_l6#Q;map(~proc(x)
~x=0~end~,~f);F]fx-Fcp6)Fa[y/FjhmQct((nops(f)~>~1)~and~(type(f,set(algebraic=al
gebraic))))~or~~~~~~~~~~~~((nops(f)~=~1)~and~(type(op(f),`=`)~and~not~type(op(f
),name=constant)~and~Nvars>0))F]fx/FahvQ=Actions~on~sets~of~EquationsF]fxF`][lF
^^[l-Fcp6&/FianQ'Eqns_1F]fx/FjhmQ*nops(f)=1F]fx/FahvQBActions~on~an~Algebraic~E
quationsF]fx-Fdt6&Fe_[lFc_yFe_y/FihxQ9solve(~f~,~|fr~CF_ARG1~|hr~)F]fx-Fcp6&/Fi
anQ'Eqns_2F]fx/FjhmQ*nops(f)>1F]fx/FahvQGActions~on~sets~of~Algebraic~Equations
F]fx-Fdt6&/FbvQ*EliminateF]fxFc_yFe_y/FihxQ7solvefor[CF_ARG1](~f~)F]fx-Fcp6(/Fi
anQ&RangeF]fx/FjhmQ.type(f,range)F]fx/FahvQ2Actions~on~RangesF]fx-Fdt6&/FbvQ2Le
ft~End~of~RangeF]fx/FchxQ>Get~starting~point~of~a~rangeF]fxFehxF^[[l-Fdt6&/FbvQ
3Right~End~of~RangeF]fx/FchxQ<Get~ending~point~of~a~rangeF]fxFehxFf[[l-Fdt6&/Fb
vQ.Reverse~RangeF]fx/FchxQ=Reverse~the~order~of~a~rangeF]fxFehx/FihxQ/rhs(f)..l
hs(f)F]fx-Fcp6'/FianQ*HasSeriesF]fx/FjhmQ7indets(f,series)~<>~|fr|hrF]fx/FahvQI
Actions~on~expressions~containing~SeriesF]fx-Fcp6'/FianQ*NotSeriesF]fx/FjhmQ4no
t~type(f,~series)F]fx/FahvQ[oActions~on~expressions~which~contain~series~(but~a
re~not~series)F]fx-Fdt6&/FbvQ/Series~about~0F]fx/FchxQSSeries~of~expression~abo
ut~0~in~specified~variableF]fxFe_y/FihxQ4series(f,CF_ARG1=0)F]fx-Fdt6&/FbvQ/Ser
ies~about~aF]fx/FchxQ[oSeries~of~expression~about~a~general~point~in~specified~
variableF]fxFe_y/FihxQ?series(f,CF_ARG1=CM_Global(a))F]fx-Fcp6+/FianQ'SeriesF]f
x/FjhmQ/type(f,series)F]fx/FahvQ2Actions~on~SeriesF]fx-Fdt6&/FbvQ>Truncate~Seri
es~to~PolynomialF]fx/FchxQ2Remove~Order~termF]fxFehx/FihxQ6convert(~f,~polynom~
)F]fx-Fdt6&/FbvQ3Pade~ApproximationF]fx/FchxQ>Convert~to~a~Pade~approximantF]fx
Fehx/FihxQ5convert(~f,~ratpoly)F]fxFe`zF]azFeazF_bz-Fcp6%/FianQ*ProcedureF]fx/F
jhmQ2type(f,procedure)F]fx/FahvQ6Actions~on~ProceduresF]fx-Fcp6'/FianQ*HasMatri
xF]fx/Fjhm-F`_l6$QDselect(type,indets(f,array),matrix)F]fxQYunion~indets(f,spec
func(anything,|frMATRIX,matrix|hr))~<>~|fr|hrF]fx/FahvQ<Objects~containing~Matr
icesF]fx-Fcp6&/FianQ*NotMatrixF]fx/FjhmQZnot~(type(f,|frmatrix,specfunc(anythin
g,|frMATRIX,matrix|hr)|hr))F]fx/FahvQ_oActions~on~expressions~which~contain~mat
rices~(but~are~not~matrices)F]fx-Fdt6&/FbvQ5Evaluate~as~a~MatrixF]fx/FchxQ;Eval
uate~matrix~expressionF]fxFehx/Fihx-F`_l6#Q*evalm(f);F]fx-Fcp6-/FianQ'MatrixF]f
x/FjhmQTtype(f,|frmatrix,specfunc(anything,|frMATRIX,matrix|hr)|hr)F]fx/FahvQ2M
atrix~OperationsF]fx-F`_l6#QC_EnvCM_Vars~:=~CM_GetArrayVars(f);F]fx-Fdt6&/FbvQ*
TransposeF]fx/FchxQ6Transpose~of~a~matrixF]fxFehx/Fihx-F`_l6#Q5linalg[transpose
](f)F]fx-Fdt6&/FbvQ&ShapeF]fx/FchxQ;Number~of~rows~and~columnsF]fxFehx/Fihx-F`_
l6#QF[linalg[rowdim](f),linalg[coldim](f)]F]fx-Fdt6'/FbvQ&MapleF]fx/FchxQDGener
ate~corresponding~Maple~syntaxF]fxF`hxFehx/FihxQ7sprintf(`%a`,evalm(f))F]fx-Fdt
6'/FbvQ&LaTeXF]fx/FchxQDGenerate~corresponding~LaTeX~syntaxF]fxF`hxFehx/FihxQ)l
atex(f)F]fx-F`_l6#QCg~:=~eval(subs(MATRIX=matrix,f)~);F]fx-Fhx6&/FjhmQ=not~(has
([op(g)],~infinity))F]fx-Fdt6&/FbvQ%RankF]fx/FchxQ1Rank~of~a~matrixF]fxFehx/Fih
x-F`_l6#Q3linalg[rank](~f~);F]fx-Fdt6'/FbvQ+C~LanguageF]fx/FchxQ:Generate~optim
ized~C~CodeF]fxF`hxFehx/FihxQ:readlib(C)(f,'optimized')F]fx-Fdt6'/FbvQ(FORTRANF
]fx/FchxQ@Generate~optimized~FORTRAN~CodeF]fxF`hxFehx/FihxQ7fortran(f,'optimize
d')F]fx-Fcp6./FianQ'SquareF]fx/FjhmQco(linalg[rowdim](g)=linalg[coldim](g))~and
~(not~(has([op(g)],~infinity)))F]fx/FahvQ;Actions~on~Square~MatricesF]fx-Fdt6&/
FbvQ,DeterminantF]fx/FchxQ8Determinant~of~a~matrixF]fxFehx/Fihx-F`_l6#Q/linalg[
det](f)F]fx-Fdt6&/FbvQ(InverseF]fx/FchxQ4Inverse~of~a~matrixF]fxFehx/Fihx-F`_l6
#Q3linalg[inverse](f)F]fx-Fdt6&/FbvQ&TraceF]fx/FchxQ2Trace~of~a~matrixF]fxFehx/
Fihx-F`_l6#Q1linalg[trace](f)F]fx-Fdt6&/FbvQ:Characteristic~PolynomialF]fx/Fchx
QKFind~characteristic~polynomial~of~a~matrixF]fxFehx/Fihx-F`_l6#QFlinalg[charpo
ly](~f~,~CM_Global('x'))F]fx-Fdt6&/FbvQ,EigenvaluesF]fx/FchxQGEigenvalues~of~a~
linear~transformationF]fxFehx/Fihx-F`_l6#Q7linalg[eigenvals](~f~)F]fx-Fdt6&/Fbv
Q-EigenvectorsF]fx/FchxQHEigenvectors~of~a~linear~transformationF]fxFehx/Fihx-F
`_l6#Q8linalg[eigenvects](~f~)F]fx-F`_l6#QDEntries~:=~map(op,~|frentries(~g~)|h
r);F]fx-Fcp6'/FianQ.IntegerMatrixF]fx/FjhmQ;type(Entries,set(integer))F]fx/Fahv
Q:Integer~Matrix~OperationsF]fx-Fdt6&/FbvQ2Smith~Normal~FormF]fx/FchxQGSmith~no
rmal~form~of~an~integer~matrixF]fxFehx/Fihx-F`_l6#Q4linalg[ismith](~f~)F]fx-Fdt
6&/FbvQ4Hermite~Normal~FormF]fx/FchxQIHermite~normal~form~of~an~integer~matrixF
]fxFehx/Fihx-F`_l6#Q6linalg[ihermite](~f~)F]fx-Fcp6'/FianQ0AlgebraicMatrixF]fx/
FjhmQZindets(Entries,name)~<>~|fr|hr~and~type(Entries,set(polynom))F]fx/FahvQ<A
lgebraic~Matrix~OperationsF]fx-Fdt6&F^]]l/FchxQISmith~normal~form~of~an~algebra
ic~matrixF]fxFe_y/Fihx-F`_l6#Q=linalg[smith](~f~,~CF_ARG1~)F]fx-Fdt6&Fh]]l/Fchx
QKHermite~normal~form~of~an~algebraic~matrixF]fxFe_y/Fihx-F`_l6#Q?linalg[hermit
e](~f~,~CF_ARG1~)F]fx-Fcp6'/FianQ*HasVectorF]fx/Fjhm-F`_l6$QDselect(type,indets
(f,array),vector)F]fxQZ~union~indets(f,specfunc(anything,|frVECTOR,vector|hr))~
<>~|fr|hrF]fx/FahvQ>Actions~on~Vector~ExpressionsF]fx-Fcp6&/FianQ*NotVectorF]fx
/FjhmQZnot~(type(f,|frvector,specfunc(anything,|frVECTOR,vector|hr)|hr))F]fx/Fa
hvQ]oActions~on~expressions~which~contain~vectors~(but~are~not~vectors)F]fx-Fdt
6&/FbvQ5Evaluate~as~a~VectorF]fx/FchxQ;Evaluate~vector~expressionF]fxFehxFib\l-
Fcp6./FianQ'VectorF]fx/FjhmQTtype(f,|frvector,specfunc(anything,|frVECTOR,vecto
r|hr)|hr)F]fx/FahvQ3Actions~on~VectorsF]fxFec\l-Fdt6'/FbvQ2One-column~MatrixF]f
xF`hx/FchxQ?Convert~to~a~one~column~matrixF]fxFehx/FihxQOmatrix(~[seq([f[i]],i=
1..linalg[vectdim](f))])F]fx-Fdt6'/FbvQ/One-row~MatrixF]fxF`hx/FchxQ<Convert~to
~a~one-row~matrixF]fxFehx/FihxQOmatrix(~[[seq(f[i],i=1..linalg[vectdim](f))]])F
]fx-Fdt6'F^hxF`hxFbhxFehx/Fihx-F`_l6#Fih[l-Fdt6&/FbvQ*DimensionF]fx/FchxQ3Lengt
h~of~a~vectorF]fxFehx/Fihx-F`_l6#Q3linalg[vectdim](f)F]fx-Fdt6&FjhzFi]zFehx/Fih
x-F`_l6#Q2linalg[norm](f,2)F]fxF\e\lFde\l-Fhx6%Faf\lF]g\lFeg\l-Fcp6'/FianQ&Tabl
eF]fx/FjhmQ.type(f,table)F]fx/FahvQ=Actions~on~Tables~and~ArraysF]fx-Fdt6&/FbvQ
(IndicesF]fx/FchxQ8Get~indicies~of~a~tableF]fxFehx/FihxQ-[indices(f)]F]fx-Fdt6&
/FbvQ(EntriesF]fx/FchxQ7Get~entries~of~a~tableF]fxFehx/FihxQ-[entries(f)]F]fx-F
cp6&/FianQ(HfarrayF]fx/FjhmQ0type(f,hfarray)F]fx/FahvQEActions~on~Arrays~of~Har
dware~FloatsF]fx-Fdt6'/FbvQ5Software~Float~ArrayF]fxF`hx/FchxQAConvert~array~to
~software~floatsF]fxFehx/FihxQ5convert(~f~,~array~)F]fx-Fcp6//FianQ)MathFuncF]f
x/FjhmQ4type(f,CM_MathFunc)F]fx/FahvQBActions~on~Mathematical~FunctionsF]fx-F`_
l6#Q5ASSERT(~Nvars~>~0~);F]fx-Fcp6%/FianQ*PrintFUNCF]fx/FjhmQ3type(f,CM_NOPRINT
)F]fx/FahvQEActions~on~Pretty-Printing~FunctionsF]fx-Fhx6%/FjhmQ:not(type(f,CM_
PIECEWISE))F]fx-Fdt6'F^e\lF`e\lF`hxFehx/FihxQ1sprintf(`%a`,f);F]fxFde\l-Fhx6%/F
jhmQin(not(type(f,CM_PIECEWISE)))~and~(not(hastype(f,|frlist,range|hr)))F]fxF]g
\lFeg\l-Fdt6&Fg_zFi_zFehx/FihxQ*value(f);F]fx-Fhx6%/FjhmQ;not~type(f,function(n
ame))F]fx-Fdt6&/FbvQ)SimplifyF]fx/FchxQ4Simplify~expressionF]fxFehx/FihxQ-simpl
ify(f);F]fx-Fdt6&/FbvQ'ExpandF]fx/FchxQ2Expand~expressionF]fxFehx/FihxQ*expand(
f)F]fx-Fhx6%/FjhmQNnot~(FuncNames~intersect~CM_InertFuncs~<>~|fr|hr)F]fxFe`zF]a
z-Fhx6%/Fjhm-F`_l6(QP(not~(FuncNames~intersect~CM_InertFuncs~<>~|fr|hr))F]fxQ0a
nd~(Nvars~=~1)F]fxQ3and~(not~has(f,I))F]fxQOand~(SearchText("~NT",~interface(ve
rsion))<>0~F]fxQN~~~or~SearchText("PPC",interface(version))<>0F]fxQ@~or~interfa
ce(prompt)='`#-->`')F]fxFi`yF[ay-Fhx6%/Fjhm-F`_l6(Fhj]lQ0and~(Nvars~=~2)F]fxFjj
]lF[[^lF\[^lF][^lFi`y-Fdt6&/FbvQ(3D-PlotF]fx/FchxQBGenerate~a~three-dimensional
~plotF]fxF^b[l/FihxQ@smartplot3d[CF_ARG1,CF_ARG2](f)F]fx-Fcp6,/FianQ5Other~Math
~FunctionsF]fx/FjhmQconot~(type(f,~CM_PIECEWISE)~or~(FuncNames~intersect~CM_Ine
rtFuncs~<>~|fr|hr))F]fx/FahvQBActions~on~General~Math~FunctionsF]fxFeazF_bz-Fdt
6'/FbvQ2Definite~IntegralF]fxFiaz/FchxQ>Construct~a~definite~integralF]fxFe_y/F
ihxQ:Int(f,CF_ARG1=`%?`..`%?`)F]fx-Fdt6'/FbvQ$SumF]fxFiaz/FchxQ9Construct~a~def
inite~sumF]fxFe_y/FihxQ:Sum(f,CF_ARG1=`%?`..`%?`)F]fx-Fdt6'/FbvQ(ProductF]fxFia
z/FchxQ=Construct~a~definite~productF]fxFe_y/FihxQ>Product(f,CF_ARG1=`%?`..`%?`
)F]fx-Fdt6'/FbvQ&LimitF]fxFiaz/FchxQ2Construct~a~limitF]fxFe_y/FihxQ6Limit(f,CF
_ARG1=`%?`)F]fx-Fcp6'/FianQ;Non-Trivial~Trig~FunctionsF]fx/FjhmQTtype(f,functio
n(|fr`^`,`+`,`*`|hr))~and~(type(f,~trig))F]fx/FahvQOActions~on~Non-Trivial~Trig
onometric~FunctionsF]fx-Fdt6'/FbvQ,ExponentialF]fxF`hx/FchxQARewrite~in~terms~o
f~exponentialsF]fxFehx/FihxQ3convert(~f~,~exp~)F]fx-Fhx6%/FjhmQ>not~member(op(0
,f),|frsin,cos|hr)F]fxF`hx-Fdt6&/FbvQ(sin/cosF]fx/FchxQDRewrite~in~terms~of~sin
e~and~cosineF]fxFehx/FihxQ6convert(~f~,~sincos~)F]fx-Fcp69/FianQ5Algebraic~Expr
essionF]fxF^fx/FahvQIActions~on~remaining~general~expressionsF]fxF`g]lFe`zF]azF
eazF_bzFd\^lF\]^lFd]^lF\^^l-Fdt6'F^e\lF`e\lF`hxFehx/FihxQ0sprintf(`%a`,f)F]fxFd
e\l-Fhx6$/Fjhm-F`_l6#Q:indets(f,|fr`*`,`^`|hr)~<>~|fr|hrF]fx-Fdt6&/FbvQ'FactorF
]fx/FchxQPFactor~(as~if~the~expression~were)~a~polynomialF]fxFehx/FihxQ*factor(
f)F]fx-Fhx6%/FjhmQ<not~hastype(f,|frlist,range|hr)F]fxF]g\lFeg\l-Fhx6%/Fjhm-F`_
l6%Q7(not~type(f,expanded))F]fxQO~or~(type(f,ratpoly)~and~degree(denom(f))~>~0)
F]fxQN~or~type(f,'`context/hasexpandablemathfunc`')F]fx-Fdt6&Fai]l/FchxQRSimpli
fy~(as~if~the~expression~were)~a~polynomialF]fxFehx/FihxQ,simplify(f)F]fx-Fdt6&
Fii]l/FchxQPExpand~(as~if~the~expression~were)~a~polynomialF]fxFehxF]j]lF[byFcj
]lF^[^l-Fcp6'/FianQ+PolynomialF]fx/FjhmQ0type(f,polynom)F]fx/FahvQ4Rational~Pol
ynomialF]fx-Fdt6'/FbvQ,Horner~FormF]fxF`hx/FchxQ<Horner~form~of~a~polynomialF]f
xFe_y/FihxQ:convert(f,horner,CF_ARG1)F]fx-Fcp6&/FianQ-MultivariateF]fxF_`[l/Fah
vQDActions~on~Multivariate~PolynomialsF]fx-Fdt6&/FbvQ(CollectF]fx/FchxQZCollect
~coefficients~with~respect~to~a~specified~variableF]fxFe_y/FihxQ3collect(f,CF_A
RG1)F]fx-Fcp6)/FianQ(RatPolyF]fx/FjhmQItype(f,ratpoly)~and~degree(denom(f))~>~0
F]fx/FahvQ8Quotient~of~PolynomialsF]fx-Fdt6&/FbvQ'NormalF]fx/FchxQBRewrite~with
~a~common~denominatorF]fxFehx/FihxQ*normal(f)F]fx-Fdt6&/FbvQ*NumeratorF]fx/Fchx
Q5Select~the~numeratorF]fxFehx/FihxQ)numer(f)F]fx-Fdt6&/FbvQ,DenominatorF]fx/Fc
hxQ7Select~the~denominatorF]fxFehx/FihxQ)denom(f)F]fx-Fdt6'/FbvQ2Partial~Fracti
onsF]fxF`hx/FchxQ=Convert~to~partial~fractionsF]fxFe_y/FihxQ;convert(f,parfrac,
CF_ARG1)F]fx-Fcp6'/FianQ3General~ExpressionF]fxF^fx/FahvQ=General~Algebraic~Exp
ressionF]fx-Fdt6&/FbvQ(CombineF]fx/FchxQ;Combine~similar~structuresF]fx/Ffhx7&%
%trigG%#lnG%&powerG%(radicalG/FihxQ3combine(f,CF_ARG1)F]fx-Fcp6&/FianFh_zFa_z/F
ahvQ2One~Variable~CaseF]fx-Fdt6&Fg_z/FchxQ?Complete~specified~computationF]fxFe
hxFih]l-Fc_lF/-F]]l6%/FbvF_ez/FchxQ@Sub-menu~of~various~assumptionsF]fx/Q3Simpl
ificationTypeFjhxFh[w-F]]l6%/FbvFjaz/FchxQBSub-menu~of~various~constructionsF]f
xFgi^l-F]]l6%/FbvFahx/FchxQ@Sub-menu~of~various~conversionsF]fxFgi^l-F]]l6%/Fbv
Fj`y/FchxQ:Sub-menu~of~Plot~CommandsF]fxFgi^lF]fx,
I.CM_IsParsableF[gwF/,
I0type/CM_IFBLOCKRFg^qF/Fa]nF/-F:6$FK-F\^n6$F^^nF\`nF/F/F/6",
I(CM_CODERF/F+F-F/C%>Fbo-Fdo6$Fgbw-F\^n6$F^^n<$F\jq.F`_l>Fbo-Fio6$RFg^qF/F/F//F
KFa[lF/F/F/Fbo-.F[p6#-Fjw6#-FaxFciwF/F/F/6",
I-type/CF_CODERFOF/F-F/-F:6$FK-F\^n6$F^dnFi[_lF/F/F/6",
I-SMARTPLOTFixR6$'F[`oF]dmFbhs6#%%newpGF-F/C%>FboFK@&FejsC%-F26#52-FeuFb[lFeeo-
F:6$FceoFbim@$52F[^_lFaeo4-F:6$F_eoF)>Fbo7&FedoF]eoF[fu-Fjw6#&FK6#;FaeoFcu-F26#
-F:6$&FboF]gu7$F)F)FfjsC$@$5Fj]_l4-F:6$FceoF)>Fbo7%-Fjw6#&FK6#;F[oFaeoFajw-Fjw6
#&FK6#;FeeoFcu-F26#-F:6$&FboF\[x7%F)F)F)FboF/F/F/6",
I9context/BuildInputStringR6#'F`]nFaas6$Fbdm%+CodeStringGFa]nF/C*>F`t-F^u6$Q#%a
6"F_gt>F`t-Fhn6$F`t;""*!"&>F`t-Fjdn6$F`t%";G@$2Fg`l-%+searchtextG6$Q'local~Fea_
lF`tC$?(FboF[oF[oF/4-F`fm6$-Fhn6$F`tFbo<$Q":Fea_lQ";Fea_lF/>F`t-Fhn6$F`t;Fb`pFc
u@$2Fg`l-Fcb_l6$Q(global~Fea_lF`tC$?(FboF[oF[oF/Fhb_lF/>F`tFac_l@$2Fg`l-Fcb_l6$
Q)options~Fea_lF`tC$?(FboF[oF[oF/Fhb_lF/>F`tFac_l@$2Fg`l-Fcb_l6$Q-description~F
ea_lF`tC$?(FboF[oF[oF/Fhb_lF/>F`tFac_lF`tF/F/F/Fea_l,
I4type/CM_CONDITIONALRFOF/F-F/-F:6$FK-F\^n6$F^^n.FczF/F/F/6",
I3context/isparsableRFO6$Fe]qF]hmFa]nF/C'Fh\r-FS6#F\il>F`t-%*traperrorG6#-F\il6
#-Fa_l6%FcgwFKFf`r@$/F`tFegsFjftF__vF/F/F/Fg`r,
I3context/multiparseRFO6$F_r%%TextGF-F/C%>F`tF\an@%-F:6$FK-F\^n6$F^dn<%%%TEXTGF
a_lF`_l>F`t-Fd`n6$FjbnFa[l>F`t-Fd`n6$FjbnFeds-%&parseGFfuF/F/F/F]an,
I1type/CF_CODETYPERFOF/F-F/-F:6$FK<)F]dm-%*identicalG6#Fd]x-F_h_l6#Ff^x-F_h_l6#
F[\s-F_h_l6#Fdir-F_h_l6#Fe]x-F_h_l6#F\]sF/F/F/Feir,
I&stack=6"Fi`nE\[l'%&emptyGR6#Fh`oF/6#%aoCopyright~(c)~1990~by~the~University~o
f~Waterloo.~All~rights~reserved.GF/C$@$4-F:6$FK.F*-F]bn6#%/stack~expectedG-Fjgq
6#/&FKF`joFg`lF/F/F/FDRF/6$FbdmFh`oFbi_lF/C%>&F`tF`joF_^q?(FboF[oF[oF_^qFdr>&F`
t6#,(F_^qF[oFboFcuF[oF[o&FedsFc_nFjdmF/F/F/FcfuRFai_lF/Fbi_lF/C$@$Ffi_lFji_lF`j
_lF/F/F/%$popGRFai_lFg^qFbi_lF/C&>Fbo-&F*6#.%$topGFb[l>&FK6#F`j_l-%&evalnG6#Fi[
`l>F`j_l,&F`j_lF[oFcuF[oFboF/F/F/FIR6$F_rFh`oF/Fbi_lF/C%@$4-F:6$F<Fii_lFji_l>&F
<F`jo,&Fh\`lF[oF[oF[o>&F<6#Fh\`lFKF/F/F/Fg[`lRFai_lF/Fbi_lF/C$@$-&F*6#.F_i_lFb[
l-F]bn6#%,empty~stackG-Fbal6$Fi[`lF[oF/F/F/F]i_l,
I4convert/CONTEXTMENUR6$'%#BMGF\fr%&LevelG6(F_rFbdmF]fvFibr%)TopLevelG%&LocCMGF
-F/C,@%/F<Q$TopF]gr>F[foFdr>F[foFi`n>Fbo&FedsFi^_lFc`x>FdxFK>Fhu-Fjw6$FeeoFdx>F
hu-Fax6$/FdjmF\p-Ff[n6%Fhu%6CONTEXTMENU/transformGFbo?(F]fm-FeuF^xFcuF[oFdr@$0&
FhuFc]tFcbvFdjt?(F`tF[oF[oFf_`lFdr@$0F]juFcbvFdjt@%1F`tF]fm>Fhu&Fhu6#;F`tF]fm>F
huF\`l@%3/FhuF\`l4F[fo-F_o6#F\p-F_o6#-Fcbs6$-Fjw6$F^guFdxFhuF/FcalF/F]gr,
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_BUILDRFg^qF/Fa]nF/-F:6$FK-F\^n6$F^^nF\frF/F/F/6",
I/type/CM_ACTIONRFOF+F-F/C$@$4FbfsFjft@%/F_^qF[o-F:6$FK-F\^n6$F^^n.FhvC&>Fbo-F\
f_l6#-F_s6$FfhxFcjq@$/FboFegsFjft@&5/FboFaiu3-F:6$FaiuF^dm-F`fm6$FboFaiuF__v35/
FaiuF]dm-F`fm6$F]dmFaiu-F:6$Fbo-F]dm6#<%F)Fe_sF^dnF__vFi`nF/F/F/Fghx,
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[]r-F26#30F_anF\an-F[gw6#
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,
I3SMARTPLOTGetColorsR6#F'6#%"cGF-F/C%>Fbo-F`hq6%Fa`t-Fdo6$FK/F)F)Fc`t@$Ffo>Fbo-
Fio6$%$rhsGFbo-F_oFg^wF/F/F/6",
I3context/autoassignR6$'F`]n<$F^dnFa_l'%+AssignFlagGFae`l62%&LabelG%)CodeBodyG%
*LocStringG%&StatsGFbdmF]fvFcdm%,laststatendG%(statendG%&NamesG%*NamesSubsGF_a_
l%%ProcG%)ProcBodyGFhgv%)LastStatGFa]nF/C(-FS6#F``lF^au>%3type/CM_AssignmentGRF
g^qF/Fa]nF/3-F:6$FKFcgt/Fhfs.%*CM_ASSIGNGF/F/F/>80-Fhe_l6#-Fa_l6%F]awFKFf`r>8/-
-FS6#.Ficl6#Ffj`l@%5/F<Fi`n3/F<Fdjm/-F``l6#.%+autoassignG.%%noneGC(@$4-Fa`t6$-F
balFa[al&Fdj`lFfdoC$>F\[al-FhhlFcg_l-F_oFb[l>F]fmF\[al>F\[alF\p>F[fo-%+SearchTe
xtG6$Q*CM_ASSIGN6"F]fm?(F/F[oF[oF/2Fg`lF[foC(>F\[al6$F\[al-Fhn6$F]fm;F[o,&F[foF
[oFcuF[o>F]fm-Fhn6$F]fm;F[foFcu>Fdx-Fcb_l6$Q#:=F`]alF]fm@$/FdxFg`l-F]bn6$%3inva
lid~assignmentGF]fm>F]fm-Fhn6$F]fm;,&FdxF[oFf`oF[oFcu>F[fo-Fcb_lF^]al>F\[al-Fhh
l6%FjbnF\[alF]fmC--F26#-F:6$F\[alF^dn@$1-F]]al6$F_]alF\[alFg`lC+>FdxFg`l>Fiy-%'
lengthG6#F\[al>FezFg`l>F_`pFg`l?(F[foF[oF[oFiyFdrC%@$/-Fhn6$F\[al;F[fo,&F[foF[o
F[oF[oFa^alFbgu@$32F[oF[fo/-Fhn6$F\[al;Fi]alF[foQ#::F`]alFbgu@$-F`fm6$-Fhn6$F\[
alF[foF]c_lC%>FdxFeiv>FezF_`p>F_`pF[fo-F26#32Fg`lFdx/F_`pFiy@%/FdxF[oC$>F]vF\p>
FjsF\[alC%-F26#32Fg`lFez2FezFiy>F]v-Fhn6$F\[al;F[oFez>Fjs-Fhn6$F\[al;,&FezF[oF[
oF[oFcu@$55552Fg`l-F]]al6$Fa^alFjs2Fg`l-F]]al6$Q'~then~F`]alFjs2Fg`l-F]]al6$Q%~
do~F`]alFjs2Fg`l-F]]al6$Q*smartplotF`]alFjs2Fg`l-F]]al6$Q&latexF`]alFjs-F_oF_`a
l>F\[al-Fhhl6&FjbnF]vQ0CM_ASSIGN[1]~:=F`]alFjsFb_al>Ffj`l-F\il6%F]awF\[alFf`r>F
aaqF\p?(F[foF[oF[oF/-Fa`t6$Fc\al&Fdj`lFccpF/>Faaq<#-Fcw6$&Fdj`lF_y/FdxFh]al@%/%
5interface/autoassignGF\\al>Fbo.%"RG>FboFafal>Fbiv-Fio6&R6%F_rF'Ffi`lF/F/F//FK-
Fefl6$F<Fb[wF/F/F/FaaqFboFc\al>Ffj`l-Fax6$FbivFc\al>F\[al-FiclFa[alF/6$%%locgGF
]j`lF/F`]al,
I2type/CM_PIECEWISERFg^qF/Fa]nF/-F:6$FK-F\^n6$F^^n<$%*PIECEWISEGFeiwF/F/F/6",
I$mfl%Ee:\mathware\vessiot\programs\mfiles\GF/,
I1context/jointextR6#'Fgg`lF^dn6%%2separation_stringG%(NewTextG%)TextListGF-F/C
)Fh\r>FboFK>F]fm-Fa_l6#&Feds6#;Ff`oFcu-F26#-F:6$7#-FjwFc]t-F]dm6#Fhet@&2-FeuFc]
tF[o-F_oFhew2FjialFf`o-F_o6#-Fjw6$F[oF]fm>F`t-Fio6$RFg^qF/F/F/6$FKT#F/F/6$Fehal
FboF]fm-Fjdn6#-Fjw6$FjnF`tF/F/F/6",
I4SMARTPLOTADD_OptionR6$'FhhsF]dmF%6$%$keyG%%locPGF-F/C%@%-F:6$F<Ff[v>Fbo-Fi[vF
hdn>FboF<>F`t-F`im6%Fa`tFKFbo>F`t7$FjdmF<F/F/F/6",
I3type/HasAssumptionRF/F+F-F/C&>Fbo-FbalFdds@$4-F:6$7#FboFg_uFjft@$/-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",
I8context/cfparse/contentR6$'FcqFg\s'FjbrF^t6.%(DataKeyG%'ObjectGF]rFfp%*Proced
ureGFebrFibrFeqF`qFd\xF`]n%)ProcNameGF\^vF/C'-F``l6#/Fc`lFg`l>F`tFK@$Fajq>F`tFc
jqF]s@--F:6$FKFd_l-F_o6#FcbvFjzC*>6&FezF_`pFaaqFbiv-F_s6$7&FbvFchxFfhxFihxF`t>F
biv-Fa_l6#Fbiv>F\[al--FS6#.F\s6#-Fjdn6$%$CM:GFez>FboF^[l@$-F5Fe`uFh\al@)-F`fm6$
Faaq<$Fe]xFd]xC$>F[fo--FS6#.F_elF_`bl>Fa`u7%FezF_`pF\[al5-F`fm6$Faaq<%Ff^xF[\sF
dir-F:6$FaaqFhd`lC$>F[foFbabl>Fa`u7&FezF_`p7#FaaqF\[al-F`fm6$Faaq<$F\]sFg^xC$>F
[foFbabl>Fa`uFabblC&>F[fo-Ff[n6$-Fhhl6%F\an%5context/cfparse/act_GFaaqF)@$4-F:6
$-FbalFccpFaas-F]bn6#-F^u6$QCAction~CodeType~not~recognized:~%a6"Faaq>F[fo-F[fo
F_`bl>Fa`uFabbl>&F\tF_`alFdcblFh\al-F:6$FKF[^lC%>6%FdxFezF_`p-F_s6$7%Fhi^lFbvFc
hxF`t@%-F56#&F<FebpC$>Fiy-Ff[n6$F[eblF\\n>Fiy-Fio6%F[pFiyF<>FiyF\`l@%3/FdxFh[w/
FiyF\`lFh``l-F_o6#-F\fr6&FdxFezF_`pFiy-F:6$FKFczC(>F]fm-F_sFgjq>Fhu-F`hq6%F:F`t
Fhv>Fhu-Fio6%F[p7#FdjuF<>Fbo-Ff_xF`[l>Fa`uFhuFh\al-F:6$FKFd\l-F]bn6#QPCM_CLASS~
should~not~appear~in~a~list~of~actionsFjcblFh\alF/F/F/Fjcbl,
I,CM_GetFuncsRF/6(%%fsetGFe]qFb]qFh_o%$idxG%-FunctionTypeGF\^vF/C&>F`t-F\f_l6#-
Fio6%Ff[nFgbw%"DG@$Fcf_lC$-Fjt6%Ff`o<#FcgrQ6error~in~convert~to~D6"-F_o6#Fgo>Fb
o-F`hq6%F:-FdoFfuFg\s@%FagtC(>Fdx-Fjw6#F[p>F]fm-F`hq6%F:Fbo-Fg\sF_y>F]fm-F`im6%
F:F]fm<$%4context/Unbounded@@G-Fg\s6#%)constantG>F]fm-Fbal6#-Fax6$/F\hblFjwF]fm
>F]fm-F`im6$RFg^qF/FabwF/52F[oF[^_l-F:6$FhfsF^_vF/F/F/F]fm>F]fm-Fio6$RFg^q6#Fdg
blF/F/C%-F26#Fbfs>Fbo-Fdo6$FKFiet@%/FidsF[o-Fhfs6#-Fjw6$F[oFboF\pF/F/F/F]fmC&>F
]fm-F`hq6%F:Fbo-Fg\s6#F)>F]fmFdibl>F]fmF\jbl>F]fm-F`im6$RFg^qF/FabwF/FejblF/F/F
/F]fmF/F/F/Fchbl,
I9context/cfparse/pushmenuR6$FcqFjbr6%F`dnF,FipF]crF^crC*-FSFhiq-FS6#.F">Fj`vFj
cr@%-F56#&F\tF^`v>FcdrFc]cl>FcdrFber-F26#-F:6$FcdrFg\s>Fecr-F_s6$F[imFcdr@$4-F`
fm6$Fecr<$FdjmF\an>Fj`vFecr-F"6$Fber&F^frF^avF^crF`frF^crF^cr,
I*CM_GlobalFdetF/,
I.type/CF_CLASSRFOF/F-F/3333-F:6$FK-F\^n6$F^^n.Fcp-Fa`t6$FKFian-Fa`t6$FKFjhm-Fa
`t6$FKFbv-Fa`t6$FKFchxF/F/F/Fcv