MVR5
I&utils=6"%&falseGE\[lfn%(pulloutGR6$'%%exprG<(%"=G%"^G%"*G%"+G%)functionG%%nam
eG'%(subexprG<(F.F/F0F1F2%%listG6)%)newexpr1G%)newexpr2G%"pG%"qG%%flagG%"rG%)al
lpuntsG6"F?C.@$-%%typeG6$9$F2-%'RETURNG6#FE@$-FC6$FEF--FG6#-%$mapG6%9!FE9%@$-FC
6$FRF6C%>8$FE?&8&FR%%trueGC$@$4-FC6$FZ<'F.F/F0F1F2-%&ERRORG6#((%1:~subexpressio
n~G-%(convertG6$FZ%'stringG%H~not~of~type~name,~function,~+,~^,~or~*G>FX-FQ6$FX
FZ-FG6#FX@$-FC6$FEF1FF@$-FC6$FEF/C'>FXFE>8("""@%-FC6$FR<$F.F0@$4-%$hasG6$FEFR>F
ep""!?&8'FRFen@$4-F^q6$FEFcqC$>FepFaq%&breakG@$/FepFfp?&FZFEFen@$-FC6$FZFjpC$>F
X*(FEFfpFZ!""-FQ6$FZFRFfpFjqFjo@$-FC6$FEF.C%>FXFE@$-FC6$-%#opG6$FfpFEF0>FX)-FQ6
$F_sFR-F`s6$""#FEFjo@$4-FC6$FEF0FF>FXFaq>8%Faq>8*Ffp?&FZFEFenC%>FepFfp@%-FC6$FR
<&F.F0F1F2@$4-F^qFfr>FepFaq?&FcqFRFen@$4-F^q6$FZFcqC$>FepFaqFjq@%F\r@%-FC6$FZ<$
F.F/C%>8)Fer@%/-%'factorG6#,&F[vFfpFZFdrFaq>FX,&FXFfp*&F[vFfpFRFdrFfp>FX,&FXFfp
F[vFfp>FatFaq>FX,&FXFfp*&FZFfpFRFdrFfp>F_t,&F_tFfpFZFfp@%/FatFfpFE,&F_tFfp*&FRF
fpFXFfpFfpF?F?F?%(sinhfixGR6#F+6#%"FGF?F?C$>FXR6#%"yGF?F?F?C&-%'selectG6%F^qFE%
%sinhG-F`s6$Ffp%"%G-F`s6#Fbx*$-%%coshGFdxFhsF?F?F?-%(patfuncG6%FE,&FfpFfp*$-F_x
6#'%"xG%*algebraicGFhsFfpFXF?F?F?%(topsqrtGR6#'F+<$F-Fay6#F:F?F?C%@$4-%(hastype
G6$FE%1fractional_powerGC$-%,debug_printG6&FQ%<No~sqrt~term~in~expression!G""%F
E-FG6#%%FAILG@%-FCF]zFEC$?&FXFEFen@$-FC6$FXF^zFjo?&FXFEFen@$-F\zF^[l-FG6#-FQF[p
FezF?F?F?%*expansionGR6%'%+expressionG<)F-Fay%'matrixGF6%$setG-.%&arrayG6#Fhs-F
^\l6#Ffp'%'paramsG<&F1F2F6F\\l'%0expansion_orderG%(integerG6*%"sG%#s1G%%ord1G%$
_H_GF:%&plistG%*degree_s1G%"iGF?F?C6@$-FC6$9#%%evenG-F]o6#%<:~wrong~number~of~a
rgumentsG@$4-FC6$-%%evalGFHFay-FG6#-FO6$FQ9"@$F\qFF@$2""$Fe]lC%>FX-FQ6%FEFR9&?(
8+FfpFfp,&Fe]l#FfpFhs#!"$FhsFfpFen>FX-FQ6%FX&Fd^l6#,&F__lFhsFhsFfp&Fd^l6#,&F__l
FhsFh^lFfp-FG6#-F_^lF[p@$2F]_lFaqC%-Faz6%FQ%IWARNING!~~Expansion~order~is~less~
than~0GFdz-Faz6&FQ%9Expression~NOT~expanded:G""&FEFF@$/F]_lFaq-FG6#-F_^l6$FE-FO
6$R6#F`yF?6$%)operatorG%&arrowGF?/FEFaqF?F?F?FR-%'assumeG6$Fcq%%realG>FX-%%copy
GFH>FZ,&F]_lFfpFfpFfp@%4FT>F[v7#FR>F[vFR?&FepF[vFen>FX-%%subsG6$/Fep*&FcqFfpFep
FfpFX-Fco6$-%'seriesG6%FXFcqFZ%(polynomG>F_t-%(collectG6$Fbx7$Fcq-F`s6#FR>Fat-%
'degreeG6$F_tFcq@%/FatFgzC$-Faz6%FQ(%FWARNING!~~Unable~to~determine~degree~G%8o
f~expanded~expression.GFhs-Faz6&FQ%4Problem~expression:GFhsF_tC$@$33/-F\dl6$FX-
Fco6$FRF\\lFgz2Ffp-%%nopsG6#F_t2FatF]_l?(F?FfpFfpF?FfelC)>FZ,&FZFfpFfpFfp-Faz6%
FQ((%IWARNING!~~Increasing~expansion~order~to~G-Fco6$,&FZFfpFdrFfpFeo%$...GFdzF
]cl>F_tFdcl>FatF[dl@$F_dlC%FadlFfdlFjq@$2,&F]_lFfp""(FfpFZC%-Faz6&FQ%CWARNING!~
Too~many~order~increases!GFdzFZ-Faz6&FQFhdlFi`lF_tFjq@$2F]_lFatC%-Faz6%FQ%FWARN
ING!~~Encountered~series()~bug...GFdz-Faz6&FQ%5Buggered~expression:GFi`lF_t>F_t
F]cl@$/F_tFaqC%-Faz6%FQ%IWARNING!~~Fixing~O(1)~bug~in~series()...GFdz-F`cl6%-%)
leadtermGF[pFcq"$***>F_tF]cl-Fibl6$/FcqFfpF_t>FX-Fecl6$FbxFR-%#gcGF?FjoF?F?F?%,
disrememberGR6#'F:%*procedureG6#%"LGF?F?C$>FX-%&minusG6$<#-F`s6$Fh^lF^^l<#%)rem
emberG-%'subsopG6$/Fh^l-F`sF[pF^^lF?F?F?%-_debug_printGR6$%&pnameG%$msgGF?F?F?C
$@%-%)assignedG6#%&time0G-%%tmsgG6%FEFRF`[m-Fb[mF_q@%Fg^l-%&printG6#-F_^l6#&Fd^
l6#;FdzFe]l-Fg[mF?F?F?F?%+cosfix_oldGR6$'F+<%F-FayF_\l'%$varG<$FayF66*F:%"SG%$t
mpGF]]l%"kGF;%"QGF`]lF?F?C%@$4-FC6$FEFayF`^l>FZFE@'FTC)>F_t<">FepFaq>FatFaq?&FX
FRFen@%-FC6$FXF0C'>Fep,&FepFfpFfpFfp>FZ-Fibl6$/FX&Fcq6#FepFZ>F_t<$-F`sFeel/,&Ff
pFfp*$-%$cosG6#Fc^mFhsFdr*$-%$sinGF]_mFhs>&F[vFd^mFX>FatFfp>F_t<$Fg^m/,&FfpFfp*
$-F\_mF[pFhsFdr*$-F`_mF[pFhs>FZ-%)simplifyG6$FZF_t@$F^w?(F__lFfpFfpFepFen>FZ-Fi
bl6$/&Fcq6#F__l&F[vFg`mFZFZ-FC6$FRF0C&>FZ-Fibl6$/FRFcqFE>F_t<#/,&FfpFfp*$-F\_m6
#FcqFhsFdr*$-F`_mFfamFhsF]`m-Fibl6$/FcqFRFbxC$>F_t<#/,&FfpFfp*$-F\_mFiclFhsFdr*
$-F`_mFiclFhsF]`mF?F?F?%%SubsGR6$'F+%)anythingG'%)subslistG<&F--F\\l6#F--F6F^cm
-F66#F66*F[]m%&slistGF:%,protectlistG%)argslistG%#_PGFj\m%(listseqGF?F?C,@%-FC6
$FRF`cmC$>F_t7"?&FZFRFen>F_t7$Fg^mFZ>F_t7#-F^blFicl>FcqF^dm>Fep7#&Fd^l6#;Fh^lFe
]l?&FZFhdmFen@$-FC6$FZF-@$/-%$lhsG6#FZ%(protectGC&@%-FC6$-%$rhsGFcemF6>F__l-F`s
6#Fiem>F__lFiem>Fcq7$-F`sFfamF__l>Fep-%'removeG6%F^qFepFZFjq>FXF]bl@$2Faq-FdelF
fam?(FatFfpFfpFifmFen>FX-Fibl6$/&Fcq6#Fat&F[vF`gmFX>FX-Fibl6$Fg^mFX@$2Faq-FdelF
d^mC$>FX-&FepFb\l6$FX-F`s6#&Fep6#;FhsFggm@$Fhfm>FX-%(invsubsG6$FcqFX@$Fhfm?(Fat
FfpFfpFifmFen>FX-Fibl6$/FagmF_gmFXF_`lF?F?F?%*applyfuncGR6%F+'%%funcG<$F1Fdil'%
"nG%*nonnegintGF?F?F?@%F[alFE@%Fg^l-FR6$-FQ6&FEFR,&F]_lFfpFdrFfpF[\mF[\m-FR6#-F
Q6%FEFRF\jmF?F?F?%'sinfixGRFcwFdwF?F?C$>FXRFiwF?F?F?C&-F]x6%F^qFEF`_m-F`s6$Ffp,
$FbxFdrFcx*$-F\_mFdxFhsF?F?F?-Fix6%FE,&FfpFfp*$-F`_mF^yFhsFdrFXF?F?F?FazR6%Fijl
Fjjl%0verbosity_levelGF?F?F?C%>%(doprintGF%@&F[al>Fh[nFen-F^[m6#%+printlevelG@$
1F]_lF]\n>Fh[nFen@$Fh[nC$@%F][mFa[mFd[m@%Fg^lFf[mF^\mF?6%%*verbosityGF`[mFh[nF?
%)sniffmaxGRF?6%Ffil%%LmaxGFj\mF?F?C&>FX-%)sniffmemG6#Faq>F_t&FXFb\l?(FZFhsFfp-
FdelF[pFen@$2&F_tF`\l&&FXFcemF`\l>F_tFh]nF_tF?F?F?%(matsubsGR6$F+'%(subsvecGF-6
'F`]lFj\mFi\mFj\lFdimF?F?C'>Fcq-%&evalmGFicl@$43-FC6$-FbemFfam-F^\l6$;FfpFh\l;F
fpFfp-FC6$-FjemFfamFj^n-F]o6#%jn:~2nd~arg~must~be~of~the~form~array(1..n,1..1)=
array(1..n,1..1)G>Fep-&%'linalgG6#%'rowdimG6#Fi^n?(FXFfpFfpFepFen>&FZF[p/&Fi^n6
$FXFfp&F`_nF``n-Fibl6$-%$seqG6$&FZFeel/F_t;FfpFepFEF?F?F?%)rootfuncGR6$'F+<)F-%
)equationGFayF_\l%(indexedGF6F\\l'FaimFdil6%F:%"zG%$locGF?F?@'-FC6$FE<$F-F_\lF`
^lFiz-FG6#-%(applyopG6&FRFfpFEFhdmC%>F_tFE?&FXFEFen@$32FfpFc]nFa[lC%>FZ-%)locat
ionG6$F_tFX@%F][l>FX-F\bn6&FRFfpFXFhdm>FX-FQ6%FXFRFhdm>F_t-Fbjl6$/FZFXF_tF_tF?F
?F?%'srsimpGR6$'F+<'F-FayF_\lF6F\\l'%-siderelslistG<&F-FayF6F\\l6&%'srlistG%(su
blistG%"AGFj\mF?F?C+@$F^]mF`^l@'4-FC6$FR<$F6F\\l>FXFdbl-FCFael>FX-FcoFU>FXFddm>
FX-%2remove_subscriptsGF[p>F_t7#-Fe`n6$/&FXFfam(FZFcq/Fcq;FfpFc]n-F^enFH-F^`m6$
Fbx-Fco6$F_tF\\l-Fecl6%Fbx7#-Fe`n6$FeenFfenFhdm-Fehm6$F_tFbx-%3restore_subscrip
tsGFdxF?F?F?F^]nRF?6$Ffil%"NGF?F?C&@%2FaqFe]l>F_t&Fd^lFb\l>F_t"%+5>FX-F]x6%R6$%
"tGFdimF?FdalF?3-FC6$FEFdil2FR-%'lengthG6#-F`s6$FdzF^^lF?F?F?7#-%'anamesGF?F_t>
FX-FO6$R6#FegnF?FdalF?7$FEFjgnF?F?F?FX-%%sortG6$FXR6$%"aG%"bGF?FdalF?-%&evalbG6
#2&FEF`\l&FRF`\lF?F?F?F?F?F?%)signsqrtGR6#'F+Fhu6$F:%(cursignGF?F?C&@$FjyC$-Faz
6%FQ%=No~sqrt~terms~in~expression!GFdzFez>F_tFfp?&FXFEFen>F_t*&F_tFfp-%%signGF[
pFfp-FGFeelF?F?F?%.FunctionCallsGRFcw6$FegnF:F?F?C%>FX-%%costGFH@$4-F^q6$FX%*fu
nctionsG-FGF_]n@)Fj]m?&F_tFXFen@$-F^q6$F_tFc[o@%-%#isG6$-F`s6$FfpF_tFh\l-FG6#F^
\o-FGFb\l-FC6$FXF/-FG6#-F`s6$FfpFX/FXFc[oFb\oFd[oF?F?F?%'rotvecGR6%'%"vG<$F[\l%
'vectorG'%"wGF_]o'%$phiGFay6&%'newvecG%&w_hatG%"VG%"WGF?F?C(@%-FC6$FE-F^\l6$;Ff
pFh^lF]_n>FZ-Fco6$F^^lF`]o>FZFE@%-FC6$FRF^^o>Fcq-Fco6$-F_^lFiclF`]o>FcqFR@$50-F
del6#-F_^lFcemFh^l0-Fdel6#-F_^lFfamFh^l-F]o6#%M:~input~vectors~must~contain~3~e
lements~onlyG>F_t-Fc^n6#*&FcqFfp-%$magGFfamFdr>FX,(*&Fb_oFfp-F\_m6#F]_lFfpFfp*(
,&FfpFfpFc`oFdrFfp-%$dotGF_`mFfp-F_^lFeelFfpFfp*&-%&crossGF_`mFfp-F`_mFd`oFfpFd
r@%-FC6$FEF[\l-F_^l6#-%$matG6#-Fc^nF[pF_`lF?F?F?%.restore_sqrtsGR6#'F+<&F_anFay
F6F\\l6#%&rexprGF?F?C'@$43-F^[m6#%*_subslistG-F^[m6#%*_subsvarsGFF>FX-Fehm6$Fdb
oFE>Fdbo.Fdbo>Fgbo.FgboFXF?6$FdboFgboF?%(funcopsGR6%'F+F0Faan'%'oplistG<$Fh\lF6
6&%&part1G%&part2GF`]lFj\mF?F?C'>FXFaq?(FZFfpFfp-FdelFd`oFenC$@%-FC6$F]_lFh\l>F
cqF]_l>Fcq&F]_lFcem>FX,&FXFfp-F`s6$FcqFEFfp>F_t,&FEFfpFXFdr>FX-FR6$FXF[\m-FG6#,
&F_tFfpFXFfpF?F?F?%-sort_by_costGR6#'%&exprsGFfdnF?F?F?-Fihn6$7#-F`sFHRF\inF?Fd
alF?@%2-&F"6#%.combined_costGFH-F^foFiclFenF%F?F?F?F?F?F?%6type/fractional_powe
rGR6#'F+<(F_anFayF_\lF`anF6F\\lFgyF?F?C$@$Fhr@$-FC6$Ffs%)fractionG-FG6#FenF%F?F
?F?%+eqset_costGR6#'%$eqsG<$-F66#F_an-F\\lFfgo6*%%sumsGFj\mFi\m%#eqGF`]lF+%&cty
peG%&ntypeGF?F?C(>&FX6#%$addGFaq>&FX6#&Fg_n6#%(divergeGFaq>&FX6#%$mulGFaq>&FX6#
%$funGFaq?(F_tFfpFfp-FdelFHFenC%>Fcq-F`s6$F_tFE>FZ,&-F^[oFj_nFfp-F^[o6#F`_nFfp?
(FepFfpFfp-FdelFcemFenC%>F[v-F`s6$FepFZ@%/-Fdel6#F[vFfpC$>FatF[v>F__lFfpC$>Fat-
F`s6$FhsF[v>F__l-F`s6$FfpF[v@*/Fat%*additionsG>F_ho,&F_hoFfpF__lFfp/Fat%0multip
licationsG>Fiho,&FihoFfpF__lFfp/Fat%*divisionsG>Fcho,&FchoFfpF__lFfp/FatFc[o>F]
io,&F]ioFfpF__lFfp,**&F_hoFfpFa[pFfpFfp*&FihoFfpFe[pFfpFfp*&FchoFfpFi[pFfpFfp*&
F]ioFfpFc[oFfpFfpF?F?F?%)polytestGR6$'F+Fay'%(varlistG<$F6FeoFgyF?F?C$@&F[t?&FX
FRFen@$3-F^q6$FEFX0-F\dlFa]pFaqF]go-FC6$FEFhu?&FXFEFen@$/-Fd\p6$FXFRFenF]goF%F?
F?F?%)getsqrtsGRFdfo6&Fj\mF:%(oplist1G%(oplist2GF?F?C%@%2FfpFe]lC$>FZ&Fd^lF`\l>
Fcq&Fd^l6#Fh^lC$>FZF^dm>FcqF^dm@&FizC%@$0FZF^dm>Fcq7$FafmFZ@$-F\z6$F_sF^z>Fcq7$
Fafm-FQ6%F_sFcqF^dm-FGFfamF[z?(FXFfpFfpFaioFenC$>F_t-F`s6$FXFE@&-FC6$F_tF^zC$>F
cq7$Fafm7$-F`sFcemFX@$-F\z6$F^\oF^z>Fcq7$Fafm-FQ6%F^\oFcqFe`p-F\zFa`p@%0FcqF^dm
>Fcq7$Fafm-FQ6%F_tFcqFe`p>FcqFcapFi_pF?F?F?%)topsqrtsGRFiao6%F`yF:%)rootlistGF?
F?C%@'-FC6$FEF_an>FZ7$-F`s6#-FQ6#-FbemFH-F`s6#-FQ6#-FjemFHFjy-FG6#F^dmC$>FZF^dm
?&F_tFEFen@&3F``p4-FC6$F^\o%(numericG>FZ7$Ff`pF_t-FC6$F_tF[bo>FZ7$Ff`p-F`s6#-FQ
Feel-Fco6$FZF\\l-Fco6$FbxF6F?F?F?%*normalizeGR6#'F+F[dn6(F:%'denomsG%(cfactorGF
j\m%"jG%"ZGF?F?C*@$F^]mF`^l@$5F`pFhrF`^l@$FjsFF>FZ-%&denomGFH@$/FZFfpFF>F[vFaq?
&FXFEFen>F[v,&F[vFfp*&Fd[lFfpFZFfpFfp*&F[vFfpFZFdrF?F?F?Fb[mR6%%*proc_nameGFjjl
%#t0G6#%#dtGF?F?C$@%/Fe]lFh^l>FX,&-%%timeGF?FfpF]_lFdr>FXFffp@%0FE%!G@%2FXFfp-%
'printfG6$((Q!6"-Fco6$FEFeoQ)[0]:~%s|+6"FR-F_gp6%(FbgpQ,[%.0f]:~%s|+FhgpFXFR@%F
]gp-F_gp6$%([0]~%s|+GFR-F_gp6%%+[%.0f]~%s|+GFXFRF?F?F?%.common_factorGR6$Fg\p'F
i\p<$F2F66%%$equGF]]lF:F?F?C'-Fial6$F_tF[bl>FXF]bl?&FZFRFen>FX-Fibl6$/FZ*&F_tFf
pFZFfpFX@$2Faq-%(ldegreeG6$-Fecl6$FXF_tF_tF]go-FG6#F%F?F?F?%)sortsolsGR6$'%'sol
setGFdgo'%%varsG-F66#F2F?F?F?-%$zipG6%R6$F`yFjwF?FdalF?/FEFRF?F?F?FR-FiblF_qF?F
?F?%.is_real_partsGRFcw6$F:%'resultG6#F`jlF?C$?&FXFEFenC$@'/FX*$FdrFa_lF\jpFcbn
>F_tFd[l>F_t-F\\o6$FXF[bl@&/F_tF%F\jp/F_tFgzC%@$-F\\o6$FXF`anF]go-Faz6%FQ((%8Un
able~to~determine~if~G-Fco6$FXFeo%1~is~real~or~not!GFaq-F]oF?F]goF?F?F?%)simptr
igGR6$F+FegnF?FdalF?-%*applyruleG6$/,&FcbmFfpFabmFfpFfpFEF?F?F?FehmR6$'F[cm<%F-
F]cmF_cmFhbm6%%(oldsubsG%(newsubsGF:F?F?C(>FXF]bl@$-FC6$FXF->FX7#FX>F_tF^dm?&FZ
FXFen>F_t7$Fg^m/FiemFaem@$-FC6$FXF\\l>F_tF[fn-Fibl6$F_tFRF?F?F?%(rotaxisGR6$'%&
thetaGFay'%%axisGFeo6#%"RGF?F?C$@)5/FRF`y/FR%"XG>FX-F_\l6%F`^oF`^o7%7%FfpFaqFaq
7%Faq-F\_mFH,$-F`_mFHFdr7%FaqFe`qFc`q5/FRFjw/FR%"YG>FX-F_\l6%F`^oF`^o7%7%Fc`qFa
qFe`q7%FaqFfpFaq7%Fd`qFaqFc`q5/FRFcan/FRFjdp>FX-F_\l6%F`^oF`^o7%7%Fc`qFd`qFaq7%
Fe`qFc`qFaq7%FaqFaqFfp-F]o6#%A:~~axis~must~be~"x",~"y",~or~"z"G-FG6#FejlF?F?F?%
(mat2eqsGR6#'%%MeqnGF_an6&Fj\m%'eqlistG%&MleftG%'MrightGF?F?C'>FZ-Fc^nFcbp>Fcq-
Fc^nFhbp>F_tF^dm?(FXFfpFfp-Ff_nFcemFen>F_t7$Fg^m/&FZF``n&FcqF``nFi`oF?F?F?%5Com
bineTrig/optimizeGRFcw61F:FidpFj\m%%kmaxGFdjp%#L1G%#L2G%#c0G%#c1G%#c2G%"fG%#f1G
%#f2GFdim%(verboseGF?F?C7@'3/Fe]lFhs/Fe^pFfp>82Ffp32FhsFe]l5Fhdq/Fg^pFfp>FjdqFf
p>FjdqFaq>8.F]bl@$-FC6$FbeqFa\l-FG6#-FO6%FQFbeq&Fd^l6#;FhsFe]l@$-FC6$FbeqF]\lFf
eq@$-FC6$FbeqF-Ffeq@$3-FC6$Fbeq<$F/F0-F^q6$FbeqF_\lFfeq>F__l-Fhjn6#-%'expandG6#
Fbeq@$/FjdqFfpC$-F_gp6$%=fiducial~cost~=~%d~functionsGF__lF^\m@$/F__lFfp-FG6#-F
_^lF_gq@)55/Fe]lFfp3Fgdq4-FC6$Fe^pF645Fahq-FC6$Fg^pF6C%>FZFfp>FepF^dm?&FX-%'ind
etsGF_gqFen@%455-%'hasfunG6$FXF\_m-Fbiq6$FXF`_m-%'isdiffGF[pC$>Fep7$-F`sFd^mFX>
FZFjel@$-FC6$Fg\oF0C$>Fep7$F[jqFg\o>FZFjelFahq>Fep-F^bl6#Fe^p3FcfpFehq>Fep-F^bl
6#Fg^p-F]o6#%3~wrong~arg~type(s)G>Fep-Fco6$FepF\\l>FcqFggm@$2FcqFhs-FG6#-F^`mF_
gq@$FagqC$-F_gp6$%:Trying~%d~combinations...G,$*&FcqFfp,&FcqFfpFdrFfpFfpFa_lF^\
m>F[v-%,CombineTrigG6%FbeqF[hm&FepF`\l>8,-FhjnFdjo@$/Fe\rFaq-FG6#-F_^lFdjo@$Fag
qC$-F_gp6&%A~~1:~cost[%a][%a]~=~%d~functionsGF[hmFc\rFe\r-%'lprintG6#%"~G>81Fhs
?(F_tFfpFfpFcqFen?(FZ,&F_tFfpFfpFfpFfpFcqFen@$30FZF_t43/F_tFfp/FZFhsC&>Fat-Fa\r
6%Fbeq&FepFeel&FepFcem>8--FhjnF`gm@$FagqC%-F_gp6'%A%3d:~cost[%a][%a]~=~%d~funct
ionsGFf]rFe^rFf^rFh^rF^\m>Ff]r,&Ff]rFfpFfpFfp@$2Fh^rFe\rC$>F[vFat>Fe\rFh^r@%1F_
_lFe\rC$@$Fagq-F_gp6$%LBest~form~is~original:~cost~=~%d~functions|+GF__lFhgqC$@
$Fagq-F_gp6$%:Best~cost~=~%d~functions|+GFe\rFi\rF?F?F?%)trigsimpGRFcwF?F?F?-Fi
x6%FE,&Fa[nFfp*$-F\_m6#'FjwFayFhsFfpF^`mF?F?F?%0annular_averageGR6'F+%'coordsGF
]inF^in%*paramlistG6'%&I_phiG%&I_rhoG%#I1G%#I2G%)expr_avgGF?F?C+-Faz6%FQ%DCalcu
lating~average~over~annulus...GFfp>FX-%$intG6$FEFdin>FX,&-Fibl6$/Fdin,$%#PiGFhs
FXFfp-Fibl6$/FdinFaqFXFdr>F_t-F\br6$*&FXFfp&FRFb\lFfpF\cr>FZ-Fibl6$/F\cr9'F_t>F
cq-Fibl6$/F\crF]_lF_t>Fep*(FdbrFdr,&*$FacrFhsFfp*$F]_lFhsFdrFdr,&FZFfpFcqFdrFfp
>Fep-Fecl6&Fep9(.%*recursiveGF^`m-FGFd^mF?F?F?Fa\rR6%Fb\m'%%var1GFay'%%var2GFay
6-F:Fj\mFidpF^dnF_dnFjcqF`dqFadqFbdq%"gG%&isfunGF?F?C0>FatF]bl@$-FC6$Fat<%F-F]\
lFa\l-FG6#-FO6&FQFatFRF]_l@$43-F^q6$FR-F\iqF`gm-F^q6$F]_lF[fr-FG6#-F_^lF`gm@%-F
C6$FatF1C%>Fh^rFat>Fat-F`sF`gm>FbeqFfp>FbeqFaq@$45-Fbiq6$FatF`_m-Fbiq6$FatF\_m@
%/FbeqFfp-FG6#-F_^l6#Fh^rF^fr>FcqF_\l>F_tFfp?&FX-F\iqFcfrFen@$455555/FXFdbm/FXF
bbm/FXF]ao/FXFc`o/FXFR/FXF]_l@$F`iqC$>&FcqFeelFX>F_tFi]r>F[v,&F_tFfpFdrFfp>Fat-
Fibl6$-Fe`n6$/F[irFe^r/F_t;FfpF[vFat>Fat-%(combineGF`gm>Fat-Fibl6$-Fe`n6$/Fe^rF
[irFeirFat@$Fbgr>Fat--F`s6$FaqFh^rF`gmFatF?F?F?FgbnR6$Fhbm'%%termGFibm6'Ffil%"M
GFj\m%&partsGF`]lF?F?C$@$F]qC$@%-FC6$FE%&tableGC$>FX7#Fh^l>Fcq7#-F`s6#-F`s6$Fh^
lFEC$>FXF^dm>FcqFheo@%-%'memberG6%FRFcqFZ-FG6#7#FZ?(FepFfpFfpFifmFenC$>F_t-FQ6$
Fc^mFR@$2FaqFcel-FG6#7%FejlFepFg^mFjbpF?F?F?%)realsolsGR6$Fg\p'Fe\mF26%%%solsG%
(allsolsGFj\mF?F?C&>F_t7#-%&solveGF_q>FXF^dm?(FZFfpFfpFcelFen@$-F^[q6#&F_tFcem>
FX7$Fejl/FRFa^sFXF?F?F?%0Collect/locsubsGR6%FjdpFj\lFj\m6$FfilFi\mF?F?C&>F_tFE>
FX-Fgbn6$F_t&FRFd`o?(F?FfpFfpF?2FaqFc]nC$>F_t-Fbjl6$/FX&%$_T_GFd`oF_t>FXF\_sF_t
F?6#Fg_sF?%/small_divisorsGR6$'F+<&F-FayFa\l-F66#FayFghp6(%$denG%$numG%&countGF
]]lF:FjhpF?F?C+Fhal@$F^]mC$?&F[vFEFen@$-FQ6$F[vFRF]goF\jp>FZFaq?&FepFRFen@$4-F^
q6$FEFep>FZFjel@$/FZ-FdelFiclF\jp>F[v-%'normalGFH?&FepFRFen>F[v-Fibl6$F[clF[v?&
FepF[vFenC&>FX-FbepFd^m>F_t-%&numerGFd^m@$0FXFfp@$/-Fdhp6$FXFcqFenF]go@$0-FbepF
eelFfp@$/-FQF]dlFenF]goF%F?F?F?F^enRFcw6$%#p1G%#p2GF?F?C%@$-FC6$FE<*F.F/F0F1F_a
nF[\lF6F\\lF`^l@$4-F^[m6#%,_subscriptsG>F]dsFe]m@'-FC6$FE%%diffGC&@%-FC6$F_sF1>
FX-F`s6$7$FfpFaqFE>FXF_s>F_tFfs>F]ds-%&unionG6$F]ds<#/((F[gpFXF_tFEFces-FC6$FEF
`anC&>FX-F`s6$FaqFE>F_tF_s>F]dsF^esFcesFEF?F\dsF?%(freememGRF?6%FfilFhfnFi\mF?F
?C'@%F[gn>F_tF]gn>F_tF_gn@$4-F^[m6#%'forgetG-%(readlibGFgfs>FX-F^]nFeel?(F?FfpF
fpF?0FXF^dmC&>FX-FO6$RFcalF?FdalF?&FEFb\lF?F?F?FX>FZ-%*traperrorG6#-FhfsF`bq@$/
FZ%*lasterrorGC%-Faz6&FQQ3Error~in~forget():6"FfpF\hsF^ilFG>FXF\gsF^ilF?F?F?%+i
nvalgsubsGRFf]q6&Fj]qF[^qF:%(newexprGF?F?C)>FXF]bl@$F_^q>FXFb^q>F_tF^dm?&FZFXFe
n>F_tFf^q>FcqFddm?&FZF_tFen>Fcq-%(algsubsGFauFcqF?F?F?%'cosfixGRFcwFdwF?F?C$>FX
RFiwF?F?F?C&-F]x6%F^qFEF\_mFijmFcx*$-F`_mFdxFhsF?F?F?-Fix6%FE,&FfpFfp*$-F\_mF^y
FhsFdrFXF?F?F?%*factormatGR6#'FjjrFibm6(Fh\mFhfnF[]mF=%"cGFj\mF?F?@'-FC6$FE<'F-
F/F0F6F\\l-FG6#-FO6%FQFEFjeq-FC6$FEF_\lC->FXFe]m@%-FC6$FEF`]o?(FcqFfpFfp-&Fg_n6
#%(vectdimGFHFen>FX-F_es6$FX<#&FEFfam?(FcqFfpFfp-Ff_nFHFen?(FepFfpFfp-&Fg_n6#%'
coldimGFHFen>FX-F_es6$FX<#&FE6$FcqFep>FX-Fjil6$FX<#Faq>FX-FO6$F_vFX>FZ<#-F`s6#F
a]n?(F[vFhsFfpFc]nFen>FZ-%*intersectG6$FZ<#-F`s6#&FXFdjo>FZ-Fco6$-Fjil6$FZ<#Fdr
F/>F_tF]bl>F_t-FO6%RF[[qF?FdalF?*&FEFfpFRFdrF?F?F?F_tFZ@$Fb^pC$>F_t-FO6%Fe^pF_t
Fhdm>FZ-FO6%Fe^pFZFhdm*&FZFfpFi`oFfpFEF?F?F?%)termfuncGR6$'F+<%F-Fay-F_\lFb\lFa
an6'%&tlistGFhfnF`]lFfhsFi\mF?F?C'>FcqF]bl@$-FC6$Fcq<$F-Fa\l-FG6#-FO6&FQFcqFRFh
dm@'-FC6$FcqFgfqC$>FX-FO6%FR7#FafmFhdm@%-FC6$FcqF/>Fcq-FcoFd\o>Fcq-FcoF[^m-FC6$
FcqF.C$>F_tFifm?(FZFfpFfpF_tFenC$>Fcq-Fbjl6$/Fe\s-FQ6%-F`sFauFRFhdmFcq@$FjhlFjq
>Fcq-FR6$FcqFhdmF^ilFi_pF?F?F?F`foR6#'F+<'F_anFayF_\lF6F\\l6%Fgjs%#ccGF:F?F?C'@
$F^]mC%>F_tFaq?&FZFEFen>F_t,&F_tFfp-FQFcemFfpFgjn>FXF][o>F_tFaq@%5Fc\o/Fc]nFfp@
%F[dt@$555/FXFe[p/FXFi[p/FXFa[pFi\o>F_tFfp@$555/-F`s6$FhsFXFe[p/FjdtFi[p/FjdtFa
[p/FjdtFc[o>F_tFg\o?&FZFXFen@%/F\joFfp@$555/FZFe[pFbdt/FZFa[p/FZFc[o>F_tFi]r@$5
55/-F`s6$FhsFZFe[p/F`ftFi[p/F`ftFa[p/F`ftFc[o>F_t,&F_tFfp-F`s6$FfpFZFfpF_tF?F?F
?FefnRFcwF?F?F?C%-Fibl6$F]dsFE>F]ds.F]ds%#%%GF?F\dsF?FixR6%'F+<'F-FayF6F\\l-F^\
lF``s'%(patternGFayFaan6$F:Fi\mF?F?C$@$F^]mF`^l@'/FaioFfpFE-%)patmatchGF_q-F]_l
6$FEF[\mC%>F_tF]bl?&FXFEFen@%-F]htFj]p>F_t-Fbjl6$/Ffbn-F]_lF]eoF_t>F_t-Fbjl6$/F
fbn-FQ6&FXFRF]_lF[\mF_tFi`oF?F?F?%(csquareGR6#'F+<'F_anFayF_\lFdcpF`an65F_dn%"B
G%"CGFfhsFe\mFegnF`]lFfilFf_q%)subsflagG%(savevarG%'srvarsGFewFaimF]]l%%_argG%#
_vG%%_srvG%#_FGF?F?C,@$-FC6$FE.FdcpFF>Ff]r%%NULLG@)F^hq@'/-Fdel6#-F\iqFHFaqFF/F
ijtFfp>Fep-F`sFjjt-F]o6#%E:~Can't~determine~the~indeterminate!GFgdq@%-FC6$Fe^pF
dil>Ff]rFe^p>FepFe^pFcfp@'Fc[uC$>Ff]rFe^p>FepFg^p-FC6$Fg^pFdilC$>Ff]rFg^p>FepFe
^p-F]o6#%9:~wrong~argument~type(s)G-F]o6#%::~wrong~number~arguments!G@$4-FC6$Fe
p<)F.F/F0F1F2F6F\\l-F]o6#(%6:~var~must~be~one~of~G%F|frname,set,list,`+`,`*`,`^
`,function|hr.G>FcqF]bl@$-FC6$FepFfdnC$?&F[vFepFen>Fcq-FQ6%FcqF[vFf]r-FGFe_o>Fj
dq.Fjdq>Fh^rFaq@'-FC6$Fcq<%F_anF_\lF`anC%@$-FC6$Fep<&F.F/F0F1C(>Fh^rFfp>FbeqFep
>FepFjdq@%-FC6$FbeqF1>8/7#Fbeq>F^_u7#-F`s6#F[iq>86R6&F[jtF\jtF]jtF]]lF?F?F?@%F]
q-F^`m6%FE<#/FRFacrF]_lFEF?F?F?>Fcq-FO6'Fe_uFcqFbeqF^_uFjdq>Fcq-FO6&FQFcqFepFf]
r@$/Fh^rFfp>Fcq-Fibl6$/FjdqFbeqFf_o-FC6$Fcq-Fbcl6$FibmFepC(@$Fc^uC&>Fh^rFfp>Fbe
qFep>FepFjdq>Fcq-F^`m6%Fcq<#/FbeqFjdqFa_u>Fcq-FeclF]]t>FX-%&coeffG6%FcqFepFhs>F
_t-F\bu6%FcqFepFfp@$30FXFaq0F_tFaqC$>FZ-F\bu6%FcqFepFaq@%30Ff]rFejt-FC6$Ff]rFdi
l>Fcq,&*&FXFfp,&FepFfp*&F_tFfpFXFdrFa_lFhsFfp-Ff]r6#,&FZFfp*&F_tFhsFXFdr#FdrFdz
Ffp>Fcq,(F`cuFfpFZFfpFfcuFgcu@$Fd`u>Fcq-Fibl6$Fh`uFcq-FG6#F^^lFi]uF?F?F?%-remov
e_sqrtsGR6$Fjao'F_dnF26$Fj\m%)sqrtlistGF?F?C(>F_t-FfapFH@$/FcelFaqFF>FdboF^dm>F
gboF^dm?(FXFfpFfpFcelFenC$>Fdbo7$-F`sFcbo/&F_tF[p(FRFX>Fgbo7$-F`sFfboFdeu-FiblF
jboF?F_coF?%0Collect/algsubsGRFg^s6(F[]mF:%"HGFjjrFh\mFidpF?F?C(>FXFE@$-F\z6$FX
FbdsC&>Fcq-%+MakeCoeffsGF[p>FepF^dm>F[vFaq?&F_t&Fcq6#%'derivsGFen@$3-FgiqFeel-F
^qF]_sC%>F[v,&F[vFfpFfpFfp>Fep7$F[jqF_t>FX-Fibl6$/F_t&FZFdjoFX>FX-Fggs6#-Fbis6%
/F^_sFf_sFX%&exactG@$5-Fa\s6$%Dcannot~compute~degree~of~pattern~inG<#FX-Fa\s6$%
8no~variables~in~patternGFfhuC%-Faz6'FQ%Ksubexpression~too~complicated~for~algs
ubs:GFfpF\hsF^_s-Faz6%FQ%>trying~location()~approach...GFfp-FG6#-Fe^sF\_l@$0Fgg
mFaq?(F[vFfpFfpFggmFen>FX-Fibl6$/Figu&FepFdjoFXFXF?Fi_sF?%:simplify/fractional_
powerGRFddp6$Fj\mFjdpF?F?@'-FC6$FE<%F-F6F\\lF`^lF[z-Fgao6#-Fecl6%-F`du6$FEF_tFg
boF_vFEF?F?F?%(CollectGR6$'F+<'Fay%)relationGF_\lF6F\\l'F4<%FayF6F\\l6+FjdpFj\l
Fj\mFidpF:Ffil%%formG%&fargsG%%skipGF?F?C/@$F[^lF`^l@%Fcdn>F_tFdbl>F_tFR>Fat.%$
algG?&FepFhdmFen@$/Fep.Fdan>FatF`\v>F__l-F`s6#-Fdfm6%F^qFgdm<$F[\vF`\v-F]x6%F\z
F_tFgfq@$/FbxF^dmC%>Fe\rF%?&FepF_tFen@$-FC6$FepF^zC$>Fe\rFenFjq@$4Fe\r-FG6#-Fec
l6%FEFRF__l>FXFE>Fg_s.Fg_s?(FZFfpFfpFcelFen@%/FatF`\v>FX-Fe^s6%FXF_tFZ>FX-FieuF
b^v>FX-Fecl6%FX7#-Fe`n6$&Fg_sFfam/Fcq;FfpFcelF__l?(FZFfpFfpFcelFen>FX-Fibl6$/&F
g_sFcemFa^sFXFXF?Fi_sF?%(coshfixGRFcwFdwF?F?C$>FXRFiwF?F?F?C&-F]x6%F^qFEFgxF`xF
cx*$-F_xFdxFhsF?F?F?-Fix6%FE,&*$-FgxF^yFhsFfpFdrFfpFXF?F?F?F$