M6R0
I(startup=6"%&falseGE\[l4%-build_curvesGRF$F$F$F$C$A-%$catG6$%,CURVES_PATHGQ)cu
rves.p6"-%%withG6#%'curvesGF$F$F$%,build_surfsGRF$F$F$F$C$A-F,6$%.SURFACES_PATH
GQ-surfaces3D.p6"-F26#%+surfaces3DGF$F$F$%&crossGR6$'%"uG<%%%listG%'vectorG-.%&
arrayG6#""#'%"vGFF6$%"UG%"VGF$F$C'@%-%%typeG6$9$<$FGFI>8$-%(convertG6$-%&evalmG
6#FXFH>Fen-%%copyGF[o@%-FV6$9%FY>8%-Fgn6$-Fjn6#FboFH>Fdo-F^oFho@$/-&%'linalgG6#
%(vectdimG6#FenFM>Fen-%$vecG6%&Fen6#"""&FenFL""!@$/-F^p6#FdoFM>Fdo-Fep6%&FdoFhp
&FdoFLF[q-&F_p6#%*crossprodG6$FenFdoF$F$F$%(matfuncGR6$'%$eqnG/%'matrixGF`r'%%f
uncG%*procedureGF$F$F$/-%$mapG6%Fbo-%$lhsGF[o&9"6#;""$9#-Ffr6%Fbo-%$rhsGF[oFjrF
$F$F$%%normGR6#%"AGF$F$F$-&F_p6#Fds6$FXFMF$F$F$%$matGRF$6&%"iG%"jG%$tmpG%$_H_GF
$F$@)3/F_sFip-FV6$&F[sFhpFH-Fgn6$Fht.F`r3Fet-FV6$FhtFGC%>8&-&F_p6#F`r6#7#-%$seq
G6$7#-%".G6$8'Fen/Fen;Fip-%%nopsG6#Fht?(FdoFipFipFav%%trueG>&Fau6$FdoFip-%%subs
G6$/-F\v6$F^vFdo&FhtF_qFgv-%%evalG6#Fau3Fet-FV6$FhtFI-FawFcv-Fcu6#7#-Fhu6$7#&F[
sFbp/Fen;FipF_sF$F$F$%+build_plotGRF$F$F$F$C$A-F,6$%.PLOTTING_PATHGQ+plotting.p
6"-F26#%)plottingGF$F$F$%,build_startGRF$F$F$F$C$A-F,6$%-STARTUP_PATHGQ*startup
.pFhx-F26#F"F$F$F$FepRF$F$F$F$@'F\u-&F_p6#FH6#F[sFdtFht-Fiy6#7#F[sF$F$F$%+read_
startGRF$F$F$F$C$>%-STARTUP_READGF[qAQ3c:/maple/startup.p6"F$6#FczF$%*build_ode
GRF$F$F$F$C$A-F,6$%)ODE_PATHGQ*diffeqn.pFhx-F26#%$odeGF$F$F$%*read_plotGRF$F$F$
F$C$>%.PLOTTING_READGF[qAQ=c:/maple/plotting/plotting.pFfzF$6#Fg[lF$%$magGR6#FE
F$F$F$-_F$%%normGF[oF$F$F$%$dotGR6$FEFOFPF$F$C%@%-FV6$Fin-FJ6$;Fip%'posintG;Fip
Fip>FenFfn>FenF]o@%-FV6$FgoFh\l>FdoFeo>FdoFjo-&F_p6#%(dotprodG6%FenFdo.%+orthog
onalGF$F$F$F`\lRFfsF$F$F$-&F_p6#F_\lF[tF$F$F$%*read_diffGRF$F$F$F$C$>%-DIFFEQN_
READGF[qAQ7c:/maple/ode/diffeqn.pFfzF$6#Fc^lF$%+build_polyGRF$F$F$F$C$A-F,6$%*P
OLY_PATHGQ.polynomials.p6"-F26#%,polynomialsGF$F$F$%,build_utilsGRF$F$F$F$C$A-F
,6$%+UTILS_PATHGQ(utils.pFhx-F26#%&utilsGF$F$F$%+read_utilsGRF$F$F$F$C$>%+UTILS
_READGF[qAQ7c:/maple/utils/utils.pFfzF$6#Fb`lF$Ffz