<algolib.mla.................................................................................................................................................................................................................................................... 5Mnfsing/lninfsing/expinfsing/cosinfsing/sininfsing/sinhinfsing/coshinfsing/trieinfsing/checkinfsing/QuasiInverseinfsing/taninfsing/LambertWinfsing/RootOfinfsing/infsolveinfsing/infsolve/algfuninfsing/infsolve/polynominfsing/helpsignuminfsing/infsolve/checkrootsinfsing/infsolve/largerrootsinfsing/infsolve/smallestinfsing/infsolve/infinitelistinfsing/infsolve/infinitelist/heuristicinfsing/QuasiLogequivalent/alglogeq/jungenequivalent/alglogeq/purjungendev/cleanequivalent/alglogeq/transfertequivalent/equivequivalent/alglogeqequivalent/Otransfequivalent/H_HS_singequivalent/equsingQuasiLogQuasiInverseequivalent/saddlepoint/Haymanequivalent/saddlepoint/H_HSequivalent/saddlepoint/saddle................equivalent/saddlepoint/saddle.m OM8simplify/O.mH?M=dev/Fresnelf.mLM=dev/sin.m?M?:-10.m1 MF:-8.m ; BMF:-88.m * MF:-157.m t[MF:-174.m 8MF:-203.m ;MF:-191.m @MF:-361.m CMF:-220.mXMF:-327.m MF:-344.m,MF:-298.mƯ9MF:-468.m*~MI:-485.m> MI:-514.m*MI:-531.m$9 MK:-638.m  cMJ:-655.m NMJ:-672.m ^MJ:-701.m MJ:-779.m!z]RMJ:-796.m#"3MJ:-824.m#_<,MK:-807.m#xj }MK:-841.m#?MKHolonomy/fglm_algorithm.m$/^MK:-965.m&d MQ:-948.m&MQ:-1006.m'MQ:-982.m'ȣ2MQ:-1023.m(8wMQ:-1040.m(dev/coth.mcM@evalr/add.mLpMB:-15.m zMF:-32.m 5&MF:-101.m .MF:-179.m OMF:-196.m (BMF:-208.m .MF:-225.m ʹMF:-242.m MF:-349.m<MF:-366.mMF:-383.mAMF:-412.mMI:-519.m#:kMKtype/DocumentGenerator/FileDescriptor.mb ~MJ:-553.m MJ:-570.m KnMJ:-536.m X MJ:-694.m ǾMJ:-677.m ȾMJ:-706.m ~MJ:-723.m!MJ:-740.m!fEMJ:-829.m#7,MK:-846.m#g MK:-880.m$QMK:-863.m$ MK:-987.m'I&2MQ:-1045.m(3MQ:-1062.m(6nMQ:-1028.m(yMQregexpcount/atomtoauto.m(MRregexpcount/autoseq.m)kMRregexpcount/epsilontoauto.m)MRQuasiInverse.mAM7dev/ln.mSM:dev/print/nfirst.mwM=simplify/O/inO.m҇M=dev/Zeta.m3dM>evalr/QuasiLog.mMBevalr/univar.mMB:-26.mMF:-112.mTMF:-43.mX@ MF:-60.m MF:-377.m +MF:-219.mF2MF:-236.mMucMF:-253.mQMF:-270.mTwMFtype/SCALE.mrJ MI:-423.m8 MI:-406.m MI:-394.m1AMI:-440.m) DMI:-547.m$". MK:-564.mE MJ:-581.m/& MJ:-610.m MJ:-688.m MJ:-717.m!yMJ:-734.m"tMJ:-751.m# eMJ:-857.m#ZMK:-874.m$"MK:-903.m$BMK:-891.m%.g MK:-920.m%MQ:-998.m' JMQ:-1039.m(P& MQ:-1056.m(MQ:-1073.m(MQqfactorial.m(MRregexpcount/renameinit.m)R pMRregexpcount/autotoXstarauto.m)WMRinfsing/LambertW.m:M6infsing/infsolve/algfun.mǥM7dev/erf.m.M>:-37.mܻ MF:-54.m0MF:-106.m _MF:-71.m xMMF:-123.m MF:-140.m !ZTMF:-247.m kMF:-281.m v:FMF:-310.m QMF:-264.m "|MF:-451.mF MI:-434.mMI:-388.mK MI:-417.mS MItype/DocumentGenerator/Translator.m; MJ:-604.mF MJ:-575.mX MJ:-558.md[ MJ:-621.m 'MJ:-592.m z MJ:-699.m MJ:-745.m!k+nMJ:-762.m!I0MJ:-728.m":MJ:-868.m$%HMK:-885.m%6MK:-914.m%RHMQ:-931.m%j/MQ:-1067.m((IMQregexpcount/ExpandR.m(MRregexpcount/autominimize.m)VMRregexpcount/minirenumber.m)0MRinfsing/check.mYM6equivalent/saddlepoint/HarrisSchoenfeld.m/M8dev/QuasiLog.mfM:dev/dev/ln.m(jM<dev/arccot.mUM?dev/arccosh.mrM@evalr/intersect.mMA:-2.m6MF:-48.m FLMF:-65.m X MF:-82.m a zMF:-134.m a tMF:-117.m sL MF:-151.m KMF:-292.m *MF:-258.m 6MF:-304.mA.MF:-321.mB-MF:-275.mCMF:-428.m:v VMI:-462.m *MI:-399.m, wMI:-445.mf MI:-615.mMJ:-632.m2MJ:-586.m2MJ:-569.m JMJ:-790.m!+ rMJ:-756.m!NMJ:-739.m!ѿsMJ:-801.m"eypMJ:-773.m" MJ:-879.m$F MK:-896.m%eMK:-925.m%JMQ:-942.m%4MQ:-908.m&OMQ:-1000.m&>5MQ:-1078.m(.MQexpand/qbinomial.m()MRregexpcount/autoprune.m) MRregexpcount/regexptoauto.m)IkMRregexpcount/regexptogram.m)J[MRequivalent/Otransf.mM7dev/add.mdM;dev/Ci.m-M=dev/dilog.m)M>dev/cot.mCcM?dev/arcsech.m|MAdiff/QuasiInverse.mMCgfun.m<MF:-59.m  MF:-76.m  "MF:-128.m W fMF:-93.m ' MF:-145.m DvMF:-162.m $jMF:-315.m QMF:-332.m MF:-286.mMF:-269.m}MF:-473.m ,MI:-456.mg MI:-439.m oMI:-490.mAUMI:-502.miPMI:-597.me MJ:-626.mF9MJ:-643.m=ZMJ:-609.mq& MJ:-660.m VMJ:-767.m"9 MJ:-784.m"Cj^MJ:-812.m#`uMK:-919.m%MQ:-936.m%sMQ:-953.m' Z MQ:-970.m'2MQ:-1011.m'7MQregexpcount/randregexp.m)8uDMRregexpcount/recregexpnottoauto.m)<MRdev/findplace.myM<dev/arcsec.mXM@type/gfun/identity.m dMF:-7.m` BMF:-87.m MK:-947.m&D 3MQ:-964.m&wMQ:-981.m'3 MQ:-1005.m'ilMQ:-1022.m(MQregexpcount/MarkLetters.m(MRregexpcount/drawword.m)1xMRinfsing/QuasiLog.mM7dev/multbyreal.mp&M:dev/LambertW.mM>dev/BesselJ.mM>dev/sec.mFiM?dev/arccsc.mVIbM?:-98.m y MF:-20.m XMF:-167.m XMJ:-659.m >MJ:-676.m NMJ:-705.m vMJ:-722.m!F=%MJ:-828.m#b(MK:-845.m#AMK:-862.m#[MK:-986.m& MQ:-969.m'I2MQ:-1044.m(!MQ:-1061.m(JMQ:-1027.m(-MQregexpcount/autorenewal.m) >rMRregexpcount/gramtoauto.m)(eMRregexpcount/mysolvedoit.m)2}MRinfsing/infsolve.mk :M7QuasiLog.mMF:-359.m (MF:-376.m 2~MF:-218.m#sMF:-235.mMF:-252.m޶6MF:-393.mMI:-405.mM MI:-422.m2FMI:-563.mO2MJ:-580.mP MJ:-529.m < MJ:-546.m MJ:-687.m ^MJ:-733.m")ZMJ:-750.m"1C}MJ:-716.m"C MJ:-856.m#HMK:-839.m$SMK:-873.m$DMK:-902.m$MK:-890.m%!MK:-997.m'C`MQ:-1055.m(lMQ:-1038.m(q MQ:-1072.m(gMQqfactorial/qfactorialtoqpochhammer.m(LMRregexpcount/countl.m(L:MRregexpcount/erasenu.m(҆MRregexpcount/autounion.m)+MRregexpcount/randgramtoregexp.m)6VMRregexpcount/starnormalform.m)U[MRzerotest.m@{M9evalr/signumax.m(MBevalr/signumabs.m MB:-36.m/ MF:-70.m & HMF:-105.mhMF:-122.mR kMF:-53.m z0MF:-19.m R XMF:-263.m PMF:-280.m 2MF:-229.m0MF:-246.m6MFconvert/ndmatrix.m^mMFtype/MultiSeries:-taylor.m~jMI:-433.m MI:-450.mkUMI:-387.m+MI:-416.m]MI:-574.m -MJ:-603.mG$ MJ:-557.m MJ:-620.m| MJ:-591.m$ MJ:-698.m 6MJ:-761.m!+MJ:-727.m"MJ:-744.m"MJ:-867.m$IMK:-884.m$̈9MK:-913.m%vCMQ:-930.m&% MQ:-1049.m(MQ:-1066.m(P)MQ:-1083.m(FJMQequivalent/saddlepoint/Hayman.m6:M7RootOf/selector.m3M9dev/QuasiInverse.mYM:dev/instanc.mcJM:dev/pow/endofdev.mn9M:dev/invert/powinverse.m{M;dev/Lorder.mX!M<dev/Psi.moM>dev/arccos.mL M?:-1.mc2 hMF:-116.m  MF:-133.m %6 1MF:-47.m `MF:-81.m 6 MF:-64.m MF:-150.m $NMF:-291.m ?MF:-257.m V~6MF:-274.m YMF:-303.mu3.MF:-320.mMF:-427.m MI:-461.mW MI:-444.m MI:-398.m MI:-614.mp MJ:-631.mX2MJ:-568.m&. MJ:-585.m22MJ:-738.m  =MJ:-755.m!ALMJ:-772.m! BMJ:-800.m! XMJHolonomy.m$MK:-878.m$ZMK:-895.m$MK:-924.m%~)MQ:-941.m%5MQ:-907.m&-LMQ:-1077.m(M>dev/sinh.mYfbM@dev/arccoth.myM@:-127.m MF:-75.m  MF:-92.m W MF:-58.m)\7MF:-144.m HMF:-161.m -MF:-285.m ސMF:-331.mMF:-314.mvCMF:-268.mwMF:-472.mMI:-438.mr MI:-455.mi lMI:-501.mzMI:-579.m2MJ:-625.m MJ:-642.mn2MJ:-596.m" MJ:-608.m oMJ:-749.m"m;]MJ:-783.m"}MJ:-766.m#MJ:-811.m#X zMK:-889.m% *MK:-918.m%MQ:-935.m%MQ:-1010.m&5MQ:-952.m'tMQAlgSubs.m(MRdiff/AlgSubs.m(MRregexpcount/epsclosure.m)&MRregexpcount/loadtrans.m)-MRregexpcount/regexpnottoauto.m)?EAMRalgolib/version.m)X!MFinfsing/sin.m.M6infsing/QuasiInverse.mM6dev/conjugate.m(M;dev/cleanup.mM;:-69.m5 MF:-86.m? HMF:-6.m & ;MF:-155.m MF:-172.m #7MF:-138.m BHMF:-201.m DMF:-308.m CMF:-325.m EMF:-342.m JW2MF:-279.m rMF:-296.mX9MFprint/_var.mf PMI:-449.mMI:-483.m MI:-466.m wMItype/PLOT.mGMI:-512.m$^MItype/DocumentGenerator/Atomic.m MJ:-619.m pMJ:-636.mNMJ:-653.m ~MJ:-670.m ȎMJ:-777.m!cMJ:-794.m")MJ:-822.m#W"MK:-805.m#a:HMK:-929.m&J[MQ:-963.m&ёMQ:-1004.m'IXMQ:-980.m'QxMQ:-946.m'%MQ:-1021.m(ngMQregexpcount.m(ΔMRregexpcount/Gfirstlast.m(MRregexpcount/autocarprod.m(sMRinfsing/ln.mM6glimit.mK3rM9dev/O.mM;diff/QuasiLog.m,MCtype/gfun/free.m LMF:-97.m MF:-166.m ,MF:-183.m :MF:-149.m GMF:-212.m |MF:-353.m MF:-370.m ԭMF:-319.mg(MF:-336.m_MF:-477.mh MI:-494.mtMI:-506.mCMI:-523.m& MJ:-540.m Lc 7MJ:-647.m ǎMJ:-664.m ǞMJ:-681.m &MJ:-710.m#pMK:-788.m"MJ:-833.m#[7MK:-816.m#JMK:-850.m#->MK:-991.m&NEMQ:-957.m&O]MQ:-974.m&UrMQ:-1015.m&MQ:-1032.m(.MQregexpcount/autocomplete.m(8MRregexpcount/autodeterminize.m(WMRregexpcount/autorenumber.m)  MRregexpcount/epsclosureset.m)NMRdev/invert/doit.msM;dev/dev/simplify.mXM<evalc/RootOf.m} MA:-30.m p mMF:-13.m c 7MF:-206.m FMF:-194.m >MF:-177.m $;MF:-223.m JMF:-240.m Sl5MF:-347.mHMF:-364.mP,MF:-381.m#MF:-410.m[wMI:-488.mD`MItype/PLOT3D.mMMI:-517.m#cMKtype/DocumentGenerator/complex.m MJ:-551.mh MJ:-534.m! MJ:-692.m MJ:-658.m MJ:-704.m nMJ:-675.m FMJ:-721.m#eoMK:-799.m!d2MJ:-827.m#W(MK:-844.m#V?MK:-861.m#ڕMK:-985.m& gMQ:-1009.m&MQ:-968.m'u# MQ:-1043.m'$MQ:-1060.m'=MQ:-1026.m(&MQregexpcount/automarkov.m(MRinfsing/infsolve/polynom.m@M7dev/invert/pprimeknowingp.mM;dev/binomial.mM<dev/endofdev.m-M<dev/implicit/itersum.mDM<:-24.mL MF:-41.m MF:-110.m 2 MF:-188.m WPMF:-375.m n@MF:-234.m 0MF:-217.mXMF:-251.mbMF:-358.mѬMF:-392.m9oMI:-404.m"MI:-421.m ]MI:-499.m`MItype/DocumentGenerator/diff.m MJ:-545.m4 EMJ:-528.m$\ MK:-562.m MJ:-686.m MJ:-669.m MJ:-732.m! MJ:-715.m">MJ:-838.m#^0MK:-855.m#MK:-872.m$PMK:-901.m$_MK:-979.m'MQ:-996.m'4MQ:-1054.m(^MQ:-1037.m(IMQ:-1071.m(<]MQqpochhammer.m(HMRregexpcount/Glast.m(ݜ^MRinfsing/RootOf.mK M6dev/csch.mjmM@evalr/prd/case2.mvMBevalr/prd/case12.mMB:-35.m+ MF:-52.m5.MF:-18.mx MF:-104.m~ MF:-121.m F5 *MF:-199.m H7MF:-369.mMF:-228.mj0MF:-262.mr3MF:-245.m˕MF:-432.m MI:-386.m0 MI:-415.m> MItype/DocumentGenerator/Sum.m MJtype/DocumentGenerator/EquationSeparator.m& MJ:-539.m$s MK:-590.m*Z.6MJ:-556.mR MJ:-573.ms type/gfun/initeq.mH 3MF:-29.m  rMF:-46.m #vMF:-115.m $ MF:-63.m a MF:-80.m l MF:-132.m h GMF:-239.m zMF:-273.m gKMF:-302.m D.MF:-256.mg6MF:-290.mNMFtype/t_SERIES.m5MI:-409.md MI:-443.m/ MI:-460.mʶMI:-397.m 8MI:-426.m& MI:-613.m0 cMJ:-567.m MJ:-630.m cIMJ:-584.m , MJ:-737.m!>MJ:-771.m!Nb+MJ:-754.m!d[MJ:-877.m$© MK:-894.m$" MK:-906.m%J[MMQ:-923.m%R] MQ:-940.m%^LKMQ:-1059.m(_3MQ:-1076.m(TMQregexpcount/autofastunion.m(pMRregexpcount/regexpstowaitgram.m)AMRgdev.m:EM9dev/lncoeff.mXM:dev/compare.mM<evalr/shake.m(MBshake/shake.mMB:-91.m lU MF:-74.m  MF:-126.m n MF:-57.m O1MF:-109.m MF:-143.m KMF:-160.m 0uMF:-284.m !aMF:-330.mdMF:-313.m;tMF:-267.mBtMFtype/ndmatrix.meMF:-471.mc: nMI:-454.mZ GMI:-437.mg MI:-500.mT]MI:-624.m2MJ:-595.m2MJ:-641.m<. MJ:-578.m MJ:-607.m c +MJ:-748.m!HMJ:-765.m" MJ:-782.m"RMJ:-810.m#e$MKHolonomy/next_term.m$hMK:-888.m%|MK:-917.m% zMQ:-934.m% MQ:-951.m'jm MQconvert/qpochhammer.m(MRregexpcount/autocheckentry.m(MRregexpcount/autocopy.m(_MRinfsing/infsolve/infinitelist.mNSM7numericRootOf.m>M9dev/divide.mP M9dev/realpart.mԅEM=dev/arctan.mQM?type/gfun/has2diffeqs3.m܍ WMF:-85.mMF:-68.m j?~MF:-5.m  xMF:-137.m MF:-154.m CMF:-171.m 7MF:-200.m !9MF:-307.m ~|MF:-341.m 2MF:-324.m MF:-295.mJMF:-278.m:WMFprint/SERIES.mZ< MI:-465.my MI:-482.m PMI:-448.m0AMI:-511.mFMI:-589.mY HMJ:-618.m 2MJ:-635.m|H8MJ:-652.m ЦMJtype/MADLaTeX/atomic.m GMJ:-759.m"tMJ:-776.m"DMJ:-793.m"C)MJ:-804.m#9+IMK:-821.m#9tMK:-899.m% BMK:-928.m%MQ:-962.m'dMQ:-1003.m'j5MQ:-945.m'D%MQ:-1020.m(MQequivalent.m7M8dev/dev/+.mtM<dev/Ei.m)M=dev/FresnelS.mM=dev/tan.m?M?:-96.m XMF:-79.m ~ MF:-165.m A,MF:-182.m mHMF:-148.m MF:-352.m `MF:-318.m MF:-211.m MF:-289.mFMF:-335.mPMF:-476.mMI:-459.m DMI:-493.mlMI:-505.m# MKtype/DocumentGenerator/Int.m MJ:-522.m nMJ:-629.mIMJ:-663.m MJ:-680.m .MJ:-646.m ^MJ:-787.m"+MJ:-832.m#_/MK:-815.m#KMKHolonomy/fglm_termination_proc.m$MK:-939.m%w-MQ:-973.m&w MQ:-956.m&MQ:-1014.m'ZUMQ:-990.m'TMQ:-1031.m(EMQregexpcount/follow.m)"nMRinfsing/infsolve/infinitelist/heuristic.mء0M7equivalent/alglogeq.mM7equivalent/equsing.m M7dev/pow.mi0M:dev/Si.m2M=dev/FresnelC.mM=:-12.m -MF:-205.m $EMF:-159.m rMF:-176.m <8MF:-193.m tAMF:-329.m MF:-346.m'UMF:-363.m_MF:-222.mxIMF:-380.mqMFtype/MultiSeries:-series.m| NMI:-487.m?QMI:-516.mwMI:-550.m$h =MK:-533.m p MJ:-691.m MJ:-657.m .MJ:-674.m >MJ:-703.m MJ:-720.m#nMK:-798.m!W9,MJ:-826.m#@9MK:-809.m#a>MK:-843.m#yMK:-860.m#MK:-1008.m&OIMQ:-984.m&\MQ:-967.m'MQ:-1025.m(MQ:-1042.m(wMQregexpcount/checkprod.m)!MRinfsing/helpsignum.m:M7infsing.mM8type/RootOf.m&M9dev/reduce.mQM9:-23.m 2 MF:-40.m NMF:-187.m 9MF:-233.m 0MF:-250.m MF:-216.m8MF:-357.mMF:-374.m25MF:-420.mH];MI:-391.mڧ MI:-403.m MI:-498.m]MItype/DocumentGenerator/flatprod.mo BMJ:-527.m$OX FMK:-544.mw qMJ:-561.mY.MJ:-685.m nMJ:-668.m ɞMJ:-731.m#ZMK:-714.m"ζ;MJ:-837.m#0MK:-854.m$@MK:-871.m$^GMK:-900.m%2sMMK:-978.m'B`MQ:-995.m'QD4MQ:-1053.m(@<yMQ:-1070.m(C;MQ:-1019.m(^MQ:-1036.m(fxMQqbinomial/qbinomialtoqpochhammer.m(ļEMRregexpcount/BuildGlushkov.m(zCMRregexpcount/bersettoauto.m)+MRregexpcount/nullable.m)4MRinfsing/sinh.mM6infsing/trie.myM6dev/invert/powcompose.mv\M;dev/RootOf.mM;dev/exp/trunc.moM<evalr/prd/case1.m~MBevalr/prd/case11.mnMBseries/QuasiLog.m[MB:-103.mMF:-120.mMF:-51.m0MF:-17.m+; MF:-34.m ? RMF:-198.m =MF:-368.m UMF:-227.m+oOMF:-244.m1JMF:-261.m63MFMultiSeries.m"MISERIES.m9MI:-385.m MI:-414.mC7 MI:-431.mm MItype/FileDescriptor.mEbMItype/DocumentGenerator/quotient.m MJ:-572.m MJ:-555.m4 MJ:-601.m =MJ:-538.m$D MK:-708.m MJ:-679.m ȞMJ:-696.m ȮMJ:-725.m"PMJ:-742.m" /MJ:-848.m#;MK:-865.m$IMK:-882.m$NMKMgfun.m%??MQ:-911.m%CMQ:-989.m'2MQ:-1047.m(`MQ:-1064.m(dDMQ:-1081.m(FMQregexpcount/eqnstoasympexp.m)MRregexpcount/pruneunion.m)5MRdev/sign.mhM:dev/invert/powtruncate.m~M;dev/GAMMA.m78M=evalr/prd/case22.m"MBseries/QuasiInverse.mCWMC:-28.ma @MF:-62.muMF:-114.m  MF:-45.m MF:-131.m ! MF:-255.m NMF:-272.m MF:-301.m.MF:-379.mz/MF:-238.mMFtype/SERIES.m~?MI:-442.mSMI:-425.m% yMI:-396.mBMI:-408.m ;MI:-612.mD MJ:-566.m:oMJ:-583.m L MJ:-549.m A< MJ:-719.m!WeMJ:-753.m!:LMJ:-770.m!+MJ:-736.m# MJ:-859.m#ʪKMK:-876.m$Y MK:-893.m$ 0MK:-905.m%^ !MQ:-922.m&UMQ:-1058.m(MQ:-1075.m(AMQexpand/qfactorial.m(SMRregexpcount/autofastconcat.m("NMRregexpcount/gramerror.m)%~(MRregexpcount/gramweight.m)+ MRinfsing/cos.mM6infsing/infsolve/checkroots.mSM7zerotest/dagevalf.mH&iM9dev/evenpart.m2vM;dev/dev/ratpoly.mM<dev/tanh.m_M@:-39.m MF:-56.m &MF:-73.m  MF:-90.m MF:-108.m v MF:-125.m MF:-142.m PMF:-283.m ]PMF:-266.m yMF:-249.m MF:-312.m/_MF:-470.mMI:-419.m MI:-453.m1 GMI:-436.mbMI:-623.mx MJ:-640.m MJ:-606.mz `MJ:-594.m|2MJ:-577.m H hMJ:-764.m!zMJ:-747.m!y[MJ:-781.m#mMJHTMX.m#,dMK:-887.m%ZMKMgfun/NOT_BUGGED_Reduce.m%GVMQ:-916.m%qMQ:-933.m%MQ:-950.m&oFMQ:-1069.m([3MQregexpcount/autotogram.m)(MRRootOf/chkindex.m5M9evalr/prd.mMBevalr/evalr.mMBtype/gfun/has2diffeqs2.m& gMF:-119.m5 IMF:-67.mƽ >MF:-84.m MF:-4.m ] MF:-153.m dMF:-136.m RMF:-170.m "!7MF:-323.m MF:-340.m 2MF:-294.m|UMF:-277.mqOMF:-306.m4.MFtype/matrix_ring.m0AMF:-464.mqMI:-481.m| MI:-447.mu~MI:-510.mcRMI:-617.m MJ:-634.m2MJ:-588.m^ MJ:-651.m ɎMJ:-792.m!/MJ:-775.m"]8RMJ:-758.m"MJ:-803.m" MJ:-820.m#`MK:-898.m%MK:-927.m%1 zMQ:-1002.m&5MQ:-944.m'n.MQ:-961.m'.MQregexpcount/autoerror.m(MRdev/impart.mNM;dev/dev/*.m#M<dev/dev/exp.mM<dev/indexify.mU[M<:-95.mJ MF:-78.m MF:-164.m .MF:-181.m j;MF:-147.m "XMMF:-351.m NUMF:-317.m f MF:-334.m h#MF:-210.mDFMF:-288.muaMF:-475.mv MI:-458.m{ MItype/VOID.mJMI:-492.mZuMI:-504.m3MI:-521.m$ 1MK:-628.mK MJ:-599.m$sMK:-662.m MJ:-645.m fMJ:-769.m!40MJ:-786.m"lRMJ:-814.m#@/MK:-831.m#x<.MK:-938.m&'#MQ:-955.m&,MQ:-972.m&=MQ:-1013.m'/?MQ:-1030.m(gMQexpand/qpochhammer.m(M|MRequivalent/alglogeq/jungen.m۲M7equivalent/alglogeq/transfert.mmGM7comparexpr.m%M8RootOf.m' M9dev/Fresnelg.mAM=:-9.m < wMF:-89.m  MF:-11.m MF:-204.m 6>MF:-158.m yMF:-175.m 8MF:-192.m $UGMF:-299.m 9MF:-362.m OMF:-345.m\MF:-221.m MF:-328.mvMFdiff/SERIES.mHAMItype/ScaleVar.m~A)MI_var.mMI:-469.m MI:-486.m@SMI:-515.mgMI:-639.my2MJ:-532.mOMJ:-673.m MJ:-702.m ~MJ:-656.m MJ:-690.m ІMJ:-797.m!,MJ:-825.m#a,MK:-808.m#8MK:-842.m#k?MK:-983.m&-OMQ:-949.m&@MQ:-966.m&HMQ:-1007.m&w6FMQ:-1041.m($YMQ:-1024.m(Z?MQregexpcount/newstate.m)4<dMRinfsing/infsolve/smallest.mIM7dev/clean.mM7dev/invert.mqM;dev/cosh.m\3M@dev/arcsinh.mn:M@evalr/QuasiInverse.mMA:-22.m 0g rMF:-169.m 7MF:-186.m TrMQ:-1018.m&cmzMQ:-994.m&<4MQ:-977.m']MQ:-1052.m(+MQ:-1035.m(cMQdiff/ApplyOpr.m(}MRregexpcount/BW.m(1IMRregexpcount/autoreverse.m)MRdev/ln/endofdev.mWM:dev/prd.m[M:dev/invert/powcomposesimple.mxrM;dev/RootOf/algfun.m&M;dev/sech.mgI$M@evalc/QuasiLog.mRMA:-16.m zMF:-33.m 2 PMF:-50.m EMF:-102.m }MF:-197.m ;MF:-209.m VMF:-367.m m2MF:-226.m1MF:-243.mf^MF:-260.m+jMF:-413.m MI:-384.m1 MI:-430.m MI:-571.mMJ:-554.m. MJ:-600.m  1MJ:-537.m 5) MJ:-707.m üMJ:-678.m NMJ:-695.m MJ:-724.m!2`MJ:-741.m"NZMJ:-847.m$@MK:-881.m$MK:-864.m$RLMK:-910.m%DMQ:-988.m'j;2MQ:-1046.m(MqMQ:-1063.m(w!sMQ:-1029.m(}=MQ:-1080.m(GMQinfsing/exp.mM6equivalent/saddlepoint/H_HS.mppM8equivalent/saddlepoint/selle.miM8comparemodule.m6M9dev/abs.mdM:dev/dev/pow.m]M<dev/comparexplog.m[M<dev/cossin.m8yM>evalc/QuasiInverse.mKNMAevalr/prd/case.mMBevalr/prd/case21.mMBconjugate/RootOf.mMC:-27.m MF:-44.mMF:-61.mMF:-130.mN MF:-113.m MF:-300.m `MMF:-378.m MF:-271.mMF:-254.mY`MF:-237.m`MF:-441.m&MI:-424.m- MI:-407.m[ MI:-395.mMICommonLib.mOMI:-565.m# MJ:-582.m MJ:-611.m MJ:-548.m 6MJ:-689.m nMJ:-718.m!MJ:-735.m"fMJ:-752.m"[[MJ:-858.m#; >MK:-875.m$mMK:-904.m$ [MK:-892.m%9eMK:-921.m% ?MQ:-999.m&\V9MQ:-1057.m(PMQ:-1074.m(lMQApplyOpr.m(MRregexpcount/autoepssuppress.m(DTMRregexpcount/regexptomatchesgram.m)L%MRevalr.m#LM8evalr/signumin.m(MB:-38.m z MF:-55.m 0MF:-107.m MF:-72.m E MF:-124.m  MF:-141.m 9MF:-248.m ,HMF:-265.m 6wMF:-282.m ;3MF:-311.mX yMFvalue/Coeftayl.mqmMF:-435.m MI:-452.mdMI:-418.m MI:-389.m MItype/DocumentGenerator/Numbering.m MJtype/DocumentGenerator/Label.m0 ~MJ:-559.m MJ:-605.m MJ:-576.mͶ MJ:-593.m٢2MJ:-622.m y MJ:-729.m!iMJ:-746.m!"2MJ:-763.m!+"+MJ:-780.m!+MdMJ:-869.m$JMK:-886.m%)*=MK:-915.m%JGMQ:-932.m%J&MQ:-1068.m(MQregexpcount/BL.m(DMRregexpcount/autoconcat.m(MRequivalent/H_HS_sing.mOM7equivalent/saddlepoint/pointcol.m.{M8zerotest/cst.mGBM9dev/dev.m M<evalc/LambertW.mKMA:-135.m MF:-83.m ] MF:-66.m B MF:-3.m MF:-118.m ' :MF:-49.m MF:-152.m bMF:-293.m 9MF:-322.m}MF:-259.miMF:-276.m"MF:-305.m .MFt_SERIES.mHuMI:-480.mLMI:-463.mG MI:-429.m~ MI:-446.m MI:-616.mX MJ:-587.mˠ MJ:-633.m2MJ:-650.m .MJ:-791.m!+MJ:-802.m""tuMJ:-757.m"MJ:-774.m"MJ:-897.m%bMKMgfun/version.m%>6MQ:-926.m%0 MQ:-943.m%m}MQ:-909.m%LMQ:-1001.m&İ5MQ:-960.m'N MQ:-1079.m(MQregexpcount/grammarkov.m)&MRregexpcount/selectateps.m)S{MRinfsing/cosh.mOM6infsing/tan.m(M6equivalent/alglogeq/purjungen.m1M7dev/print.mM=dev/arcsin.mLM?dev/arccsch.m}MAevalf/O.m9MB:-129.mn eMF:-77.ml MF:-94.m ՙ MF:-163.m sMF:-180.m 9IMF:-146.m PMF:-333.m MF:-316.m3MF:-287.m>[MF:-350.mMF:-457.m MI:-474.m:MI:-491.mC^MI:-503.m'MIDocumentGenerator.m;MJ:-598.m MJ:-627.m>9MJ:-520.m MJ:-785.m""^MJ:-768.m"HMJ:-813.m#2aMK:-830.m#d,MKHolonomy/version.m$w!MKHolonomy/hilbert_dimension_do_it.m$MK:-937.m&aMQ:-971.m&p2MQ:-954.m'J0MQ:-1012.m'SMQregexpcount/version.m(($MRregexpcount/GenMarkLet.m(ڻMRregexpcount/Gfirst.m(n_MRregexpcount/getmarks.m)$cMRregexpcount/sortbyindets.m)TTMRM7R0 I+infsing/lnf*6%%$fctG%$varG%#smG6&%'locvalG%$valG%(singminG%%exprG6"F-C&>8&9&> 8'-%#opG6#9$?(F-"""F9F-%%trueGC%>8$-%(infsingG6%F39%F0>8%7$-%-infsing/trieG6(-% 1infsing/infsolveG6&F3FA%&falseGF0&F=6#F9F7FA.%$logGFNFK@%0&FLFM%)infinityG@%/& &FCFMFMFS>F0-%$absG6#FR[FfnFCF-F-F-F- M7R0 I,infsing/expf*6%%$fctG%$varG%(singminG6'%"rG%'devintG%"iG%%expsG%%cofsG6"F.C$> 8$-%(infsingG6%-%#opG6$"""9$9%9&@%0&F16#""#.%$logG-%'subsopG6$/F@.%*essentialGF 1C%>8%-%(dev/devG6%-%%subsG6$/F:*&&&F16#F8FVF8,&F8F8*$%&_XasyG!""FZF8F9F@""$@$/ &FKFVF8C$>8(7#-%$seqG6$&FK6#,$8&F@/Fco;F8-%%iquoG6$-%%nopsG6#FKF@@%52F8-Fjo6#-% 'selectG6%%%typeGF[o%%listG3-%'memberG6%%%trueG-%$mapGFcp.Fco0&FK6#,&FcoF8F8F8" "!-%'RETURNG6#FC>FK&FK6#Fco@%/FhnF@C$>8'7#-F^o6$&FK6#,&FcoF@F8F8Fdo@)0-%&minusG 6$<#-F66#F]r<$F8%)infinityG<"FC3-Fhp6%F8F]rF]q4-Fdp6$F`o%(integerG-FD6$/F@.%*al gebraicGF1-Fdp6$F`o%'posintG-FD6$/F@.%&polarGF1-F"6%F9F:-%$absG6#FTFCF.F.F.F. M7R0 I,infsing/cosf*6%%$fctG%$varG%(singminG6'%"rG%'devintG%"iG%%expsG%%cofsG6"F.C$> 8$-%(infsingG6%-%#opG6$"""9$9%9&@%0&F16#""#.%$logG-%'subsopG6$/F@.%*essentialGF 1C%>8%-%(dev/devG6%-%%subsG6$/F:*&&&F16#F8FVF8,&F8F8*$%&_XasyG!""FZF8F9F@""$@$/ &FKFVF8C$>8(7#-%$seqG6$&FK6#,$8&F@/Fco;F8-%%iquoG6$-%%nopsG6#FKF@@%52F8-Fjo6#-% 'selectG6%%%typeGF[o%%listG3-%'memberG6%%%trueG-%$mapGFcp.Fco0&FK6#,&FcoF8F8F8" "!-%'RETURNG6#FC>FK&FK6#Fco@%/FhnF@C$>8'7#-F^o6$&FK6#,&FcoF@F8F8Fdo@)0-%&minusG 6$<#-F66#F]r<$F8%)infinityG<"FC3-Fhp6%F8F]rF]q4-Fdp6$F`o%(integerG-FD6$/F@.%*al gebraicGF1-Fdp6$F`o%'posintG-FD6$/F@.%&polarGF1-%,infsing/expG6%F9F:-%$absG6#FT FCF.F.F.F. M7R0 I,infsing/sinf*6%%$fctG%$varG%(singminG6'%"rG%'devintG%"iG%%expsG%%cofsG6"F.C$> 8$-%(infsingG6%-%#opG6$"""9$9%9&@%0&F16#""#.%$logG-%'subsopG6$/F@.%*essentialGF 1C%>8%-%(dev/devG6%-%%subsG6$/F:*&&&F16#F8FVF8,&F8F8*$%&_XasyG!""FZF8F9F@""$@$/ &FKFVF8C$>8(7#-%$seqG6$&FK6#,$8&F@/Fco;F8-%%iquoG6$-%%nopsG6#FKF@@%52F8-Fjo6#-% 'selectG6%%%typeGF[o%%listG3-%'memberG6%%%trueG-%$mapGFcp.Fco0&FK6#,&FcoF8F8F8" "!-%'RETURNG6#FC>FK&FK6#Fco@%/FhnF@C$>8'7#-F^o6$&FK6#,&FcoF@F8F8Fdo@)0-%&minusG 6$<#-F66#F]r<$F8%)infinityG<"FC3-Fhp6%F8F]rF]q4-Fdp6$F`o%(integerG-FD6$/F@.%*al gebraicGF1-Fdp6$F`o%'posintG-FD6$/F@.%&polarGF1-%,infsing/expG6%F9F:-%$absG6#FT FCF.F.F.F. M7R0 I-infsing/sinhf*6%%$fctG%$varG%(singminG6'%"rG%'devintG%"iG%%expsG%%cofsG6"F.C$ >8$-%(infsingG6%-%#opG6$"""9$9%9&@%0&F16#""#.%$logG-%'subsopG6$/F@.%*essentialG F1C%>8%-%(dev/devG6%-%%subsG6$/F:*&&&F16#F8FVF8,&F8F8*$%&_XasyG!""FZF8F9F@""$@$ /&FKFVF8C$>8(7#-%$seqG6$&FK6#,$8&F@/Fco;F8-%%iquoG6$-%%nopsG6#FKF@@%52F8-Fjo6#- %'selectG6%%%typeGF[o%%listG3-%'memberG6%%%trueG-%$mapGFcp.Fco0&FK6#,&FcoF8F8F8 ""!-%'RETURNG6#FC>FK&FK6#Fco@%/FhnF@C$>8'7#-F^o6$&FK6#,&FcoF@F8F8Fdo@)0-%&minus G6$<#-F66#F]r<$F8%)infinityG<"FC3-Fhp6%F8F]rF]q4-Fdp6$F`o%(integerG-FD6$/F@.%*a lgebraicGF1-Fdp6$F`o%'posintG-FD6$/F@.%&polarGF1-%,infsing/expG6%F9F:-%$absG6#F TFCF.F.F.F. M7R0 I-infsing/coshf*6%%$fctG%$varG%(singminG6'%"rG%'devintG%"iG%%expsG%%cofsG6"F.C$ >8$-%(infsingG6%-%#opG6$"""9$9%9&@%0&F16#""#.%$logG-%'subsopG6$/F@.%*essentialG F1C%>8%-%(dev/devG6%-%%subsG6$/F:*&&&F16#F8FVF8,&F8F8*$%&_XasyG!""FZF8F9F@""$@$ /&FKFVF8C$>8(7#-%$seqG6$&FK6#,$8&F@/Fco;F8-%%iquoG6$-%%nopsG6#FKF@@%52F8-Fjo6#- %'selectG6%%%typeGF[o%%listG3-%'memberG6%%%trueG-%$mapGFcp.Fco0&FK6#,&FcoF8F8F8 ""!-%'RETURNG6#FC>FK&FK6#Fco@%/FhnF@C$>8'7#-F^o6$&FK6#,&FcoF@F8F8Fdo@)0-%&minus G6$<#-F66#F]r<$F8%)infinityG<"FC3-Fhp6%F8F]rF]q4-Fdp6$F`o%(integerG-FD6$/F@.%*a lgebraicGF1-Fdp6$F`o%'posintG-FD6$/F@.%&polarGF1-%,infsing/expG6%F9F:-%$absG6#F TFCF.F.F.F. M7R0 I-infsing/trief*6(%#u1G%#u2G%$fctG%$varG%$ty1G%$ty2G6*%$resG%"uG%"vG%%res2G%"iG %"jG%$sigG%#tyG6"F4@+/9$7"-F"6(7#%)infinityG9%9&9'.%(polynomG9)/F=F8-F"6(F;F7F> F?9(F@-%$hasG6$F7F<@%-%.infsing/checkG6&F=F>F?.8$6$FOFB6$F7FF-FH6$F=F<@%-FL6&F7 F>F?FN6$FOFF6$F=FBC&>8%-%#opG6$"""F7>8&-Fgn6$FinF=>FO-%.comparemoduleG6$FenF[o@ )/FO%"G@'FKFPFUFWFfo/FO%"=GC'FU-FL6&F=F>F?.8'?(8(FinFin F41Fbp-%%nopsG6#FO?(8)FinFinF41Fhp-Fep6#F`pC$>8*-%)zerotestG6$&FO6#Fbp&F`p6#Fhp @&/F^q%%trueGC$>F`p-%'subsopG6$/Fhp%%NULLGF`p>Fhp,&FhpFin!""Fin3/F^q%%FAILG-%%t ypeG6$-%&evalfG6$-%&evalcG6#,&FdqFinFbqFbr"#5%(numericG@%2-%'lengthG6#Fbq-Fes6# FdqC$>F`pF[r>FhpFarC%>FO-F\r6$/FbpF_rFO>Fbp,&FbpFinFbrFin[@3/FFF@>8+FB/FBF@>Fgt FF/FF.%&polarG>FgtFB/FBF[u>FgtFF/FF.%*algebraicG>FgtFB/FBFau>FgtFB/FF.%$logG>Fg tFB/FBFgu>FgtFF>FgtFF6$7$-FgnFfp-FgnF[qFgt-%&ERRORG6#%3Too~many~variablesGF4F4F 4F4 M7R0 I.infsing/checkf*6&%#ptG%$fctG%$varG%'resultG6&%"iG%$resG%'devintG%"jG6"F.C%>8% 7"?&8$9$%%trueG@%-%$hasG6$F4%)infinityG>F17$-%#opG6#F1F4C$>8&-%(dev/devG6%-%%su bsG6$/9&*&F4""",&FMFM*$%&_XasyG!""FQFM9%""#""$@%/<#-%$seqG6$-F?6$FM8'/Fgn-%'ind etsG6$FC%%listG<#FMC$?(FgnFTFS,&-%%nopsG6#FCFM!"#FM-%%typeG6$&FC6#Fgn%*nonnegin tGF.@$52FgnFao33/FgnFao4Feo2,&FhoFM&FC6#,&FgnFMFdoFMFQFM>F1F=>F1F=@%/F1F2%&fals eGC$>9'F1F6F.F.F.F. M7R0 I5infsing/QuasiInversef*6%%$fctG%$varG%(singminG6#%$valG6"F*C$>8$-%-infsing/tri eG6(-%1infsing/infsolveG6&,&-%#opG6$"""9$F8!""F89%%%trueG9&7#%)infinityGF9F;.%& polarG.%(polynomG@%/&&F-6#F8FHF?-%(infsingG6%F5F;F=7$F-F8$9&?( F,"""F2F,%%trueGC%>8%-%(infsingG6%-%#opG6$F29$9%F/>8&7$-%-infsing/trieG6(-%1inf sing/infsolveG6&-%$cotG6#F:F>%&falseGF/&F66#F2F=F>.%&polarG&F66#""#FK@%0&FLFM%) infinityG@%/&&F@FMFMFV>F/-%$absG6#FU[FinF@F,F,F,F, M7R0 I1infsing/LambertWf*6%%$fctG%$varG%(SingminG6%%'locvalG%$valG%(singminG6"F,C%>8 &9&?(F,"""F2F,%%trueGC%>8$-%(infsingG6%-%#opG6$F29$9%F/>8%7$-%-infsing/trieG6(- %1infsing/infsolveG6&,&F:F2-%$expG6#!""F2F>%&falseGF/&F66#F2F=F>.%*algebraicG&F 66#""#FM@%0&FNFO%)infinityG@%/&&F@FOFOFX>F/-%$absG6#FW[F[oF@F,F,F,F, M7R0 I/infsing/RootOff*6%%$FctG%$varG%(SingminG6+%(singminG%'locvalG%$valG%"iG%"jG%" yG%$fctG%$sigG%'tosubsG6"F2C&>8$9&>8*-%%subsG6$/%#_ZG8)-%#opG6$"""9$?(F2FBFBF2% %trueGC&@%4-%$hasG6$-%%diffG6$F89%F>>8%-%(infsingG6%FLFOF5>FQ7%7#%)infinityG.%( polynomGFE>8&-%$mapG6%F:7#-%&solveG6$<$-FM6$F8F>F8<$F>FOFO?&8'-%'indetsG6$Ffn%' RootOfGFE@$-%%typeG6$-F@6$FBFco-FZ6$%(numericGF=C$>8,7#-%$seqG6$/Fco-Fgo6$F\p8( /F[q7#-%'fsolveG6%F\pF=%(complexG?&F[qFfnFE@$-FJ6$F[qFco>Ffn-F:6$/F[q-F@6#-Fhn6 %F:FcpF[qFfn@%0-%%nopsG6#Ffn""!C%?(Fco""#FBF21FcoF`rC$>8+-%.comparemoduleG6$&Ff n6#FB&Ffn6#Fco@&/Fjr%"Ffn-%'subsopG6$/Fco%%NULLGFfn>Fco,&FcoFB!""FB/Fjr%"> GC$>Ffn7#-F@6$;FcoF`rFfn>FcoFB>Ffn7$-%-infsing/trieG6(Ffn&FQF_sFCFO.%*algebraic G&FQ6#Ffr%&falseG@%0&F]uF_sFX@%/&F^sF_sFX>F5-%$absG6#Feu[F]vF]vFfnF2F2F2F2 M7R0 I1infsing/infsolvef*6&%%fctnG%"xG%(coefposG%(minsingG60%$fctG%$solG%$valG%$nbrG %"iG%"jG%%lpolG%%lracG%"kG%"lG%"fG%$auxG%%aux2G%$resG6"F8C-@%-%$hasG6$9$<$.%-Qu asiInverseG.%)QuasiLogG>8$-%%evalG6#-%%subsG6%/FBf*6#F&F8F8F8-%#lnG6#*$,&"""FTF >!""FUF8F8F8/F@f*FNF8F8F8FRF8F8F8F>>FEF>@$353-%(hastypeG6$FE)%)anythingG%)fract ionG4-Fhn6$FE%&floatG-F<6$-%$mapG6$%#opG-%'indetsG6$FE%'RootOfG9%-%%typeG6$-%(c onvertGFio-%'algfunG6$F[oF[p-%'RETURNG6#-%8infsing/infsolve/algfunG6&FEF[p9&9'> 8--%%igcdG6#-%$seqG6$-Ffo6$""#8(/Fgq-Fho6$FE)-%*identicalG6#F[p%(integerG@$2FTF ]qC$>8.-FJ6$/F[p)F[p*$F]qFUFE@$4-Fhn6$Fdr)F\rF\oC&>8+-F"6&FdrF[pFjp)F[qF]q>8'"" !?&FgqFas%%trueG@%/Fgq%)infinityGC$>Ffs,&FfsFTFTFT>&8&6#FfsFgqC$?(8)FgsFT,&F]qF TFUFTFis>&Fbt6#,(FfsFTFTFTFftFT*&)FgqFirFT-%$expG6#**^#FfqFTFftFT%#PiGFTF]qFUFT >Ffs,&FfsFTF]qFT-Fep6#7#-Fbq6$&Fbt6#Fgq/Fgq;FTFfs@$-F]p6$FE-%(polynomGFcp-Fep6# -%9infsing/infsolve/polynomG6%FEF[pF[q>%1_EnvAllSolutionsGFis>8%-FG6#7#-%&solve G6$FEF[p@&-F]p6$F\w7#-%)specfuncG6$FcvFjo-Fep6#-Fgv6&-FJ6$/%#_ZGF[p-Ffo6$FT&F\w 6#FTF[pF[qF>-F<6$F\wFjoC$>8*7#-Fbq6$-Ffo6$FTFgq/Fgq-FhoFgx?(FgqFTFT-%%nopsG6#Fj xFis@&-F]p6$&FjxF\vFcvC$>Fas-Fgv6$-FJ6$F`xFiyF[p?(FftFTFTF81Fft-Fdy6#F\w@$-F<6$ &F\w6#Fft-Fjo6#FiyC$>F\w7$-Ffo6#-%'subsopG6$/Fft%%NULLGF\w-Fbq6$-FJ6$/Fiz8,Fgz/ Fj[lFas>Fft,&FftFTFUFT/-%'selectG6$f*FNF8F8F8-%&evalbG6#/-%#isG6$F>F_rFisF8F8F8 -Fho6$Fgq%%nameG<"Z%C$>8/-%'fsolveGF]z@$-F]p6$Fa]lF`oC%>Fas-%.numericRootOfG6$F iyFa]l@$Fjp-%3infsing/helpsignumG6$FasFa]l?(FftFTFTF8Faz@$Fez>F\w7$F^[l-FJ6$/Fi zFasFgzF8F8>F\w7#-Ffo6#-%&minusG6$<#-FfoFcz<#Fgs>Fa]l-%%map2G6%FfoFT-F`\l6$f*FN F8F8F8-Fd\l6#/-Fdy6#F>FfqF8F8F8-Fho6$F\w-Fhw6$F[o%)LambertWG@'0F\w7"C'>Fa]l-%&u nionG6$Fa]l-F`\l6$f*FNF8F8F8Fc\lF8F8F8-Fho6$F\wF\]l@$0Fa]lF]]l-Fep6#-%>infsing/ infsolve/infinitelistG6%F\wF[qFa]l@$0F[qFgs>F\w-%=infsing/infsolve/largerrootsG 6$F\wF[q>F\w-%Fa]l-Fc]l6%FEF[p;FgsFT@%5/Fa]lFd[l4-F]p6$Fa]l%(n umericGC&>Fas&-%(infsingG6%FEF[pFgsFex>Fa]lFd`l?(FgqFTFT-Fdy6#FasFisZ%@$/-%)zer otestG6#-FG6#-FJ6$/F[p&FasF\vFEFis>Fa]l7$-Ffo6#Fa]lFjdlF8F8Z%C$>80-Fc]l6%FEF[p; Fgs-%&evalfG6#-%$absG6#&FasFex@'5/FbelFd[l4-F]p6$FbelFdcl@%/Fa]lFd`l-Fep6#7#F\t -FepF^el2-%&FloatG6$FT,&%'DigitsGFUFfqFT-Fjel6#Fbel>Fa]lFbelFeflF8F8@$2-FjelF^e lFjflFefl>Fa]l-Fjal6$7#Fa]lF[q@%0Fa]lFd`lC%>Fbt7#-Fjo6%FEF[p&Fa]lFex@$FjpC%-F^^ l6$&FbtFexF`hl>Fj[l-F`\l6%F<-Fho6#FEF[p@$-F]p6$Fj[l-%$setG6#F[rC$>81-F_q6#-Fbq6 $-Ffo6$FfqF]q/F]qFj[l@$2FTFcil>Fbt7#-Fbq6$*&FehlFT-F_u6#**FbuFTFj[lFTFcuFTFcilF UFT/Fj[l;Fgs,&FcilFTFUFT-Fep6#FbtFeflFeflF86#FjvF8F8 M7R0 I8infsing/infsolve/algfunf*6&%$fctG%"xG%(coefposG%(minsingG6'%"fG%$indG%"iG%"uG %,carefulsubsG6"F/C&>8$-%&numerG6#-%'normalG6#-%(convertG6$9$%'RootOfG>8%7#-%#o pG6#-%'indetsG6$F2F=?(8&"""FIF/2FH-%%nopsG6#F?@&4-%$hasG6$-FB6$FI-FB6$FHF?9%C$> F?-%'subsopG6$/FH%%NULLGF?>FH,&FHFI!""FI-FQ6$7#-FB6$;,&FHFIFIFIFKF?FUC$>F?7%-FB 6$;FIFjnF?F_oFU>FHFjn@%/F?7"-%1infsing/infsolveG6&F2FW9&9'C'>8(f*6$F&F-F/F/F/@' 4-FQF;-%%subsG6$/%#_ZGFWF<-%%typeGF;F<-%$mapG6%9!FF2-%*r esultantG6%-F[q6$/FH8'F2-Fdp6$-FB6$FIFHF^rF^r>F2-%$quoG6%F2-%$gcdG6$F2-%%diffG6 $F2FWFW@$/-F[q6$/FW""!F2Fbs>F2-%'expandG6#*&F2FIFWF[o-%9infsing/infsolve/polyno mG6&F2FWFapF8$-%(collectG6$9$9%@%1-%'degreeG6$F1F6""#>8%-%&solveGF4C%>F>7#-%'fsolv eG6%F5F6%(complexG>8'f*6#%"uG6$%$resG%*oldDigitsGF.F.C'>F>%'DigitsG>FR,$FRF<>F1 -%%evalG6$,&T$"""*&T&Fen-%%diffG6$FgnFZ!""F[o/FZF5@$-%$hasG6$F1$Fen%*undefinedG >F1-FW6$,&FZFen-%'normalG6#FfnF[oF\o-%&evalfG6$F1F>F.F.6&F&F6F%F5>F>-%#opG6#-%$ mapG6$FIF>>F>-%&minusG6$<#F><#""!@$32F<9#09&F[q@%4-F_o6$Faq%'RootOfG>F>-%=infsi ng/infsolve/largerrootsG6$F>Faq>F>-Fiq6$F>-F[p6#Faq@$2""$F_q>F>-%9'F6@$F^q>F>-%:infsing/infsolve/smallestG6#F>@%5/F>7#%)infin ityGF8F>7#-F`p6#<#-%$seqG6$-%.numericRootOfG6$-%%subsG6$/F6%#_ZGF58&/FatF>F.F.F .F. M7R0 I3infsing/helpsignumf*6$%%exprG%$valG6#%&intvlG6"F)C$>8$-%&shakeG6#9%@$-%%typeG 6$F,-%)specfuncG6$%&rangeG.%)INTERVALGC$>&%0property/objectG6#9$-.%*RealRangeG6 #-%#opG6#-%$mapG6$%%OpenG-FI6$FFF,@$-F36$F@-F66$%)anythingG%'RootOfGC$>-%*Im/Ro otOfG6#-FFF?""!>-FX6#-FF6#-%(applyopG6%%)simplifyG"""F@FenF)6#F>F)F) M7R0 I8'""!>8(-.%$absG6#9%?(8$"""F<-%%nopsG6#9$%%trueGZ%C$>8%-%&evalfG6#-%%subsG 6$/9&&F@6#F;F4@$3-%%typeG6$FE%(numericG2FE$FF1,&F1F&8&6#F1FNF.F.7# -%$seqG6$&FhnFO/F;;F8%""!>%' DigitsG,&F1"""!""F3?(8$F3F3-%%nopsG6#9$%%trueG@$/-%.comparemoduleG6$&F:6#F69%%" >GC$>F.,&F.F3F3F3>&8&6#F.FA7#-%$seqG6$&FJFB/F6;F3F.F+F+F+F+ M7R0 I:infsing/infsolve/smallestf*6#%$solG6&%#nbG%$resG%"iG%$auxG6"F+@%/-%%nopsG6#9$ ""!7#%)infinityGC&>8$""">&8%6#F8&F1F8'-%.comparemoduleG6$ F:&F16#F?@&/FD%"=GC$>F7,&F7F8F8F8>&F;6#F7FH/FD%">GC$>F7F8>FQFH7#-%$seqG6$&F;FI/ F?;F8F7F+F+F+F+ M7R0 I>infsing/infsolve/infinitelistf*6%%%gsolG%%miniG%%indsG64%$varG%"aG%"bG%$auxG% "xG%"cG%"dG%#iaG%#ibG%%lposG%#raG%#rbG%%exprG%$resG%%gvarG%$solG%%expsG%'tosubs G6"F;C'>82-%'selectG6$f*6#F-F;F;F;-%&evalbG6#/-%#isG6$9$%(integerG%%trueGF;F;F; 9&>84-F@6%%$hasG-%$mapG6$%#opG-F@6%%%typeG-%'indetsG6#FK-%)specfuncG6$-%'linear G6#%#PiG%$expGF>@%0FP<"C%?&80FPFM@%-FI6$*&^#!"""""-%&coeffG6%FeoF^oF\pF\p%%even G>&856#Feo/-.F_oFdp-F_o6#-%%subsG6$/F^o""!Feo>Fbp%%NULLG>83-F[q6$7#-%$seqG6$Fbp /FeoFPFK>F>-%&unionG6$-%&minusG6$FNF>-F@6$f*FCF;F;F;FDF;F;F;-Ffn6$Fbq%%nameGC$> FbqFK>F>FN?&FeoFbqFMC$>8$-%*intersectG6$F>-Ffn6$FeoFfr@'/-%%nopsG6#F]sF^q>&81Fd pFeo52F\pFes4-FZ6$Feo-F\o6#-FWFgs>Fis-%Hinfsing/infsolve/infinitelist/heuristic G6%FeoF]s9%C%>F]sFbt>8%-%&evalcG6#-F^p6%FeoF]sF\p@%/F[uF^q>Fis8&C)>Fdu-F]u6#-F^ p6%FeoF]sF^q>8/-F^p6%Fdu^#F\pF^q>8,-F^p6%FduF_vF\p>8.-F^p6%F[uF_vF^q>8+-F^p6%F[ uF_vF\p>8'-%&evalrG6#-%'SignumG6#,&*&-%$absG6#,&*&FavF\pFevF\pF\p*&F\vF\pFivF\p F[pF\p-%%sqrtG6#,&*$Fev""#F\p*$FivFaxF\pF[pF\pFgtF[p@'/F]wF\pC%>8(-F_w6#-%.eval r/intpartG6#,$*&,&*&FevF\pF\vF\pF\p*&FivF\pFavF\pF\pF\pF_xF[pF[p@$4-FZ6$FgxFL>F gx-%&evalfG6#Fgx>Fis6$,&*&F[uF\pFgxF\pF\pFduF\p,&*&F[uF\p,&FgxF\pF\pF\pF\pF\pFd uF\p5/F]wF[p/F]wF^qC(>F]w-F]x6#,,**FivF\pFavF\pFevF\pF\vF\pFax*&FevFaxFavFaxF[p *&FevFaxFgtFaxF\p*&FivFaxF\vFaxF[p*&FivFaxFgtFaxF\p>8),&F`yF[pFayF[p>8*F_x>F]w7 $*&,&F_[lF\pF]wF[pF\pFb[lF[p*&,&F_[lF\pF]wF\pF\pFb[lF[p>8--FU6%%&shakeGF]w%'Dig itsG@%4-FZ6$Fj[l7$-.%)INTERVALG6#%&rangeGFd\l>FisF`qC'>F]w-%&floorG6#-FW6$F\p-F W6#&Fj[l6#F\p@%31F_]lF]w1F]w-FW6$FaxFa]l>Fj[l-%'subsopG6$/F\p,&F]wF\pF[pF\pFj[l >Fj[l-F]^l6$/F\pF]wFj[l>F]w-%%ceilG6#-FW6$F\p-FW6#&Fj[l6#Fax@%31Fi^lF]w1F]w-FW6 $FaxF[_l>Fj[l-F]^l6$/Fax,&F]wF\pF\pF\pFj[l>Fj[l-F]^l6$/FaxF]wFj[l>Fis6$,&*&F[uF \pFc]lF\pF\pFduF\p,&*&F[uF\pF]_lF\pF\pFduF\p>FisF`q-%:infsing/infsolve/smallest G6#7#-Fgq6$Fis/FeoFbqF;F;F;F; M7R0 IHinfsing/infsolve/infinitelist/heuristicf*6%%%exprG%%varsG%%miniG6(%"iG%$varG% $valG%"jG%$resG%(nbtestsG6"F/C$>8)""&@%/-%%nopsG6#9%"""C*>8%-%#opGF8>8&7#-%$seq G6$-%$absG6#-%&evalfG6#-%%subsG6$/F=8$9$/FP;,$F2!""F2@$3-%'memberG6%-%$minG6#-F ?6#FAFA.FP5/FP-F7Fin/FPF:-%&ERRORG6#%Acannot~find~smallest~singularityG>FP,(FPF :F2FUFUF:?(8'""!F:"#50-%.comparemoduleG6$-FM6$/F=,&FPF:FfoF:FQ9&%">GF/@$/Ffo"#6 F_o>8(F]p@%0FfoFgoC%?(FfoF:F:Fho0-F[p6$-FM6$/F=,&FPF:FfoFUFQFapFbpF/@$FdpF_o6$F gpF_qFgp-FD6$-9!6%-FM6$/-F?6$F:F9FPFQ-%'subsopG6$/F:%%NULLGF9FapFRF/F/F/F/ M7R0 I1infsing/QuasiLogf*6%%$fctG%$varG%(singminG6#%$valG6"F*C$>8$-%-infsing/trieG6( -%1infsing/infsolveG6&,&-%#opG6$"""9$F8!""F89%%%trueG9&7#%)infinityGF9F;.%$logG .%(polynomG@%/&&F-6#F8FHF?-%(infsingG6%F5F;F=7$F-F8-7 ">8,F??(8&""$""#-%%nopsG6#9$%%trueG@&4-%%typeG6$-%#opG6$FCFI%*nonnegintG>FA7$-F Q6#FAFC-FN6$-FQ6$,&FC"""!""FgnFI%%listG>F>7$-FQ6#F>FC>8%""!@$0FAF?C(>8'-%$maxG6 $F`o-%$seqG6$,$&FC6#FDFhn/FC-%'selectG6%FN7#-Fjo6$FZ/FCFAFin@%-FN6$*&9%Fgn,&Feo FgnFgnFgnFhn%(integerG>8+,&FjpFgnFhnFgn>F_q-%&truncG6#-%&evalfG6#Fjp>8$-%>equiv alent/alglogeq/purjungenG6%FeoF_qF`o>8(-%&arrayG6%;F`oFeo;F`oF_q%'sparseG?(FCF` oFgnFeoFJC$>8**()FhnFCFgn-FQ6$,&FCFEFgnFgnFiqFgn-%*factorialG6#FCFgn?(8)F`oFgnF _qFJC$>84-%&coeffG6%Fhr%#_XGFbs>&F^r6$FCFbs7$FE-Fjo6$-FQ6#7$-Fgs6%Fes%#_YG,&FCF gn85Fhn,&FgtFgnFCFhn/Fgt;F`oFC?&FCFAFJC$@%4FX@%54-FN6$FPF]q2F_q,$FPFhn>807&Fgn- Fjo6$-FQ6#7$*&-%%subsG6$/%$_ALGFP-FQ6$FE&F^r6$F`oFbsFgnFZFgn,(FbsFgnFPFgnFgnFgn /FbsFcrFgn,(F_qFgnFPFgnFEFgn>Fgu7&FgnFiuF`o%)infinityGC%>Fgu7#Fgn?(FbsF`oFgnF_q FJC%>81-%/dev/multbyrealG6$7%-FQ6#-F`v6$Fbv&F^r6$,$-FQ6$FDFZFhnFbsF`oF]w-FQ6$FE FZ?(82FEFgn-%%iquoG6$-FG6#FZFEFJ>Fdw-%(dev/addG6$Fdw-Ffw6$7%-FQ6#-F`v6$Fbv&F^r6 $,$-FQ6$,&FexFEFgnFgnFZFhnFbsF`oF]w-FQ6$,$FexFEFZ>Fgu7%-FQ6#Fgu7#-FQ6$;Fgn,&-FG 6#FdwFgn!"#FgnFdwFhv@$0FguF`w>Fgu7%Faz7%FEFgn,&F_qFhnFhnFgnFjv@$F\[l>F_o-F]y6$F _o-%*dev/cleanGFbz@$0F>F?C-@$33/FFFD/&FIF^pF`o/&&FI6#FEF^pFhn-%'RETURNG6#7'Fgn& Fb\lFc\lFgnF`oF]w>86F`o?(83FgnFgn-FGF]o2Fj\l,&F[qFgnFEFgn@$-FN6$-FQ6$,&-FQ6$F\] lF>FgnFhnFgnFIFin>Fj\l,&Fj\lFgn-FQ6$FDFc]lFhn@$51F_]lFj\l2F]]lF\]l>F\]l,&F\]lFg nFhnFgn>F>&F>6#;FgnF\]l>Feo-Fgo6$F`o-Fjo6$F\p/FC-Fap6%FN7#-Fjo6$FZ/FCF>Fin>F\]l ,(FEFgnF[qFgn-FQ6$Ff]lFIFgn>Fiq-F`v6$/FcvFhn-F[r6%FeoF\]l8.>F^r-F`r6%Fbr;F`oF\] lFdr?(FCF`oFgnFeoFJC$>FhrFir?(FbsF`oFgnF\]lFJC$>FesFfs>F[tF]t?&FCF>FJC%>FguF`w? (FbsF`oFgnF\]lFJC%>Fdw-Ffw6$F]xFbx?(FexFEFgnFfxFJ>Fdw-F]y6$Fdw-Ffw6$FfyF\z>Fgu7 %FazFdwFbs@$F\[lC&>8/FP>Fdw-Ff[l6#-F`v6$/F\`lF`oFgu?(FbsFgnFgn,&F[blFgnFgnFgnFJ >Fdw-F]y6$Fdw-Ffw6$-Ff[l6#-F`v6$/F\`lFbsFgu*&)FhnFbsFgn-%)binomialG6$FcblFbsFgn >F_o-F]y6$F_oFdwF_oF;F;F;F; M7R0 I>equivalent/alglogeq/purjungenf*6%%"pG%"kG%"lG6*%"fG%"iG%"gG%$polG%"aG%"jG%$re sG%"tG6"F1C*>8$-%'seriesG6%-.%$expG6#,&*&,(9&"""!""F@*$%#_XGFAFAF@-.%#lnG6#,&F@ F@*&8+F@FCF@F@F@F@FJF@FC,&9%F@""#F@>8(-%&arrayG6%;""!,$FLFM;FTFL%'sparseG?(8)FT F@FL%%trueGC$>8&-%#opG6$,&FYFMF@F@F4?(8%FYF@,$FYFMFZ>&FO6$F]oFY-%&coeffG6%FgnFJ F]o>8'F@>8*F@?(F]oF@F@-%$minG6$FL9$FZC$>Ffo-%'expandG6#*&FfoF@,(%$_ALGF@%#_UGF@ F]oF@F@>Fho,&FhoF@*&-%(convertG6$7#-%"$G6$.*&F`oF@)FCFYF@/.FY;-%%iquoG6$,&F]oF@ F@F@FMF]o%"+GF@FfoF@F@@%2FLF]pC$?(F]o,&FLF@F@F@F@-F[p6$F]pFUFZC$>FfoF`p>Fho,&Fh oF@*&-F[q6$7#-F_q6$Faq/Feq;FgqFLF[rF@FfoF@F@@$2F]pFU?(F]o,&F]pF@F@F@F@FUFZC$>Ff o-%%subsG6$/)FfpFbsFTF`p>FhoFfrC$?(F]oFbsF@FLFZC$>FfoFes>FhoFhp?(F]oF`rF@FUFZC$ >FfoFes>FhoFfr-F66%*(-F:6#,$*&FfpF@%#_YGF@FAF@-%&GAMMAG6#,&FfpFAFepFAFAFhoF@Ffp FbsF1F1F1F1 M7R0 I*dev/cleanf*6#%$devG6'%$resG%%res2G%"iG%"jG%#lzG6"F,C&>8$7#""">8(7"?(8&""#F7-% %nopsG6#9$%%trueGC$@%-%%typeG6$-%#opG6$F6F;%%listGC%>8%7#F7?(8'F7F7-F96#FBF<@$0 -FC6$FKFB""!>FH7$-FC6#FH-FC6$;FK,&FKF1F1F1FB@&3/-F9FV""$/-FC6$FinFHFR>FH-FC6$F7 FH/FHFI>FHFR>FHFB@+0FHFRC$>F/7%-FC6#F/FH-FC6$,&F6F1F1F1F;>F3F40F6,&F8F1!""F1>F3 7#Fjo/F3F4>F/7%FhoF1&F;6#F80Fjo%)infinityG>F/7%FhoF1-FC6#F3>F/7%FhoFBFipF/F,F,F ,F, M7R0 I>equivalent/alglogeq/transfertf*6$%$devG%"pG6(%"fG%"xG%$resG%"jG%"kG%#nbG6"F.C '@%3-%%typeG6$-%#opG6$""$9$%(integerG1F5""!>8)""#>F>""">8$-%'seriesG6%*$-%&GAMM AG6#,$8%!""FM/FLF5,(9%FAF>FAFAFA>8&F<@%/-F66$F?FCFFR-%(dev/addG6$FR7$F?-%$seqG6$-F66#7$*,-F6 6$FXFfnFA)FM8(FA-%)binomialG6$,$FinFMF^pFA-F66$,&F^pF?FAFAFCFA-%*factorialG6#F^ pFA,&F^pFAFinFA/F^p;F<,(FPFAF]oFAFinFM?(FXF?F?FYFhn>FR-Fao6$FR7$F?-Feo6$-F66#7$ *,F[pFAF]pFAF_pFA-F66$,&F^pF?FMFAFCFAFfpFAFip/F^p;FA,*FPFAFAFAF]oFAFinFM7%FAFR, &F5FAFAFAF.F.F.F. M7R0 I1equivalent/equivf*6%%$fctG%"pG%"xG6*%%singG%'locfctG%$devG%%ndevG%"kG%$hhsG%% infsG%#tyG6#%)rememberG6"C'>8%9$>8*-%(infsingG6%F69&""!>8$&F96#""">8+&F96#""#@% 30F@7"0&F@FB%)infinityG-%3equivalent/equsingG6(F6F@9%FSF=FEC+Z#@$-%%typeG6$-%'n ormalG6#F6-%(polynomG6$%)anythingGF=-%'RETURNG6#F>-%)userinfoG6%FC.%+equivalent G%7No~singularities~foundG@$-%$hasG6$F6%'RootOfG-%&ERRORG6#%*giving~upG>8&-%(de v/devG6%-%%subsG6$/F=*$%&_XasyG!""F6""$Fip@$5-FX6$F^p%)constantG/-%%nopsG6#F^pF ipF[o>8'F`q@$543-FX6$F^p-%%listG6#%*algebraicG-FX6$<#-%$seqG6$-%#opG6$,&8(FHFCF CF^p/Fir;FC-%%iquoG6$FdqFH-%$setG6#%(integerG-Ffo6$F^p^#FC-Fjo6$%1Not~regular~a t~0GF7>8)-%F^p-%Hequivalent/s addlepoint/HarrisSchoenfeldG6&F6FSF=FO@%/%0_NBSADDLEPOINTSGFC7%%-_saddlepointGF OF^p7%&F[uFBFOF^p/Fjs.%"HGC$>F^p-%>equivalent/saddlepoint/HaymanG6%F6F=FO@%-Ffo 6$F^pF[u@%Fht7%F[uFO-Ffr6$FHF^p7%F]uFOF[vF[v-FX6$-%)frontendG6$%'expandG7#-Fcp6 %/%"QG*$,&FCFCF=FhpFhp/%"LG-%#lnG6#FivF6Fgn-F\o6#7#F>7%F[uFO-%=equivalent/saddl epoint/selleGFeuF3F3F3F3 M7R0 I4equivalent/alglogeqf*6$%$devG%"pG6,%"iG%'resultG%+listjungenG%.listtransfertG %%totrG%"jG%#l2G%"sG%"kG%#l3G6"F2C,@$4-%%typeG6$9$%%listG-%'RETURNG6#""!@$2""#- %$maxG6#-%$seqG6$-%#opG6$"""8$/FL-%'indetsGF8-%&ERRORG6#%=Maybe~in~our~next~ver sion...G@$2-FI6$FKF9FK-F<6#-%5equivalent/H_HS_singG6#F9>8&7#FK>8'Fin@%/FVFK?(FL FAFA-%%nopsGFfn%%trueG@%4-F76$-FI6$FLF9F:@%0FL,&F_oFK!""FK>Fhn7%-FI6#FhnFfo-FI6 $,&FLFKFKFKF9>8%7$F>F`pC%@%Fio>8+FfoC$@%2""$-F`o6#Ffo>Fip7#-FI6$;FK,&F^qFK!"#FK Ffo>Fip7">Fdp7$,$-FI6$F^qFfoF[pF`p@$3-F76$F`p.%*nonnegintG-%'memberG6%F>7#-FF6$ -FI6$,&8)FAFKFKFip/F]s;FK-%%iquoG6$-F`o6#FipFA.F]s>Fip-%'subsopG6%/,$F]sFA%%NUL LG/F\sF\tFip@$0FipFhqC$>8(-%$mapG6%F7Fgr.%*nonposintG@%4-Fer6$%&falseGFbt>Fhn7% F^pFipF`pC)>8*7#FA>8-Fbu>8,F>?(F2FKFKF2-Fer6%F\uFbtFesC&@$2FKF]s>Fau7$-FI6#Fau- FI6$;,&FfuFAFAFK,(FfuFAF]sFAF[pFKFip>Fdu7$-FI6#Fdu-FI6$;,&FfuFAF]sFA,(FfuFAF]sF AFKFKFip>Ffu,&FfuFKF]sFK>Fbt7#-FI6$;,&F]sFKFKFK-F`o6#FbtFbt>Fau7$F_v-FI6$;Fdv,( FfuFAFgwFAFKFKFip@$0FauFbu>Fhn7%F^pFauF`p@$0FduFbu>F[o7%-FI6#F[oFduF`pC&@%2F]qF _o>Fip7#-FI6$;FK,&F_oFKFfqFKF9>FipFhq@%0-FI6$F_oF9%)infinityG>Fdp7$F>Fey>Fdp7$F >Fgy@$Fdr>FipFgs@$F_tC$>FbtFct@%Fit>Fhn7%FKFipF>C)>FauFbu>FduFbu>FfuF>?(F2FKFKF 2FhuC&>FauF^v>FduFgv>FfuF`w>FbtFbw>FauFjw@$F`x>Fhn7%FKFauF>@$Fdx>F[o7%FKFduF>>F dp-%3equivalent/OtransfG6#Fdp@$0FhnFin>Fdp-%(dev/addG6$Fdp-%;equivalent/algloge q/jungenG6$Fhn9%@$0F[oFin>Fdp-F]\l6$Fdp-%>equivalent/alglogeq/transfertG6$F[oFb \lFdpF2F2F2F2 M7R0 I3equivalent/Otransff*6#%%exprG6"F&F&@%09$7$""!%)infinityG@%-%%typeG6$-%#opG6$" ""F)<$F+%'negintG@%0F1F+7%F47%""#F4,&F1!""F4F4,&-F26$F;F)F4F4F47%F4F4F>7%F47%F; F4,$F1F=F>F+F&F&F&F& M7R0 I5equivalent/H_HS_singf*6#%$devG6#%$resG6"F(C$>8$-%'dev/lnG6$9$"""@'33/-%#opG6$ F0F+F02-F66$""$F+""!/-%&evalrG6#-%'SignumG6#-F66$""#F+F0.%"HG1F5F<.%#HSG.%)poin tcolGF(F(F(F( M7R0 I3equivalent/equsingf*6(%$fctG%%SingG%%palgG%%pdevG%"xG%)typesingG63%"iG%$resG% 'devintG%'resintG%"fG%$ordG%)nextsingG%%singG%"pG%%multG%"jG%&mmultG%'remdevG%& foundG%%rootG%#coG%'newresG6"F=C)>8%""!>%0_EnvXasyintegerG%%trueG>8+9%@$-%%type G6$9$-%(ratpolyG6$%)rationalG9(C(>8(-%'normalG6#FL@$-FJ6$FT%(polynomG-%'RETURNG 6#FA>8,&-%(sqrfreeG6$-%&denomG6#FTFQ6#""#>8/<#-%$seqG6$&8.Fbo/F[pFjn@%2"""-%%no psG6#FeoC'>Feo-%$maxG6#-%#opGFbp?(F[pF_pF_pFeoFD>&8-6#F[p%%NULLG?&8$FGFD?&F[pFj nFD@$53-FJ6$Faq-%)specfuncG6$%)anythingG%'RootOfG0-%$gcdG6$&F[p6#F_p-%%subsG6$/ %#_ZGFQ-Fip6$F_pFaqF_p/-%'expandG6#-Fdr6$/FQFaqFarFAC$>&F]q6#Fjo6$FcsFaq[?(FaqF eo!""F_p/&F]q6#FaqF_qF=>FF7#-Fho6$F\q/F[p;-Ffp6$F_p,(FaqF_p9&FhsF_pF_pFaq>FaqFh p@$33/FetF_p-%'memberG6$F_pFF19'FcoC,>F]qFaq>8'7'F_p*$-%*factorialG6#,&F]qF_pFh sF_pFhs,&F]qFhsF_pF_pF_p,&F]qFhsFcoF_p>Fjn-%(factorsG6#-%(convertG6$-%$mapG6$f* 6#F)F=F=F=@$/&FLFboT#&FLFbrF=F=6$F,FaqFjn%"*G>Fjn7#-Fho6$Far/F[p&FjnFbo@%2F_p-F ap6#FjnC$?&FaqFFFD?&F[pFjnFD@$53Ffq0-F_r6$F[pFcrF_p/-F\s6#-Fdr6$F`sF[pFAC%>&81F ^qF_p@%4-%)assignedG6#&82F^q>F`y<#Faq>F`y-%&unionG6$F`yFcyFfs>Fjn-Fdv6%f*6$F)F9 F=F=F=@$-F^y6#&FGFWFLF=F=F=FjnFjx>&Fay6#-FipFhwFF-%4equivalent/alglogeqG6%-%(de v/devG6%-Fdr6$/FQ,&F_pF_p*$%&_XasyGFhsFhsFTFcoFcoF_pF_p@$4-F\u6%FA-Fdr6$/FQF_pF jn.F[pFfn>Fjn7$&FjnF^q-Fip6#-%'subsopG6$/F[pF_qFjn?&F[pFjnFDC%>83*&)FhsF]qF_p-F V6#*(FTF_p)F[pF]qF_p)-%%diffG6$F[pFQF]qFhsF_p>Fe\l*&-%$remG6%-%&numerG6#Fe\lF[p FQF_p-Fc]l6%-F`oFg]lF[pFQFhs?&FaqF`yFD>F@-%(dev/addG6$F@-%(dev/prdG6$-Fa^l6$-Fd r6$F`sFe\lFcu-%(dev/expG6$-Fa^l6$7'F_pF_pFhsFA%)infinityG-%'dev/lnG6$-%(dev/pow G6$FaqFhsFcoF_p-Fgn6#F@>80-Fip6$""%-Fip6#Fiz?(FaqF_pF_p-Fap6#FFFDC(>FT-Fdr6$/FQ *&&FFF[tF_pF^[lF_pFL@%33/9).%&polarG0Fg_lF_q-F^y6#&Fg_l6%FTFco""$>8)-%$minG6$F_ u,$-Fip6$Fcal-FizFbalFhs>Feal-Ffp6$F_uFco>8&-Fiz6%FTFealFeal>Fcu-Ffz6$FablFet@( /Fcu.%"HGC$>Fcu-%>equivalent/saddlepoint/HaymanG6%-%%evalG6#-Fdr6%/%"LGf*FgvF=F =F=-%#lnG6#*$,&F_pF_pFLFhsFhsF=F=F=/%"QGf*FgvF=F=F=F[dlF=F=F=FLFQFf`l@%-%$hasG6 $Fcu%-_saddlepointG@%/%0_NBSADDLEPOINTSGF_p-Fgn6#7%FddlFf`l-Fip6$FcoFcu-Fgn6#7% &FddlFbrFf`lF[el-Fgn6#F[el/Fcu.%#HSGC%>Fcu-%Hequivalent/saddlepoint/HarrisSchoe nfeldG6&-Facl6#-Fdr6%/Ffclf*FgvF=F=F=FhclF=F=F=/F^dlf*FgvF=F=F=F[dlF=F=F=FLFetF QFf`l@$2F_pF^`l-%&ERRORG6#%Ecannot~handle~multiple~saddle~pointsG@%Ffdl-Fgn6#7% FddlFf`lFcu-Fgn6#7%F`elFf`lFcu/Fcu.%)pointcolGC%>Fcu-%=equivalent/saddlepoint/s elleG6%-Facl6#-Fdr6%/Ffclf*FgvF=F=F=FhclF=F=F=/F^dlf*FgvF=F=F=F[dlF=F=F=FLFQFf` l@$Fdfl-Fffl6#%Ocannot~handle~difficult~multiple~saddle~pointsGFjfl@%33/FaqFco/ F^`lFco/&FFFbr-%*conjugateG6#&FFFbo>F@-F^^l6$F@-Fa^l6$Fcu-%.dev/conjugateG6#-Fh ^l6$-Fa^l6$F\_l-F__l6$-Fb_l6$FjhlFhsF_uFet>F@-F^^l6$F@-Fa^l6$Fcu-Fh^l6$-Fa^l6$F \_l-F__l6$-Fb_l6$Ff`lFhsF_uFet@%332F_u,&FetF_pFcoF_p-FJ6$F@%%listG530&F@FbrFD1- %+dev/lengthGFe_lFet3/Fg[mFD1-Ffp6#-Fho6$-Fj[m6#-Fip6$FcoFaq/Faq-F_\l6$/F_pF_qF @Fet@%0F[alF\al-F"6(FLFFFet,&F_uF_pF_pF_pFQF[alZ%C$>8*-%(infsingG6%FLFQ-%$absG6 #Fjhl@%330&Fb]mFbr7"0&F]^mFbrF]_l0&Fb]mFbo.%*essentialGC$>84-F"6'FLF]^m-%"$G6$, (FetF_pFi[mFhsF_pF_pFcoFQFb^m@%0Fg^mFAC$@&3/Fg[mF_p0&F@6#FhsF]_l>F@-F_\l6%/!"#F A/FhsF]_lF@3/Fg[mFA0&&F@6#F[`mFf_mF]_l>F@-F_\l6%/F[`m-F_\l6%/F[`mF_q/FhsF_qFa`m /Fhs6%Fe_mFAF]_lF@-F^^l6$F@Fg^mF@F@F=F@F@F=F=F=F= M7R0 I)QuasiLogf*6"F$6#%)rememberGE\s"""!F(.-9!6#9"F$F$F$F$ M7R0 I-QuasiInversef*6"F$6#%)rememberGE\s"""!""".-9!6#9"F$F$F$F$ M7R0 I>equivalent/saddlepoint/Haymanf*6%%$fctG%$varG%%singG6)%"aG%"bG%"rG%"xG%'tosub sG%$auxG%"nG6"F0C(>8'9%>8$-%'expandG6#*(F3"""-%%diffG6$9$F3F;F?!"">8%*&F3F;-F=6 $F6F3F;@%3-%)assignedG6#%5_EnvSolveSaddlePointG/FK%&falseG>8&7"Z%>FO7#-%&solveG 6$/F68*F3F0>FOFP>8(-%>equivalent/saddlepoint/saddleG6(FO9&F?F4FMFX@%/Fen%%NULLG @%0Fin%)infinityG7$%-_saddlepointG-%+dev/reduceG6$-%(dev/devG6%-%%subsG6$/F3*&F inF;,&F;F;*$%&_XasyGF@F@F;,$**F?F;""##F;Fbp%#PiG#F@FbpFBFepFcpF;F;Fbp7$Fao-Fco6 $-Ffo6%-Fio6$/F3F_pF`pF;F;FbpC$>Fen-%*dev/printG6%-%#opG6$F;FenF_pF_oZ'C$>8)-Fc o6$-Ffo6%*&-Fio6$/F3FenF`pF;-.%$expG6#,$*&F_pF;-%#lnG6#FenF;F@F;FbpFbpFbp@%0&Fi q6#-%%nopsG6#FiqF_o7$""!Fiq7$Fcs-%(dev/prdG6$Fiq7'F;F;FcsF;F;Q;Not~a~convergent ~expansionF0C%-%&printG6#%8,9%@--%%typeG6$9$-%(polynomG6$%)an ythingGF6%%FAILG-F:6$F<%"*GC&>8%""">8&FA?(8'FHFH-%%nopsG6#F<%%trueGC$>8--%#opG6 $FLF<@%-F:6$FSF=>FG*&FGFHFSFHC$>FS-F"6$FSF6@%0FSFA@$0FSFJ@&/FS.%#HSG>FJF`o3/FS. %"HG/FJFA>FJFeoFA@%30FJFA/-%&evalrG6#-%'SignumG6$-%'lcoeffG6$-%'expandG6#FGF6"" !FHFJFA-F:6$F<%"^GC$>FS-FU6$""#F<@'-F:6$FS%'posintG-F"6$-FU6$FHFFA -F"6$-.%$expG6#*&FSFH-%#lnG6#FhqFHF6-F:6$F<.-F`r6#F@C$>8(Fhq@&-%'memberG6$-F"6$ F]sF6<$FeoF`oF`o-F:6$F]sF=C$>8)-%'degreeGFcs@%0-F^p6#-Fap6#-FdpFcsFHFAC%>FJFip? (FLFaqFHFisF[pC$>8$Fis?(F3FHFHF332FHFhtF[p@%0-%%modpG6$FhtFLFip>Fht,&FhtFH!""FH C$>FS-F^p6#-Fap6#-%&coeffG6%F]sF6Fht@)/FSFip>FhtFbu/FSFcu>FJFA/FSFH>FhtFH-%&ERR ORG6#%FJFA>8*Fip>8+7#Fip?( FLFHFHFMFPC$>FSFT@$4FXC$>8.Fhn@'/FjwF`o@%/FJF`o@$/-%,dev/compareG6$-%(dev/devG6 %-%%subsG6$/F6%&_XasyGFSFHFHFawFH>FawFSC$>FJF`o>FawFdx/FjwFeo@&/FJFeo@$F`x>FawF SFgoC$>FJFeo>FawFdx>F_w,&F_wFHFSFH@$F[p@%/-Fbx6$Faw-Fex6%-Fhx6$FjxF_wFHFHFHFJFA FAF3F3F3F3 M7R0 I>equivalent/saddlepoint/saddlef*6(%"lG%%singG%$fctG%$varG%(printitG%"nG6*%"iG% 'tosubsG%"jG%"rG%$ptsG%-alreadytriedG%$resG%$sigG6"F4C&>8'9$@%332""!-%%nopsG6#F 72-%'lengthGF@"$+"4-%$hasG6$F7%'RootOfGC&?(8$"""FMF41FLF>C$>8*-%(dev/devG6%-%%s ubsG6$/9)%&_XasyG-%#opG6$FLF7FMFM@'354-%%typeG6$FQ%%listG/-Ffn6$""$FQF=09%%)inf inityG@%53F[o/-%)zerotestG6$FeoFQ%%trueG/-F\p6$-Ffn6$""#FQFeoF^p@$2FMFL@%/-F\p6 $-Ffn6$FMF7FenF^pC$>F7-%'subsopG6$/FL%%NULLGF7>FL,&FLFM!""FM?(8&FMFM""&F^pC$>8+ -%,dev/compareG6$-FS6%FUFhqFhq-FS6%-FV6$FXF[qFhqFhq@&/F\rFfqC%>F7-F`q6$/FMFcqF7 >FLFeq>FhqFiq/F\rFMC%>F7F_q>FLFeq>FhqFiqC$>F7F_q>FLFeq532FaoF=/-%&evalrG6#-%'Si gnumG6#-%+dev/lcoeffG6#FbpFM333F`o-F]o6$FbpF_o2-Ffn6$FcoFbpF=/-F\t6#-F_t6#-Fbt6 #-Ffn6$FdpFbpFM@$Ffp@%FhpC$>F7F_q>FLFeq?(FhqFMFMFiqF^pC$>F\rF]r@&F_sC%>F7Fjr>FL Feq>FhqFiqFgrC%>F7F_q>FLFeq>FhqFiqC$>F7F_q>FLFeq>8(-%$mapG6&FS-FV6$FXF7FcoFco>8 %7"?(FLFMFMF41FL-F?6#Fjv@%54-F]o6$&Fjv6#FLF_o/&F\x6#-F?6#F\xFfo>Faw7$-Ffn6#FawF \x@'/-Ffn6$FMF\xFM@%53/FeoFfo2FM,&F_xFM&F\x6#FcoFfq3Fdo2FMF_x>FawFdxC$>Fjv-F`q6 $/FL-FS6%FUFiqFiqFjv@'F\y>FawFdx/FewFMC%-%&printG6$%5The~saddle~point~is~GF[q-F bz6#%:Saddle~point's~expansion:G-Fbz6#-%*dev/printG6%&Fjv6#FMFYFiqC%-Fbz6#-%$ca tG6&%%The~GFL%4th~saddle~point~is~GFen-Fbz6#%2Its~expansion~is:G-Fbz6#-F[[l6%F \xFYFiqF_zC%-Fbz6$Fdz&F7F^[lFez-Fbz6#-F[[l6%F][lFYFcoC%F`[lFg[l-Fbz6#-F[[l6%F\x FYFcoC&>Fjv-%@equivalent/saddlepoint/pointcolG6&9&9'FeoFco>FawFbw>8)%&falseG@%0 Fjv%%FAILG?(FLFMFMF4Fdw@'/&F\xF^[lFM@)349(55F^xF]y5Fcy3/F_xFM-F]o6$&F\x6#,&FaxF MFfqFMF_o>FawFdx33F_^l2FcoFax4Fd]lC%>Fd]lF^p>FQ-F^]l6&F`]lFa]lFeoFiq@'53F^y2FM, &&&FQF^[l6#-F?6#F[`lFM&F[`lFbyFfq3Fdo2FMFj_lC%>FawFbw>FjvFQ>FLF=F_zC$FezFb\lC$- Fbz6#-Fc[l6%%5Saddle~point~number~GFL%":GFg\lF_zC$FezFb\lC$Fh`lFg\lF_zC$FezFb\l C$Fh`lFg\l-Fbz6#%FWarning:~saddle~point~value~not~foundG>%0_NBSADDLEPOINTSGFew@ %0FawFbwFawFcqF46#FfalF4F4 M7R0 IHequivalent/saddlepoint/HarrisSchoenfeldf*6&%$fctG%"pG%$varG%%singG69%"BG%&gam maG%#BbG%"uG%%betaG%"iG%"jG%"kG%"lG%$resG%&sommeG%"sG%"qG%"mG%%prodG%"zG%"AG%"n G%#ptG%"TG%&GammaG%"FG%"UG6"FAC/>839&>84-%'normalG6#*&-%%diffG6$9$FD"""FO!""?(8 +FPFP,&9%""#FVFP%%trueGC$>&8$6#FS*(FGFP)FDFSFP-%*factorialGFfnFQ>FG-FM6$FGFD>8& ,$*&FDFP-FM6$&Fen6#FPFDFP#FPFV@%3-%)assignedG6#%5_EnvSolveSaddlePointG/F\p%&fal seG>8'7">F`p7#-%&solveG6$/Fdo,&85FPFPFPFD-%>equivalent/saddlepoint/saddleG6(F`p 9'FOFEF^pFip@%0F]q%)infinityG>86*&F]qFP,&FPFP*$%&_XasyGFQFQFP>FbqFfq>8(F_o?(8*F PFP,&FUFV!"#FPFW>&8%6#F[r,$*&,&&Fen6#,&F[rFPFVFPFP*()FQF[rFPFgrFQFdoFPFPFPFiqFQ FQ>F`r-%'seriesG6%*$,(FPFP8:FP-%$addG6$*&F_rFP)87F[rFP/F[r;FPF\rFQ#FQFVF`sFU>8- FP?(FSFPFP,&FUFPFQFPFWC$>89*&FinFP-%&coeffG6%-F\s6%-Fct6%F`rF`sFSFfs,&FSFVFPFPF fs,$FSFVFP>F[t-%(dev/addG6$F[t-%(dev/devG6%-%%subsG6$/FDFbq*&F`tFP)FiqFSFQFUFU- %(dev/prdG6$-F]u6$F[t-%&dev/OG6#-%(dev/powG6%-F`u6%-Fcu6$FeuFiqFPFP,$FUFQFP-F`u 6%-Fcu6$Feu,$*(FOFP-%%sqrtG6#%#PiGFQFiqFisFfoFUFUFAFAFAFA M7R0 I@equivalent/saddlepoint/pointcolf*6&%"fG%"xG%%singG%"pG6$%$auxG%%aux2G6"F,C%>8 $-%$maxG6$""$9'@%09&%)infinityG>8%-%-dev/implicitG6%-%(dev/devG6%-%%subsG6$/9%* &F7""",&FGFG*$%&_XasyG!""FKFG*(FEFG-%%diffG6$9$FEFGFPFKF/F/7'FGFGFK""!F8F/>F:-F <6%-F?6%-FB6$/FEFJFLF/F/FQF/@%0F:%%FAILG@%/F7F8F:-%$mapG6%%/dev/multbyrealG-F[o 6%%(dev/addG-F[o6&%(dev/powGF:FKF4FK,$F7FKFgnF,F,F,F, M7R0 I=equivalent/saddlepoint/sellef*6%%$fctG%$varG%%singG6&%"uG%"hG%"xG%"nG6"F-C)>8 &9%>8%,&-%#lnG6#9$"""*&,&8'F9F9F9F9-F66#F0F9!""@%3-%)assignedG6#%5_EnvSolveSadd lePointG/FE%&falseG>8$7">FI7#-%&solveG6$/-%%diffG6$F3F0""!F0-%>equivalent/saddl epoint/saddleG6(FI9&F8F1%%trueGF<-%&printG6#%enAssuming~the~saddle~point~method ~is~valid~in~this~context,G-Fen6#%/the~result~is:G@%0FX%)infinityG6$%0_NBSADDLE POINTSG-%+dev/reduceG6$-%(dev/devG6%-%%subsG6$/F0*&FXF9,&F9F9*$%&_XasyGF?F?F9,$ **F8F9""##F9F`p%#PiG#F?F`p-FR6%F3F0F0FcpFapF9F9F`p6$F_o-Fao6$-Fdo6%-Fgo6$/F0F]p ,$*,F8F9)F0F8$-%'signumG6%""!,&9$"""9%!""F2@+/F.F5%">G/F.F7%"F+F+F+F+ M7R0 I+equivalentf*6&'%$fctG%*algebraicG'%"xG%%nameG'%"nGF*'%%optpG%'posintG6$%"pG%$ resG6#%ECopyright~Bruno~Salvy,~INRIA,~FranceG6"C&@%/9#""%>8$9'>F<"""@$/-%#isG6# 2"$+"%&_XasyG%%FAILG-%-additionallyGFD>8%-%1equivalent/equivG6%9$F<9%@%4-%$hasG 6$FL%-_saddlepointG-%*dev/printG6%FL9&F<@)0-%#opG6$""#FL%)infinityG@'/-%%nopsG6 #FL""$-%%evalG6#-%%subsG6%/FQ*$,&F?F?*&-Fin6$F?FLF?Fhn!""F_pF_p/%"OG-Fgo6%/%%_R ESGFL/%#_nGFenf*6#F)F5F5F5-Fap6#*&FPF?)-Fin6$F?FepFgpF_pF5F5F5-FY6%-%/dev/multb yrealG6$-Fin6$FboFL*$)F]pFenF_pFQF8&9&>F>""!@--%%typeG6$9$-%(polynomG6$%)anythingG9%7%7 #%)infinityG.FH-FD6$-%'expandG6#FF-FH6$.%,nonnegativeGFK-FD6$FF-%(ratpolyGFI7%- %1infsing/infsolveG6&-%&denomGFTFK%&falseGF>.%&polarGF]o-FD6$FF<$%"*G%"+GC%>8$7 %FMFO%%trueG?&8%FFFioC$>8(F>?(F7"""F`p"#5FioC$>8)-F"6%F[pFKF^p@%30Fdp7"0&&Fdp6# F`pF^qFNC$>Fgo7$-%-infsing/trieG6(F]q&FgoF^qFFFK&Fdp6#""#&FgoFgq-%&evalbG6#3&Fd p6#F<&FgoF_r@%5/&FeqF^qFN/-%.comparemoduleG6$FdrF\q%">G>F^p-%$absG6#F\q[F^sFgo- FD6$FF%"^GC$>8*-%#opG6$FhqFF@%-FD6$Fds%)constantG@%-FD6$Fds%'posintG-F"6%-Ffs6$ F`pFFFKF>C&>FgoFho>8'F>?(F7F`pF`pF7FioC'>8+-Fin6&FbtFKF]oFgt>Fdp-F"6%FbtFKFgt@% 4-FD6$Fds%'negintGC$@%/FfqF^o>8-.%*algebraicG>FjuFfq>8,F[vC$>F_vF^o>FjuFfq>Fgo7 $-Fcq6(F[uF]qFFFKF_vFjuF]o@%F[q@%Fcr>FgtF[sF^sF^sFgo-F"6%-%$expG6#*&FesF`p-%#ln G6#FbtF`pFKF>-FD6$FF%)functionGC$>8.-%$catG6$%)infsing/G-Ffs6$FAFF@%4-FD6$Fhw%* procedureG-%&ERRORG6$%=Not~implemented:~infsing~of~GF]x-Fhw6%FFFKF>-Fex6$%3Inva lid~expressionGFFF7F7F7F7 M7R0 I&evalrf*6#%%exprG6'%$varG%"rG%"iG%"jG%"uG6#%aoCopyright~(c)~1991~by~the~Univer sity~of~Waterloo.~All~rights~reserved.GE\s#-%'SignumG6#""!F2-%$minG6$"""%)infin ityGF6@%34-%(hastypeG6$9$%&rangeG/-%%nopsG6#-%*intersectG6$-%$mapG6$f*6#%"xG6"F MFM-%#opG6$F2F>FMFMFM-%'indetsG6$F>%)functionG<).%$IntG.F0.%$absG.%$intG.%$maxG .F4.%&shakeGF2F>C'>8%-%*traperrorG6#-%,evalr/evalrG6$F>%%trueG-%'subsopG6$/""%% %NULLG-%%evalG6#Fco@$/F^o%*lasterrorG-%'RETURNG6#%%FAILG@$-%$hasG6$F^oF7>F^o-%2 simplify/infinityG6#F^o@%5-%%typeG6$F^o.%%listG-Faq6$F^o-%)specfuncG6$%)anythin gG.%)INTERVALGC$?(8'F6F6-FBF]qFeoC$?(8(F6F6""#Feo@$4-Faq6$-FO6$7$F_rFcrF^o%)con stantGC$>8$-%*evalr/varG6#Fir?(8&F6F6-FB6#F_sFeo@$/-FO6$7$FdsFdrF_s;,$F7!""F7>F ^o-Fgo6$/F_r-Fgo6$/Fcr-%%subsG6$/-FO6$FdsF_s-FO6$7$FdsF6F_sFir-FO6$F_rF^oF^o@$/ -FO6$7$F_rF6F^o-FO6$7$F_rFdrF^o>F^o-Fgo6$/F_rFcuF^o@%4-F<6$F^oF?-FOF]qF^oF^oFMF MFM6$%*protectedG%(_syslibG M7R0 I,type/RootOff*6#%"xG6"6%%)rememberG%'systemG%aoCopyright~(c)~1990~by~the~Unive rsity~of~Waterloo.~All~rights~reserved.GF&@%/9#"""33-%%typeG6$9$%)functionG/-%# opG6$""!F4.%'RootOfG-F26$7#-F86#F4<&7#%*algebraicG7$FD%&rangeG7$FD%)constantG7$ FD%)equationG%&falseGF&F&F&%(_syslibG M7R0 I'RootOff*6$%"eG%"xG6.%#exG%%inamG%"zG%'freezeG%$rofG%%rofsG%"iG%#lcG%%indsG%$e x1G%$errG%'indexdG6$%)rememberG%aoCopyright~(c)~1992~by~the~University~of~Water loo.~All~rights~reserved.G6"C7@*31""#9#-%%typeG6$9%%%nameG@)30FA%#_ZG0-%*inters ectG6$-%'indetsG6#9$<#FF<"-%&ERRORG6#%Jshould~not~use~_Z~as~independent~variabl eG-%$hasG6$-%'selectG6%F?FKF"FAC%>8,FX@$33/-%%nopsG6#Fgn"""-F?6$FN-%(polynomG6$ %)anythingG&Fgn6#F_o-F?6$-%#opG6$F_oFfo-Fco6$FeoFFC$>8$-%*resultantG6%-%%subsG6 $/Ffo8&FN-Ffp6$/FFFipFjoFip-%'RETURNG6#-F"6$Fap&9"6#;FFhu%&falseG@&33-F?6$FN%"^G/-%'signumG6#FftF_o4F hu-F^q6#-F"6$FdtFbq3-F?6$FN%"*G-F?6$Fdt%(numericG-F^q6#-F"6$-%'subsopG6$/F_oF_o FNFbq>Fap-%*traperrorG6#-%&numerG6#-%'normalGFM@$/Fap%*lasterrorG-F^q6#.-F"6#Fc q>8%-FY6%F?-FL6#FapFB@$3/-F]o6#F[yF_o0-F[p6$F_oF[yFF-F^q6#-F"6%FapFfyFbq@$4-FV6 $FapFFF^u@$0FapFNF]q@$3/%2_EnvRootOfComposeG%%trueGFev?&8(-FL6$Fap-%)specfuncG6 $FeoF"Ffz@$3-F?6$-F[p6$F_oFhzF]p-F?6$Fap-Fco6$FeoFhz-F^q6#-F"6$-Fcp6%-Ffp6$F\qF b[l-Ffp6$/FhzFipFapFipFbq>8)Fiz>8'7#-%$seqG6$/&Fd\l6#8*&FhzF]]l/F^]l;F_o-F]o6#F d\l>Fap-Ffp6$Ff\lFap@$4-FV6$Fe]lFFF^u@$-FV6$-FL6#<#-%)frontendG6$%'coeffsG7$-%( collectGF_zFFFFFex>Fap-Fb^l6%Ffp7$F\qFN7$<$F]w%"+G<#F\q@$/-%'degreeG6$FapFipF_o C$@$Fhu-%0RootOf/chkindexG6$-F[p6$F8--F[x 6#-%&evalaG6#-%'NormalG6#,$*&-%&coeffG6%FapFip""!F_o-F`al6%FapFipF_oFhtFht@%0Fd `lFdxC$@$3/F=F<-F?6$Feu;F`wF`w@%-%#isG6$Fd`l-%*RealRangeG6$-F[p6$F_oFeuFj_l-F^q 6#Fd`l-F^q6#%%NULLGFgbl-FR6#%Ileading~coefficient~should~be~invertibleG-F?6$Fap -Fco6$FeoFipC%>Fd`l-FaxF\al@$Fial@%F_blFgblFiblFgbl@$-F?6$Fap-Fco6$F\uFipC*@$-F V6$Fap.F"C$>Fd`l-F[x6#-Fh`l6#-%)PrimpartGFd_l@&FfalC$>FapFd`l@&2Fb_lF<-F^q6#-F" 6$-Ffp6$/Fip.FFFapFbq4-F?6$-%'lcoeffGFd_l.%)rationalG>Fap-Fh`l6#-%'ExpandG6#*&F apF_oFjelFht-FV6$FjelFadlC%>8+-F[x6#-Fh`l6#-Fbfl6#*$FjelFht@$0FiflFdx>Fap*&FapF _oFiflF_o>Fap-Fh`l6#-FbflF_y@$Fhu-Fh_l6$Fj_lFb_l>Fap*&FapF_o-%)icontentGF_yFht> Fifl-F[x6#-%%signG6#Fjel@$Fbgl>FapFdgl>Fap-Fg^l6%-Ffp6$/FipFFFapFFFax@$54-F?6$F apF`vFhu>F`q-FadlFaqF]q@$F]`lC.>Fd\l-FL6$Fap.%)functionG>Fd\l-%$mapG6$f*6#F&F7F 7F7@$/-F[p6$FbalFNFadlFNF7F7F7Fd\l>Fgn-%&minusG6$-Fhjl6$F[y-FY6%F?-FLFc]lFB<#Ff el@$2FbalFb]lC$>Fd`lFddl@&FfalC%>FapFd`l>Fifl-F[fl6$FjelFgn@&F^elF_el-FV6$FiflF adl>Fap-Fh`l6#-Fbfl6#*&FapF_oFiflFht-FV6$Fh[mFadlC&>FiflFh[m>Fifl-F[x6#-Fh`l6#- Fbfl6#*$FiflFht@$Fbgl>FapFdgl>FapFfgl@$FhuFjgl>Fap-%)primpartGFd_l>Fifl-F[x6#-F dhl6#Fh[m@$Fbgl>FapFdgl@$-F?6$FapF^_l>Fap-Fg^l6%FapFipFax>FapF[il@$F_il>F`qFdil F]q@$F_clC%>Fap-F[x6#Fd]m@$FhuFjgl@$0FapFdxC(>Fap-Fg^lFd_l>8.Fahl@$/Fb_mFht>Fap ,$FapFht>FapF[il@$F_il>F`qFdilF]qFgxF7F7F76$%*protectedG%(_syslibG M7R0 I0RootOf/selectorf*6$%"eG%'indexdG6#%"iG6#%fnCopyright~(c)~1997~Waterloo~Maple~ Inc.~All~rights~reserved.G6"C%>8$%&falseG@&-%%typeG6$9$%)equationG@&/-%#opG6$"" "F4.%&indexGC$@$-F26$-F96$""#F4-%$AndG6$%)constantG-%$NotG6#%(integerG-%&ERRORG 6#%Fa~constant~index~should~be~an~integerG>F.%%trueG0F8.%&labelG-FN6#%inleft-ha nd~side~of~the~selector~must~be~the~name~index~or~labelG45-F26$F4FH-F26$F4%&ran geG-FN6#%fnselector~must~be~a~constant,~a~numeric~range~or~an~equationG@$2F;9#> 9%F.F+F+F+%(_syslibG M7R0 I0RootOf/chkindexf*6$%"eG%"nG6"6#%fnCopyright~(c)~1997~Waterloo~Maple~Inc.~All~ rights~reserved.GF'@$3-%%typeG6$9$%(integerG52F/"""29%F/-%&ERRORG6$%Mindex~shou ld~be~a~positive~integer~less~thanG,&F5F3F3F3F'F'F'%(_syslibG M7R0 I.comparemodulef*6%%&expr1G%&expr2G%/justdiffneededG6&%#s1G%#s2G%$resG%%realG6# %ECopyright~Bruno~Salvy,~INRIA,~FranceG6"C%@$343-%(hastypeG6$9$%'RootOfG-F66$9% F9/-%)zerotestG6$F8F<%%trueG-%'RETURNG6#%"=G@'0F<""!C)>8'FA@$-%%typeG6$F8-%)spe cfuncG6$%)anythingG%$absG-FC6#-9!6$-%#opG6#F8F<@$-FN6$F8$7$F8FHC$>F_p -FeoFfn>FK%&falseG@%-FN6$F8%7$FFjp-FeoF_o>FKFep@%FK>8&-%+comparexprG 6$*$&F_pFho""#*$&FjpFhoFhqC%@$/-Fen6$FHF_p%.evalc/unsplitGC$>F_p-Feo6#-%&evalfG Ffn@$F]r-%&ERRORG6%%2Unable~to~compareG-.FTFfn-F]sF_o@$/-Fen6$FHFjpF`rC$>Fjp-Fe o6#-FfrF_o@$F`sFhr@%3-FN6$F8-%(complexG6#%&floatG-FN6$FFbq-FX6$-FTFfn-FTF_ o>Fbq-Fdq6$-%%sqrtG6#,&*$-Fen6$FioF_pFhqFio*$-Fen6$FhqF_pFhqFio-F\u6#,&*$-Fen6$ FioFjpFhqFio*$-Fen6$FhqFjpFhqFio0-F?FfnFA>Fbq%">G>FbqFE@%/Fbq%#<>G@%529#""$49&- Fir6&F[sFft%$andGFgtFevFbqF/F/F/F/ M7R0 I%gdevf*6$'%$fctG%*algebraicG'%%gvarG<$%%nameG/F+F'6'%#ptG%$ordG%$varG%)rightdi rG%$resG6#%ECopyright~Bruno~Salvy,~INRIA,~FranceG6"C,@%-%%typeG6$&9"6#""#F,C$>8 &-%#opG6$"""F;>8$-FC6$F>F;C$>FAF;>FG""!@$33-%$hasG6$FG%)infinityG0FGFT0FG,$FT!" "-%&ERRORG6$%4Invalid~limit~pointGF;>8'%%trueG@$1""$9#@(-F96$&F<6#F\o%*nonnegin tG>8%Fao/Fao.%(inverseG@$3FUFV>Fhn%&falseG0Fao.%)straightG-FZ6$%1Invalid~argume ntGFao@$/F]o""%@(3-F96$&F<6#FepFco4-%)assignedG6#Feo>FeoFjp/FjpFgo@$FU>FhnF\p0F jpF^p-FZ6$FbpFjp@$F\q>FeoFE@$/-%#isG6#2"$+"%&_XasyG%%FAILG-%-additionallyGF]r>% 0_EnvXasyintegerGF\p@)/FGFTC$>Fer-F\r6$FA%(integerG>8(-%*traperrorG6#-%*dev/pri ntG6%-%(dev/devG6%-%%subsG6$/FAF`r9$FeoFeoFAFeo/FGFWC$>FerFjr>F^s-F`s6#-Fis6$/F A,$FAFX-Fcs6%-Ffs6%-Fis6$/FA,$F`rFXF\tFeoFeoFAFeo0-%)zerotestG6#FGFin@%Fhn>F^s- F`s6#-Fis6$/FA*$,&FEFE*&FAFEFGFXFXFX-Fcs6%-Ffs6%-Fis6$/FA*&FGFE,&FEFE*$F`rFXFXF EF\tFeoFeoFAFeo>F^s-F`s6#-Fis6$/FA*$,&F\vFEFXFEFX-Fcs6%-Ffs6%-Fis6$/FA*&FGFE,&F EFEFfvFEFEF\tFeoFeoFAFeo@%Fhn>F^s-F`s6#-Fis6$/FA*$FAFX-Fcs6%-Ffs6%-Fis6$/FAFfvF \tFeoFeoFAFeo>F^s-F`s6#-Fis6$/FA,$F_xFX-Fcs6%-Ffs6%-Fis6$/FA,$FfvFXF\tFeoFeoFAF eo@'5/F^s%*lasterrorG/F^sFar>-F"6#F<-.F"F]z-F96$F^s%*undefinedGFbzF^sF56#FerF5F 5 M7R0 I.numericRootOff*6$%"pG%$valG6%%"kG%"lG%"jG6#%ECopyright~Bruno~Salvy,~INRIA,~Fr anceG6"@%54-%%typeG6$9$%(polynomG-%(irreducG6#F4-%'RootOfG6$F49%C$>8$7#-%$seqG6 $-%#opG6$"""8%/FH-FE6$""#-%(factorsGF8@%2FG-%%nopsG6#F?C%>FH-%$mapG6$%$absG-FW6 $%&evalcG-FW6$%&evalfG-%%subsG6$/%#_ZGF8$9$/F8""#C$@$33 33-%%typeG6$7$F<9%7$%)functionGFK/-%#opG6$""!F<-FN6$FPFI/-%%nopsG6#FF;,&FF;%(numericG@%2FPF`p-Fin6 #-F"6#-FN6$F9F;Fgo-FF6$F;%"*GC$?&8%F;F[oC$-F"6#F`q@&/%"%GF[oFhn/Ffq%%FAILG-Fin6 #FhqFgo-FF6$F;FK@./-FN6$FPF;%$expGFgo/F_r%#lnG-Fin6#-F"6#,&FipF9F^oF9/F_r%$absG -Fin6#-F"6#-FN6#F;/F_r%"OGFgo/F_r.%)QuasiLogGF[s/F_r.%-QuasiInverseGFgo>8&-%&mi nusG6$-%'indetsG6$F;Feo<#%*constantsG@%0Fjs<"C$>%'DigitsG,&FhtF9""&F9?(8(F9F9"" $F[oC%@'/F\uF9>8'-%*traperrorG6#-%%subsG6$-%$seqG6$/-FN6$F`qFjs-%&evalfG6#)#"%* y""%#\"*$F`qF^o/F`q;F9-FU6#FjsF;/F\uF>>Fbu-Fdu6#-Fgu6$-Fju6$/F]v-F`v6#)#FevFdvF `qFgvF;>Fbu-Fdu6#-Fgu6$-Fju6$/F]v,$F_vF^oFgvF;>Fbu-%-zerotest/cstG6#Fbu@%0FbuFh q-FinFdx\C$>Fbu-FcxF`s@$FfxFgx@$-FF6$F;-%(ratpolyG6#Ffo-Fin6#-%&evalbG6#/-%'nor malGF`sFP>8*-%(convertG6$F;%'RootOfG@$-FF6$F\z%'algnumGC$>Fbu-Fdu6#-%&evalaG6#- %'NormalG6#F\z@&0Fbu%*lasterrorG-Fin6#-Ffy6#/FbuFP-FF6$7#Fbu7$.%'symbolG%$setGC %>Fbu-FN6$F>Fi[l?&F`qFbuF[oC$@$4-%$hasG6$F\z-FN6$F9F`q-%&ERRORG6&%@bug~in~evala @Normal~with~input:GF\z%Ioutput~is~reducible~RootOf~detected~withGFi\l@$/-F"6#- Fgu6$F`qF\zF[oFhnFgo@$-Fg\l6$F;<$FgsFds-Fin6#-F"6#-%%evalG6#-Fgu6$7$/Fdsf*6#%"t GF4F4F4-%$logG6#*$,&F9F9FFbu-%'testeq GF`s@$FfxFgx@&3/FjsFet4-Fg\l6$F;^#F9C$-%)userinfoG6&F]u.%+equivalentG%9Warning: ~assumption~madeGF`oFhn-Fg\lF_zC$>Fjs-F_tF_z@$/FivF9-Fin6#-F"6$-Fgu6$/-FNFjv8)- %&numerGF`s-Fgu6$/%#_ZGF_al-FN6$F9F^alFiqF4F4F4F4 M7R0 I-zerotest/cstf*6#%%exprG6#%)floatvalG6"F(C%>%'DigitsG,&F+"""""&F->8$-%*traperr orG6#-%2zerotest/dagevalfG6#9$@%-%%typeG6$F0-%(complexG6#%(numericGC$>F+,&F+F-! "&F--%&evalbG6#2-%$absG6#F0-%&FloatG6$F-,$F+!""%%FAILGF(F(F(F( M7R0 I2zerotest/dagevalff*6#%"fG6$%"iG%$fctG6#%)rememberG6"@+5-%%typeG6$9$<$%%nameG% (numericG-F/6$F1-%(complexG6#F2-%&evalfG6#F1-F/6$F1<$%"*G%"+G-%$mapG6$F"F1-F/6$ F1%"^G-F;6#)-F"6#-%#opG6$"""F1-FN6$""#F1-F/6$F1%)functionGC$>8%-FN6$""!F1@'/FY% 'RootOfGF:/-%%nopsGF8 $F6>F=%'DigitsG@'/-%&minusG6$-%'indetsG6$9$%%nameG-FC6$<#%*constantsG<#^#"""<"- %,evalr/shakeG6$FHF=-F4FG-.%)INTERVALG6#;,$%)infinityG!""FfnC%>8%-%,evalr/evalr G6$-%$mapG6%F"FHF=%&falseG-%'subsopG6$/""%%%NULLG-%#opG6#F\oFjnF+F+F+6$%*protec tedG%(_syslibG M7R0 I'glimitf*6$'%$fctG%*algebraicG'%%gvarG<$%%nameG/F+F'6)%#ptG%$varG%)rightdirG%$ resG%"iG%$sgnG%%coefG6#%ECopyright~Bruno~Salvy,~INRIA,~FranceG6"C+@%-%%typeG6$& 9"6#""#F,C$>8%-%#opG6$"""F=>8$-FE6$F@F=C$>FCF=>FI""!@$33-%$hasG6$FI%)infinityG0 FIFV0FI,$FV!""-%&ERRORG6$%4Invalid~limit~pointGF=>8&%%trueG@$1""$9#@&/&F>6#F^o. %(inverseG@$3FWFX>Fjn%&falseG0Fbo.%)straightG-Ffn6$%1Invalid~argumentGFbo@$/-%# isG6#2"$+"%&_XasyG%%FAILG-%-additionallyGFdp>%0_EnvXasyintegerGFio@)/FIFVC$>F\q -Fcp6$FC%(integerG>8'-%*traperrorG6#-%(dev/devG6%-%%subsG6$/FCFgp9$FGFG/FIFYC$> F\qFaq>Feq-Fgq6#-Fjq6%-F]r6$/FC,$FgpFZF`rFGFG0-%)zerotestG6#FIF[o@%Fjn>Feq-Fgq6 #-Fjq6%-F]r6$/FC*&FIFG,&FGFG*$FgpFZFZFGF`rFGFG>Feq-Fgq6#-Fjq6%-F]r6$/FC*&FIFG,& FGFGF\tFGFGF`rFGFG@%Fjn>Feq-Fgq6#-Fjq6%-F]r6$/FCF\tF`rFGFG>Feq-Fgq6#-Fjq6%-F]r6 $/FC,$F\tFZF`rFGFG@&5/Feq%*lasterrorG/FeqFhpC$>-F"6#F>-.F"Fav-%'RETURNG6#%"%G-F ;6$Feq%*undefinedG-Fev6#Fjv?(F7FGFGF7F[o@)-F;6$Feq%%listGC$>8)-%&evalrG6#-%'Sig numG6#&FeqFco@)/FdwFG-Fev6#FO/FdwFZC&>8*-%+dev/lcoeffG6#Feq?&8(-%'indetsG6$Fcx% )functionGF[o@$5/-FE6$FOFhx%$sinG/F`y%$cosG>Fcx-F]r6$/Fhx-.%)INTERVALG6#;FZFGFc x>Fdw-Ffw6#-Fiw6#Fcx@'F]x-Fev6#FVF`x-Fev6#FYC$>F`vFbv-Fev6#Fbv/FdwFO@%-F;6$-FE6 $F@FeqFaw>Feq7%-FE6#F`[lFOFV>FeqF`[lC$>F`vFbvFjz4-FT6$Feq%)_XasytabG-FevFfx45-F T6$FeqFby-FT6$FeqFdyF]\lC$?&Fhx-Fjx6$Feq<$-Fdy6#%)anythingG-FbyFj\lF[o>Feq-F]r6 $FhyFeq-Fev6#-FfwFfxF7F7F7F7 M7R0 I+dev/dividef*6%%%dev1G%%dev2G%"pG6#%$resG6#%RCopyright~Bruno~Salvy,~INRIA~Rocq uencourt,~FranceG6"C%>%0_EnvXasyintegerG%%trueG@%4-%$hasG6$9$%-_saddlepointG>8$ -%(dev/prdG6$F6-%(dev/powG6%9%!""9&>F97%F7&F66#""#-F;6$&F66#""$-F>6%&F@FKFAFB-% 'RETURNG6#F9F,F,F,F, M7R0 I+dev/reducef*6$%$devG%"nG6&%"iG%%restG%'resultG%"lG6#%RCopyright~Bruno~Salvy,~ INRIA~Rocquencourt,~FranceG6"@)4-%%typeG6$9$%%listGF44-%(hastypeG6$<#-%#opG6#F4 F57#-F<6$;"""-%$minG6$,&9%""#""$FB-%%nopsGF=F41-%+dev/lengthGF=,&FGFBFBFBF4C%>8 %FO?(8$FHFHFJ0FR""!@%4-F26$&F46#FTF5C$>&8&Ffn6$Fen&F46#,&FTFBFBFB>FR,&FRFB!""FB C$>8'-FN6#Fen@%1FdoFRC$>FinF[o>FR,&FRFBFdoFaoC$>Fin6$-F"6$FenF`oF\o>FRFV@'35/FT FH3/FT""%/FRFV/&&Fjn6#FHF^qFV&F]q6#FBFjp7$&F4F`q-%$seqG6$&Fjn6#,$FTFH/FT;FB,&-% %iquoG6$FTFHFBFaoFB7$Fbq-Fdq6$Ffq/FT;FBF\rF.F.F.F. M7R0 I'dev/lnf*6$%"uG%"nG6)%$degG%%exprG%#nuG%&rootsG%%initG%'newvarG%"xG6$%)remembe rG%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"@'-%%typeG6$9$%*undefin edGF84-F56$F7%%listG@)-%)zerotestG6#F7-%&ERRORG6#%&ln(0)G-F?6#,&F7"""!""FH""!3% 0_EnvXasyintegerG/-%$mapG6$%#opG-%'indetsG6$F7&%)_XasytabG6#%)anythingG<#FHC&>8 %-%'expandG6#-%%subsG6$/&FV6#FH*$8*FIF7>%1_EnvAllSolutionsG%%trueG>8'<#-%&solve G6$FfnFao@%3-F56$Ffo-%$setG6#%%nameG-%#isG6$-FQ6#Ffo%(integerGFA-%#lnGF@FipC$>8 &-%%nopsGF@@'3/F]q""&/&F76#Fcq%)infinityGC%>8$&F76#""$@%-F56$&F76#""#F<>8(-F"6$ 7%-FQ6#FarFJFgq9%>Fer-F"Fjr@%/FjqFJFer@%-F56$&F7F_oFhp@%-%)assignedG6#&%(_equiv XG6#,&FcsFHFHFH-%(dev/addG6$Fer7'F[t,$FjqFIFIFJFgqC$>Fhs*$-Fjp6#*$&Fis6#FcsFIFI F\tC$>8)-%-dev/indexifyG6#-Fjp6#&FVFht-F]t6$Fer-%'subsopG6$/Fcr-%/dev/multbyrea lG6$&F[uFbrFjqF[u/F]qF]rC$>Fer-F"6$7'FcsFarF[rFJFgqF[s@%3-F56$FerF-F06##"&8$*$,&FDFDF;FEFE-FK6$-F"6$-FK6$FMFVFSFV-FH6%-%(dev/addG6$-FK 6$F1FEFDFEFSC$>8%-%&evalrG6#-%'SignumG6#F0@'/FboFEFin/Fbo%%FAILG-%&ERRORG6#F\p- %-dev/endofdevG6%F1,&FSFDFDFD-%$mapG6$%#opG7#-%$seqG6$7$FD8&/F]q;F4FcpF-F-F-F- M7R0 I(dev/prdf*6$%"UG%"VG64%$degG%"iG%"jG%"uG%"vG%*candidateG%%deg1G%'exactuG%'exac tvG%'inter1G%#nuG%#nvG%'resultG%"lG%&countG%(tomult1G%(tomult2G%$sigG6$%)rememb erG%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"@)5-%%typeG6$9$%*undef inedG-FA6$9%FDFD4-FA6$FC%%listG@%4-FA6$FGFK*&FC"""FGFQ-%/dev/multbyrealG6$FGFCF M-FS6$FCFGC+@'/-%#opG6$FQFC-Fen6$FQFGC$>8'FC>8(FG2FZFgnC$>F[oFC@%/&FG6#-%%nopsG 6#FG%)infinityG>F]o7'FZ7#-Fen6$;FQ,&FeoFQ!"#FQFG""!FapFho>F]o7%FZFGFapC$>F]oFG@ %/&FC6#-Ffo6#FCFho>F[o7'Fgn7#-Fen6$;FQ,&FjpFQF`pFQFCFapFapFho>F[o7%FgnFCFap>8.- Ffo6#F[o>8/-Ffo6#F]o>8+-%&evalbG6#/&F[o6#FfqFho>8,-F`r6#/&F]o6#FjqFho>8$7#7%,&& F[o6#""$FQ&F]oFbsFQ""#Fes>&806#FQ&F[oFis?(82FesFQF=%%trueGC(>8*&F]sFis>8-Fap?(8 %FesFes-Ffo6#F`tF]tC%@%5/&F`t6#Fet,&FfqFQ!""FQ4-FA6$&F[o6#F\uFK>83Fcu>Ffu7%-Fen 6#FcuFapFho@%5/&F`t6#,&FetFQFQFQ,&FjqFQF_uFQ4-FA6$&F]o6#F^vFK>84Fev>Fhv7%-Fen6# FevFapFho>Fct-%(dev/addG6$Fct-F"6$FfuFhv@$3-FA6$FctFK/&Fct6#-Ffo6#FctFho>Fct7#- Fen6$;FQ,&FjwFQF`pFQFct@%0FctFap>&Fhs6#F\t6$Fct&F`tFis>Fex%%NULLG@%534F^r-%'mem berG6$F^u7#-%$seqG6$&F`t6#,$FetFes/Fet;FQ-%%iquoG6$FftFes34Ffr-F`y6$Fav7#-Fdy6$ &F`t6#,&FetFesFQFQFiyC$@$/FctFap>Fex6$FQFhx[C&>F]s-%'subsopG6$/FQFjxF]s?(FetFes FesFftF]t@$30F\uF^u0&F[o6#,&F\uFQFcsFQFhoC&>8),&Fi[lFQ&F]o6#,&F^vFQFQFQFQ>85FQ? (8&FQFQ-Ffo6#F]s/Fd\lFQC$>Fd\l-%&evalrG6#-%'SignumG6#,&F^\lFQ&&F]s6#Ff\lFisF_u@ (/Fd\lF_u>F]s7%-Fen6$;FQ,&Ff\lFQF_uFQF]s7%F^\l,&F\uFQFesFQF^v-Fen6$;Ff\lFg\lF]s /Fd\lFap@$4-F`y6$7$F_^lF^v7#-Fdy6$7$&Fd]l6#,$81Fes&Fd]l6#,&F`_lFesFQFQ/F`_l;FQ- F\z6$-Ffo6#Fd]lFes>F]s-Fa[l6$/Ff\l7%-FenFi_lF_^lF^vF]s/Fd\l%%FAILG-%&ERRORG6#Fa `l@$Fi\l>F]s7$-FenFh\lF^^l?(FetFesFesFftF]t@$30F^vFav0&F]o6#,&F^vFQFcsFQFhoC&>F ^\l,&&F[o6#,&F\uFQFQFQFQF^alFQ>Fd\lFQ?(Ff\lFQFQFg\lFi\lC$>Fd\lF\]l@(Fg]l>F]s7%F j]l7%F^\lF\u,&F^vFQFesFQF`^lFc^l@$4-F`y6$7$F\uF_blFi^l>F]s-Fa[l6$/Ff\l7%F_`lF\u F_blF]sF``lFb`l@$Fi\l>F]s7$Fh`lF^bl@$/Fg\lFapF][l@'3/&&Fhs6#FesFdclFap52F\tFcs3 /F\tFcs/&&FhsFbsFdclFho@%Ffcl&FcclFis7%-Fen6#F]dlFapFhoF^cl7%-Fdy6$&FhsF]u/Fet; FQF\tFapFho7#FbdlF=F=F=F= M7R0 I,dev/instancf*6#%%exprG6&%"iG%$resG%$limG%$varG6#%RCopyright~Bruno~Salvy,~INRI A~Rocquencourt,~FranceG6"@%4-%%typeG6$9$%%listG>8%F3C&@%0&F36#-%%nopsG6#F3%)inf inityG>8&F<>FA,&F<"""!"#FD>F6""!>8'&%)_XasytabG6#&F36#FD?(8$""#FQFA%%trueG@%-F1 6$&F36#FPF4>F6,&F6FD*&-F"6#FVFD)FI&F36#,&FPFDFDFDFDFD>F6,&F6FD*&FVFDFgnFDFDF-F- F-F- M7R0 I(dev/absf*6$%$devG%"nG6$%'impartG%$sigG6#%RCopyright~Bruno~Salvy,~INRIA~Rocque ncourt,~FranceG6"@'-%%typeG6$9$%*undefinedGF24-F/6$F1%%listG-%&evalcG6#-%$absG6 #F1C$>8$-%+dev/impartGF<@%4-%$hasG6$F?^#"""C$>8%-%&evalrG6#-%'SignumG6#-%+dev/l coeffGF<@)/FKFHF1/FK!""-%/dev/multbyrealG6$F1FW/FK""!7#Ffn%%FAILG-%(dev/powG6$- %(dev/addG6$-Fjn6%-%-dev/realpartGF<""#9%-Fjn6%-%%subsG6$/FGFHF?FcoFdo#FHFcoF,F ,F,F, M7R0 I-dev/QuasiLogf*6$%"uG%"nG6%%"iG%%initG%$sigG6#%RCopyright~Bruno~Salvy,~INRIA~R ocquencourt,~FranceG6"@%/&9$6#""$""!@'34-%%typeG6$&F16#""#%%listG0-%)zerotestG6 #,&F;"""!""FD%&falseG-%/dev/multbyrealG6$-%'dev/lnG6$-FH6$-%'subsopG6%/F=%%NULL G/F3FSF1FE9%FEF7C$>8%*$,&FDFDF;FEFE-%(dev/addG6$-%#lnG6#FX-F"6$-FH6$FOFXFU-FH6$ -FK6$-Ffn6$-FH6$F1FEFDFUFEC$>8&-%&evalrG6#-%'SignumG6#F0@'/FioFEF_o/Fio%%FAILG- %&ERRORG6#Fcp-%-dev/endofdevG6%F1,&FUFDFDFD-%$mapG6$%#opG7#-%$seqG6$7$*$8$FEFeq /Feq;FD,&FUFDF=FDF-F-F-F- M7R0 I)dev/signf*6#%$devG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceGF&@ %4-%%typeG6$9$%%listG-%&evalrG6#-%'SignumG6#F.&F"6#&F.6#""#F&F&F&F& M7R0 I(dev/powf*6%%"uG%"pG%"nG6-%%exprG%"iG%"xG%%res1G%$resG%$indG%&interG%'binpowG% "qG%%lvarG%&rootsG6$%)rememberG%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~Fra nceG6"@+-%%typeG6$9$%*undefinedGF=4-F:6$F<%%listG@)33-F:6$F<%'algnumG-%$hasG6$F <%'RootOfG-F:6$9%%(integerG-%&evalaG6#-%'NormalG6#)F8)-%&minusG6$-%'indetsG6$F<%%nameG<#%*constantsG>8--F_o6$ F]o-Fbo6$F<&%)_XasytabG6#%)anythingG@$/-%%nopsG6#FhoFgn>8'-%&evalcG6#-%$absG6#F Fgp-%%subsG6$/F_q -.%)INTERVALG6#;!"""""Fgp>Fgp-%*traperrorG6#-%&evalrG6#Fgp@)330Fgp%*lasterrorG- F:6$FgpFA/-F\s6#-%'SignumG6#-%#opG6$Ffr-F\tF]sFfrFV3/%0_EnvXasyintegerGFjq/-F_o 6$-Fbo6$F]oFdoFeo<#&F^p6#FfrC&>8$-F]r6$/Fht*$8&FerF<>%1_EnvAllSolutionsGFjq>8.7 #-%&solveG6$F\uFau@%3-F:6$Feu-%$setG6#Fdo-Fin6$-F\t6#FeuFOF=FV/FgpFbs-%&ERRORGF ]sFV5/-FdpF]q""$/&F<6#""&%)infinityG@'-F:6$&F<6#""#FAC$>8*-F"6%7%-F\t6#FdwFgnF` wFN9&@'0&Fiw6#-Fdp6#FiwF`w7%&F8,FN>8(Ffr>8+FF_z-% (dev/prdG6$F_zFaz>Faz-%+dev/reduceG6$-F\[l6$FazFazF_x>F]z-%%iquoGFizF[[l/FNFgnF fr-F"6%-F"6%F<,$FNFerF_xFerF_x-F\[l6%-F"6%7'FgxFdwFixFgnF`wFNF_x-%1dev/pow/endo fdevG6%-F\[l6%-F"6%Fa\lFerF_x7$Fgx-F\t6$;""%FjvF8%,$*&9%F 7,&F=F7!""F7F7#F7""#?(8&""$F79&%%trueGC$>F:*(F:F7,(F=F7FCF?F7F7F7FCF?>&8$6#FC6$ F:FC-%-dev/endofdevG6%F3FE7)F7F6F=F7F;FA-%$seqG6$FL/FC;FDFEF.F.F.F. M7R0 I/dev/multbyrealf*6$%%treeG%"rG6$%"iG%$resG6#%RCopyright~Bruno~Salvy,~INRIA~Roc quencourt,~FranceG6"@)/9%""!F0-%%typeG6$9$%*undefinedGF54-F26$F4%%listG*&F/"""F 4F;C$?(8$""#F?-%%nopsG6#F4%%trueG>&8%6#F>6$-F"6$&F4FGF/&F46#,&F>F;F;F;7$&F46#F; -%$seqG6$&FF6#,$F>F?/F>;F;-%%iquoG6$F@F?F,F,F,F, M7R0 I+dev/lengthf*6#%$devG6#%"iG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~Fran ceG6"@%4-%%typeG6$9$%%listG"""-%$addG6$-F"6#&F06#,$8$""#/F;;F2-%%iquoG6$-%%nops G6#F0F8$-F[o6$-%(dev/powG6%F4*$FgnFQF^oF^o7$FG-F?6$-FB6#7$-FB6$,$ FEFFFgo*&-FB6$FDFgoFGFgnFQ/FE;FG-FL6#-FO6$FgoFFF,F,F,F, M7R0 I0dev/invert/doitf*6$%$devG%"nG6+%"xG%"oG%#ndG%"iG%"kG%"pG%$ppvG%#pvG%"vG6#%RCo pyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C+>8&-%%nopsG6#9$@%0&F:6#F6%) infinityG>8%-%$minG6$9%F=>FAFE@$3/F=F?/F6""&-%'RETURNG6#7'"""*$-%#opG6$""#F:!"" FP""!F?>8,*&8$FPFRFV>8)-%(convertG6$7#-%$seqG6$*&-FS6$,$8'FUF:FP)Fen-FS6$,&FcoF UFPFPF:FP/Fco;FP,&-%%iquoG6$F6FUFPFVFP%"+G>8(FP?(F3FPFPF31,&F`pFUFPFPFAC&>8+-%6 dev/invert/powcomposeG6&FgnFYFenFcp>8*-%:dev/invert/pprimeknowingpG6&FfpFYFenFc p>FY,&FYFP-%5dev/invert/powdivideG6&,&FfpFPFenFVF[qFenFcpFV>F`pFcp@$2F`pFAC%>Ff p-Fhp6&FgnFYFenFA>F[q-F]q6&FfpFYFenFA>FY,&FYFP-Fbq6&FdqF[qFenFAFV-%,dev/cleanup G6#7&-FS6$FPF:-F]o6$-FS6#7$-%&coeffG6%FYFenF`pF`p/F`p;FW,&FAFPFVFPFPFAF3F3F3F3 M7R0 I6dev/invert/powcomposef*6&%"QG%"PG%"xG%"nG6+%"mG%#pmG%#prG%$pr1G%"lG%"iG%"sG%" pG%"qG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C,>8+-%7dev/inver t/powtruncateG6%9%9&9'>8,-F:6%9$F=F>>8$-%&isqrtG6#-%&truncG6#*($"*4G>K$!")"""F> FP-%'lengthG6#F>!"">8%-F:6%F8F=FE>8&FP>8',&F8FPFVFT>8(-%>&8*6#""!Fin?(8)FPFP,&-%%iquoG6$F>FEFPFPFP%%trueGC%>Fin-%:dev/i nvert/pprimeknowingpG6&FinFVF=,&F>FPFcoFT>FZ-F:6%-%'expandG6#*&FZFPFfnFPF=F>>&F _o6#Fco*&-F:6%-Fcp6#*&FinFPFZFPF=F>FP-%*factorialGFhpFT-%'RETURNG6#-%(convertG6 $7#-%$seqG6$Fgp/Fco;FaoFdo%"+GF5F5F5F5 M7R0 I8%-%'degreeG6$9$9&>8$"""?(F0F;F ;F02F:F3>F:,$F:""#>F:,$F:#F;F@>&8&6#F;-%7dev/invert/powtruncateG6%9%F89'>8'F@?( F0F;F;F01FNF:C$>&FF6#FN-FI6%-%'expandG6#*$&FF6#,$FNFCF@F8FL>FN,$FNF@-%@dev/inve rt/powcomposesimpledoitG6'F7F:FFF8FLF0F0F0F0 M7R0 I5dev/invert/powdividef*6&%"pG%"qG%"xG%"nG6&%"uG%#bkG%"iG%"jG6#%RCopyright~Brun o~Salvy,~INRIA~Rocquencourt,~FranceG6"C'@$/-%%subsG6$/9&""!9%F9-%&ERRORG6#%0not ~implementedG>8%7#-%$seqG6$-%&coeffG6%F:F88&/FH;F99'>&8$6#F9*&-FF6%9$F8F9"""&F@ 6#FT!""?(FHFTFTFK%%trueG>&FN6#FH*&,&-FF6%FSF8FHFT-%(convertG6$7#-FC6$*&&FN6#8'F T&F@6#,(FHFTFdoFWFTFTFT/Fdo;F9,&FHFTFWFT%"+GFWFTFUFW-F\o6$7#-FC6$*&FenFT)F8FHFT FIF[pF0F0F0F0 M7R0 I6dev/invert/powinversef*6%%"qG%"xG%"nG6&%"uG%#bkG%"iG%"jG6#%RCopyright~Bruno~S alvy,~INRIA~Rocquencourt,~FranceG6"C'@$/-%%subsG6$/9%""!9$F8-%&ERRORG6#%0not~im plementedG>8%7#-%$seqG6$-%&coeffG6%F9F78&/FG;F89&>&8$6#F8*$&F?6#"""!""?(FGFRFRF J%%trueG>&FM6#FG,$*&-%(convertG6$7#-FB6$*&&FM6#8'FR&F?6#,(FGFRF^oFSFRFRFR/F^o;F 8,&FGFRFSFR%"+GFRFLFRFS-Ffn6$7#-FB6$*&F\oFR)F7F^oFR/F^oFIFeoF/F/F/F/ M7R0 I@dev/invert/powcomposesimpledoitf*6'%"qG%"sG%#pkG%"xG%"nG6$%#q1G%#q2G6#%RCopyr ight~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$/9%#"""""#-%'RETURNG6#-%%sub sG6$/9'&9&6#F59$>8$-%7dev/invert/powtruncateG6%FBF>,&F3F5!""F5>8%-%'normalG6#*& ,&FBF5FDFIF5)F>F3FI-FF6%,&-F"6'FD,$F3F4F@F>9(F5-%'expandG6#*&&F@6#F3F5-F"6'FKFW F@F>,&FXF5F3FIF5F5F>FXF/F/F/F/ M7R0 I7dev/invert/powtruncatef*6%%$polG%"xG%"nG6#%"iG6#%RCopyright~Bruno~Salvy,~INRI A~Rocquencourt,~FranceG6"C%@$1-%'degreeG6$9$9%9&-%'RETURNG6#F3@$2F5-%(ldegreeGF 2-F76#""!-%(convertG6$7#-%$seqG6$*&-%&coeffG6%F3F48$""")F4FKFL/FK;F?F5%"+GF,F,F ,F, M7R0 I:dev/invert/pprimeknowingpf*6&%%poffG%"fG%"xG%"nG6"6#%RCopyright~Bruno~Salvy,~ INRIA~Rocquencourt,~FranceGF)-%5dev/invert/powdivideG6&-%%diffG6$9$9&-F06$9%F3F 39'F)F)F)F) M7R0 I+dev/impartf*6#%%exprG6&%"iG%'resultG%"nG%$auxG6#%RCopyright~Bruno~Salvy,~INRI A~Rocquencourt,~FranceG6"@%4-%%typeG6$9$%%listG@%-F16$F3%)realconsG""!*&^#"""F< -%&evalcG6#-%#ImG6#F3F8&-%%nopsGFB?(8$""#FJ,&FEF8'-F"6#7%-%#opG6#FRF9%)infinityG@$3-F16$FVF4/&FV6#-FG6#FVFgn>FV-%'subsop G6%/F_o%%NULLG/,&F_oFFV-F"Ffn@%0FVF9>&8%FS6$FV&F36#,&FIFF_pFf o>F`p-%$seqG6$&F`p6#,$FIFJ/FI;F<-%%iquoG6$FKFJ@'/&F36#FEFgn@'/F`pFfoF93/-FG6#7# F`pFJ/&F`p6#FJF9&F`p6#F<7&&F3FarF`pF9Fgn-F16$&F36#,&FEF8&-%%nopsGF>@$30&F66#FA%)infinityG0-%&evalrG6#-%'Sign umG6#FG"""-%&ERRORG6#%;Not~a~convergent~expansionG>8'FQ?(8$""$""#FA/-FL6#-FO6#& F66#FY!""@'3/F[oF]o4-F46$&F66#,&FYFQF]oFQF;C$@$4-%)assignedG6#&%(_equivXG6#,&&F 66#FQFQF]oFQ>F]p*$-F=6#*$&F^p6#FapF]oF]o>FW-%(dev/prdG6$FW7'F`p-F=6#*&-%,dev/in stancG6#-%+dev/impartG6#FdoFQ&%)_XasytabGFipF]o,$-%-dev/realpartGFgqF]o""!FIFao >FW-F\q6$FW-%/dev/multbyrealG6$-%(dev/powG6%-%-dev/indexifyG6#-.F=6#7%FapFQF[oF [r9%-F=6#-Fcq6#7'FapFeqF[oF]rFI?(8(FZFen-FCFgq%%trueG>FW-F\q6$FW-Fbr6$-Fhr6#-F[ s6#-F\r6#7'Fap7$-%#opG6$FQFdo-Fft6$;,&FesFQF]oFQFesFdoF[oF]rFI-F=6#-Fcq6#-FfqFb t@$/-Fft6$FYF6F]rC$@%4-F46$-Fft6$FfoF6F;>FW-Fbr6$FW-F"6$FjuF^s>FW-F\q6$FW-F"6$7 %-Fft6#FjuF]rFIF^s>FY,&FYFQFenFQ@'2FYFAC&>8%#FQ""'>8)7*FQF]rFQFQ#FQFenFenF`wFZ? (Fes""%FQF^sFgsC$>F_w*&F_wFQFesF]o>Fcw7%-Fft6#FcwF_wFes-F\q6$FW-%-dev/endofdevG 6%7$Fap-Fft6$;FfoFAF6F^sFcw/FGFIFW-F\q6$FW7'FapFQF]rFQFGF16#F^pF1F1 M7R0 I-dev/evenpartf*6#%$devG6%%"aG%"nG%"iG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquenc ourt,~FranceG6"@'4-%%typeG6$9$%%listGF20-%#opG6$"""F2F8-%&ERRORG6#%=a~Puiseux~s eries~is~expectedGC%>8%,&-%%iquoG6$-%%nopsG6#F2""#F8!""F8?(8&F8F8F?%%trueG@%-F0 6$-F66$,&FJFGF8F8F2%%evenG>&8$6#FJ6$-F66$,$FJFGF2FO>FT%%NULLG7&F5-%$seqG6$FT/FJ ;F8F?-F66$,&F?FGFGF8F2-F66$,&F?FG""$F8F2F,F,F,F, M7R0 I.dev/conjugatef*6#%%exprG6&%"iG%'resultG%"nG%$auxG6#%RCopyright~Bruno~Salvy,~I NRIA~Rocquencourt,~FranceG6"@%4-%%typeG6$9$%%listG-%*conjugateG6#F3C&>8&-%%nops GF7?(8$""#F?,&F:"""!"$FA%%trueGC$@%-F16$&F36#F>F4C$>8'-F"6#7%-%#opG6#FH""!%)inf inityG@$3-F16$FLF4/&FL6#-F<6#FLFT>FL-%'subsopG6%/Ffn%%NULLG/,&FfnFA!""FAF]oFL>F L-F"FR@%0FLFS>&8%FI6$FL&F36#,&F>FAFAFA>FfoF]o>Fgo-%$seqG6$&Fgo6#,$F>F?/F>;FA-%% iquoG6$F@F?@'/&F36#F:FT@'/FgoF]oFS3/-F<6#7#FgoF?/&Fgo6#F?FS&Fgo6#FA7&&F3FhqFgoF SFT-F16$&F36#,&F:FAF`oFAF47&FjqFgo-F"6#F]rF[q7&FjqFgoFAF[qF-F-F-F- M7R0 I,dev/cleanupf*6#%$devG6%%"iG%"aG%"bG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquenco urt,~FranceG6"@%4-%%typeG6$9$%%listG@%/-%)zerotestG6#F2%%trueG""!F2C&>8%-%$mapG 6$9!7#-%$seqG6$&F26#,&8$""#FJ"""/FI;F:,&-%%iquoG6$-%%nopsGF8FJFK!""FK?(FIFKFK-F S6#F=F9@'/-%#opG6$FIF=F:>&8&6#FI%%NULLG-F06$FZ7%%)anythingGF_oF:>Fhn6$&FZ6#FJ&F 26#,&FIFJFKFK>Fhn6$FZFdo>Fin-FD6$Fhn/FI;FKFV@%/FinF[oF:7$-Fen6$FKF2FinF,F,F,F, M7R0 I(dev/addf*6$%"UG%"VG60%"iG%"jG%'resultG%"uG%"vG%#nuG%#nvG%%deguG%%degvG%&inter G%$sigG%'toadd1G%'toadd2G%"sG6$%)rememberG%RCopyright~Bruno~Salvy,~INRIA~Rocque ncourt,~FranceG6"@+5-%%typeG6$9$%*undefinedG-F=6$9%F@F@/F?""!FC/FCFEF?45-F=6$F? %%listG-F=6$FCFKC$>8&,&F?"""FCFR@%5/-%)zerotestG6#FP%%trueG3-F=6$7$F?FC7$%&floa tGFin52-%$absGFX-%'subsopG6$/FRFRF?2F\o-F_o6$FaoFCFEFPC*@+4FIC$>8'7'&FC6#FRF?FE FE%)infinityG>8(FC4FLC$>FjoF?>F`p7'&F?F]pFCFEFEF^p/-%#opG6$FRF?-Fip6$FRFCC$>Fjo F?>F`pFC2FhpF[qC$>FjoF?@%/&FC6#-%%nopsG6#FCF^p>F`p7'Fhp7#-Fip6$;FR,&FgqFR!"#FRF CFEFEF^p>F`p7%FhpFCFEC$>F`pFC@%/&F?6#-Fhq6#F?F^p>Fjo7'F[q7#-Fip6$;FR,&FjrFRFarF RF?FEFEF^p>Fjo7%F[qF?FE>8)-Fhq6#Fjo>8*-Fhq6#F`p>8$""$>8%F_t?(81""#FRF931F^tFfs1 FatFjsC)>8+&Fjo6#F^t>8,&F`p6#Fat@$/FjtF^pC%>&FP6#Fct-Fip6$;,&FatFR!""FRFjsF`p>F ct,&FctFRFRFR[@$/F^uF^pC%>Feu-Fip6$;,&F^tFRF[vFRFfsFjo>FctF]vF^v>8.-%'signumG6# ,&FjtFRF^uF[v@$-F=6$Fiv-%)specfuncG6$%)anythingGF[wC$>Fiv-%+comparexprG6$FjtF^u @&/Fiv%"FivF[v/Fiv%">G>FivFR@)/FivFRC$>Feu6$&F`p6#FjuF_u>Fat,&FatFRFdtFR/Fiv F[vC$>Feu6$&Fjo6#FfvF[u>F^t,&F^tFRFdtFR3/Fiv%%FAILG4-F=6$7$FjtF^u7$.%)realconsG Fjy-%&ERRORG6#FdyC)@%5/F^tFfs4-F=6$F^yFK>8/F^y>Fgz7%-Fip6#F^yFEF^p@%5/FatFjs4-F =6$FfxFK>80Ffx>Fc[l7%-Fip6#FfxFEF^p>8--F"6$FgzFc[l@$33-F=6$Fi[lFK52F^tFfs2FatFj s/&Fi[l6#-Fhq6#Fi[lF^p>Fi[l7#-Fip6$;FR,&Fg\lFRFarFRFi[l@'0Fi[lFE>Feu6$Fi[lFjt5F bzF^[l>FeuF]y>Feu%%NULLG>F^tFay>FatFix>FP7$-Fip6$FRFjo-%$seqG6$&FPF\u/F^t;Fdt,& FctFRF[vFR@+/-FhqFXFR@%2FfsF^t7%&FjoF]p&Fjo6#,&FfsFRF[vFR&Fjo6#Ffs7%&F`pF]p&F`p 6#,&FjsFRF[vFR&F`p6#Fjs3/Ff^lF_t/&FP6#F_tF^p@%-F=6$&FP6#FdtFK7%-Fip6#F_`lFEF^pF E3Fh_l/Fj_lFE@%F]`lF_`l7%FRF_`lFE33/Ff^l""&/&FP6#F[alF^pFe`l@%F]`lFa`lF_`lFPF9F 9F9F9 M7R0 I&dev/Of*6#%$devG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceGF&@'-% %typeG6$9$%*undefinedGF.4-F+6$F-%%listG"""7%&F-6#F3-F"6#&F-6#""#&F-6#""$F&F&F&F & M7R0 I+dev/RootOff*6$%(fctglobG%"pG6-%"fG%"xG%%solsG%$resG%"iG%$algG%%lalgG%#fcG%$fc tG%"jG%"yG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C$Z%>8,-%'nor malG6#9$F5>F9F=@%4-%%typeG6$F9-%'algfunG6$%)anythingG7$%&_XasyG%#_ZGC'>8+F9>8*7 #-%#opG6#-%'indetsG6$F9%'RootOfG>FM-%%subsG6$<#-%$seqG6$/&FO6#8(&8)F\o/F]o;"""- %%nopsG6#FOFM>8$7#-%&solveG6$FMFJ@%4-%$hasG6$FgoFW-%$mapG6&%(dev/devG-FZ6$<#-Fh n6$/F^oF[oF`oFgo9%F[qC)>Fgo7#-Fjo6$FMFI@$F^p-%&ERRORG6#%:cannot~expand~this~Roo tOfG>8'-Fdp6%-FZ6$FgpFMFboFbo@%4-F_p6$-FR6$""#FgqFJ>8&7#%)infinityG>Fdr7#-FjoF_ r>Fgq7"?&F]oFdr%%trueG@'/F]oFfr>Fgq7$-FR6#Fgq-FR6#-%-dev/implicitG6%-Fdp6%-FZ6$ /FJFI-FR6$FboFgoF[qF[q7'FboFbo!""""!FfrF[q/F]oFbt>Fgq7$Fbs-FR6#-Fbp6&%(dev/powG -Fgs6%-Fdp6%-FZ6$/FJ*$FIFatF^tF[qF[qF`tF[qFatF[qC$@%-FB6$F]o-FW6#%*algebraicGC& >%'DigitsG,$F\vFbr>8--%&evalfGF\o>F\v-%%iquoG6$F\vFbr>F_v-FW6$-FR6$FboF]o-Fav6# F_v>F_vF]o>Fgq7$Fbs-FR6#-Fbp6&f*6%F)F2F&F5F5F5-%/dev/multbyrealG6$-%(dev/addG6$ Fat-Fjt6%F=Fat9&F[qF5F5F5-Fgs6%-Fdp6%-FZ6$/FJ*&F_vFbo,&FboFboFbuFatFboF^tF[qF[q F`tF[q,$F_vFatF[qFgq-%2dev/RootOf/algfunG6&-%&numerG6#-%%evalG6#-FZ6$7$/FI*$8%F at/FJ8.F9FgyFiyF[qF5F5F5F5 M7R0 I2dev/RootOf/algfunf*6'%$PolG%"xG%"yG%$ordG%9optional_positive_slopesG69%$polG% "aG%"uG%"iG%"jG%$ptsG%&alphaG%%miniG%$degG%&thetaG%%jminG%#slG%'lastptG%"pG%#pu G%$nb2G%$resG%"rG%#nbG%"qG%#a0G%+normalizerG%#eqG6#%RCopyright~Bruno~Salvy,~INR IA~Rocquencourt,~FranceG6"C.>8$-%(collectG6%9$7$9&9%%&evalaG>8,-%'degreeG6$FGFM >8)-%'selectG6$f*6#F&FDFDFD0&FK6#""#""!FDFDFD7#-%$seqG6$7$8'-%&coeffG6%FGFMF`o/ F`o;FjnFQ>FV7#-F]o6$7$&F`o6#"""-%(ldegreeG6$&F`oFhnFN/F`oFV>86Fjn>80&FVF\p?(F`o FinF]p-%%nopsG6#FV%%trueGC(>8+%)infinityG?(8(F`oF]pFipF\qC$>8-*&,&&&FV6#FbqFhnF ]p&FfpFhn!""F]p,&&FiqF\pF]p&FfpF\pF\rF\r@$2FeqF_qC$>F_qFeq>8.Fbq>Fdp,&FdpF]pF]p F]p>&8*6#Fdp,$F_qF\r>F`oFer>Ffp&FV6#F`o>83Fjn>Fjr<#-F]o6$&FjrF`s/F`o;F]pFdp@$/9 #""&>Fjr-FX6%%%typeGFjr.%,nonnegativeG?&8/FjrF\qC(>85-%&denomG6#Fet>81-FI6$-%%s ubsG6%/FN)FNFht/FM*&)FN-%&numerGF[uF]pFMF]pFGFN@$0-F_p6$F]uFNFjn>F]u-FI6$*&F]uF ]p)FNF\vF\rFN>87-FI6$-Fbo6%F]uFNFjnFM@$0-F_p6$FdvFMFjn>Fdv-FI6$*&FdvF]p)FMF[wF \rFM?&8&&-%(sqrfreeGF\wFhnF\qC$Z'>887#-FO6#-%'RootOfG6$&FcwF\pFMQNreducible~Roo tOf~detected.~~Substitutions~areFD>Fjw-%$mapG6%Fau&%.lastexceptionG6#""$F^xFDYF D?&FjwFjwF\q@%/&FcwFhnF]pC(@%-Fat6$FjwF_x>89FO>Fey%'normalG>&8%6#FjnFjw>82F]u?( F`oF]pF]p,&9'F]pF\rF]pF\qC%>F]z-FI6$-Fau6$/FM,&&Fjy6#,&F`oF]pF\rF]pF]p*&FNF]pFM F]pF]pF]zFN>8:-Fbo6%F]zFNF`o@%/-FS6$F^[lFMF]p>&FjyF`s-Fey6#,$*&-Fbo6%F^[lFMFjnF ]p-Fbo6%F^[lFMF]pF\rF\r-%&ERRORG6#%0unforecast~caseG>Fbs,&FbsF]pF]pF]p>&846#Fbs -Fex6$%#opG7&F]p-F]o6$7$Ff[l,&FetF]p*&F`oF]pFhtF\rF]p/F`o;FjnF_zF]pF`z?&F`o-F"6 '-Fau6$7$/FN)FNF_y/FM,&FjwF]pF\[lF]pF]uFNFMF_zF]pF\qC$>FbsFd\l>Ff\l-Fex6$F[]l7% F]p7$FjwFet-F]o6$7$&F`o6#,$FbqFin*(,&&F`o6#,&FbqFinF]pF]pF]pF]pF]pF]pF_yF\rFhtF \r/Fbq;F]p-%%iquoG6$-FjpF`sFin7#-F]o6$&Fg\lF`s/F`o;F]pFbsFDFDFDFD M7R0 I-dev/binomialf*6%%"uG%"vG%"nG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~ FranceGF(@%5-%%typeG6$9$%*undefinedG-F.6$9%F1F1-%(dev/prdG6$-%*dev/GAMMAG6$-%(d ev/addG6$F0"""9&-%(dev/powG6%-F66$-F96$-F<6$F4F>F?-F96$-F<6$F0-F<6$-%/dev/multb yrealG6$F4!""F>F?FRF?F(F(F(F( M7R0 I,dev/comparef*6$%%Dev1G%%Dev2G6(%"iG%%dev1G%%dev2G%#n1G%#n2G%$sigG6#%RCopyrigh t~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"@%4-%%typeG6$9$%%listG@%4-F46$9%F7- %&evalrG6#-%'SignumG6#,&F6"""F8)-F>6#-FA6#&F<6#""$@)/FHFDC$>FH-F>6#-FA6# F6@%0FH""!FH,$-F"6$&F<6#""#FZFE/FHFEFen/FHFZ-F"6$F6Fhn-%&ERRORG6#%%FAILG@%F9C$> FH-F>6#-FA6#&F6FN@)FQC$>FH-F>6#-FA6#F<@%FY,$FHFE-F"6$&F6FinFZF[oFdpF\o-F"6$FfpF 8%F6>8&7%F\qFFaq7%F^qF6FZ>FcqFFaqF6>F cqF<>8'-%%nopsG6#Faq>8(-F`r6#Fcq?(8$FOFjn-%$minG6$F^rFcr%%trueGC$>FH-F>6#-FA6#, &&Faq6#FgrFD&FcqFdsFE@)F[o-%'RETURNG6#-F"6$&Faq6#,&FgrFDFEFDFZFQ-Fhs6#-F"6$FZ&F cqF]tF\oC$>FH-F"6$F\tFct@$FY-Fhs6#FHF_o@'/F^rFcr-Fhs6#FZ2F^rFcr-F"6$FZ&Fcq6#,&F ^rFDFDFD-F"6$&Faq6#,&FcrFDFDFDFZF0F0F0F0 M7R0 I(dev/devf*6%%$fctG%"pG%"nG6(%&interG%%deveG%(fctnameG%"iG%"jG%"fG6$%)rememberG %RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"@0-%%typeG6$9$%%listG-%&E RRORG6#F74-%$hasG6$F7<$%"OG%&_XasyG@%/-%)zerotestGF;%%trueG""!F73-F56$F7-%(ratp olyG6$%)anythingGFB4-F>6$F7FA-%0dev/dev/ratpolyG6$F79&-F56$F7%"+G-%*dev/dev/+G6 %F79%FV-F56$F7%"*G-%*dev/dev/*GFfn-F56$F7%"^G@%-F>6$-%#opG6$""#F7FB-F"6%-%$expG 6#*&Fco"""-%#lnG6#-Fdo6$F]pF7F]pFgnFV-%,dev/dev/powG6&FapFcoFgnFV-F56$F7%)funct ionGC$>8&-Fdo6$FHF7@+/F[q.F_p-%+dev/dev/lnG6%FapFgnFV/F[q.Fjo@%-F56$-FdoF;-%#&* G6#<$-%'freeofG6#FB-F`q6#FOC$>8$-%'indetsG6$Fiq-F_p6#-%*dependentGF`r@%/-%%nops G6#FerF]pC$>Fer-FdoFas-F"6%)Fer*&FiqF]pFer!""FgnFV-%,dev/dev/expG6%FiqFgnFVFjs/ F[qFAC$>Fer-F"6%FiqF]pF]p@%/Fer%%FAILGFdt-%&dev/OGFas/F[q.%'RootOfGC&>8%-%+dev/ RootOfG6$FiqFgn@$/-F`s6#F\uF]p-%'RETURNG6#&F\u6#F]p?&8'F\uFG@$0-%'removeG6%F5<# -%$seqG6$&Fju6#,&8(FfoF]pF]p/Fgv;F]p-%%iquoG6$-F`s6#FjuFfo%*nonnegintG<"-FeuF^w FguC&>8)-%$catG6$%%dev/GF[q@$4-F56$Fdw%*procedureG-F:6$%3Not~implemented~:~GFdw >Fer-%$mapG6&F"7#FiqFgnFV@%-F>6$FerFdtFdtC$>F\u-Fdw6$FdsFV@'55554-F56$F\uF8/&F \u6#Fbu%)infinityG2Fgn-%+dev/lengthGFcu1,&FgnF]p""$F]pFV-%(hastypeGF6F\u2FVF]z- F"6%F7Fgn,&FVF]p-%$minG6$F^z,(FVF]pF]pF]pFjyFisF]p-%1dev/dev/simplifyG6&F7F\uFg nFVF2F2F2F2 M7R0 I0dev/dev/ratpolyf*6$%$fctG%"nG6'%&interG%"iG%"tG%#niG%"oG6"F-C%>%)TestzeroG%)z erotestG?(8(,&9%"""""%F6F6F-%%trueGC$>8$-%*traperrorG6#-%'seriesG6%-%%subsG6$/% &_XasyG*$8&!""9$FHF3@$30F;%*lasterrorG5554-%%typeG6$F;F@0-%#opG6$,&-%%nopsG6#F; F6FIF6F;-%"OG6#F62,&F5""#""&F6Fen-%'testeqG6#,&FBF6-%(convertG6$F;%(polynomGFI[ @%FSC%?(F-F6F6F--F16#-FX6$F6F;>F;-%'subsopG6$/F6""!F;>8'Fen@%/-FX6$,&FfpF6FIF6F ;Fhn7&F6-%$seqG6$-FX6$8%F;/Fbq;F6,&FfpF6!"#F6F6-FX6$FfpF;7&F6-F^q6$F`q/Fbq;F6Ff pFdp%)infinityGF;F-F-F-F- M7R0 I1dev/dev/simplifyf*6&%$fctG%$devG%"pG%"nG6#%'newfctG6#%RCopyright~Bruno~Salvy, ~INRIA~Rocquencourt,~FranceG6"C$>8$-%*traperrorG6#-%)simplifyG6#-%'normalG6#-%% evalG6#-%%subsG6%/%"LGf*6#%"xGF-F-F--%$logG6#*$,&"""FJ9$!""FLF-F-F-/%"QGf*FCF-F -F-FHF-F-F-FK@%330F0%*lasterrorG0F0FK/-F26#-%)zerotestG6$F0FK%%trueG-%(dev/devG 6%F09&9'9%F-F-F-F- M7R0 I*dev/dev/+f*6%%$fctG%"pG%"nG6%%%deveG%"iG%&interG6#%RCopyright~Bruno~Salvy,~IN RIA~Rocquencourt,~FranceG6"C%>8$""!?&8%9$%%trueGC$>8&-%(dev/devG6%F49%9&@%5/F9% %FAILG-%%typeG6$F9%*undefinedGC$>F1F9[>F1-%(dev/addG6$F1F9@'5554-FD6$F1%%listG/ &F16#-%%nopsG6#F1%)infinityG2F=-%+dev/lengthGFen-%'memberG6$F6-%$mapG6%FDF1FUF1 2F>,&F="""""$Fbo-F;6%F5F=,&F>Fbo-%$minG6$Fco,(F>FboFboFboFhn!""Fbo-%1dev/dev/si mplifyG6&F5F1F=F>F.F.F.F. M7R0 I*dev/dev/*f*6%%$fctG%"pG%"nG6%%%deveG%"iG%&interG6#%RCopyright~Bruno~Salvy,~IN RIA~Rocquencourt,~FranceG6"C%>8$"""?&8%9$%%trueGC$>8&-%(dev/devG6%F49%9&@%5/F9% %FAILG-%%typeG6$F9%*undefinedGC$>F1F9[>F1-%(dev/prdG6$F1F9@'5554-FD6$F1%%listG/ &F16#-%%nopsG6#F1%)infinityG2F=-%+dev/lengthGFen-%'memberG6$F6-%$mapG6%FDF1FUF1 2F>,&F=F2""$F2-F;6%F5F=,&F>F2-%$minG6$Fbo,(F>F2F2F2Fhn!""F2-%1dev/dev/simplifyG 6&F5F1F=F>F.F.F.F. M7R0 I,dev/dev/powf*6&%"AG%"BG%"pG%"nG6%%$sigG%%deveG%&interG6#%RCopyright~Bruno~Sal vy,~INRIA~Rocquencourt,~FranceG6"C$>8$-%&evalrG6#-%'SignumG6#9%@%3/F2!""-%%type G6$9$.-%$expG6#%)anythingGC$>8%-%*traperrorG6#-%(dev/devG6%FA9&9'@%30FI%*laster rorG0FI%%FAILG-%(dev/powG6%FIF9FQ-FN6%)-FD6#,$-%#opG6#FAF=,$F9F=,&FP"""F`oF`o,& FQF`oF`oF`oC$>8&FM@%5/FdoFW-F?6$Fdo%*undefinedGFdoC$>FI-FY6%FdoF9FQ@)5555/FIFW4 -F?6$FI%%listG/&FI6#-%%nopsG6#FI%)infinityG2FP-%+dev/lengthGF^q-%(hastypeG6$)FA F9FhpFI2FQ,&FPF`o""#F`o-FN6%FfqFP,&FQF`o-%$minG6$""$,(F`oF`oFQF`oFaqF=F`o4Fcq-% 1dev/dev/simplifyG6&FfqFIFPFQFIF/F/F/F/ M7R0 I+dev/dev/lnf*6%%$fctG%"pG%"nG6$%%deveG%&interG6#%RCopyright~Bruno~Salvy,~INRIA ~Rocquencourt,~FranceG6"C$>8%-%(dev/devG6%9$9%,&9&"""F8F8@%/F0%%FAILG-%1dev/dev /simplifyG6&-.%#lnG6#F4F;F5F7C$>8$-%'dev/lnG6$F0F7@%5554-%%typeG6$FE%%listG/&FE 6#-%%nopsG6#FE%)infinityG2F5-%+dev/lengthGFW1,&F5F8""$F8F7FE-F26%-FAFBF5,&F7F8- %$minG6$Fhn,(F7F8F8F8FZ!""F8F-F-F-F- M7R0 I,dev/dev/expf*6%%$fctG%"pG%"nG6$%&interG%%deveG6#%RCopyright~Bruno~Salvy,~INRI A~Rocquencourt,~FranceG6"C$>8$-%(dev/devG6%9$9%9&@%5/F0%%FAILG-%%typeG6$F0%*und efinedGF0C$>8%-%*traperrorG6#-%(dev/expG6$F0F6@'0FA%;Not~a~convergent~expansion G@)/FA%*lasterrorG-%&ERRORG6#FA55554-F<6$FA%%listG/&FA6#-%%nopsGFP%)infinityG2F 5-%+dev/lengthGFP1,&F5"""""$F^oF6-%(hastypeG6$F4FXFA2F6F]o-F26%-%$expG6#F4F5,&F 6F^o-%$minG6$F_o,(F6F^oF^oF^oFjn!""F^o-%1dev/dev/simplifyG6&FfoFAF5F6Fco-F26%Ff oF5F]oF:F-F-F-F- M7R0 I(_equivX=6"%&falseGE\[l""""*$%&_XasyG!""F$ M7R0 I-dev/endofdevf*6%%$devG%"kG%$PolG67%"nG%$resG%'posminG%%miniG%"jG%$indG%$posG% $valG%+candidatesG%'resultG%'intermG%"iG%(comblinG%"pG%)devcoeffG%&exactG%(curr degG%'degpolG%$polG%'tocompG%$sigG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt ,~FranceG6"@'/9$7'"""FEFE""!%)infinityG7$FE-%#opG6$;FE-%$minG6$,&9%""#FRFE-%%no psG6#9&FV-%%typeG6$FC%*undefinedGFZC/>8$-FT6#FC@%/&FC6#FgnFGC$>83%%trueG>Fgn,&- %%iquoG6$FgnFRFE!""FEC$>F`o%&falseG>FgnFdo>8%7#<#7#-%"$G6$FFFgn>8+7#FF>&826#Fap FE>8*FE@%52F\qFgnF`o@%-FX6$&FC6#,$F\qFR%%listG>&Fip6%-Fbp6$FF,&F\qFEFgoFEFE-Fbp 6$FF,&FgnFEF\qFgo7%-FJ6#FcqFFFG>FhqFcq@%Faq>FhqFcq>FhqFE>&8)6#FEFE@%/&FV6#FSFGC %>85&FV6#,&FSFE!"#FE>86-%&arrayG6$;FFFas%'sparseG?(8/FEFR,&FSFE!"$FEFao>&Fgs6#& FV6#,&F^tFEFEFE&FV6#F^tC%>FasF]s>FgsFhs?(F^tFEFR,&FSFEFgoFEFao>FbtFgt@%0&Fgs6#F FFF>8-7%&FCFjrFauFF>Fdu7#Ffu>84FF?(F@FEFEF@332-%+dev/lengthG6#Fdu,&FQFEFEFE2Fju Fas55F`oF_q/&FirF]oFEC->8',&&FC6#""$FE&Fep6#FhrFE>8&7#FE?(8(FRFE-FN6$F\qFgnFaoC %>87,&&FC6#,&FewFRFEFEFE&Fep6#&Fir6#FewFE>88-%&evalrG6#-%'SignumG6#,&FjwFEFjvFg o@&/FdxFgoC$>FjvFjw>Fbw7#Few/FdxFF>Fbw7$-FJ6#FbwFew@$3/&Fbw6#-FTFfyF\qF_qC%>F\q ,&F\qFEFEFE>&Fir6#F\qFE@%F^q@%Faq>FhqF`r>FhqFcq@%Faq>FhqFcq>FhqFE>8,<">8.FF?(Fe wFEFEF\zFaoC$?&F^t&F]p6#&Fir6#&FbwFbxFaoC$>807%-FJ6$;FE,&Ff[lFEFgoFEF^t,&&F^tFe [lFEFEFE-FJ6$;,&Ff[lFEFEFEFgnF^t@$4-%'memberG6$Fi[lF[[lC&>F[[l-%&unionG6$F[[l<# Fi[l@$0F^tF`p>&Fip6#-FJ6#Fi[l-%(dev/prdG6$&Fip6#-FJFht&Fip6%-Fbp6$FFF^\lFE-Fbp6 $FF,&FgnFEFf[lFgo>Fju-%(convertG6$7#-%$seqG6$&Fi[l6#81/F^_l;FEFgn%"+G@$31FjuFas 0&Fgs6#FjuFF>F^[l-%(dev/addG6$F^[l-%/dev/multbyrealG6$Fc]l*(Ff_lFE-%*factorialG Fg_lFE-Ff^l6$-%$mapG6$Fa`lFi[l%"*GFgo>Fd[l,&Fd[lFEFEFE>F]p7$-FJ6#F]pF[[l>Fep7$- FJ6#FepFjv@%5F^qFfv@$-FX6$F^[lFfq>F^[l7#-FJ6$;FE,&-FT6#F^[lFEFesFEF^[l@$4Feal>F ^[lFE@$0F^[lFF>Fdu7%-FJFavF^[lFjv@%33F^vF`o/F\qFgn7%FfblFFFGFduF@F@F@F@ M7R0 I.dev/factorialf*6$%$devG%"nG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~F ranceGF'-%*dev/GAMMAG6$-%(dev/addG6$9$"""9%F'F'F'F' M7R0 I-dev/implicitf*6%%&expr1G%&expr2G%"pG6&%"xG%"kG%#d1G%#d2G6#%RCopyright~Bruno~S alvy,~INRIA~Rocquencourt,~FranceG6"C$@$5-%%typeG6$9$%*undefinedG-F46$9%F7-%'RET URNG6#F7@%/&F66#""$""!@)3/&F:FAFC/&F66#""#&F:FJ-F"6%-%'subsopG6%/FK%%NULLG/FBFS F6-FP6%FRFTF:9&30FGFC-F46$FI%%listG-F"6%7%-%#opG6#FIFC%)infinityGF:FW-F46$7$-F[ o6$FBF:-F[o6$FKF:7$FCFfn-F"6%F67%-F[o6#FLFCF]oFW-%&ERRORG6#%2no~solution~foundG @%0F@!""@%-F46$F@%'negintGC%>8&-%(dev/powG6%F6,$*$F@FapFapFW>8'-Fjp6%F:F\qFW7#- %$seqG6$-F[o6#-F"6%Fhp-%/dev/multbyrealG6$F_q-%$expG6#**^#!"#"""8%Fcr%#PiGFcrF@ FapFW/Fdr;FC,&F@FapFapFcr-F"6%FipF`qFW@)FZ-F"6%-%'dev/lnG6$F6FW-F_s6$F:FWFW0-%) zerotestG6$FIFcr%%trueG-F"6%-F[r6$F6*$FIFap-F[r6$F:F\tFW32Fcr-%+dev/lengthG6#F6 0&F66#""&F]o@%0&F66#FcrFcr-F"6%7'FjtFcrFapFCF]o-%5dev/implicit/itersumG6%-%(dev /devG6%-%%subsG6$/%&_XasyG-F[o6#-F"6%F^u7'FcrFcrFapFCF]oFW-%%evalG6#-Ffu6$/%)_X asytabG%(_equivXG-%,dev/instancG6#-%(dev/addG6$7%-F[o6$;FcrFBF6FCF]o-F[r6$F6Fap FWFWF:FWFW7#-F`u6%-F[r6$FOFapF:FW@%/FjtFcr-F<6#7#F:C$>Fhp-Ffu6$/Fiu8$-F`v6#-Ffu 6$Fdv*$-Fhv6$7%FjtFcrFcrFbxFap@'/-F[o6$FCFhpF^r-F"6%-F_s6$F^uFWFasFW/F]y%#lnG-F "6%-%(dev/expGFby-FhyFbsFW-F\p6#%2should~not~happenGF/F/F/F/ M7R0 I5dev/implicit/itersumf*6%%*othersideG%$valG%"pG6$%%exprG%$resG6#%RCopyright~Br uno~Salvy,~INRIA~Rocquencourt,~FranceG6"C%>8$-%%evalG6#-%%subsG6$/%)_XasytabG%( _equivXG-%,dev/instancG6#9$>8%9%?(F-"""FB9&%%trueG>F?-%+dev/reduceG6$-%(dev/add G6$F@-%(dev/devG6%-F56$/%&_XasyG-%*dev/printG6%F?FR%)infinityGF0FCFCFCF-F-F-F- M7R0 I-dev/indexifyf*6#%%exprG6'%"iG%$cstG%$fcnG%&toindG%$resG6#%RCopyright~Bruno~Sa lvy,~INRIA~Rocquencourt,~FranceG6"@%/-%#opG6$""!9$%#lnGC$>8(7#"""?(8$""#F;F.0&F 96#-%%nopsG6#F9%)infinityG>F9-%(dev/devG6%-%)simplifyG6%-F66#&%(_equivXG6#-F26# -F26#F5F6.%)symbolicGF=F=@'-%%typeG6$F5%%listG-%'subsopG6$/""$!""-%,dev/placeit G6#-%%evalG6#-%%subsG6$/%)_XasytabGFP-%,dev/instancGFU-FZ6$F5-.%$expG6#FfnC$>8' -Fao6#-Fdo6$Ffo-FioFS@%-FZ6$Fbp%"*GC&>8&F;>8%F;?&F=Fbp%%trueG@%-%$hasG6$F=%&_Xa syG>F^q*&F^qF;F=F;>F`q*&F`qF;F=F;-Fhn6$/F[o,$F`qF\o-F^o6#-F^p6#F^q-Fhn6$Fjn-F^o 6#-F^p6#Fbp-%&ERRORG6#.%$bugGF.F.F.F. M7R0 I,dev/placeitf*6#%%exprG6#%$ordG6$%)rememberG%RCopyright~Bruno~Salvy,~INRIA~Roc quencourt,~FranceG6"C$>8$-%+dev/LorderG6#9$-%.dev/findplaceG6%F2,$F.!""F.F+F+F+ F+ M7R0 I+dev/Lorderf*6#%$devG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceGF &@+45-%$hasG6$9$%#lnG-F-6$F/%$expG""!-%%typeG6$F/%)functionG,&"""F:-9!6#-%#opG6 #F/F:-F66$F/<$%"*G%"+G-%$maxG6$-F<6#-F?6$F:F/-F<6#-F?6$""#F/-F66$F/%"^G,&FIF:FM F:-%&ERRORG6$%2invalid~expansionGF/F&F&F&F& M7R0 I.dev/findplacef*6%%%devtG%%lim1G%%lim2G6$%"iG%$sigG6#%RCopyright~Bruno~Salvy,~ INRIA~Rocquencourt,~FranceG6"@+3-%%typeG6$7$9%9&7$%(integerGF72""",&F5F9F4!""C& >8$-%&truncG6#,&F4#F9""#F5FC@$3-F16$F>F74-%)assignedG6#&%(_equivXG6#F>@%1F>""!C %>FM-%$expG6#%&_XasyG?(F-F9F9,$F>F;%%trueG>FM-FVFL>FM*$FMF;C%>FM-%#lnGFW?(F-F9F 9,&F>F9!"#F9Fen>FM-F]oFL>FMFin>8%-%1dev/comparexplogG6$9$-%%evalG6#-%%subsG6$/% )_XasytabGFN-%,dev/instancG6#7%F>F9F;@'/FeoF9-9!6%FioF4F>/FeoFR7'F>F9F;FR%)infi nityG-Fip6%FioF>F5/Fio*$-F[p6#-F^p6$F`p-Fcp6#7%F4F9F9F;7'F4F9F;FRF]q/Fio*$-F[p6 #-F^p6$F`p-Fcp6#7%F5F9F9F;7'F5F9F;FRF]q-FK6#&FNFAC$>Feo-Fgo6$Fio*$-F[p6#-F^p6$F `p-Fcp6#7%FBF9F9F;@'F[q7'FBF9F;FRF]qFgp-Fip6%FioF4FB-Fip6%FioFBF5C$>Ffr*$FioF;F dsF-6#FNF-F- M7R0 I1dev/comparexplogf*6$%"uG%"vG6#%$sigG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquenc ourt,~FranceG6"@//9$9%""!45-%$hasG6$F.%&_XasyG-F46$F/F6C$>8$-%&evalrG6#-%'Signu mG6#,&F."""F/!""@%/F;%%FAILG-%&ERRORG6#FGF;3-%%typeG6$7$F.F/7$%)functionGFQ/-%# opG6$F0F.-FT6$F0F/-9!6$-FT6$FCF.-FT6$FCF/-FM6$F..-%$expG6#%)anythingG-FY6$-FT6# F.-%'expandG6#-%#lnG6#F/3-FM6$F..-FhoF^o0-FeoFcoF.-%,dev/compareG6$-%(dev/devG6 %F`pFCFC-Fep6%F/FCFC-FM6$F.<&%"*G%"+G%"^G%%nameG-Fbp6$-Fep6%-Feo6#-FhoFcoFCFC-F ep6%FdoFCFC-FI6$%2invalid~expansionGF.F+F+F+F+ M7R0 I.dev/exp/truncf*6#%"xG6#%$resG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~F ranceG6"@%-%%typeG6$9$%(integerG@%2""!F/F/"""C$>8$,&-%&truncG6#-%&evalfG6#F/F4F 4F4@%2F3F7F7F4F*F*F*F* M7R0 I+dev/lcoefff*6#%$devG6#%"uG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~Fran ceG6"@'4-%%typeG6$9$%%listGF0/-%%nopsG6#F0""$@%4-F.6$-%#opG6$""#F0F1%%FAILG-F"6 #F;C%>8$F0?(F*"""FFF*-F.6$FDF1>FD-F<6$F>FDFDF*F*F*F* M7R0 I*dev/printf*6%%$devG%$varG%&globnG6&%$resG%%bigOG%#nbG%"nG6#%RCopyright~Bruno~ Salvy,~INRIA~Rocquencourt,~FranceG6"@%-%%typeG6$9$%*undefinedGF5C%@%-F26$F4%%li stGC$>8'-%$minG6$9&,&-%+dev/lengthG6#F4"""!""FF>8$-%1dev/print/nfirstG6&F4,&F=F FFFFF.8&.8%>FI-FK6&F4""!FN.%%big0G@$3-%)assignedG6#FQ0FQFU>FI7$-%#opG6#FI-%+sim plify/OG6$-%"OG6#-%%evalG6#-%%subsG6$/%)_XasytabG%(_equivXG-%)simplifyG6$FQ%)in finityG%&_XasyG-%(convertG6$-Fgo6$/F`p9%FI%"+GF/F/F/F/ M7R0 I1dev/print/nfirstf*6&%%treeG%"nG%&totalG%%bigOG6*%$varG%"iG%#nbG%%locOG%"kG%$r esG%%restG%&interG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"@%4-% %typeG6$9$%%listG@%/F:""!C%>9'F>>9&F>7"C%>FC"""@$/9%FG>FAFG-%%evalG6#-%%subsG6$ /%)_XasytabG%(_equivXG7#F:C(>8$-FM6#-FP6$FR&FS6#&F:6#FG>8*FJ>8)FD?(8%""#Fao-%%n opsG6#F:2F>F\oC$>8+-F"6&&F:6#F`oF\o.8&.8'@%4-%)assignedG6#F`pC$>F^o7$-%#opG6#F^ o-%$seqG6$*&&Fho6#8(FG-%)frontendG6%%)simplifyG7%)FX&F:6#,&F`oFGFGFG%&powerG%$e xpG7$<%%"*G%"+G%"^G<$F]r%#lnGFG/Fbq;FGF^p>F\o,&F\oFGF^p!""C%>F^o7$Fip-F]q6$F_q/ Fbq;FG,&F^pFGFirFG>F\oF>>FA*&F`pFGFcqFG>FC,&FJFGF\oFirF^oF4F4F4F4 M7R0 I+simplify/Of*6$%"fG%$varG6#%"aG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~ FranceG6"@)54-%$hasG6$9$%"OG/9#"""F2-%%typeG6$F2.-F36#%)anythingGC%>8$-%#opG6#F 2?(F+F6F6""#%%trueG>F@-%/simplify/O/inOG6$F@9%@%0F@""!-F36#F@FN-F86$F2%"*G-F"6$ -F36#-%(convertG6$-%$mapG6$FB-%'selectG6%F87#FAF:FSFK-Ffn6%F"F2FKF+F+F+F+ M7R0 I/simplify/O/inOf*6$%%exprG%$varG6#%"fG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquen court,~FranceG6"@33-%%typeG6$9$%)constantG4-%$hasG6$F1%)infinityG@%-%'testeqG6# F1""!"""-F/6$F1%%nameG@%/F19%FCF=-F/6$F1%"+GC$>8$-%$mapG6%9!F1FC@%0FIF1-FM6$FIF CF1-F/6$F1%"^GC$>FI-%&evalcG6#-%#opG6$""#F1@%-F56$FI^#F=-FM6$)-Fen6$F=F1-%&coef fG6%FIF[oFFI-FX6#-FenF;@%F in-FM6$-F\p6#FaoFCF1-F/6$F1<$.-%$cosGF]p.-%$sinGF]pF=-F/6$F1%&rangeG-FM6$FZFCC$ >FI-FXF;@%FOFPF1F+F+F+F+ M7R0 I-dev/realpartf*6#%%exprG6&%"iG%'resultG%"nG%$auxG6#%RCopyright~Bruno~Salvy,~IN RIA~Rocquencourt,~FranceG6"@%4-%%typeG6$9$%%listG@%-F16$F3%)realconsGF3-%&evalc G6#-%#ReG6#F3C&>8&-%%nopsGF>?(8$""#FF,&FA"""!"$FH%%trueGC$@%-F16$&F36#FEF4C$>8' -F"6#7%-%#opG6#FO""!%)infinityG@$3-F16$FSF4/&FS6#-FC6#FSFen>FS-%'subsopG6%/F]o% %NULLG/,&F]oFH!""FHFdoFS>FS-F"FY@%0FSFZ>&8%FP6$FS&F36#,&FEFHFHFH>F]pFdo>F^p-%$s eqG6$&F^p6#,$FEFF/FE;FH-%%iquoG6$FGFF@'/&F36#FAFen@'/F^pFdoFZ3/-FC6#7#F^pFF/&F^ p6#FFFZ&F^p6#FH7&&F3F_rF^pFZFen-F16$&F36#,&FAFHFgoFHF47&FarF^p-F"6#FdrFbq7&FarF ^pFHFbqF-F-F-F- M7R0 I'dev/Sif*6$%"uG%"nG6/%%factG%"iG%"xG%(exampleG%&sinusG%(cosinusG%"jG%"kG%%init G%$sigG%%invuG%$resG%%termG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~Franc eG6"@'-%%typeG6$9$%*undefinedGF=4-F:6$F<%%listGC$>8,-%*traperrorG6#-%#SiG6#F<@% /FD%*lasterrorGF=FDC$>8--%&evalrG6#-%'SignumG6#&F<6#""$@)/FP"""C%>8*#!""""'?(8% ""#Ffn9%%%trueGC$>Fin,$*(FinFfn,&F^o""%F_oFfnF[oF^oF[oF[o>&8'6#F^o6$*&FinFfn,&F ^oF_oFfnFfnF[oF^o-%(dev/prdG6$F<-%-dev/endofdevG6%-%(dev/powG6%FFP-FR6#-FU6#-%#ReG6#-%+dev/lcoeffG FJ@'5Faq/FPFipF=/FP%%FAILG-%&ERRORG6#FarC*>8$-Ffp6%F8)-%+dev/cossinG6$F 8.-Ffp6%F8(-F`p6$&F\s6#F_oFas>F\s&F\s6#Ffn>8/-%(dev/addG6$,$%#PiG# FfnF_o-F`t6$-F`p6$-%/dev/multbyrealG6$F\sF[oFas-F`p6$-Fjt6$FesF[oFas?(F^oFfnFfn ,&-%%iquoG6$,&F`oFfnFfnFfnF_oFfnF[oFfnFaoC$>80-F`p6$FhuFgr>F^t-F`t6$F^t-F`t6$-F `p6$-Fjt6$F\s*&)F[o,&F^oFfnFfnFfnFfn-%*factorialG6#,$F^oF_oFfnFhu-F`p6$-Fjt6$Fe s*&FevFfn-Fhv6#F^pFfnFhu-%+dev/reduceG6$F^tF`oF_rC$@%-F:6$&FFD-F"6$7%-%# opG6#FiwFip%)infinityGF`o>FD-F"6$FiwF`o@%32F`o-%+dev/lengthG6#FD0&FD6#-%%nopsGF jxFaxFDC&>Fin-FI6#8&>8+Ffn?(F^oFfnFfnF`oFaoC%>Fin-%%diffG6$FinFdy>Ffy*&FfyFfnF^ oF[o>Fio6$*&-%%subsG6$/FdyFiwFinFfnFfyFfnF^o-Fcp6%-%'subsopG6%/F_o%%NULLG/FYF\[ lF8,-%*traperrorG6#-%#CiG6#F?@%/FK%*lasterrorGFA-FB6#FK>8--%&evalrG6#-%'Sign umG6#&F?6#""$@)/FX"""C(>8$-%(dev/powG6%F?""#9%>8/F^o>8.""!>80-%(dev/addG6$%&gam maG-%'dev/lnG6$F?Ffo?(8%F^oF^o,&FfoF^o!""F^o0FjoF]pC%>FjoF]p>Fho-%(dev/prdG6$Fh oFao>F]p-F_p6$F]p-%/dev/multbyrealG6$Fho,$*()FhpFfpF^o-%*factorialG6#,$FfpFeoFh pFfpFhp#F^oFeo-FB6#-%+dev/reduceG6$F]pFfo/FXFhpC->FX-FZ6#-Fgn6#-%#ReG6#-%+dev/l coeffGFQ@&5Fcr/FXF[pFA/FX%%FAILG-%&ERRORG6#Fcs>81-Fco6%F?FhpFfo>Fao-Fco6%FhsFeo Ffo>8(-%+dev/cossinGFdp>8)-F^q6$&F_t6#F^oFhs>F_t&F_t6#Feo>Fjo-F_p6$-F^q6$F_tFao -F^q6$Fao-Fdq6$FctFhp>82F^o?(FfpF^oF^o-%&truncG6#,&FfoF]rF]rF^o%%trueGC$>Feu-F^ q6$FeuFao>Fjo-F_p6$Fjo-F_p6$-F^q6$-Fdq6$F_t*&FhqF^oFiqF^oFeu-F^q6$-Fdq6$Fct*&)F hp,&FfpF^oF^oF^oF^o-Fjq6#,&FfpFeoF^oF^oF^oFeu-FB6#-Far6$FjoFfoFasC$@%-F=6$&F?Fj tFH>FK-F"6$7%-%#opG6#F\xF[p%)infinityGFfo>FK-F"6$F\xFfo@%32Ffo-%+dev/lengthGFV0 &FK6#-%%nopsGFVFdxFUC'>8'7$FKF[p>8*-FP6#8&>8+F^o?(FfpF^oF^oFfoF[vC%>Fgy-%%diffG 6$FgyFjy>F\z*&F\zF^oFfpFhp>Fdy7%-Fbx6#Fdy*&-%%subsG6$/FjyF\xFgyF^oF\zF^oFfp-FB6 #-%-dev/endofdevG6%FaoFfoFdyFdsF9F9F9F9 M7R0 I'dev/Eif*6$%"uG%"nG6-%%factG%"iG%"xG%"jG%(exampleG%"kG%%initG%$sigG%'tomultG%$ resG%'newresG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typ eG6$9$%*undefinedG-%'RETURNG6#F<@$4-F96$F;%%listGC$>8*-%*traperrorG6#-%#EiG6#F; @%/FG%*lasterrorGF=-F>6#FG>8+-%&evalrG6#-%'SignumG6#&F;6#""$@)/FT"""C*>FT-FV6#- FY6#-%#ReG6#-%+dev/lcoeffGFM@(/FT!""-F>6#-%/dev/multbyrealG6$-F"6$-F\p6$F;Fho9% Fho/FT""!F=/FT%%FAILG-%&ERRORG6#Ffp>8$F;>8,Fjn>8-Fdp>8.-%(dev/addG6$-%'dev/lnG6 $F;Fbp%&gammaG?(8%FjnFjn,&FbpFjnFhoFjn0F_qFaqC%>F_qFaq>F]q-%(dev/prdG6$F]qF[q>F aq-Fcq6$Faq-F\p6$F]q*&FjqFho-%*factorialG6#FjqFho-F>6#-%+dev/reduceG6$FaqFbpFgo C'>F[q-%(dev/powG6%F;FhoFbp>8(7.FjnFjnFjn""#FisFgn""'""%"#C""&"$?"Fjs>8'F^t?(Fj qFjsFjnFbp%%trueGC$>F`t*&F`tFjnFjqFjn>Fgs7%-%#opG6#FgsF`t,&FjqFjnFjnFjn-F>6#-Fa r6$-%(dev/expGFgq-%-dev/endofdevG6%F[qFbpFgsFcpC$@%-F96$&F;6#FisFD>FG-F"6$7%-Fi t6#FiuFdp%)infinityGFbp>FG-F"6$FiuFbp@%32Fbp-%+dev/lengthGFR0&FG6#-%%nopsGFRFav FQC(>Fgs7$FGFdp>F`t-FL6#8&>8)Fjn?(FjqFjnFjnFbpFbtC%>F`t-%%diffG6$F`tFew>Fgw*&Fg wFjnFjqFho>Fgs7%Fht*&-%%subsG6$/FewFiuF`tFjnFgwFjnFjq>F[q-%'subsopG6%/Fis%%NULL G/FgnF\yF;-F>6#FbuFgpF5F5F5F5 M7R0 I-dev/FresnelSf*6$%"uG%"nG60%%factG%"iG%"xG%(exampleG%(cosinusG%&sinusG%"kG%"jG %%initG%$sigG%%invuG%'newresG%$resG%'tomultG6#%RCopyright~Bruno~Salvy,~INRIA~Ro cquencourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG-%'RETURNG6#F?@$4-F<6$F>%%list GC$>8,-%*traperrorG6#-%)FresnelSG6#F>@%/FJ%*lasterrorGF@-FA6#FJ>8--%&evalrG6#-% 'SignumG6#&F>6#""$@)/FW"""C&>8'7$,$%#PiG#F]o""'""!>8*,$Fco#F]o""#?(8%F]oF]o9%%% trueGC$>Fho,$**FhoF]oFcoF[pF]p!"",&F]pF[pF]oF]oFdp#Fdp"")>F`o7%-%#opG6#F`o*&Fho F]o,&F]p""%FjnF]oFdpF]p-FA6#-%(dev/prdG6$-%(dev/powG6%F>FjnF^p-%-dev/endofdevG6 %-Ffq6%F>F_qF^pF^pF`o/FWFdpC/>FW-FY6#-Ffn6#-%#ReG6#-%+dev/lcoeffGFP@&5F]r/FWFfo F@/FW%%FAILG-%&ERRORG6#F]s>8)-%+dev/cossinG6$-%/dev/multbyrealG6$-Ffq6%F>F[pF^p FioF^p>8(&Fbs6#F]o>8.-Ffq6%F>FdpF^p>8$-Ffq6%F`tF[pF^p>Fbs-Fcq6$&Fbs6#F[pFdt>Fdt -Ffq6%FdtF[pF^p>81F]o>80Ffo>8/-%(dev/addG6$Fjo-Ffu6$-Fgs6$-Fcq6$F\tF`t,$*$FcoFd pFdp-Fgs6$-Fcq6$FbsF`t,$*$Fco!"#Fdp?(F]pF]oF]o-%&truncG6#,&F^pFjoFjoF]o0FbuFduC %>FbuFdu>F`u-Fcq6$F`uFdt>Fdu-Ffu6$Fbu-Ffu6$-Fgs6$-Fcq6$F\tF`u*()Fdp,&F]pF]oF]oF ]oF]o-%(productG6$,&.FhoF[pFdpF]o/Fbx;F]o,$F]pF[pF]o)FcoFepFdp-Fgs6$-Fcq6$FbsF` u*(F\xF]o-F_x6$Fax/Fbx;F]oFepF]o)Fco,&F]pF[pF[pF]oFdp-FA6#-%+dev/reduceG6$FduF^ pF[sC$@%-F<6$&F>F[uFG>FJ-F"6$7%-F[q6#F[zFfo%)infinityGF^p>FJ-F"6$F[zF^p@%32F^p- %+dev/lengthGFU0&FJ6#-%%nopsGFUFbzFTC(>F`o7$FJFfo>8+-FO6#8&>FhoF]o?(F]pF]oF]oF^ pF_pC%>Fd[l-%%diffG6$Fd[lFg[l>Fho*&FhoF]oF]pFdp>F`o7%Fjp*&-%%subsG6$/Fg[lF[zFd[ lF]oFhoF]oF]p>Fdt-%'subsopG6%/F[p%%NULLG/FjnF]]lF>-FA6#-Fiq6%FdtF^pF`oF^sF8F8F8 F8 M7R0 I-dev/FresnelCf*6$%"uG%"nG60%%factG%"iG%"xG%(exampleG%&sinusG%(cosinusG%"kG%"jG %%initG%%invuG%'newresG%$resG%$sigG%'tomultG6#%RCopyright~Bruno~Salvy,~INRIA~Ro cquencourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG-%'RETURNG6#F?@$4-F<6$F>%%list GC$>8,-%*traperrorG6#-%)FresnelCG6#F>@%/FJ%*lasterrorGF@-FA6#FJ>80-%&evalrG6#-% 'SignumG6#&F>6#""$@)/FW"""C&>8'7&F]o""!,$*$%#PiG""##!"""#SF]o>8*,$Fdo#Fho"")?(8 %FfoF]o9%%%trueGC$>F[p,$**F[pF]oFeoFfoF`pFho,&F`pFfoFhoF]oFhoF]p>F`o7%-%#opG6#F `o*&F[pF]o,&F`p""%F]oF]oFhoF`p-FA6#-%(dev/prdG6$F>-%-dev/endofdevG6%-%(dev/powG 6%F>F_qFapFapF`o/FWFhoC/>FW-FY6#-Ffn6#-%#ReG6#-%+dev/lcoeffGFP@&5F[r/FWFboF@/FW %%FAILG-%&ERRORG6#F[s>8)-%+dev/cossinG6$-%/dev/multbyrealG6$-Fiq6%F>FfoFap,$Feo #F]oFfoFap>8(&F`s6#Ffo>8--Fiq6%F>FhoFap>8$-Fiq6%F`tFfoFap>F`s-Fcq6$&F`s6#F]oFdt >Fdt-Fiq6%FdtFfoFap>8/Fbo>81F]o>8.-%(dev/addG6$Fjs-Ffu6$-Fes6$-Fcq6$F\tF`t*$Feo Fho-Fes6$-Fcq6$F`sF`t,$*$Feo!"#Fho?(F`pF]oF]o-%&truncG6#,&FapFjsFjsF]o0FduF`uC% >F`uFdu>Fbu-Fcq6$FbuFdt>Fdu-Ffu6$F`u-Ffu6$-Fes6$-Fcq6$F\tFbu*()FhoF`pF]o-%(prod uctG6$,&.F[pFfoFhoF]o/F`x;F]o,$F`pFfoF]o)Feo,&F`pFfoF]oF]oFho-Fes6$-Fcq6$F`sFbu *()Fho,&F`pF]oF]oF]oF]o-F]x6$F_x/F`x;F]oFexF]o)Feo,&F`pFfoFfoF]oFho-FA6#-%+dev/ reduceG6$FduFapFirC$@%-F<6$&F>F^tFG>FJ-F"6$7%-F[q6#F\zFbo%)infinityGFap>FJ-F"6$ F\zFap@%32Fap-%+dev/lengthGFU0&FJ6#-%%nopsGFUFczFTC(>F`o7$FJFbo>8+-FO6#8&>F[pF] o?(F`pF]oF]oFapFbpC%>Fe[l-%%diffG6$Fe[lFh[l>F[p*&F[pF]oF`pFho>F`o7%Fjp*&-%%subs G6$/Fh[lF\zFe[lF]oF[pF]oF`p>Fdt-%'subsopG6%/Ffo%%NULLG/FjnF^]lF>-FA6#-Ffq6%FdtF apF`oF\sF8F8F8F8 M7R0 I-dev/Fresnelff*6$%"uG%"nG6*%%factG%"iG%"xG%(exampleG%"kG%"jG%%initG%$sigG6#%RC opyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG -%'RETURNG6#F9@$4-F66$F8%%listGC$>8*-%*traperrorG6#-%)FresnelfG6#F8@%/FD%*laste rrorGF:-F;6#FD>8+-%&evalrG6#-%'SignumG6#&F86#""$@)/FQ"""C&>8'7$%#PiG""!>8(F\o?( 8%FgnFgn,&9%Fgn!""Fgn%%trueGC$>F_o,$*(F_oFgnF\o""#,&Fao""%FgnFgnFdoFdo>Fjn7%-%# opG6#FjnF_oFao-F;6#-%(dev/addG6$#FgnFjo-%(dev/prdG6$-%(dev/powG6%F8FZFbo-%-dev/ endofdevG6%-F\q6%F8F\pFboFboFjn/FQFdoC(>FQ-FS6#-FV6#-%#ReG6#-%+dev/lcoeffGFJ@&5 Fcq/FQF]oF:/FQ%%FAILG-%&ERRORG6#Fcr>Fjn7&*$F\oFdoF]o,$*$F\o!"$F\sFgn>F_oFjr?(Fa oFjoFgnFcoFeoC$>F_o,$**F_oFgn,&FaoF\pFdoFgnFgn,&FaoF\pF\sFgnFgnF\o!"#Fdo>FjnF^p -F;6#-Fip6$-F\q6%F8FdoFco-F_q6%-F\q6%F8!"%FcoFcoFjnFarC$@%-F66$&F86#FjoFA>FD-F" 6$7%-F`p6#FftF]o%)infinityGFco>FD-F"6$FftFco@%32Fco-%+dev/lengthGFO0&FD6#-%%nop sGFOF^uFNC(>Fjn7$FDF]o>8)-%(FresnelG6#8&>F_oFgn?(FaoFgnFgnFcoFeoC%>F`v-%%diffG6 $F`vFdv>F_o*&F_oFgnFaoFdo>Fjn7%F_p*&-%%subsG6$/FdvFftF`vFgnF_oFgnFao>8$-%'subso pG6%/Fjo%%NULLG/FZF[xF8-F;6#-F_q6%FfwFcoFjnFdrF2F2F2F2 M7R0 I-dev/Fresnelgf*6$%"uG%"nG6*%%factG%"iG%"xG%(exampleG%"kG%"jG%%initG%$sigG6#%RC opyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG -%'RETURNG6#F9@$4-F66$F8%%listGC$>8*-%*traperrorG6#-%)FresnelgG6#F8@%/FD%*laste rrorGF:-F;6#FD>8+-%&evalrG6#-%'SignumG6#&F86#""$@)/FQ"""C&>8'7&!""""!,$*$%#PiG" "##Fgn""&Fgn>8(F^o?(8%FaoFgn,&9%FgnF\oFgn%%trueGC$>Feo,$*(FeoFgnF`oFao,&Fgo""%F gnFgnF\oF\o>Fjn7%-%#opG6#FjnFeoFgo-F;6#-%(dev/addG6$#FgnFao-%(dev/prdG6$F8-%-de v/endofdevG6%-%(dev/powG6%F8F`pFhoFhoFjn/FQF\oC(>FQ-FS6#-FV6#-%#ReG6#-%+dev/lco effGFJ@&5Feq/FQF]oF:/FQ%%FAILG-%&ERRORG6#Fer>Fjn7&*$F`o!"#F]o,$*$F`o!"%!#:Fgn>F eoF]s?(FgoFaoFgnFioFjoC$>Feo,$*(FeoFgn,&*$FgoFao"#;F\oFgnFgnF`oF\sF\o>FjnFbp-F; 6#-F]q6$-Fcq6%F8!"$Fio-F`q6%-Fcq6%F8F_sFioFioFjnFcrC$@%-F66$&F86#FaoFA>FD-F"6$7 %-Fdp6#FjtF]o%)infinityGFio>FD-F"6$FjtFio@%32Fio-%+dev/lengthGFO0&FD6#-%%nopsGF OFbuFNC(>Fjn7$FDF]o>8)-FI6#8&>FeoFgn?(FgoFgnFgnFioFjoC%>Fdv-%%diffG6$FdvFgv>Feo *&FeoFgnFgoF\o>Fjn7%Fcp*&-%%subsG6$/FgvFjtFdvFgnFeoFgnFgo>8$-%'subsopG6%/Fao%%N ULLG/FZF^xF8-F;6#-F`q6%FiwFioFjnFfrF2F2F2F2 M7R0 I*dev/GAMMAf*6$%"uG%"nG6.%%factG%"iG%"xG%(exampleG%%newuG%"jG%)example2G%*first partG%"kG%%initG%$sigG%#coG6$%)rememberG%RCopyright~Bruno~Salvy,~INRIA~Rocquenc ourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG-%'RETURNG6#F>@$4-F;6$F=%%listGC$>8- -%*traperrorG6#-%&GAMMAG6#F=@%/FI%*lasterrorGF?-F@6#FI>8.-%&evalrG6#-%'SignumG6 #&F=6#""$@)5/FV"""3/FV""!-F;6$&F=6#""#%'negintGC%@%F\oC%>8(F=>8%F`o>8'7'F]oF]o! ""F`o%)infinityGC&>F[p-%'subsopG6%/Feo%%NULLG/FinFipF=>F]pFco>F_p-%(dev/devG6%* $-%'expandG6#-%(convertG6$7#-%$seqG6$,&F]oF]o*&8)F]o%&_XasyGF]oFap/F]r;F]o,$F]p Fap%"*GFap9%Fcr>F_p7$F]o-Fiq6$-%#opG6#7$&F_p6#,$F]rFeo,&F]rF]o!"#F]o/F]r;F]o-%% iquoG6$-%%nopsG6#F_pFeo>8*-%(dev/prdG6$F_p-F"6$7)F]oF]oF`oF]oF]oF`oFbpFcr-F@6#- %(dev/addG6$-%/dev/multbyrealG6$-%(dev/powG6%F[pFapFcr&FjsFdo-%-dev/endofdevG6% F[pFcr-Ffp6&/F]oFipFhpFjpFjs/FVFapC)>FV-FX6#-Fen6#-%#ReG6#-%+dev/lcoeffGFO@&Fcu F?/FV%%FAILG-%&ERRORG6#Fav>8+-Fgt6$-F\t6$-%(dev/expG6$-F\t6$F=-Fdt6$Fap-%'dev/l nG6$F=FcrFcr-Fjt6%F=#FapFeoFcr*&Feo#F]oFeo%#PiGFiw@$32Fcr-%+dev/lengthG6#Ffv0&F fv6#-FgsF`xFbp-F@F`x>F_p-Ffp6$Fbu-F\w6$7$F]o-Fiq6$-Fir6#7$*(-%*bernoulliG6#,$F] pFeoF]oF]pFap,&F]p""%F`sF]oFap,&F]pFeoFapF]o/F]p;F]o,&FcrF]oF]oF]oF[z>8$-Fjt6%F =FapFcr-F@6#-F\t6$Ffv-F^u6%F]zFcrF_pF_o@'/FcoF]oC'>&F_p6#F`oF]o>&F_p6#F]oF`o>8/ 7$,$%&gammaGFap-Fiq6$*&)Fap,&F]pF]oF]oF]oF]o-%%ZetaG6#Fh[lF]o/F]p;F]o,&FcrF]oFa pF]o?(F]pF]oF]oFcr%%trueGC$>&F_pFdy*&-Feq6$7#-Fiq6$*&&F`[l6#,&F]rF]oF]oF]oF]o&F _p6#,(F]pFeoF]rF`sF`sF]oF]o/F]r;F`o,&F]pF]oFapF]o%"+GF]oF]pFap>&F_p6#,&F]pFeoF] oF]oF]p-F@6#-F^u6%FepFcr7#-Fiq6$&F_p6#F]p/F]p;F`o,&FcrFeoF]oF]o3-F;6$Fco%(integ erG2F]oFcoC'>F_p-F^q6%-Fbq6#-Feq6$7#-Fiq6$,&F]oF]oF\rF]o/F]r;F]o,&FcoF]oFapF]oF brFcrFcr>F_p7$F]o-Fiq6$-Fir6#7$F\s,&F]rF]oFapF]oFas@$2Fco,&FcrF]oFeoF]o>F_p-Ffp 6$/,&FcoFeoFinF]oFbpF_p>FjsF^t-F@6#-F^u6%FepFcr-Ffp6$Fbu-F\t6$F_pFjsC%@%-F;6$Fc oFF>FI-F"6$7%-Fir6#FcoF`oFbpFcr>FI-F"6$FcoFcr@$-F;6$FIF>F?@%32Fcr-F_xFT0&FI6#-F gsFTFbpFSC(>F_p7$FIF`o>F]r-.FN6#8&>8,F]o?(F]pF]oF]oFcrF`\lC%>F]r-%%diffG6$F]rFa cl>Fccl*&FcclF]oF]pFap>F_p7%-FirFhs*&-%%subsG6$/FaclFcoF]rF]oFcclF]oF]p>F]zFep- F@6#FdzFbvF7F7F7F7 M7R0 I(dev/Psif*6$%"uG%"nG6.%%factG%"iG%"xG%(exampleG%%newuG%"jG%*firstpartG%)exampl e2G%"kG%%invuG%%initG%$sigG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~Franc eG6"C'@$/9#""$-%'RETURNG6#-%.dev/polygammaG6#9"@$-%%typeG6$9$%*undefinedG-F=6#F H@$4-FE6$FG%%listGC$>8.-%*traperrorG6#-%$PsiG6#FG@%/FR%*lasterrorGFI-F=6#FR>8/- %&evalrG6#-%'SignumG6#&FG6#F;@)5/Fin"""3/Fin""!-FE6$&FG6#""#%'negintGC%@%FdoC$> 8(FG>8'7'Feo!""FgpFho%)infinityGC&>Fcp-%'subsopG6%/F]p%%NULLG/F;F_qFG>8%F[p>Fep -%(dev/devG6%-%'normalG6#-%(convertG6$7#-%$seqG6$*$,&FeoFeo*&8)Feo%&_XasyGFeoFg pFgp/Fdr;Feo,$FbqFgp%"+G,&9%FeoFgpFeoFjr>Fep7&FeoFgpFgp-F_r6$-%#opG6#7$,$&Fep6# ,$FdrF]pFgp,&FdrFeoFgpFeo/Fdr;FeoF[s>8+-%(dev/addG6$-F"6$7)FeoFeoFhoFeoFeoFhoFh pFjrFep-F=6#-F^t6$-%/dev/multbyrealG6$-%(dev/powG6%FcpFgpF[s&F\tF\p-%-dev/endof devG6%FcpF[s-F\q6&/FeoF_qF^qF`qF\t/FinFgpC)>Fin-F[o6#-F^o6#-%#ReG6#-%+dev/lcoef fGFX@&FduFI/Fin%%FAILG-%&ERRORG6#Fbv>8*-%'dev/lnG6$FGF[s@$32F[s-%+dev/lengthG6# Fgv0&Fgv6#-%%nopsGF`wFhp-F=F`w>Fep7#-F_r6$-Fas6#7$,$*&-%*bernoulliG6#,$FbqF]pFe oFbqFgp#FgpF]pFbq/FbqFjs>8--F[u6%FGFgpF[s-F=6#-F^t6$-F^t6$Fgv-Fht6$FgxFdx-F_u6% -F[u6%FgxF]pFjrFjrFepFgo@'/F[pFeo-F=6#-F_u6%F[qF[s7%,$%&gammaGFgpFho-F_r6$-Fas6 #7$*&)FgpFbqFeo-%%ZetaG6#FbqFeo,&FbqFeoFgpFeo/Fbq;F]p,&F[sFeoFeoFeo-FE6$F[p%(in tegerGC&>Fep-Feq6%-Fhq6#-F[r6$7#-F_r6$*$,&FeoFeo*&FbqFeoFerFeoFeoFgp/Fbq;Feo,&F [pFeoFgpFeoFirF[sF[s>Fep7$Feo-F_r6$-Fas6#7$&FepFbxFiz/Fbq;FeoF\[l>F\t-F"6$FbtF[ s-F=6#-F_u6%F[qF[s-F\q6$Fcu-F^t6$FepF\tC$@%-FE6$F[pFO>FR-F"6$7%-Fas6#F[pFhoFhpF [s>FR-F"6$F[pF[s@%32F[s-F_wFgn0&FR6#-FewFgnFhpFfnC(>Fep7$FRFho>Fdr-FW6#8&>8,Feo ?(FbqFeoFeoF[s%%trueGC%>Fdr-%%diffG6$FdrFa_l>Fc_l*&Fc_lFeoFbqFgp>Fep7%-Fas6#Fep *&-%%subsG6$/Fa_lF[pFdrFeoFc_lFeoFbq>8$F[q-F=6#-F_u6%Fg`lF[sFepFcvF6F6F6F6 M7R0 I.dev/polygammaf*6%%"kG%"uG%"nG6.%%factG%"iG%"xG%(exampleG%$valG%%newuG%)exampl e2G%"jG%&kfactG%'tomultG%%initG%$sigG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquenco urt,~FranceG6"C'@$-%%typeG6$9%%*undefinedG-%'RETURNG6#F>@$4-F;6$9$%(integerG-%& ERRORG6#%%FAILG@$4-F;6$F=%%listGC$>8.-%*traperrorG6#-%$PsiG6$FFF=@%/FS%*lasterr orGF?-F@6#FS>8/-%&evalrG6#-%'SignumG6#&F=6#""$@)5/Fjn"""3/Fjn""!-F;6$&F=6#""#%' negintGC&>8,*&)!"",&FFFgoFgoFgoFgo-%*factorialG6#FFFgo@%FioC&>8(F]p>8)-%'subsop G6%/F_p%%NULLG/FcoFeqF=>8'-%(dev/devG6%-%'normalG6#-%(convertG6$7#-%$seqG6$*$), &FgoFgo*&8%Fgo%&_XasyGFgoFfpFgpFfp/Fjr;Fgo,$F^qFfp%"+G,&9&FgoFfpFgoF`s>Fhq7&Fgo Fcp,&FFFfpFfpFgo-Fdr6$-%#opG6#7$*&&Fhq6#,$FjrF_pFgoFcpFgo,&FjrFgoFfpFgo/Fjr;Fgo FasC%>F^qFjo>F`qF=>Fhq7'FgoFcpFdsFjo%)infinityG>8*-F"6%FF7)FgoFgoFjoFgoFgoFjoFg tF`s-F@6#-%-dev/endofdevG6%F`qFas-Fbq6$/FgoFeq-%(dev/addG6$FhqFit/FjnFfpC(>Fjn- F\o6#-F_o6#-%#ReG6#-%+dev/lcoeffG6#F=@&FhuF?/FjnFKFH>Fcp*&)Ffp,&FFFgoFfpFgoFgo- Fip6#FjvFgo>Fhq7&FcpFF,$*&FcpFgoFFFgo#FgoF_pFgp?(FjrFgoFgoF`s%%trueGC$>Fcp,$*,F cpFgo,(FjrF_pFFFgoFfpFgoFgo,(FjrF_pFFFgo!"#FgoFgoFjrFfp,&FjrF_pFfpFgoFfpFaw>Fhq 7%-Fhs6#Fhq*&FcpFgo-%*bernoulliGF]tFgo,&FjrF_pFFFgo-F@6#-F`u6%-%(dev/powG6%F=Ff pFasFasFhqFio@'/F]pFgoC%>FcpFhp@%/-%%iremG6$FFF_pFjoC&>Fcp,$FcpFfp>8-,$),$%#PiG F_p,&FFFgoF_pFgoFaw>Fhq7&*&FcpFgo-%%ZetaG6#FgpFgoFjo*(FhyFgoF]zFfp-%$absG6#-Fbx 6#F]zFgoFgo?(FjrF_pF_pFasFcwC%>Fcp*,FcpFgo,&FFFgoFjrFgoFgo,(FFFgoFjrFgoFfpFgoFg oFjrFfpF_tFfp>Fhy,$**FhyFgoF\zF_pFjrFfp,&FjrFgoFgoFgoFfp""%>Fhq7'F^x*&FcpFgo-Fb z6#,(FFFgoFgoFgoFjrFgoFgoFjr*(FhyFgo,(FFFgoFjrFgoF_pFgoFfp-Ffz6#-Fbx6#F\\lFgoFc [lC&>Fhy,$)F[zFgpFaw>Fcp,$*&FcpFgoFgpFgoFfp>Fhq7&*(FhyFgoFgpFfp-Ffz6#-FbxFczFgo Fjo*&FcpFgo-FbzFizFgoFgo?(FjrF_pF_pFasFcwC%>Fhy,$**FhyFgoF\zF_pFjrFfpF_tFfpFd[l >Fcp*,FcpFgoFj[lFgoF^[lFgoFc[lFfpFjrFfp>Fhq7'F^x*(FhyFgoFj[lFfp-Ffz6#-FbxFi[lFg oFjr*&FcpFgo-FbzF`\lFgoFc[l-F@6#-F`u6%FaqFasFhq-F;6$F]pFGC'>Fcp*&)FfpFFFgoFhpFg o>Fhq-Fjq6%-F]r6#-F`r6$7#-Fdr6$*$),&FgoFgoFirFgoFgpFfp/Fjr;Fgo,&F]pFgoFfpFgoF_s FasFas>Fhq7$Fgo-Fdr6$Fgs/Fjr;Fgo,&FasFgoFgoFgo>Fit-F"6%FFF\uFas-F@6#-F`u6%FaqFa sFbuC$@%-F;6$F]pFP>FS-F"6%FF7%-Fhs6#F]pFjoFgtFas>FS-F"6%FFF]pFas@%32Fas-%+dev/l engthGFhn0&FS6#-%%nopsGFhnFgtFgnC(>Fhq7$FSFjo>8+-FX6$FF8&>FcpFgo?(FjrFgoFgoFasF cwC%>Fbbl-%%diffG6$FbblFebl>Fcp*&FcpFgoFjrFfp>Fhq7%F^x*&-%%subsG6$/FeblF]pFbblF goFcpFgoFjr>8$Faq-F@6#-F`u6%FgclFasFhqFHF7F7F7F7 M7R0 I-dev/LambertWf*6$%"uG%"nG6-%%factG%"iG%"xG%(exampleG%#l1G%#l2G%"jG%"kG%%initG% $sigG%$resG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG 6$9$%*undefinedG-%'RETURNG6#F<@$4-F96$F;%%listG@%/-%)zerotestG6$,$F;!""-%$expG6 #FK%%trueG-F>FNC$>8,-%*traperrorG6#-%)simplifyG6$-%)LambertWG6#F;Fen@%/FS%*last errorG-%&ERRORG6#FS-F>F\o>8--%&evalrG6#-%'SignumG6#&F;6#""$@)/F_o"""C$@$0-%#ImG 6#-%+dev/lcoeffGFfn""!F=-F>6#-%-dev/endofdevG6%F;9%7#-%$seqG6$-%#opG6#7$*()FK,& 8%F[pFKF[pF[p)FfqFeqF[p-%*factorialG6#FfqFKFfq/Ffq;F[p,&FjpF[pF[pF[p/F_oFKC(>F_ o-Fao6#-Fdo6#-%#ReGFap@&5F^r/F_oFdpF=/F_o%%FAILG-F[o6#F[s>8(-%'dev/lnG6$F;Fjp>8 )-Fas6$F_sFjp@+/FjpF[p>8.-%(dev/addG6$F_s-%/dev/multbyrealG6$FdsFK/Fjp""#>Fjs-F \t6$F[t-%(dev/prdG6$Fds-%(dev/powG6%F_sFKFjp/FjpFho>Fjs-F\t6$Fdt-Fgt6$-F\t6$-F_ t6$-Fjt6%FdsFbtFjp#F[pFbtF^t-Fjt6%F_s!"#Fjp/Fjp""%>Fjs-F\t6$F^u-Fgt6$-F\t6$-F_t 6$-Fjt6%FdsFhoFjp#FKFho-F\t6$-F_t6$Ffu#!"$FbtFds-Fjt6%F_sF_wFjp-F[o6#%0Not~impl ementedG-F>6#-%+dev/reduceG6$FjsFjpFirC$@%-F96$&F;6#FbtFD>FS-F"6$7%-F`q6#F^xFdp %)infinityGFjp>FS-F"6$F^xFjp@%32Fjp-%+dev/lengthGF\o0&FS6#-%%nopsGF\oFfxF]o@%0- FH6$,$F^xFKFLFOC(>8'7$FSFdp>8*-Fen6#8&>8+F[p?(FfqF[pF[pFjpFOC%>F^z-%%diffG6$F^z Faz>Fcz*&FczF[pFfqFK>F[z7%-F`q6#F[z*&-%%subsG6$/FazF^xF^zF[pFczF[pFfq>8$-%'subs opG6%/Fbt%%NULLG/FhoF[\lF;-F>6#-Fhp6%Ff[lFjpF[zC%>Ff[l-Fjt6%-Fb[l6$/F^x,$FLFKFg [lFhuFjp@%2Fjp"#?>F[z7#-F`q6$;F[p,&FjpFbtFbtF[p7JFKFdp*&FbtFhu-FM6#F[pFhuF[p,$F d]l#F[vFhoFbt,$*&FbtFhuFd]l#FhoFbt#"#6"#OFho,$*$Fd]lFbt#!#V"$N"F]v,$*&FbtFhuFd] l#""&Fbt#"$p("%?VFf^l,$*$Fd]lFho#!%o<"%0&)""',$*&FbtFhuFd]l#""(Fbt#"'j3o"(+KW&F c_l,$*$Fd]lF]v#!%ER"&:b#""),$*&FbtFhuFd]l#""*Fbt#"*dvGE#"++CY^BF``l,$*$Fd]lFf^l #!)wa5B"*v)[%*="#5,$*&FbtFhuFd]l#F\^lFbt#"-(>j%4(p"".+wD^F<#F\^l,$*$Fd]lF__l#!+ EE-PA",v$=b;A"#7,$*&FbtFhuFd]l#"#8Fbt#"0rn"\;uym"2+!ob)eZo,"Fial,$*$Fd]lFc_l#!+ o"4%3!)",vr<&4$*"#9,$*&FbtFhuFd]l#"#:Fbt#"3([(4DULjO5"4++C-%fcKI=Ffbl,$*$Fd]lF \`l#!0eZ1NO!Q$*"2DJIWo6jC""#;,$*&FbtFhuFd]l#"#F\sF]\lF\sF5F5F5F5 M7R0 I,dev/BesselJf*6%%#nuG%"uG%"nG60%%factG%"iG%"xG%(exampleG%&sinusG%(cosinusG%"kG %"jG%%initG%%invuG%'newresG%$resG%$sigG%'tomultG6#%RCopyright~Bruno~Salvy,~INRI A~Rocquencourt,~FranceG6"C'@$-%%typeG6$9%%*undefinedG-%'RETURNG6#F@@$-F=6$9$%%l istG-%&ERRORG6#%0Not~implementedG@$4-F=6$F?FHC$>8,-%*traperrorG6#-%(BesselJG6$F GF?@%/FS%*lasterrorGFA-FB6#FS>80-%&evalrG6#-%'SignumG6#&F?6#""$@)/Fjn"""C&>8+*& -%&GAMMAG6#FG!""FGF^p>8'7$Fio""!?(8%FfoFfo9&%%trueGC$>Fio,$*(FioFfoFdpF^p,&FGFf oFdpFfoF^p#F^p""%>F`p7%-%#opG6#F`pFioFdp-FB6#-%/dev/multbyrealG6$-%(dev/prdG6$- %(dev/powG6%F?FGFep-%-dev/endofdevG6%-F\r6%F?""#FepFepF`p*$)FcrFGF^p/FjnF^pC/>F jn-F\o6#-F_o6#-%#ReG6#-%+dev/lcoeffG6#F?@&FfrFA/Fjn%%FAILG-FJ6#Fes>8(-%+dev/cos sinG6$-%(dev/addG6$,&*&FGFfo%#PiGFfo#F^pFcrFbtF\qF?Fep>8)&Fis6#Ffo>8--F\r6%F?F^ pFep>Fis-Fiq6$&Fis6#FcrFit>8$-F\r6%FitFcrFep>81Ffo>8/Fbp>8.-F^t6$Fet-Ffq6$Fis,& *$FGFcrFct#Ffo"")Ffo?(FdpFfoFfo,&-%&truncG6#,$Fep#FfoFcrFfoFfoFfo0FhuFjuC%>FhuF ju>Ffu-Fiq6$FfuFbu>Fju-F^t6$Fhu-F^t6$-Ffq6$-Fiq6$FetFfu**)F^pFdpFfo-%(productG6 $,&F`vF]q*$,&.8*FcrF^pFfoFcrF^p/Fax;Ffo,$FdpFcrFfo)FbvFexF^p-%*factorialG6#FexF ^p-Ffq6$-Fiq6$FisFfu**)F^p,&FdpFfoFfoFfoFfo-F\x6$F^x/Fax;Ffo,&FdpFcrFfoFfoFfo)F bvFeyF^p-Fhx6#FeyF^p>Fhu-Ffq6$-Fiq6$Fju-F\r6%FitFivFep*&FcrFiv*$FbtF^pFiv@'32Fe p-%+dev/lengthG6#Fhu0&Fhu6#-%%nopsGFgz%)infinityG-FBFgz/FizF][l-FB6#7#-Faq6$;Ff o,&F[[lFfo!"#FfoFhuF^[l/FjnFbpC$@%-F=6$&F?F`uFH>FS-F"6%FG7%-Faq6#F]\lFbpF][lFep >FS-F"6%FGF]\lFep@%32Fep-FfzFhn0&FS6#-F\[lFhnF][lFgnC(>F`p7$FSFbp>Fio-FX6$FG8&> FbxFfo?(FdpFfoFfoFepFfpC%>Fio-%%diffG6$FioFe]l>Fbx*&FbxFfoFdpF^p>F`p7%F`q*&-%%s ubsG6$/Fe]lF]\lFioFfoFbxFfoFdp>Fbu-%'subsopG6%/Fcr%%NULLG/FcoF[_lF?-FB6#-F_r6%F buFepF`pFfsF9F9F9F9 M7R0 I+dev/AiryAif*6$%"uG%"nG68%%factG%"iG%"xG%(exampleG%(expfactG%(cosinusG%&sinusG %&fact2G%"kG%#c1G%#c2G%#ckG%)example1G%)example2G%"jG%&kfactG%%num1G%%num2G%%co efG%%initG%$sigG%%zetaG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6" C&@$-%%typeG6$9$%*undefinedG-%'RETURNG6#FG@$4-FD6$FF%%listGC$>87-%*traperrorG6# -%'AiryAiG6#FF@%/FR%*lasterrorGFH-FI6#FR>88-%&evalrG6#-%'SignumG6#&FF6#""$@)/Fi n"""C*>8-,$*&Fbo#FeoFbo-%&GAMMAG6##""#Fbo!""F[p>8.,$*&FboF_p-F]p6#F[pFap#FapFbo >84Feo>85Feo>83Feo>8'7&Fho""!FcpFeo?(8%FeoFeo,&9%FeoFapFeo%%trueGC&>F^q,$**F^qF eo,&FdqFbo!"#FeoFeo,&FdqFboFapFeoFeoFdqFeoFbo>Fjp*&FjpFeoF\rFeo>F\q*&F\qFeoF^rF eo>F`q7'-%#opG6#F`q*(FhoFeoFjpFeoF^qFap,$FdqFbo**FcpFeoF\qFeoF^qFap,&FdqFboFeoF eoFapF[s-FI6#-%-dev/endofdevG6%FFFfqF`q/FinFapC%>86-%&evalcG6#-%+dev/lcoeffGFX> Fin-F[o6#-F^o6#-%&coeffG6%Fds^#FeoFbq@'/Fin%%FAILG-%&ERRORG6#Fet3Fas/-F`t6%FdsF btFeoFbqC->89-%/dev/multbyrealG6$-%(dev/powG6%FF#FboF`pFfqF_p>8$-Fdu6%F_uFap,&F fqFeoFeoFeo>8+-Fdu6%FhuF`pF[v>8)-%+dev/cossinG6$-%(dev/addG6$,$%#PiG#Feo""%F]vF fq>8*&Fav6#F`p>Fav-Fau6$-%(dev/prdG6$&Fav6#FeoFhuFap>807$FeoFeo>817$#""&"#sFeo> 8/F^x?(FdqFeoFeo-%%iquoG6$FeqF`pFgqC&>Fbx,$**FbxFeo,&Fdq"#7FapFeoFeo,&FdqF\y!"& FeoFeoFdqFap#Fap"$W">Fiw7%-Ffr6#FiwFbxFdq>Fbx,$**FbxFeo,&FdqF\yF_xFeoFeo,&FdqF \yFeoFeoFeo,&FdqF`pFeoFeoFap#FeoF`x>F\x7%-Ffr6#F\xFbxFdq-FI6#-Fau6$-Fdw6$-Fdu6% FF#FapF[wFfq-Ffv6$-Fdw6$F]w-F_s6%F]v-Fex6$F[vF`pFiw-Fdw6$Fav-F_s6%F]vF_[lF\x*$F iv#FapF`pC%>FhuF`u>8(-%(dev/expG6$-Fau6$FhuFapF[v@%32Ffq-%+dev/lengthG6#Fj[l0&F j[l6#-%%nopsGFe\l%)infinityG-FI6#-%+dev/reduceG6$-Fau6$-Fdw6$FfzFj[l,$*$Fiv#Feo F`pFg]lFfqC'>Fhu-Fdu6%FhuFapFfq>F`q7$FeoFbq>FbxFeo?(FdqFeoFeoFfqFgqC$>Fbx,$**Fb xFeo,&Fdq""'F^yFeoFeo,&FdqFe^lFapFeoFeoFdqFap#FapF`x>F`q7%FerFbxFdq-FI6#-F_]l6$ -Fau6$-Fdw6$-Fdw6$Ffz-F_s6%FhuFfqF`qFj[l,$Fe[lFg]lFfq/FinFbqC$@%-FD6$&FFF_wFO>F R-F"6$7%-Ffr6#F\`lFbqF[]lFfq>FR-F"6$F\`lFfq@%32Ffq-Fd\lFgn0&FR6#-Fj\lFgnF[]lFfn C(>F`q7$FRFbq>82-FW6#8&>8,Feo?(FdqFeoFeoFfqFgqC%>Fbal-%%diffG6$FbalFeal>Fgal*&F galFeoFdqFap>F`q7%Fer*&-%%subsG6$/FealF\`lFbalFeoFgalFeoFdq>Fhu-%'subsopG6%/F`p %%NULLG/FboF\clFF-FI6#Fd_lFftF@F@F@F@ M7R0 I*dev/dilogf*6$%"uG%"nG6.%%factG%"iG%"xG%(exampleG%&itslnG%"jG%"kG%%initG%'newr esG%$resG%$sigG%'tomultG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6 "C&@$-%%typeG6$9$%*undefinedG-%'RETURNG6#F=@$4-F:6$F<%%listGC$>8+-%*traperrorG6 #-%&dilogG6#F<@%/FH%*lasterrorGF>-F?6#FH>8.-%&evalrG6#-%'SignumG6#&F<6#""$@)/FU """C*-%+dev/lcoeffGFN>8$F<>8(-%'dev/lnG6$F<9%>8/F[o>8-""!>8,,$*$%#PiG""##F[o""' ?(8%F[oF[oFfo0FjoF]pC%>FjoF]p>Fho-%(dev/prdG6$FhoF`o>F]p-%(dev/addG6$Fjo-F[q6$F ho-F_q6$,$*$Fep!"#!""-%/dev/multbyrealG6$Fbo*$FepFhq@'32Ffo-%+dev/lengthG6#F]p0 &F]p6#-%%nopsGFbr%)infinityG-F?Fbr/-%#opG6$FfrF]pFhr-F?6#7#-F\s6$;F[o,&FfrF[oFg qF[oF]pFir/FUFhqC+>FU-FW6#-FZ6#-%#ReG6#F]o@&5Fes/FUF[pF>3/FU%%FAILG-F:6$&F<6#Fa p%)constantG-%&ERRORG6#Fdt>F`o-%(dev/powG6%FFboFco>FhoF[o>FjoF[p>F]p-F_ q6$,$F_p#FhqFcp-Fjq6$-F_u6%FboFapFfo#FhqFap?(FepF[oF[oFfoFfpC%>FjoF]p>FhoFjp>F] p-F_q6$Fjo-F[q6$Fho-F_q6$FfqFiq@'F^rFir/FdrFhrF^sFirFatC$@%-F:6$FgtFE>FH-F"6$7% -F\s6#FgtF[pFhrFfo>FH-F"6$FgtFfo@%32Ffo-FarFS0&FH6#-FgrFSFhrFRC(>8'7$FHF[p>8)-F M6#8&>8*F[o?(FepF[oF[oFfo%%trueGC%>Fex-%%diffG6$FexFhx>Fjx*&FjxF[oFepFhq>Fbx7%- F\s6#Fbx*&-%%subsG6$/FhxFgtFexF[oFjxF[oFep>F`o-%'subsopG6%/Fap%%NULLG/FhnFbzF<- F?6#-%-dev/endofdevG6%F`oFfoFbxFjtF6F6F6F6 M7R0 I(dev/erff*6$%"uG%"nG6.%%factG%"iG%"xG%(exampleG%%sideG%"kG%#ckG%"jG%%coefG%%in itG%$resG%$sigG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%t ypeG6$9$%*undefinedG-%'RETURNG6#F=@$4-F:6$F<%%listG-F?6#-%$erfG6#F<>8/-%&evalrG 6#-%'SignumG6#&F<6#""$@)/FL"""-F?6#-%(dev/prdG6$F<-%-dev/endofdevG6%-%(dev/powG 6%F<""#9%F_o7#-%$seqG6$-%#opG6#7$,$**)!""8%FX-%*factorialG6#F\pF[p,&F\pF^oFXFXF [p-%%sqrtG6#%#PiGF[pF^oF\p/F\p;""!,&F_oFXFXFX/FLF[pC->8,-%&evalcG6#-%+dev/lcoef fGFJ@$0-%&coeffG6%F\q^#FXFXFgp-%&ERRORG6#%%FAILG>8(-FN6#-FQ6#F\q@$30F]rFX0F]rF[ pFhq>8$-F\o6%F8'7&FXFgp#F[pF^oFX>8*F^s?(F\pF^oFXF_o%%trueGC$>F`s,$*&F`s FX,&F\pF^oF[pFXFXF^s>F\s7%-Feo6#F\sF`sF\p>8.-Ffn6$-F\o6%FF]t-%(dev/addG6$FX-%/dev/multbyrealG6$-Ffn6$-%(dev/expG6$-F[u6$F[oF[pF _oF]t,$*$FdpF^sF[p>F]t-Fht6$F[p-F[u6$F]uFeu@'32F_o-%+dev/lengthG6#F]t0&F]t6#-%% nopsGF`v%)infinityG-F?F`v/-Feo6$FdvF]tFfv-F?6#7#-Feo6$;FX,&FdvFXFjrFXF]tFgv/FLF gpC$@%-F:6$&F<6#F^oFE>8--F"6$7%-Feo6#FgwFgpFfvF_o>Fjw-F"6$FgwF_o@%32F_o-F_v6#Fj w0&Fjw6#-FevFgxFfv-F?FgxC(>F\s7$FjwFgp>8+-FI6#8&>8)FX?(F\pFXFXF_oFbsC%>Fay-%%di ffG6$FayFdy>Ffy*&FfyFXF\pF[p>F\s7%Fjs*&-%%subsG6$/FdyFgwFayFXFfyFXF\p>Fgr-%'sub sopG6%/F^o%%NULLG/FUF[[lF<-F?6#FbtFhqF6F6F6F6 M7R0 I)dev/Zetaf*6$%"uG%"nG6(%$sigG%$resG%"iG%'oldresG%%initG%(exampleG6#%RCopyright ~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C'@$/9#""$-%&ERRORG6#%4not~implement ed~yetG@$-%%typeG6$9$%*undefinedG-%'RETURNG6#F?@$4-F<6$F>%%listG@'/-%)zerotestG 6$F>"""%%trueGF@/-FK6#-%%ZetaG6#F>FN-FA6#""!-FAFQ>8$-%&evalrG6#-%'SignumG6#&F>6 #F5@)/FZFM-FA6#-%-dev/endofdevG6%F>9%7%-FSFVFW-%$seqG6$-%#opG6#7$*&-FS6$8&FWFM- %*factorialG6#Fap!""Fap/Fap;FMFdo/FZFWC%@%-F<6$&F>6#""#FG>8(-F"6$7%-F[p6#F]qFW% )infinityGFdo>Faq-F"6$F]qFdo@$32Fdo-%+dev/lengthG6#Faq0&Faq6#-%%nopsGF`rFgq-FAF `r@%4-F<6$FaqF?C$@%/FaqFW>8)7#-Fho6$-F[p6#7$*&-FS6$FapF]qFMFbpFepFap/Fap;FM,&Fd oFMFMFM>F_s7%FaqFW-Fho6$FcsFfp-FA6#-Fbo6%-%'subsopG6%/F_q%%NULLG/F5FhtF>FdoF_sC $>F_s7%%&gammaGFW-Fho6$-F[p6#7$*()FepFapFM-F]uFdpFMFbpFepFap/Fap;FM-%$maxG6$FM, &FdoFM!"#FM-FA6#-%(dev/addG6$-%(dev/powG6%FdtFepFdo-Fbo6%Fdt,&FdoFMFepFMF_s/FZF epC$>FZ-Ffn6#-Fin6#-%#ReG6#-%+dev/lcoeffGFT@)Fhp-F76#%%FAILGF^oC'>8'FW>8%FM?(Fa pF_qFMF[t0F\xFjwC$>FjwF\x>F\x-F`v6$F\x-%(dev/expG6$-%/dev/multbyrealG6$F>,$-%#l nGFdpFepFdo@$/&F\x6#-Fer6#F\xFgq>F\x7#-F[p6$;FM,&FayFMF\vFMF\x-FAFbyFhvC$>F\x-F `v6$FM-Fhx6$F>Fep-FA6#-%(dev/prdG6$-Fhx6$-Fcz6$-Fex6$-Fhx6$F>-F\y6#,$%#PiGF_qFd o-Fcz6$-%*dev/GAMMAG6$F\xFdo-F"Fe[l*$F`[lFep-%(dev/sinG6$-Fhx6$F>,$F`[l#FMF_qFd oFewFewF0F0F0F0 M7R0 I+dev/cossinf*6$%"uG%"nG60%"iG%#i0G%'inivalG%%newuG%$resG%#coG%#siG%'still0G%%f actG%&interG%(infpartG%'newresG%$auxG%%nbitG6#%RCopyright~Bruno~Salvy,~INRIA~Ro cquencourt,~FranceG6"@)-%%typeG6$9$%*undefinedGF>4-F;6$F=%%listG7$-%$cosG6#F=-% $sinGFF/9%""!7$"""FKC$>80-%&evalrG6#-%'SignumG6#&F=6#""$@'5/FPFM/FPFKC*>8(7"@'F gnC%@%4-F;6$&F=6#""#FB>8&-F"6#Fbo>Ffo-F"6$7%-%#opGFhoFK%)infinityGFJ>8+-%'membe rG6$FKFfo>8'-%'subsopG6%/Fdo%%NULLG/FYF[qF=F_o@%2FY-%%nopsGFFC)>8)7%&F=6#FMFMFK >8*7%FeqFboFW>8,Fbo?(8$FdoFdo,$FJFdo%%trueGC&>F[r,$*(F[rFMF]r!""FboFMFdr>Fcq7%- F^p6#FcqF[r*&F]rFMFWFM>F[r*(F[rFM,&F]rFMFMFMFdrFboFM>Fhq7%-F^p6#FhqF[r*&F\sFMFW FM>Ffo7$FcqFhq>Fap%&falseG>FfpFgp-%'RETURNG6#7$7'FeqFMFKFM,$FWFdoF=C%>FfoFL>Ffp F=>FapF_r@$3Fap2FY-F`q6#FfpC%>8--F"6$7'&FfpFfq&FfpFco&FfpFXFKF_p-%&truncG6#-%&e valfG6#*&,&FJFMFMFMFMF^uFdr@*/FfoFL>FfoFht/Ffo7$FKFM>Ffo7$-%/dev/multbyrealG6$& FhtFcoFdr&FhtFfq/Ffo7$FdrFK>Ffo7$-F_v6$FbvFdrF^v/Ffo7$FKFdr>Ffo7$FavFgv>Ffp-Fhp 6%FjpF\qFfp>8%F^u@%/&Ffp6#FdtF_p>81,&FdtFM!"$FM>Fgw,&FdtFMFdrFM>8/Ffo?(F]rFdoFd oFgw0F]xFjnC%>FjnF]x>Fht-F"6$7'F\u&Ffp6#F]r&Ffp6#F\sFKF_p-F`u6#-Fcu6#,$*(FfuFMF awFMFhxFdr#FMFdo>F]x7$-%(dev/addG6$-%(dev/prdG6$&FjnFfqFbv-F_v6$-Fgy6$&FjnFcoFa vFdr-Fdy6$-Fgy6$FiyFav-Fgy6$F^zFbv@%/FjnF[o-Fhs6#Ffo-Fhs6#F]x/FPFdrC%?(F]r""&FM F_q-Fcp6$-FR6#-FU6#&F=Fgx<$FdrFKF8>8.-%,dev/instancG6#7#-F^p6$;FM,&F]rFM!"#FMF= @%31F]rF_q0Fe[lF_pC$>Fht-F"6$7$Feq-F^p6$;,&F]rFMFdrFMF_qF=FJ-Fhs6#7$-Fdy6$-F_v6 $Fbv-FE6#Fh[l-F_v6$Fav,$-FHFg]lFdr-Fdy6$-F_v6$FbvF[^l-F_v6$FavFf]l-Fhs6#7$Ff]lF [^l-%&ERRORG6#%%FAILGF8F8F8F8 M7R0 I(dev/cosf*6$%"uG%"nG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceGF' -%'RETURNG6#&-%+dev/cossinG6$9$9%6#"""F'F'F'F' M7R0 I(dev/sinf*6$%"uG%"nG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceGF' -%'RETURNG6#&-%+dev/cossinG6$9$9%6#""#F'F'F'F' M7R0 I(dev/tanf*6$%"uG%"nG6*%%factG%"iG%(exampleG%&exponG%&kfactG%&interG%%initG%$si gG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*und efinedG-%'RETURNG6#F9@$4-F66$F8%%listGC$>8*-%*traperrorG6#-%$tanG6#F8@'5/FD%*la sterrorG-%$hasG6$FD%)infinityGF:/-%)zerotestG6#FD%%trueG-F;6#""!-F;FV>8+-%&eval rG6#-%'SignumG6#&F86#""$@)/Fgn"""C(>8$-%(dev/powG6%F8""#9%>8&7*FcoFZ#FcoF`oFco# Fjo"#:Fjo#"#<"$:$F`o>8'"$c#>8(!&?.%?(8%""&Fco,&F[pFcoFcoFcoFWC%>Ffp,$Ffp""%>Fip ,$*(FipFcoF\qFco,&F\qFjo!""FcoFco!"#>F]p7%-%#opG6#F]p**FfpFco,&FfpFcoFgqFcoFcoF ipFgq-%*bernoulliG6#,$F\qFjoFco,&F\qFcoFgqFco-F;6#-%(dev/prdG6$F8-%-dev/endofde vG6%FfoF[pF]p/FgnFgqF:/FgnFZC$@%-F66$&F86#FjoFA>FD-F"6$7%-F\r6#FcsFZFRF[p>FD-F" 6$FcsF[p@'-F66$FDF9-Fho6%-%(dev/cotG6$F8F[pFgqF[p32F[p-%+dev/lengthGFV0&FD6#-%% nopsGFVFRFenC$>8)-F"6$-%'subsopG6%/Fjo%%NULLG/F`oFhuF8F[p-F;6#-Fhr6$-%(dev/addG 6$FauFD-Fho6%-F_v6$Fco-Fhr6$Fau-%/dev/multbyrealG6$FDFgqFgqF[p-%&ERRORG6#%%FAIL GF2F2F2F2 M7R0 I(dev/cotf*6$%"uG%"nG6)%%factG%"iG%(exampleG%&kfactG%%initG%&interG%$sigG6#%RCo pyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C%@$4-%%typeG6$9$%%listGC$>8( -%*traperrorG6#-%$cotG6#F8@'5/F<%*lasterrorG-%$hasG6$F<%)infinityG-%'RETURNG6#% *undefinedG/-%)zerotestG6#F<%%trueG-FL6#""!-FLFR>8*-%&evalrG6#-%'SignumG6#&F86# ""$@)/FY"""C'>8$-%(dev/powG6%F8""#9%>8&7(#!""F\oFV#F\p"#XF_o#!"#"$X*Ffo>8'#!"%F ^p?(8%""%F_oFgoFSC$>Fcp,$*(FcpF_oFgpF\p,&FgpFfoF\pF_oF\pF`p>Fio7%-%#opG6#Fio*&F cpF_o-%*bernoulliG6#,$FgpFfoF_o,&FgpF_oF\pF_o-FL6#-%(dev/addG6$-Fdo6%F8F\pFgo-% (dev/prdG6$F8-%-dev/endofdevG6%Fbo,&FgoF_oF\pF_oFio/FYF\pFK/FYFVC$@%-F66$&F86#F foF9>F<-F"6$7%-Faq6#F]sFVFJFgo>F<-F"6$F]sFgo@'-F66$F8)-F"6$-%'subsopG6%/Ffo%%NULL G/F\oFbuF8Fgo-FL6#-Far6$-F\r6$-Far6$F8(-%*traperrorG6#-%$secG6#F6@%5/FB%*lasterrorG-%$hasG6 $FB%)infinityGF8-F96#FB>8)-%&evalrG6#-%'SignumG6#&F66#""$@)/FT"""C'>8$-%(dev/po wG6%F6""#9%>8&7*Fjn""!#FjnFaoFjn#""&"#CFao#"#h"$?(Fgn>8'!$?(?(8%""%FjnFbo%%true GC$>F_p,$*(F_pFjnFbpFjn,&FbpFao!""FjnFjn!"#>Fdo7%-%#opG6#Fdo*&-%&eulerG6#,$FbpF aoFjnF_pFjpFbp-F96#-%-dev/endofdevG6%F]oFboFdo/FTFjpF8/FTFfo-F96#-F_o6%&-%+dev/ cossinG6$F6Fbo6#FjnFjpFbo-%&ERRORG6#%%FAILGF0F0F0F0 M7R0 I(dev/cscf*6$%"uG%"nG6)%%factG%"iG%%initG%'newresG%$resG%'tomultG%$sigG6#%RCopy right~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C%@$4-%%typeG6$9$%%listGC$>8&-% *traperrorG6#-%$cscG6#F8@%5/F<%*lasterrorG-%$hasG6$F<%)infinityG-%'RETURNG6#%*u ndefinedG-FL6#F<>8*-%&evalrG6#-%'SignumG6#&F86#""$@)/FR"""C(>8$-%(dev/powG6%F8" "#9%>8)F8>8(""!>8'-%(dev/addG6$-F]o6%F8!""F`o-%/dev/multbyrealG6$F8#Fhn""'?(8%F _oFhn,&F`oFhnFhnFhn0FgoFdoC%>FdoFgo>Fbo-%(dev/prdG6$FboF[o>Fgo-Fio6$Fdo-F_p6$Fb o,$**)F]p,&FdpFhnF]pFhnFhn,&)F_o,&FdpF_oF]pFhnFhnF]pFhnFhn-%*bernoulliG6#,$FdpF _oFhn-%*factorialGF[rF]pF_o-FL6#-%+dev/reduceG6$FgoF`o/FRF]pFK/FRFeo-FL6#-F]o6% &-%+dev/cossinG6$F8F`o6#F_oF]pF`o-%&ERRORG6#%%FAILGF1F1F1F1 M7R0 I+dev/arccosf*6$%"uG%"nG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~France GF'-%(dev/addG6$,$%#PiG#"""""#-%/dev/multbyrealG6$-%+dev/arcsinG6$9$9%!""F'F'F' F' M7R0 I+dev/arcsinf*6$%"uG%"nG6+%%factG%"iG%"kG%"xG%(exampleG%"jG%&kfactG%%initG%$sig G6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*unde finedG-%'RETURNG6#F:@$4-F76$F9%%listG-F<6#-%'arcsinG6#F9>8,-%&evalrG6#-%'Signum G6#&F96#""$@)/FI"""C'>8$-%(dev/powG6%F9""#9%>8(7(FU""!#FU""'FU#FR"#SFfn>8*#FR"" )?(8%FRFUFgn%%trueGC$>Fao,$*(FaoFU,&FeoFfn!""FUFUFeoF\p#FUFfn>Fin7%-%#opG6#Fin* &FaoFU,&FeoFfnFUFUF\pFeo-F<6#-%(dev/prdG6$F9-%-dev/endofdevG6%FXFgnFin/FIF\pF;/ FIF[oC'@%-F76$&F96#FfnFB>8+-F"6$7%-Fap6#FcqF[o%)infinityGFgn>Ffq-F"6$FcqFgn@$32 Fgn-%+dev/lengthG6#Ffq0&Ffq6#-%%nopsGFerF\r-FFI-FK6#-FN6#,&FcqFUF\pFU@)FTF;F^qC'>FX-%'subsopG6%/Ffn%%NULLG/FRFbtF 9>Fin7&FUF[o#F\p"#7FU>Fao#F\p""%?(FeoFfnFU,&FgnFUF\pFUFfoC$>Fao,$FjoFit>FinF_p- F<6#-%(dev/addG6$,$%#PiGF]p-%/dev/multbyrealG6$-Fhp6$-FZ6%-Fiu6$FXF\pF]pF\u-F[q 6%FXF\uFin,$*$FfnF]pF\pF]qC$>FI-FK6#-FN6#,&F\pFUFcqF\p@)FTF;F^qC'>FXF^t>Fin7&FU F[o#FUFgtFU>Fao#FUFjt?(FeoFfnFUF\uFfoC$>Fao,$FjoFcw>FinF_p-F<6#-Fdu6$,$Fgu#F\pF fn-Fiu6$-Fhp6$-FZ6%FXF]pF\uFavFcvF]qC$>FfqF^r@%FarF[sC(>Fin7$FfqF[o>8)-FF6#8'>8 &FU?(FeoFUFUFgnFfoC%>F\y-%%diffG6$F\yF_y>Fay*&FayFUFeoF\p>Fin7%F`p*&-%%subsG6$/ F_yFcqF\yFUFayFUFeo>FXF^t-F<6#FjpFasFasFasF3F3F3F3 M7R0 I+dev/arctanf*6$%"uG%"nG6+%%factG%"iG%"xG%(exampleG%%invuG%%initG%"jG%"kG%$sigG 6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*undef inedG-%'RETURNG6#F:@$4-F76$F9%%listG-F<6#-%'arctanG6#F9>8,-%&evalrG6#-%'SignumG 6#&F96#""$@)/FI"""C$>8$-%(dev/powG6%F9""#9%-F<6#-%(dev/prdG6$F9-%-dev/endofdevG 6%FXFgn7#-%$seqG6$-%#opG6#7$*&)!""8%FU,&F[pFfnFUFUFjoF[p/F[p;""!,&FgnFUFUFU/FIF joC$>FI-%)dev/signG6#&F96#Ffn@)/FI%%FAILG-%&ERRORG6#F[qFTC$>FX-FZ6%F9!"#,&FgnFU FjoFU-F<6#-%(dev/addG6$,$%#PiG#FUFfn-F[o6$-FZ6%F9FjoFdq-F^o6%FXFdq7#-Fbo6$-Feo6 #7$*&)Fjo,&F[pFUFUFUFUF\pFjoF[p/F[p;F_pFdqFapC%>8(F_r>FX-FZ6%F`sFfnFdq-F<6#-Fhq 6$,$F[r#FjoFfn-F[o6$F`s-F^o6%FXFgn7#-Fbo6$Fdo/F[p;F_pFgnF\q/FIF_pC$@%-F76$FgpFB >8)-F"6$7%-FeoFfpF_p%)infinityGFgn>Fit-F"6$FgpFgn@%32Fgn-%+dev/lengthG6#Fit0&Fi t6#-%%nopsGFguF^u-F8'7$FitF_p>8*-FF6#8&>8+FU?(F[pFUFUFgn%%trueGC%>Fcv-%% diffG6$FcvFfv>Fhv*&FhvFUF[pFjo>F`v7%-Feo6#F`v*&-%%subsG6$/FfvFgpFcvFUFhvFUF[p>F X-%'subsopG6%/Ffn%%NULLG/FRF`xF9-F<6#-F^o6%FXFgnF`vF\qF3F3F3F3 M7R0 I+dev/arccotf*6$%"uG%"nG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~France GF'-%(dev/addG6$,$%#PiG#"""""#-%/dev/multbyrealG6$-%+dev/arctanG6$9$9%!""F'F'F' F' M7R0 I+dev/arccscf*6$%"uG%"nG6(%%factG%"iG%(exampleG%&kfactG%%initG%$sigG6#%RCopyrig ht~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG-%'RET URNG6#F7@$4-F46$F6%%listGC$>8(-%*traperrorG6#-%'arccscG6#F6@%5/FB%*lasterrorG-% $hasG6$FB%)infinityGF8-F96#FB>8)-%&evalrG6#-%'SignumG6#&F66#""$@)/FT!""C'>8$-%( dev/powG6%F6!"#9%>8&7&"""""!#Ffo""'Ffo>8'#Ffo""#?(8%F]pFfoFbo%%trueGC$>F[p,$*(F [pFfo,&F_pF]pFjnFfoFfoF_pFjnF\p>Fdo7%-%#opG6#Fdo*&F[pFfo,&F_pF]pFfoFfoFjnF_p-F9 6#-%(dev/prdG6$-F_o6%F6FjnFbo-%-dev/endofdevG6%F]oFboFdo/FTFfoF8/FTFgo-F96#-%+d ev/arcsinG6$FbqFbo-%&ERRORG6#%%FAILGF0F0F0F0 M7R0 I+dev/arcsecf*6$%"uG%"nG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~France GF'-%(dev/addG6$,$%#PiG#"""""#-%/dev/multbyrealG6$-%+dev/arccscG6$9$-%$maxG6$F1 ,&9%F0!""F0F>F'F'F'F' M7R0 I)dev/sinhf*6$%"uG%"nG6(%%factG%"iG%(exampleG%&ifactG%%initG%$sigG6#%RCopyright ~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG-%'RETUR NG6#F7@$4-F46$F6%%listG-F96#-%%sinhG6#F6>8)-%&evalrG6#-%'SignumG6#&F66#""$@)/FF """C'>8$-%(dev/powG6%F6""#9%>8&7(FR""!#FR""'FR#FR"$?"FY>8'F\o?(8%""%FR,&FZFRFRF R%%trueGC$>F^o*(F^oFR,&F`oFR!""FRFRF`oFR>Ffn7%-%#opG6#Ffn*$F^oFhoFgo-F96#-%(dev /prdG6$F6-%-dev/endofdevG6%FUFZFfn/FFFhoC$>FF-FH6#-FK6#-%+dev/lcoeffGFD@'FQC$>8 (-%(dev/expG6$F6FZ@%32FZ-%+dev/lengthG6#Fcq0&Fcq6#-%%nopsGF\r%)infinityG-F96#-% /dev/multbyrealG6$Fcq#FRFY-F96#-Ffr6$-%(dev/addG6$Fcq-Ffr6$-FW6%FcqFhoFZFhoFhrF gpC$>Fcq-Feq6$-Ffr6$F6FhoFZ@%Fhq-F96#-Ffr6$Fcq#FhoFY-F96#-Ffr6$-F^s6$-Ffr6$FcqF hoFbsFhr-%&ERRORG6#%%FAILG/FFFhn-F96#-F^s6$-Fbp6$-F"6$&F66#FYFZ-%)dev/coshG6$-% 'subsopG6%/FY%%NULLG/FOF^vF6FZ-Fbp6$-FhuFdu-F"FiuFhtF0F0F0F0 M7R0 I)dev/coshf*6$%"uG%"nG6(%%factG%"iG%&ifactG%(exampleG%%initG%$sigG6#%RCopyright ~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG-%'RETUR NG6#F7@$4-F46$F6%%listG-F96#-%%coshG6#F6>8)-%&evalrG6#-%'SignumG6#&F66#""$@)/FF """C'>8$-%(dev/powG6%F6""#9%>8'7(FR""!#FRFYFR#FR"#CFY>8&F[o?(8%FOFRFZ%%trueGC$> F]o,$*(F]oFR,&F_oFY!""FRFRF_oFRFY>Ffn7%-%#opG6#Ffn*$F]oFfoF_o-F96#-%-dev/endofd evG6%FUFZFfn/FFFfoC$>FF-FH6#-FK6#-%+dev/lcoeffGFD@&FQC$>8(-%(dev/expG6$F6FZ@%32 FZ-%+dev/lengthG6#F^q0&F^q6#-%%nopsGFgq%)infinityG-F96#-%/dev/multbyrealG6$F^qF in-F96#-Far6$-%(dev/addG6$F^q-FW6%F^qFfoFZFinFbpC$>F^q-F`q6$-Far6$F6FfoFZ@%FcqF ^r-F96#-Far6$-Fhr6$F^q-FW6$F^qFfoFin/FFFhn-F96#-Fhr6$-%(dev/prdG6$-F"6$&F66#FYF Z-F"6$-%'subsopG6%/FY%%NULLG/FOF]uF6FZ-Fat6$-%)dev/sinhGFdt-FbuFht-%&ERRORG6#%% FAILGF0F0F0F0 M7R0 I)dev/tanhf*6$%"uG%"nG6*%%factG%"iG%&ifactG%&exponG%(exampleG%%initG%&interG%$s igG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*un definedG-%'RETURNG6#F9@$4-F66$F8%%listG-F;6#-%%tanhG6#F8>8+-%&evalrG6#-%'Signum G6#&F86#""$@)/FH"""C(>8$-%(dev/powG6%F8""#9%>8(7*FT""!#!""FQFT#Fen"#:Fen#!#<"$: $FQ>8&"&?.%>8'"$c#?(8%""%FTFfn%%trueGC%>Fco,$*(FcoFT,&FioFenFTFTFT,&FioFTFTFTFT Fen>Ffo,$FfoFjo>Fhn7%-%#opG6#Fhn**FfoFT,&FfoFTF\oFTFT-%*bernoulliG6#,&FioFenFen FTFTFcoF\oFio-F;6#-%(dev/prdG6$F8-%-dev/endofdevG6%FW,&FfnFTFTFTFhn/FHF\oC$>FH- FJ6#-FM6#-%+dev/lcoeffGFF@%FS-F;6#-Feq6%-%(dev/expG6$-Fbq6$F8!"#FfnFfn7%FTFjn-% $seqG6$-Fgp6#7&F[s,&FioFenF\oFTFen,$FioFen/Fio;FT,&-%%iquoG6$FfnFenFTFTFT-F;6#- Feq6%-Fgr6$-Fbq6$F8FenFfnFfn7%F\oFjn-F^s6$-Fgp6#7&FenFcsF[sFdsFes/FHFjnC%>8)-F" 6$&F86#FenFfn>8*-F"6$-%'subsopG6%/Fen%%NULLG/FQFiuF8Ffn-F;6#-Fbq6$-%(dev/addG6$ FbuF\u-FY6%-F`v6$FT-FbqFavF\oFfn-%&ERRORG6#%%FAILGF2F2F2F2 M7R0 I)dev/cothf*6$%"uG%"nG6)%%factG%"iG%(exampleG%&ifactG%%initG%&interG%$sigG6#%RC opyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG -%'RETURNG6#F8@$4-F56$F7%%listGC$>8(-%*traperrorG6#-%%cothG6#&F76#"""@%/FC%*las terrorGF9-F:6#FC>8*-%&evalrG6#-%'SignumG6#&F76#""$@)/FSFLC'>8$-%(dev/powG6%F7"" #9%>8&7(#FLFfn""!#!"""#XFL#F_o"$X*F_o>8'#""%Fho?(8%FfnFL,&F`oFLFgoFL%%trueGC$>F \p,$*(F\pFL,&F`pF_oFLFLFgo,&F`pFLFLFLFgoF_o>Fbo7%-%#opG6#Fbo*&F\pFL-%*bernoulli G6#,&F`pF_oF_oFLFLF`p-F:6#-%(dev/addG6$-F]o6%F7FgoF`o-%(dev/prdG6$F7-%-dev/endo fdevG6%F[oFapFbo/FSFgoC$>FS-FU6#-FX6#-%+dev/lcoeffG6#F7@%Fhn-F:6#-F^r6%-%(dev/e xpG6$-%/dev/multbyrealG6$F7FgoF`oF`o7%FLFeo-%$seqG6$-F\q6#7$F_oF`p/F`p;FLF`o-F: 6#-F^r6%-F`s6$F7F`oF`o7%FgoFeo-Fgs6$-F\q6#7$!"#F`pF\t/FSFeoC%>FC-F"6$&F76#F_oF` o>8)-F"6$-%'subsopG6%/F_o%%NULLG/FfnFjuF7F`o-F:6#-F[r6$-Ffq6$FL-F[r6$FCFcu-F]o6 %-FfqFcvFgoF`o-%&ERRORG6#%%FAILGF1F1F1F1 M7R0 I)dev/sechf*6$%"uG%"nG6(%%factG%"iG%(exampleG%&ifactG%%initG%$sigG6#%RCopyright ~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG-%'RETUR NG6#F7@$4-F46$F6%%listG-F96#-%%sechG6#F6>8)-%&evalrG6#-%'SignumG6#&F66#""$@)/FF """C'>8$-%(dev/powG6%F6""#9%>8&7*FR""!#!""FYFR#""&"#CFY#!#h"$?(FO>8'F`o?(8%""%F RFZ%%trueGC$>Fbo,$*(FboFRFdoFR,&FdoFYFjnFRFRFY>Ffn7%-%#opG6#Ffn*&-%&eulerG6#,$F doFYFRFboFjnFdo-F96#-%-dev/endofdevG6%FUFZFfn/FFFjnC$>FF-FH6#-FK6#-%+dev/lcoeff GFD@%FQC$>8(-%(dev/expG6$-%/dev/multbyrealG6$F6FjnFZ@%32FZ-%+dev/lengthG6#Fgq0& Fgq6#-%%nopsGFcr%)infinityG-F96#-F\r6$FgqFY-F96#-F\r6$-%(dev/prdG6$Fgq-Fip6%-FW 6%FgqFYFZFZ-%$seqG6$-F_p6#7$FRFdo/Fdo;FhnFZFYC$>Fgq-Fiq6$F6FZ@%F_r-F96#-F\r6$Fg q!"#-F96#-F\r6$FbsFjt/FFFhn-FW6%-%)dev/coshGFdtFjnFZ-%&ERRORG6#%%FAILGF0F0F0F0 M7R0 I)dev/cschf*6$%"uG%"nG6(%"iG%(exampleG%&exponG%&ifactG%%initG%$sigG6#%RCopyrigh t~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG-%'RETU RNG6#F7@$4-F46$F6%%listGC$>8(-%*traperrorG6#-%%cschG6#F6@%/FB%*lasterrorGF8-F96 #FB>8)-%&evalrG6#-%'SignumG6#&F66#""$@)/FO"""C'>8%7(#!""""'""!#""("$g$Fen#!#J"& ?^"""#>8'"$?(>8&"#K?(8$FXFen,&9%FenF[oFen%%trueGC%>Ffo,$*(FfoFen,&F\pFenFenFenF en,&F\pFdoFenFenFenFdo>Fio,$Fio""%>Fhn7%-%#opG6#Fhn,$*(,&FioFenF[oFenFenFfoF[o- %*bernoulliG6#,&F\pFdoFdoFenFenFdoF\p-F96#-%(dev/addG6$-%(dev/powG6%F6F[oF^p-%( dev/prdG6$F6-%-dev/endofdevG6%-F[r6%F6FdoF]pF]pFhn/FOF[oC$>FO-FQ6#-FT6#-%+dev/l coeffGFH@%FZC$>FB-%(dev/expG6$-%/dev/multbyrealG6$F6F[oF^p@%32F^p-%+dev/lengthG FM0&FB6#-%%nopsGFM%)infinityG-F96#-Fes6$FBFdo-F96#-Fes6$-F^r6$FB-Far6%-F[r6%FBF doF^pF^p7#-%$seqG6$-F\q6#7$FenF\p/F\p;F]oF^pFdoC$>FB-Fbs6$F6F^p@%Fhs-F96#-Fes6$ FB!"#-F96#-Fes6$FjtFbv/FOF]o-F96#-F[r6%-%)dev/sinhGF\vF[oF^p-%&ERRORG6#%%FAILGF 0F0F0F0 M7R0 I,dev/arcsinhf*6$%"uG%"nG60%%factG%"iG%%sideG%(exampleG%"xG%&ifactG%"jG%"kG%%co efG%%initG%'newresG%$resG%'tomultG%$sigG6#%RCopyright~Bruno~Salvy,~INRIA~Rocque ncourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG-%'RETURNG6#F?@$4-F<6$F>%%listG-FA 6#-%(arcsinhG6#F>>81-%&evalrG6#-%'SignumG6#&F>6#""$@)/FN"""C&>8'7*FZ""!#!""""'F Z#FW"#S""##!"&"$7"FW>8)#Fao"#;?(8%""%FZ9%%%trueGC$>Fdo,$*(FdoFZ,&FhoF_oF[oFZFZF hoF[o#F[oF_o>Fgn7%-%#opG6#Fgn*&FdoFZ,&FhoF_oFZFZF[oFho-FA6#-%(dev/prdG6$F>-%-de v/endofdevG6%-%(dev/powG6%F>F_oFjoFjoFgn/FNF[oC*>8,-%&coeffG6%-%+dev/lcoeffGFL^ #FZFin@%-F<6$Fgq%)constantGC$>FN-FP6#-FS6#Fgq@%5FdqFY>8&FN-%&ERRORG6#%%FAILG>F[ sFZ>8$-Fbq6%F>!"#Fjo>8/Fin>80FZ>8.-%/dev/multbyrealG6$-%'dev/lnG6$-F]t6$F>,$F[s F_oFjoF[s?(FhoFZFZFjo0FgsF[tC%>FgsF[t>Fis-F\q6$FisFbs>F[t-%(dev/addG6$Fgs-F]t6$ Fis,$**)F[o,&FhoFZFZFZFZ-%(productG6$,&.8+F_oF[oFZ/Fju;FZFhoFZ-Fgu6$,$FjuF_oF\v F[oFhoF[o#FZF_o-FA6#F[t/FNFinC$>8--F"6$&F>6#F_oFjo@%32Fjo-%+dev/lengthG6#Fgv0&F gv6#-%%nopsGFaw%)infinityG-FAFawC(>Fgn7$FgvFin>8*-FK6#8(>F[vFZ?(FhoFZFZFjoF[pC% >F]x-%%diffG6$F]xF`x>F[v*&F[vFZFhoF[o>Fgn7%Fdp*&-%%subsG6$/F`xFjvF]xFZF[vFZFho> Fbs-%'subsopG6%/F_o%%NULLG/FWFfyF>-FA6#-F_q6%FbsFjoFgnF\sF8F8F8F8 M7R0 I,dev/arccoshf*6$%"uG%"nG6.%%factG%"iG%(exampleG%"xG%"jG%"kG%%coefG%%initG%'new resG%$resG%'tomultG%$sigG6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG 6"C&@$-%%typeG6$9$%*undefinedG-%'RETURNG6#F=@$4-F:6$F<%%listGC$>8+-%*traperrorG 6#-%(arccoshG6#F<@%/FH%*lasterrorGF>-F?6#FH>8/-%&evalrG6#-%'SignumG6#&F<6#""$@) /FU"""F>/FU!""C*>8*-%&coeffG6%-%+dev/lcoeffGFN^#F[o""!@%-F:6$F`o%)constantGC$>F U-FW6#-FZ6#F`o@&F\oF>/FU%%FAILG-%&ERRORG6#FdpF6>8$-%(dev/powG6%F8-Fgo>8. F[o>8,-%'dev/lnG6$-%/dev/multbyrealG6$F<""#F^q?(8%F[oF[oF^q0F`qFdqC%>F`qFdq>Fbq -%(dev/prdG6$FbqFip>Fdq-%(dev/addG6$F`q-Fiq6$Fbq,$*(-%(productG6$,&.8)F[rF]oF[o /Fas;F[oF]rF[o-F^s6$,$FasF[rFcsF]oF]rF]o#F]oF[r-F?6#Fdq/FUFgoC$>FH-F"6$&F<6#F[r F^q@%32F^q-%+dev/lengthGFS0&FH6#-%%nopsGFS%)infinityGFRC(>8&7$FHFgo>8(-FM6#8'>F bsF[o?(F]rF[oF[oF^q%%trueGC%>Fbu-%%diffG6$FbuFeu>Fbs*&FbsF[oF]rF]o>F_u7%-%#opG6 #F_u*&-%%subsG6$/FeuF`tFbuF[oFbsF[oF]r>Fip-%'subsopG6%/F[r%%NULLG/FhnF_wF<-F?6# -%-dev/endofdevG6%FipF^qF_uFepF6F6F6F6 M7R0 I,dev/arctanhf*6$%"uG%"nG6*%%factG%"iG%(exampleG%"xG%"jG%"kG%%initG%$sigG6#%RCo pyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*undefinedG- %'RETURNG6#F9@$4-F66$F8%%listGC$>8*-%*traperrorG6#-%(arctanhG6#F8@%/FD%*lasterr orGF:-F;6#FD>8+-%&evalrG6#-%'SignumG6#&F86#""$@)/FQ"""-F;6#-%(dev/prdG6$F8-%-de v/endofdevG6%-%(dev/powG6%F8""#9%Fdo7#-%$seqG6$-%#opG6#7$*$,&8%FcoFgnFgn!""F_p/ F_p;""!Fdo/FQF`pF:/FQFcpC$>FD-F"6$&F86#FcoFdo@%32Fdo-%+dev/lengthGFO0&FD6#-%%no psGFO%)infinityGFNC(>8&7$FDFcp>8(-FI6#8'>8)Fgn?(F_pFgnFgnFdo%%trueGC%>F\r-%%dif fG6$F\rF_r>Far*&FarFgnF_pF`p>Fiq7%-Fjo6#Fiq*&-%%subsG6$/F_rFjpF\rFgnFarFgnF_p>8 $-%'subsopG6%/Fco%%NULLG/FZFjsF8-F;6#-F^o6%FesFdoFiq-%&ERRORG6#%%FAILGF2F2F2F2 M7R0 I,dev/arccothf*6$%"uG%"nG6+%%factG%"iG%"xG%(exampleG%"jG%"kG%%initG%%invuG%$sig G6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~FranceG6"C&@$-%%typeG6$9$%*unde finedG-%'RETURNG6#F:@$4-F76$F9%%listGC$>8*-%*traperrorG6#-%(arccothG6#F9@%/FE%* lasterrorGF;-F<6#FE>8,-%&evalrG6#-%'SignumG6#&F96#""$@)/FR!""C$>8+-%(dev/powG6% F9Fhn9%-F<6#-%(dev/prdG6$F[o-%-dev/endofdevG6%-F]o6%F[o""#F_oF_o7#-%$seqG6$-%#o pG6#7$*$,&8%Fjo"""FfpFhnFep/Fep;""!F_o/FRFfpF;/FRFipC$>FE-F"6$&F96#FjoF_o@%32F_ o-%+dev/lengthGFP0&FE6#-%%nopsGFP%)infinityGFOC(>8'7$FEFip>8(-FJ6#8&>8)Ffp?(Fep FfpFfpF_o%%trueGC%>Fbr-%%diffG6$FbrFer>Fgr*&FgrFfpFepFhn>F_r7%-F`p6#F_r*&-%%sub sG6$/FerF`qFbrFfpFgrFfpFep>8$-%'subsopG6%/Fjo%%NULLG/FenF`tF9-F<6#-Ffo6%F[tF_oF _r-%&ERRORG6#%%FAILGF3F3F3F3 M7R0 I,dev/arcsechf*6$%"uG%"nG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~Franc eGF'-%,dev/arccoshG6$-%(dev/powG6%9$!""9%F2F'F'F'F' M7R0 I,dev/arccschf*6$%"uG%"nG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~Franc eGF'-%,dev/arcsinhG6$-%(dev/powG6%9$!""9%F2F'F'F'F' M7R0 I-evalc/RootOff*6#%"pG6,%"xG%"yG%#p1G%#p2G%"aG%"bG%"vG%"cG%$rofG%"gG6#%JCopyrig ht~1993~by~Waterloo~Maple~SoftwareG6"@'5/9#"""33/F7""#-%%typeG6$&9"6#F<-%"=G6$- %*identicalG6#%&labelG%)anythingG-F>6$9$.-%(polynomG6$%'algnumG%#_ZG@%3-F>6$FM. -FP6$%(numericGFS/-%&sturmG6&-%)sturmseqG6$FMFSFS,$%)infinityG!""F^o-%'degreeGF \o>-%/evalc/rememberG6#-.%'RootOfG6#FM-%,evalc/splitG6$Ffo""!C2>8*-%,evalc/eval cG6#-%%subsG6$/FS,&8$F8*&^#F8F88%F8F8FM>8(-%#opG6$F8F`p>8)-F`q6$F8&-Fep6$/ F\qFS-%*resultantG6%F^qFcqFip>8'-Fep6$/FipFS-F\r6%F^qFcqF\q>8--%$gcdG6$Fgq-%%di ffG6$FgqFS@$0FfrF8>Fgq-%$quoG6%FgqFfrFS>Ffr-Fhr6$F_r-F[s6$F_rFS@$F^s>F_r-Fas6%F _rFfrFS@$/-Fep6$/FSF]pFgqF]p>Fgq-Fas6%FgqFSFS@$/-Fep6$F`tF_rF]p>F_r-Fas6%F_rFSF S>Fgq-Fho6#Fgq>F_r-Fho6#F_r>-FdoF]u-F[p6$FgqF]p>-FdoF`u-F[p6$F_rF]p>Fco-F[p6$F_ rFgqF;C$>8+-%*traperrorG6#-Fbp6#F@@'30F^v%*lasterrorG/-F`q6$F8,-FbpFeo@%/F^vFgvFaw-F[p6$-Fgo6$-F`q6#-F`q6$F8Faw-F`q6$F8F^v-Fgo6 $-F`q6#-F`q6$F8$-%,eva lc/evalcG6#&F76#F0@%-%%typeG6$F<.-%.evalc/unsplitG6#%*algebraicG-FH6#-.%)Lamber tWG6#-%#opG6#F8&-FR6$F1F<>8'-FR6$F4F<@)-FD6$,&FVF1*&^#F1F1FZF1F1.-%(complex G6#%&floatG-F>6#-FO6#Fjn0FZF9-FH6#-FO6#-%,evalc/stdcxGFS-%'memberG6$-%'signumG6 #,&FVF1*$-%$expGF8!""F1<$F9F1-%,evalc/splitG6$-FO6#FVF9-FH6#F\qF3C%>8%F6>F<-F>6 #&F76#F4@%54-FD6$Fbq.%(integerGFC-FH6#-FN6$FbqF[pC&>FVFW>FZFen@$3/FZF92FbqF9C$> 8(-FapF]q@&/F\sF1-%'RETURNG6#-%0evalc/conjugateG6#-F"6$,$FbqFgpFV532FbqFgp/F\sF gp33/FbqFgpF\t/F`pFgp-Fas6#-Fds6#-F"6$,&FbqFgpFgpF1FV@)Fhn-F>6#-FO6$FbqFjnFfo-F H6#-FOFbr33F_t/F]sFgpF]p-Fjp6$-FO6$FgpFVF9-FH6#-FO6$FbqFVY6$QCexpecting~1~or~2~ arguments,~got~%1F$F0F$F$F$%(_syslibG M7R0 I/evalc/QuasiLogf*6#%%exprG6"F&F&-%&evalcG6#-%#lnG6#*$,&"""F/9$!""F1F&F&F&F& M7R0 I3evalc/QuasiInversef*6#%%exprG6"F&F&-%&evalcG6#*$,&"""F,9$!""F.F&F&F&F& M7R0 I0evalr/intersectf*6#%&listeG6$%"iG%$tmpG6#%aoCopyright~(c)~1990~by~the~Univers ity~of~Waterloo.~All~rights~reserved.G6"@%1""#-%%nopsG6#9$C$>8%-%#opG6$"""F2?(8 $F.F9F/%%trueG@%5-%'memberG6$-%&evalrG6#-%'SignumG6#,&-F76$7$F;F9F2F9-F76$F.F5! ""<$""!F9-F@6$-FC6#-FF6#,&-F76$7$F;F.F2F9-F76$F9F5FN<$FNFP-%'RETURNG6#%%NULLG>F 5;-FC6#-%$maxG6$FIFen-FC6#-%$minG6$FXFLF2F+F+F+%(_syslibG M7R0 I3evalr/QuasiInversef*6$%#rgG%&exactG6"F'F'-%*evalr/powG6%-%*evalr/addG6$7#;""" F0-%*evalr/prdG6%7#;!""F69$9%F6F8F'F'F'F' M7R0 I*evalr/prdf*6%%$rg1G%$rg2G%&exactG6%%&isposG%$varG%#t1G6#%aoCopyright~(c)~1990 ~by~the~University~of~Waterloo.~All~rights~reserved.G6"@%3-%%typeG6$9$%&rangeG- F26$9%F5C$@&3/-%#opG6$"""F4-F>6$""#F4-F26$F=%)constantGC%>8&-%&evalrG6#-%'Signu mG6#F=@(5/FIF@/FI""!>FI;*&F=F@-F>6$F@F8F@*&F=F@-F>6$FCF8F@/FI!"">FI;FZFW/FI%%FA ILG-%'RETURNG6#;,$%)infinityGFhnFbo@'-%$hasG6$FIFbo-F^o6#-%2simplify/infinityG6 #FI53-%(hastypeG6$-F>6$F@FI%&floatG4-F2F`p3-F_p6$-F>6$FCFIFcp4-F2Fhp-F^o6#-%&ev alfGF[p-F^oF[p3/FXFen-F26$FXFFC%>FI-FK6#-FN6#FX@(FQ>FI;FW*&FAF@FXF@Fgn>FI;F_rFW F[oF]o@%FdoFgoFaq@%333FD-F26$FAFFFdq-F26$FenFFC%@$5-%'memberG6$;FTFbo<$F4F8-F_s 6$;FaoFTFbsC$>FI-F"6$-F>6#-%%subsG6%/Fas;F@Fbo/Fes;FaoFhn7$F4F89&@$5/FI;FboFbo/ FI;FaoFaoFaq>FI;-FK6#-%$minG6&FWFZF_r*&FAF@FenF@-FK6#-%$maxGFau@%FdoFioFIC(>8%- %$mapG6$f*6#%"xGF.F.F.@$/FAF`oF4F.F.F.7#-F>6#-%&unionG6$<#-F>6#-%*evalr/varGFO< #-F>6#-F]w6#FA@$2FT-%%nopsG6#FjuC$>Fju-F>6$F@Fju-F^o6$-F"6$-F>6#-F]t6$/Fju-.%)I NTERVALG6$FjwFesFctFdt-F"6$-F>6#-F]t6$/Fju-Ffx6$FjwFasFctFdt>Fju-F\v6$f*F_vF.F. F.@$FbvF4F.F.F.7#-F>6#-Fgv6$<#-F>6#-F]wF[r<#-F>6#-F]w6#Fen@$FdwC$>FjuFjwF\x>8$- %,evalr/isposG6&,&FZF@F_rFhn%&falseGF^[lFdt@)5/Fiz%%trueG/FizFT-F^o6#-%/evalr/p rd/caseG6%F4F8Fdt/FizF^[l-F^o6#-Fg[l6%F8F4Fdt/FizF\oF]o-F^o6$-F\v6%f*6$F`v%"yGF .F.F.-Fg[l6$-F>6#F4F8F.F.F.-%,evalr/chvarG6$Fct-F>6$F@FizFdt-F\v6%f*Fd\lF.F.F.F f\lF.F.F.-F[]l6$7$F8F4-F>6$FCFizFdtC$>FI-F\v6&f*6%F`vFe\l%"zGF.F.F.-F>6#-F\v6&F "F8F4FdtF.F.F.F4F8Fdt@%/-FfwF[pF@FI-%,evalr/unionGF[pF.F.F.%(_syslibG M7R0 I/evalr/prd/casef*6%%$rg1G%$rg2G%&exactG6#%&isposG6#%aoCopyright~(c)~1990~by~th e~University~of~Waterloo.~All~rights~reserved.G6"C$>8$-%,evalr/isposG6&,&*&-%#o pG6$"""9$F8-F66$F89%F8F8*&-F66$""#F9F8-F66$F@F8$-%,evalr/isposG6&,&*&-%# opG6$"""9$F8-F66$F89%F8F8*&F5F8-F66$""#F8$-%,evalr/isposG6&,&*&-%# opG6$"""9$F8-F66$""#9%F8F8*&-F66$F8$-%,evalr/isposG6&,&*&-% #opG6$""#9$"""-F66$F:9%F:F:*&F5F:-F66$F8F=F:!""%&falseGFB9&@)5/F/%%trueG/F/""!- %'RETURNG6#;F>*&-F66$F:F9F:F;F:/F/FB-FK6#;F4FN/F/%%FAILG-FK6#FV-FK6$-F66#-%,eva lr/chvarG6$FM-F66$F:F/-F66#-Fhn6$FT-F66$F8F/F,F,F,%(_syslibG M7R0 I1evalr/prd/case12f*6%%$rg1G%$rg2G%&exactG6#%&isposG6#%aoCopyright~(c)~1990~by~ the~University~of~Waterloo.~All~rights~reserved.G6"C$>8$-%,evalr/isposG6&,&*&-% #opG6$""#9$"""-F66$F:9%F:F:*&F5F:-F66$F8F=F:!""%&falseGFB9&@)5/F/%%trueG/F/""!- %'RETURNG6#;F>*&-F66$F:F9F:F?F:/F/FB-FK6#;F4FN/F/%%FAILG-FK6#;,$%)infinityGFAFe n-FK6$-F66#-%,evalr/chvarG6$FM-F66$F:F/-F66#-F[o6$FT-F66$F8F/F,F,F,%(_syslibG M7R0 I1evalr/prd/case21f*6%%$rg1G%$rg2G%&exactG6#%&isposG6#%aoCopyright~(c)~1990~by~ the~University~of~Waterloo.~All~rights~reserved.G6"C$>8$-%,evalr/isposG6&,&*&-% #opG6$""#9$"""-F66$F:9%F:F:*&-F66$F:F9F:F;F:!""%&falseGFB9&@)5/F/%%trueG/F/""!- %'RETURNG6#;F>*&F?F:-F66$F8F=F:/F/FB-FK6#;F4FN/F/%%FAILG-FK6#;,$%)infinityGFAFe n-FK6$-F66#-%,evalr/chvarG6$FM-F66$F:F/-F66#-F[o6$;*&F?F:F5F:FN-F66$F8F/F,F,F,% (_syslibG M7R0 I1evalr/prd/case22f*6%%$rg1G%$rg2G%&exactG6#%&isposG6#%aoCopyright~(c)~1990~by~ the~University~of~Waterloo.~All~rights~reserved.G6"C$>8$-%,evalr/isposG6&,&*&-% #opG6$""#9$"""-F66$F:9%F:F:*&-F66$F:F9F:F;F:!""%&falseGFB9&@)5/F/%%trueG/F/""!- %'RETURNG6#;F>*&F5F:-F66$F8F=F:/F/FB-FK6#;F4FN/F/%%FAILG-FK6#;,$%)infinityGFAFe n-FK6$-F66#-%,evalr/chvarG6$FM-F66$F:F/-F66#-F[o6$;*&F?F:F5F:FN-F66$F8F/F,F,F,% (_syslibG M7R0 I/evalr/QuasiLogf*6$%#rgG%&exactG6"F'F'-%)evalr/lnG6$-%*evalr/powG6%-%*evalr/ad dG6$7#;"""F3-%*evalr/prdG6%7#;!""F99$9%F9F;F;F'F'F'F' M7R0 I*evalr/addf*6$%$rg1G%$rg2G6#%#t1G6#%aoCopyright~(c)~1990~by~the~University~of~ Waterloo.~All~rights~reserved.G6"@'3-%%typeG6$9$%&rangeG-F/6$9%F2C$>8$;,&-%#opG 6$"""F1F>-F<6$F>F5F>,&-F<6$""#F1F>-F<6$FDF5F>@%-%$hasG6$F8%)infinityG-%2simplif y/infinityG6#F8F85/F1%%FAILG/F5FQFQ-%,evalr/unionG6#-%$mapG6%f*6$%"xG%"yGF+F+F+ -F<6#-FW6%F"F5F1F+F+F+F1F5F+F+F+%(_syslibG M7R0 I/evalr/signuminf*6"6%%"iG%%lexpG%"rG6#%aoCopyright~(c)~1990~by~the~University~ of~Waterloo.~All~rights~reserved.GF$C'@$/9#"""-%'RETURNG6#9"@%-%$hasG6$7#F3%)in finityG@'-%'memberG6$,$F9!""F8-F16#F>-F<6%F9F8.8$-F16#-F"6#-%#opG6#-%'subsopG6$ /FE%%NULLGF8C$>8&-%2simplify/infinityG6#-%$minGF2@%3-%%typeG6$FT.%)functionG/-F K6$""!FT.FY>8%7#-FK6#FT>Fao7#FT>FaoF8>FT<#&Fao6#F/?(FE""#F/-%%nopsG6#Fao%%trueG >FT-%$mapG6%f*6$%"xG%"yG6#%"sGF$F$C$>FE-%&evalrG6#-%'SignumG6#,&9%F/9$F?@'5/FEF //FEF^oFfq/FEF?Feq6$FfqFeqF$F$F$FT&Fao6#FE-FY6#FcoF$F$F$%(_syslibG M7R0 I/evalr/signumaxf*6"6%%"iG%%lexpG%"rG6#%aoCopyright~(c)~1990~by~the~University~ of~Waterloo.~All~rights~reserved.GF$C'@$/9#"""-%'RETURNG6#9"@%-%$hasG6$7#F3%)in finityG@'-%'memberG6$F9F8-F16#F9-F<6%,$F9!""F8.8$-F16#-F"6#-%#opG6#-%'subsopG6$ /FE%%NULLGF8C$>8&-%2simplify/infinityG6#-%$maxGF2@%3-%%typeG6$FT.%)functionG/-F K6$""!FT.FY>8%7#-FK6#FT>Fao7#FT>FaoF8>FT<#&Fao6#F/?(FE""#F/-%%nopsG6#Fao%%trueG >FT-%$mapG6%f*6$%"xG%"yG6#%"sGF$F$C$>FE-%&evalrG6#-%'SignumG6#,&9%F/9$FC@'5/FEF C/FEF^oFfq/FEF/Feq6$FfqFeqF$F$F$FT&Fao6#FE-FY6#FcoF$F$F$%(_syslibG M7R0 I0evalr/signumabsf*6#%%exprG6#%"rG6#%aoCopyright~(c)~1990~by~the~University~of~ Waterloo.~All~rights~reserved.G6"C$>8$-%&evalrG6#-%'SignumG6#9$@)/F-"""F4/F-""! F9/F-!"",$F4F;-%$absGF3F*F*F*%(_syslibG M7R0 I,evalr/evalrf*6$%%exprG%&exactG6&%"iG%"fG%"rG%$idxG6$%)rememberG%aoCopyright~( c)~1990~by~the~University~of~Waterloo.~All~rights~reserved.G6"C$@$-%$hasG6$9$%% FAILG-%'RETURNG6#F6@33/-%%nopsG6#-%*intersectG6$-%$mapG6$f*6#%"xGF/F/F/-%#opG6$ ""!F5F/F/F/-%'indetsG6$F5%)functionG<&.%'SignumG.%$absG.%$maxG.%$minGFL-%%typeG 6$F5.%)realconsG@'-F36$F5%)infinityGC$>8&-%2simplify/infinityG6#F5-.%)INTERVALG 6#;F_oF_o9%-Fdo6#;F5F5C$>F_o-%&evalfGFboFco-Fen6$F5%"+GC$>F_o-F"6$-FJ6$"""F5Fho ?(8$""#Fip-F>Fbo%%trueG>F_o-%*evalr/addG6$F_o-F"6$-FJ6$F[qF5Fho-Fen6$F5%"*GC$>F _oFep?(F[qF\qFipF]qF^q>F_o-%*evalr/prdG6%F_oFcqFho-Fen6$F5%"^G@%-Fen6$-FJ6$F\qF 5.%)rationalG-%*evalr/powG6%FepFgrFho-F"6$-%$expG6#*&FgrFip-%#lnG6#FgpFipFho3-F en6$F5.FP0FIFdoC$>8%FI@+5/F^t.%$IntG/F^t.%$intG-%*evalr/intG6$-FJFboFho334-%(ha stypeG6$F5.%&rangeG/-F>6#-%&minusG6$-FN6$F5.%%nameG-%&unionG6$<#%*constantsG<#% #_ZGFL-%'memberG6$F^t7'FXFVFTFR.%&shakeG@+/F^tFX-%/evalr/signuminG6#Fjt/F^tFV-% /evalr/signumaxGF^w/F^tFT-%0evalr/signumabsGF^w/F^tFR-%-evalr/SignumGF^w-%,eval r/shakeG6$Fjt%'DigitsG/F^tFhvF6/F^t.%'RootOfG@%3/F]qF\q-Fen6$Fgr.-%(complexG6#% (numericG-Fiw6$FgrF[xC$F7-%&ERRORG6#%@Not~implemented,~~~evalr/RootOfGC$>F^t-%$ catG6$%'evalr/GF^t@)4-Fen6$F^t.%*procedureG-F^y6$%0Not~implementedGF^t5/F]qFip3 Fbx-Fev6$FI<&.%#EiG.%$PsiG.%%erfcG.%)LambertWGC$@%Faz>8'%%NULLG>Fa[lFgp-F^t6%Fa [l-F"6$-FJ6$F]qF5FhoFho-Fev6$FI<%.%%BetaG.%&GAMMAG.%%ZetaG-F^y6#%Bmultivariate~ case~not~implementedG-F^t6$-F"FitFho-FenFju-Fdo6#;-Fdo6$F5;,$F\o!""F\oF]]l3-Fen 6$F5-%)specfuncG6$%)anythingGFdo/-FD6$f*FGF/F/F/-FenF`uF/F/F/<#Fjt<#F^qF533Fc]l -Fen6$FgpF[v/-FD6$f*FGF/F/F/F]^lF/F/F/<#-FJ6#-%'subsopG6$/FipFb[lF5F_^lC$>F_o-F D6%F"FgrFho-Fdo6#;-Fdo6$Fgp;-FJ6$Fip-FJ6#-FJ6$FipF_o-FJ6$F\q-FJ6#-FJ6$F\qF_oFf_ l-F^y6$%-Invalid~typeGF5F/F/F/%(_syslibG M7R0 I,evalr/shakef*6$%%exprG%$digG6#%"sG6#%aoCopyright~(c)~1992~by~the~University~o f~Waterloo.~All~rights~reserved.G6"C&>%'DigitsG,&9%"""""#F1>8$-%*traperrorG6#-% ,shake/shakeG6$9$-%&FloatG6$"#5,$F0!""-%'subsopG6$/""%%%NULLG-%#opG6#F9@%/F4%*l asterrorG-%&ERRORG6#F4-%'RETURNGFPF+F+F+%(_syslibG M7R0 I,shake/shakef*6$%%exprG%%amplG6)%"rG%"iG%$resG%&expr2G%"fG%"sG%$idxG6$%)rememb erG%aoCopyright~(c)~1992~by~the~University~of~Waterloo.~All~rights~reserved.G6" @/5-%%typeG6$9$.%(numericG-%'memberG6$F8<#%*constantsG@'/F8^#"""-%&ERRORG6#%%FA ILG2""!-%&evalfG6#F8-.%)INTERVALG6#;-FK6#*&F8FC,&FCFC9%!""FC-FK6#*&F8FC,&FCFCFV FCFC-FN6#;FXFR-F66$F8%"+GC$>8$-F"6$-%#opG6$FCF8FV?(8%""#FC-%%nopsGFL%%trueG>F^o -%*evalr/addG6%F^o-F"6$-Fbo6$FeoF8FV%&falseG-F66$F8%"*GC$>F^oF_o?(FeoFfoFCFgoFi o>F^o-%*evalr/prdG6&F^oF^pFbpFbp-F66$F8%"^G@%-F66$-Fbo6$FfoF8.%)rationalGC%>8'F _o>8&-FNF2?(FeoFCFC-Fho6#FiqFioC$@%0-Fbo6$7$FeoFCFiq-Fbo6$7$FeoFfoFiq>F^o-FN6#- Fbo6$FeoFiq>F^o-FN6#;,&FcrFCFVFW,&FfrFCFVFC>F[r-FN6$-Fbo6#F[r-Fbo6#-%*evalr/pow G6%F^oFcqFbp-F"6$-%$expG6#*&FcqFC-%#lnG6#FaoFCFV-F66$F8.%)functionG@)/-Fbo6$FIF 8.%'RootOfG@%3/FgoFfo-F66$FcqF:-F"6$FJFVFD33/F]u.%$absG-F66$-FboFLF_u/-Fho6#F_v Ffo@%4-%$hasG6$-Fbo6$FfoF_vFB-F"6$-F\v6#Fhv-%$maxG6$-%'subsopG6$/FCFCFhvFV-F"6$ -%%sqrtG6#,&*$-%&coeffG6%FhvFBFIFfoFC*$-F]x6%FhvFBFCFfoFC-F_w6%-Fbw6$FdwF\x-Fbw 6$FdwF`xFV33Fju-%(hastypeGF^v-F[y6$F_v.%&floatG-F"6$-%%evalG6#-%%subsG6$/F_uf*6 $%"xG%"yGF2F2F2@%/9#FfoFV-F`uFLF2F2F2F8FVC$>8(-%$catG6$%'evalr/GF]u@'4-F66$Fcz. %*procedureG-FE6$%0Not~implementedGFcz5/FgoFC3Fcu-F<6$F]u<&.%#EiG.%$PsiG.%%erfc G.%)LambertWGC&@%Fb[l>8*%%NULLG>Fb\lFao>Fiq-F"6$-Fbo6$FgoF8FV>F[rF\r?(FeoFCFCF^ rFioC&@%Fbr>F^oFjr>F^oF_s>8)-Fcz6%Fb\lF^oFbp@$/Fa]lFGYFG@%/-Fho6#Fa]lFC>F[r-FN6 $Fgs;-FK6#-Fbo6$FC-FboFj]l-FK6#-Fbo6$FfoFc^l>F[r-FN6$FgsFc^l-FE6#%Bmultivariate ~case~not~implementedG333-F66$F8-%)specfuncG6$%)anythingGFNFcu-F66$Fao.%%nameG- F66$Fcq.%&rangeG-Fbw6$/FCFc\lF8-FE6$%-Invalid~typeGF8F2F2F2%(_syslibG M7R0 I-evalr/univarf*6%%+expressionG%$ex1G%$ex2G6,%"xG%#rgG%%exprG%&derivG%$resG%"iG %$errG%#t1G%#t2G%#t3G6#%aoCopyright~(c)~1991~by~the~University~of~Waterloo.~All ~rights~reserved.G6"C.>8$-%#opG6#-%&minusG6$-%'indetsG6$9$%%nameG<#%*constantsG @%-%(hastypeG6$FB%&rangeGC%>8%-F@FI>8&-%%subsG6$7#-%$seqG6$/-.%)INTERVALG6$F88) F8/FgnFMFB@%/-%%nopsG6#FM""">FM-F:F]o>FM;-%$minG6#-FV6$-F:6$F^oFgnFhn-%$maxG6#- FV6$-F:6$""#FgnFhnC$>FM;,$%)infinityG!""Ffp>FPFB>8'-%%diffG6$FPF8>8(7#-%&solveG 6$FjpF8?(FgnF^oF^oF51Fgn-F\o6#F_q@$5/-%&evalrG6#-%'SignumG6#,&-F:6$F^oFMF^o-F:6 $FgnF_qFgpF^o/-F\r6#-F_r6#,&FdrF^o-F:6$FapFMFgpF^oC$>F_q-%'subsopG6$/Fgn%%NULLG F_q>Fgn,&FgnF^oFgpF^o>F_q<#-F:Fgq@%-FH6$Fjp%&floatGC$>8*<#-%*traperrorG6#-%'fso lveG6%FjpF8FM@%55/F`t<#%*lasterrorG-%$hasG6$F`t.Fft1-F\o6#F`tFfq>F_qFhs>F_q<#-F :Fdu>F_qFhs>8+-%$mapG6&f*6%F)%"yG%"zGF5F5F5-FR6$/9&FB9%F5F5F5F_qFPF8@%Fgv>8,<#" "!>Fjv<#-%&limitG6%FP/F8Fbr%&rightG@%Ffv>8-F[w>Ffw<#-F`w6%FP/F8F\s%%leftG>F[v-F :6#-%&unionG6$-Fax6$FfwFjvF[v-FZ6#;-F\r6#-Fdo6#F[v-F\r6#-F[pF[yF5F5F5%(_syslibG M7R0 I(evalf/Of*6#%"xG6"F&F&-%"OG6#-%&evalfG6#9$F&F&F&F& M7R0 I0series/QuasiLogf*6$%%exprG%"xG6"F'F'-%'seriesG6$-%#lnG6#*$,&"""F09$!""F29%F'F 'F'F' M7R0 I4series/QuasiInversef*6$%%exprG%"xG6"F'F'-%'seriesG6$*$,&"""F-9$!""F/9%F'F'F'F ' M7R0 I2diff/QuasiInversef*6$%"aG%"xG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt, ~FranceGF'*&-%-QuasiInverseG6#9$""#-%%diffG6$F.9%"""F'F'F'F' M7R0 I.diff/QuasiLogf*6$%"aG%"xG6"6#%RCopyright~Bruno~Salvy,~INRIA~Rocquencourt,~Fra nceGF'*&-%%diffG6$9$9%""",&F0F0F.!""F2F'F'F'F' M7R0 I1conjugate/RootOff*6$%"xG%"yG6"F'F'@%3/9#""#-%%typeG6$9%.-%(complexG6#%(numeri cG-%'RootOfG6$9$-%*conjugateG6#F0-.F;6#-F76#9"F'F'F'F' M7R0 I%gfun`6fnc.algfuntoalgeq$:-1c.algebraicsubs$:-2c.algeqtodiffeq$:-3c.algeqtoser ies$:-4c&borel$:-5c.cauchyproduct$:-6c.diffeq+diffeq$:-7c.diffeq*diffeq$:-8c2di ffeqtohomdiffeq$:-9c,diffeqtorec%:-10c)guesseqn%:-11c(guessgf%:-12c0hadamardpro duct%:-13c0holexprtodiffeq%:-14c)invborel%:-15c(Laplace%:-16c,listtoalgeq%:-17c -listtodiffeq%:-18c0listtohypergeom%:-19c+listtolist%:-20c.listtoratpoly%:-21c* listtorec%:-22c-listtoseries%:-23c&pade2%:-24c,poltodiffeq%:-25c)poltorec%:-26c /ratpolytocoeff%:-27c(rec+rec%:-28c(rec*rec%:-29c,rectodiffeq%:-30c,rectohomrec %:-31c*rectoproc%:-32c.seriestoalgeq%:-33c/seriestodiffeq%:-34c2seriestohyperge om%:-35c-seriestolist%:-36c0seriestoratpoly%:-37c,seriestorec%:-38c/seriestoser ies%:-39c+Parameters%:-40c(NumGfun%:-41c)nth_term%:-42c*_pexports%:-43c,diffeqt able%:-44c1diffeqtorec/doit%:-45c-formatdiffeq%:-46c*formatrec%:-47c6goodinitva lues/diffeq%:-48c3goodinitvalues/rec%:-49c(makerec%:-50c,maxdegcoeff%:-51c,maxo rdereqn%:-52c*maxdegeqn%:-53c,mindegcoeff%:-54c*mindegeqn%:-55c,minordereqn%:-5 6c*optionsgf%:-57c(version%:-58b6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUP G%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoa lgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-f irstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG %-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromse riesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/ l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powco mposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtr uncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/check condG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exmi nG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbi sG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG %*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>f indequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;fin dequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmo dpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearl yG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF^o/%'unloadGF_o6fn%.al gfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchypro ductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesse qnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoa lgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG %-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(re c*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG %2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestose riesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/ doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%( makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,min ordereqnG%*optionsgfG%(versionG6"F[x6(%/type/gfun/freeG%7type/gfun/has2diffeqs2 G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectop roc/symbolGF[x%-_m4330812376G6ioc,GFUN_HIDDEN%:-59c.NUMGFUN_SETUP%:-60c0NUMGFUN _CLEANUP%:-61c3algeqtoseries/doit%:-62c:algeqtoseries/prettyprint%:-63c/algfunt oalgeq2%:-64c7algfuntoalgeq/formpoly%:-65c.borelinvborel%:-66c/cheapgausselim%: -67c*expintalg%:-68c-firstnonzero%:-69c,formatpoleq%:-70c,funtodiffeq%:-71c(get name%:-72c.guessandcheck%:-73c+indicialeq%:-74c-infsolvepoly%:-75c3infsolvepoly /found%:-76c4infsolvepoly/isroot%:-77c(inicond%:-78c.inifromseries%:-79c,isholo nomic%:-80c'lindep%:-81c-listprimpart%:-82c2listtoseriestable%:-83c(l2r/l2r%:-8 4c(l2h/l2h%:-85c+makediffeq%:-86c)maxindex%:-87c)minindex%:-88c(mygcdex%:-89c)m yisolve%:-90c*nbinicond%:-91c+powcompose%:-92c1powcomposesimple%:-93c5powcompos esimpledoit%:-94c*powdivide%:-95c*powrevert%:-96c,powtruncate%:-97c/pprimeknowi ngp%:-98c1rectodiffeq/doit%:-99c1rectohomrec/doit&:-100c4rectoproc/checkcond&:- 101c8gfun/rectoproc/binsplit&:-102c=rectoproc/binsplitparameters&:-103c1gfun_pa de2/exmin&:-104c0gfun_pade2/doit&:-105c4ratpolytocoeff/elmt&:-106c4ratpolytocoe ff/poly&:-107c/rectohomrecbis&:-108c(s2d/s2d&:-109c(s2a/s2a&:-110c,systomatrix& :-111c*typecheck&:-112c*CheckName&:-113c$@@D&:-114c+finddiffeq&:-115c*findalgeq &:-116c6rationalinterpolation&:-117c-findequation&:-118c7findequationgivenorder &:-119c>findequationgivenorderratpoly&:-120c?findequationgivenorderrational&:-1 21c*do_reduce&:-122c;findequationgivenordermodp&:-123c'degmat&:-124c(degvect&:- 125c*interpmat&:-126c+interpvect&:-127c,matmultmodp&:-128c-vectmultmodp&:-129c. matinterpmodp&:-130c8matinterpmodpearlyabort&:-131c(initmat&:-132c)tryearly&:-1 33c2checkresultnormal&:-134c,checkresult&:-135%(_syslibG M7R0 I/type/gfun/freef*6$%"xG%"yG6"F'F'4-%$hasG6$9$9%F'F'6$%6_thismoduledefinitionGb 6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseri es/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG% .borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funt odiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/fo undG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-li stprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)mi nindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powco mposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectod iffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG% =rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytoc oeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomat rixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolat ionG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?f indequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmat G%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmod pG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkres ultG6%%(packageG/%%loadGF5/%'unloadGF66fn%.algfuntoalgeqG%.algebraicsubsG%.alge qtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diff eqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0h olexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohyperg eomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiff eqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG %*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolist G%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_ termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6 goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereq nG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF'F '6(F"%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1t ype/gfun/initeqG%6gfun/rectoproc/symbolGF'F'%(_syslibG M7R0 I7type/gfun/has2diffeqs2f*6#%"xG6"F&F&-%'memberG6$9$<%.%'AiryAiG.%'AiryBiG.%%er fcGF&F&6$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SET UPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfunt oalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG% -firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indiciale qG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifrom seriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2 h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+pow composeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,pow truncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/che ckcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/ex minG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrec bisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffe qG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG% >findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;f indequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmult modpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryea rlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF9/%'unloadGF:6fn%.al gfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchypro ductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesse qnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoa lgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG %-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(re c*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG %2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestose riesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/ doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%( makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,min ordereqnG%*optionsgfG%(versionGF&F&6(%/type/gfun/freeGF"%7type/gfun/has2diffeqs 3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF&F&%(_syslib G M7R0 I7type/gfun/has2diffeqs3f*6#%"xG6"F&F&-%'memberG6$9$<#.%*LegendrePGF&F&6$%6_thi smoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CL EANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfu ntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG% ,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepol yG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholo nomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makedif feqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powco mposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/ppri meknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/r ectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade 2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG% (s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG% 6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgi venorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgive nordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmult modpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresu ltnormalG%,checkresultG6%%(packageG/%%loadGF5/%'unloadGF66fn%.algfuntoalgeqG%.a lgebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+d iffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0 hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodi ffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG %&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodi ffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohyper geomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Paramete rsG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdi ffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxde gcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*opti onsgfG%(versionGF&F&6(%/type/gfun/freeG%7type/gfun/has2diffeqs2GF"%3type/gfun/i dentityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF&F&%(_syslibG M7R0 I3type/gfun/identityf*6#%"xG6"F&F&3-%%typeG6$9$.%"=G/-%#opG6$"""F+-F06$""#F+F&F &6$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0N UMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq 2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-first nonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-in fsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseries G%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG %+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcompos eG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtrunca teG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcond G%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0 gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%( s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*fi ndalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>finde quationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequ ationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG% -vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2 checkresultnormalG%,checkresultG6%%(packageG/%%loadGF=/%'unloadGF>6fn%.algfunto algeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG% .diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(g uessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG% -listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-list toseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG %,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seri estohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG% +ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG% -formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makere cG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordere qnG%*optionsgfG%(versionGF&F&6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type /gfun/has2diffeqs3GF"%1type/gfun/initeqG%6gfun/rectoproc/symbolGF&F&%(_syslibG M7R0 I1type/gfun/initeqf*6$%%exprG%"yG6#%"fG6#%\pCopyright~(c)~1992-2008~by~Algorith ms~Project,~INRIA~France.~All~rights~reserved.G6"@%4-%%typeG6$9$-.%)functionG6# ""!%&falseGC$>8$-%#opG6$F6F155/F:9%/F:.-%"DG6#FA3-F/6$F:-F36#-.%*identicalGFF-F /6$-F<6$F6F:-.%#@@G6$-FM6#FE.%(integerGF+F+6$%6_thismoduledefinitionGb6#%+thism oduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG% :algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinv borelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG% (getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4inf solvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpar tG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%( mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimp ledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doi tG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectopro c/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmt G%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typ echeckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-fin dequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequati ongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvec tG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matin terpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(p ackageG/%%loadGF\o/%'unloadGF]o6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiff eqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2di ffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprt odiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+l isttolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)po ltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*recto procG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seri estoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%* _pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodini tvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*max degeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF+F+6(%/ty pe/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/iden tityGF"%6gfun/rectoproc/symbolGF+F+%(_syslibG M7R0 I6gfun/rectoproc/symbol=6"%&falseGE\[l'Q)loc_loop6"%"iGQ*arg_paramF(%"bGQ,loc_g enericF(%$locGQ(loc_tmpF(%$tmpGQ*loc_extraF(%%xlocGQ)arg_mainF(%"nG%(_syslibG M7R0 I&:-103t+6(%$recG%%uofnG%)startidxG%(stopidxG%$iniG%#~$G6$%0inline_ndmatrixG%$b spG6"F.C&>8$f*6#%"mGF.F.F.-..%)ndmatrixG6$-.%'MatrixG6#-%(convertG6$-%#opG6$""" 9$.%)listlistG-FB6$""#FEF.F.F.>8%-T%6$&n6#;FD""%F7>FL-%'subsopG6$/FD-F16#-FB6$F DFLFL-%$mapG6$%(ToInertG-%._Inert_EXPSEQG6$FL9(F.F.6&%6_thismoduledefinitionGb6 #%+thismoduleGF.F.61%+frectopolyG%*recmatrixG%-frectomatrixG%3rec_inicond_vecto rG%)binsplitG%5makeitfloat/mantissaG%,makeitfloatG%,extractlineG%0binsplit_para msG%+ratorfloatG%.nth_term_doitG%,choose_ringG%*fnth_termG%5nth_term_of_ndserie sG%&mydivGF.F.F.F.F.F^pc0binsplit_params&:-1366#""'6#/%+modulenameG%%gfunG M7R0 I&:-120f*6&%"LG%$ordG%"nG%'optypeG64%%indsG%$varG%$valG%$resG%(recurseG%)firstv alG%(lastvalG%&roundG%'resultG%$iniG%"kG%)tointerpG%$tmpG%$lcoG%&lmonsG%#ppG%%c ofsG%%densG6"F8$-%'indetsG6#9$>8%&F?6#"""@%/-%%nopsG6#F?FH>8(T%>FOT'>8--%*n extprimeG6#*&)""#FKFH-FLFBFH>8*""!?(8+FhnFHF<%%trueGC'>8),&FgnFHFHFH>Fgn,&F^oFZ !""FH?(8&F^oFHFgnF[oC&-%)userinfoG6(""%.%%gfunGQ*trying~atF &8'6#Fdo-FO6&-%%evalG6$FC/FEF^p9%9&9'@$/F`p%%FAILGOF^q-Fgo6&FioFjoQ'found:F8,&FapFGC%>8/-%$mapG6$%'expandG7#-%$seqG6$-%$addG6$*&&F`p6#8.FH)80Fdo FH/Fdo;FHFgn/Fir;FH,&FipFHFHFH-Fgo6&""&FjoQ.interpolatingF817#-%' coeffsG6%&Fjq6#Fft-Fat6$F?<#Fjp.82@$/-FL6#FitFH>Fdu7#Fdu?(FirFHFHFguF[oC$>&84Fh r-T)6$7#-Far6$-%&coeffG6%&FitFhrF[sFdoF\sFE@$/F^vF^q[@$F[wF\w>&FfqF_u-Fdr6$*&F^ vFH&FduFhrFH/Fir;FHFgu@$F[w\>Ffq-F^r6#-%%subsG6$/FE,(FEFHFTFboFboFH7#-Far6$F_w/ FftF_sC&-Fgo6%FcsFjoQJusing~CurveFitting:-RationalInterpolationF<>Ffq7#-Far6$-_ %-CurveFittingG%6RationalInterpolationG6$7#-Far6$7$F^pFgrF\sFEF^s>Ffq-%&numerG6 #-%'normalG6#-Fdr6$*&&FfqFhrFH)F[s,&FirFHFboFHFHF^s>Ffq7#-Far6$-Fgv6%FfqF[sFir/ Fir;FhnFip@$-T+6'FfqFCFipFjpF[qOFfqFfindequationgivenorderratpolyG%?findequationgi venorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%* interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterp modpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packa geG/%%loadGFf[l/%'unloadGFg[l6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeq G%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diff eqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtod iffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+lis ttolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)polt orecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectopr ocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0series toratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_p exportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitv alues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxde geqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGFfindequationgivenorderratpoly&:-120F__lc6rationalinterpolati on&:-117F``lc2checkresultnormal&:-1346#/%+modulenameGF[p M7R0 I$:-9f*6$%$DeqG%%yofxG6+%$deqG%"yG%"xG%$iniG%"cG%#dcG%"nG%"iG%'iszeroG6#%\pCopy right~(c)~1992-2007~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6 "C$>8$-T%6&7#9"8%8&8'@%/&F66#"""""!9$C'>8*-%%nopsG6#F6@$50F><"/FH""#C$>6$F>8,-T '6'F6F,&FHFC!"#FC@$FUO7$FDFC>8(FA>8),$-%%diffG6$FinF=!""-T)6&-%$mapG6%%(co llectG7&FD,&*&F[oFC&F66#FQFCFC*&FinFC-F^o6$F[pF=FCFC-%$seqG6$,(*&F[oFC&F66#8+FC FC*&FinFC-F^o6$FepF=FCFC*&FinFC&F66#,&FgpFCF`oFCFCFC/Fgp;""$FH*&FinFC&F66#FHFCF =FF3F36*%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN _SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/alg funtoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expinta lgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indic ialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.ini fromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG %(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG% +powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG% ,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc /checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade 2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectoho mrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+findd iffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenord erG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduce G%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,mat multmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)t ryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF\r/%'unloadGF]r6 fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cau chyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%) guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,l isttoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*list torecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+re cG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestod iffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seri estoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeq torec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/ recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqn G%,minordereqnG%*optionsgfG%(versionGF3F36(%/type/gfun/freeG%7type/gfun/has2dif feqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/r ectoproc/symbolGF3F3F\zc-formatdiffeq%:-46F^zc6goodinitvalues/diffeq%:-48Ffsc+m akediffeq%:-866$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-26t+6'%"pG'%%lrecG%%listG'%#luGF(%%uofnG>'%+computeiniG%(booleanG%%trueG6?% "uG%"nG%"kG%'tosubsG%"iG%$recG%#uuG%"vG%&lcoefG%%lindG%"jG%%varsG%&lindsG%"wG%' rorderG%"lG%#l2G%"mG%%jmaxG%%indsG%$iniG%$lcoG%$monG%$ordG%#n0G%#ppG%%lmaxG%&ba sisG%%backG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~Al l~rights~reserved.G6"C;@$0-%%nopsG6#9%-FV6#9&Y6%QKnot~the~same~number~of~elemen ts:~%1~and~%2FQFXFen-T%6%9'8$8%>8&FU>8'-%'subsopG6$/""%%%NULLGf*FQFQFQFQ9"FQFQF Q-%)userinfoG6&Fgo.%%gfunGQ& 8)6#Fbp-T'6&7$&FXFhp&FenFhp.8*.F^o&88Fhp>&8;Fhp,&-FV6#FfpFcp!"#Fcp>89&Ffp6#Fhq> 8:-&F]oFhp6#,&F^oFcpFeqFcp@%2""!Feq>8+-%(convertG6$-%$mapG6$%'normalG7$,$*&&Ffp 6#FcpFcpF\r!""Ffs-%$seqG6$,$*(&Ffp6#8.FcpF\rFfs-Fbr6#,(F^oFcpF^tFcpFjqFcpFcpFfs /F^t;""#,&FeqFcpFcpFcp%"+G>Fir,$-F`s6#FcsFfs>-Fbo6#F`rFir>&8,F]u7#-%'coeffsG6%F ir7#-Fhs6$-Fbr6#,&F^oFcpF^tFcp/F^t;Fgr,&FeqFcpFfsFcp&8-F]u>8=-%%subsG6$7#-Fhs6$ /-%#opG6$FgrF^qFbr/Fbp;FcpF`o9$>81Fav>8>Fgr?(FbpFcpFcpF`oF0C$>84-T)6%F`wFbrF^o@ $0Ffw,&%)infinityGFfsF^oFfsC$>Fbw-%$maxG6$FbwFfw?(F^tFfwFfsFeqF0>F`w-Fcv6$/Fhu- Fcv6$/F^o,(F^oFcpF^tFcpFeqFfs-Fbo6#FarF`w>8/<#-Fhs6$FfuF\w@$4-%%typeG6$F`w-.%(p olynomG6$-.%(ratpolyG6$.%)anythingGF^oF_yY6$Q5Not~a~polynomial:~%1FQF^w>8?F`y>8 0<$Fcp-Fhs6$FarF\w?(82FcpFcpFQF0C4-F\p6&""$F^pQFcomputing~and~reducing~shift~of ~orderFQF][l>F`w-%(collectG6%-Fcv6$7#-Fhs6$/FarF\yF\wF`wF_y.%,distributedG>F`w7 #-Fcu6%F`wF_y.83>Fd\l7#Fd\l>F`w-Fe[l6&-%$addG6$*&&F`wF]tFcp-Fbo6#&Fd\lF]tFcp/F^ t;Fcp-FV6#F`wF_yF]\lF`s>F\rF`\l>Ffw-%&minusG6$<#Fd\lFhz@$/Ffw<"[>Fd\lFf\l>8@-%& evalbG6#/-Fi]l6$FfwFfzF^^l@%4Fb^l>F`r-Fjv6$FcpFg^l>F`r&FfwFes-%'memberG6%F`rFd \l.85>F\u-Fe[l6%*&,(-%"hG6#,(F^oFcpF][lFcpFfsFcpFcp-F[]l6$*&&F\rF]tFcpF_]lFcp/F ^t;Fcp,&Fd_lFcpFfsFcpFfs-F[]l6$F``l/F^t;,&Fd_lFcpFcpFcp-FV6#Fd\lFfsFcp&F\r6#Fd_ lFfsF_yF]\l>F_u7#-Fcu6%F\uF_yF^v>Ffz-%&unionG6$Ffz<#F^v@$Fb^l?&FbpFhzF0@$-Fa_l6 %F`r7#&F_vFhpFc_lC%>F]blF\bl>-FboFhp-Fe[l6%,(-F[]l6$*&&&F`uFhpF]tFcp&F]blF]tFcp Fb`lFcp*&&FiblF]alFcpF\uFcpFcp-F[]l6$Fgbl/F^t;Fi`l-FV6#FiblFcpF_yF]\l>Fibl7#-Fc u6%FablF_y-%&evalnG6#F]bl>Fhz-Fdal6$Fhz<#F`r>F`w-Fcv6$/F^o,&F^oFcpFcpFcpF`w>F`w -Fcv6$/F[`lF]o-Fe[l6$-%)primpartG6#-%&numerG6#,&Fj_lFcpF`wFfs7#-Fhs6$-F[`lFiu/F ^t;Fgr,&F][lFcpFfsFcp@$49(OF`w>8F\fl-Fa x6$F\fl,(-Fax6#-Fhs6$-Fjv6#-Fjv6$FcpF^t/F^tFbqFcpFcpFcpFeqFfs>F\fl-Fax6$,*F\flF cpFbwFcpF][lFcpFjqFcp-T+6$-Fcv6$/F^o,(F^oFcpF][lFfsFdtFcp-%&coeffG6%F`w-F]oF\`l FcpF^o>86Ffs?(FbpFcpFcpF`oF0C%>Fbq-T-6(FfpFiv-Fjv6#F^qFbqF0F\fl>87-%'indetsG6$F bq&%#_CG6#F`z@$0FihlF^^lC$>Fbq-Fcv6$7#-Fhs6$/&FihlF]t&F^il6#,&F_hlFcpF^tFcp/F^t ;Fcp-FV6#FihlFbq>F_hl,&F_hlFcpF`jlFcp>Fcq-Fdal6#-Fhs6$-Fcv6$FhvFbqF\w>Fcq-Fdhl6 '-Fjp6%7$F`w-F]o6#F^o.F]oFaqF]oF^o-%'removeG6%%$hasG-Fcv6$Fcq<#-Fhs6$/-F]oFhp-F cv6$/F^oFbpFav/Fbp<#-Fhs6$-Fjv6#-Fjv6$FcpFbp/FbpFcq<#-Fhs6$FbrF\wF0@%/FcqF^^lF` w<$-Fjv6#FcqF`wFQFQ6.%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG% .NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettypri ntG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG% *expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheck G%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inico ndG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%( l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbi nicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*pow revertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4r ectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1g fun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG% /rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@D G%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequation givenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*d o_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpve ctG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(ini tmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFj]m/%'un loadGF[^m6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&b orelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diff eqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(L aplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratp olyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoef fG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG% /seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriesto recG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtabl eG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodi nitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG% *mindegeqnG%,minordereqnG%*optionsgfG%(versionGFQFQ6(%/type/gfun/freeG%7type/gf un/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/inite qG%6gfun/rectoproc/symbolGFQFQFf^mc(getname%:-72F[fmc*formatrec%:-47Fe_mc)maxin dex%:-87Fc^mc-firstnonzero%:-69F]fmc3goodinitvalues/rec%:-496#Fgo6$%*protectedG /%+modulenameGF_p M7R0 I%:-35f*6"F$F$F$@%0&9"6#""".%(stampedG-T'6#-T%6$""(F(-T+6&F+-T)6%F+&F(6#""#.%$o gfG-%#opG6$""!F:&F(6#""$F$F$6,%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN _HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/ prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapga usselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.gues sandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isroo tG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoserie stableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myiso lveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdiv ideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec /doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparam etersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoe ff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckN ameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7fin dequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrat ionalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG% +interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyab ortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadG FM/%'unloadGFN6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoserie sG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG% ,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invbore lG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listt oratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolyt ocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoal geqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,ser iestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffe qtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3 goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegco effG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7ty pe/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/ initeqG%6gfun/rectoproc/symbolGF$F$F[qc*typecheck&:-112F\uc2seriestohypergeom%: -35F]uc-seriestolist%:-36F\tc0listtohypergeom%:-196$%*protectedG/%+modulenameG% %gfunG M7R0 I%:-52%)infinityG6#/%+modulenameG%%gfunG M7R0 I%:-69f*6%%$polG%"nG%%nmaxG6#%%solsG6"F*C%>8$-T%6$9$9%@$/9#""$>F--%'selectG6$f* 6#%"tGF*F*F*-%&evalbG6#2F1T$F*F*6$F'9&F-,&-%$maxG6$!""-%#opG6#F-"""FMFMF*F*6&%6 _thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFU N_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7a lgfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonze roG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolv epolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,is holonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+mak ediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1p owcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/ pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gf un/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_ pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s 2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalg eqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequati ongivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequation givenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vect multmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2check resultnormalG%,checkresultG6%%(packageG/%%loadGFU/%'unloadGFV6fn%.algfuntoalgeq G%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diff eq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessg fG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-list todiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoser iesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rec todiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestoh ypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Para metersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-form atdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,m axdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%* optionsgfG%(versionGF*F*6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun /has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF *F*F]pc)myisolve%:-906#/%+modulenameG%%gfunG M7R0 I%:-86f*6&%$deqG%"yG%"xG%$iniG6$%"rG%"iG6#%\pCopyright~(c)~1992-2008~by~Algorit hms~Project,~INRIA~France.~All~rights~reserved.G6"C$>8$,&-%$addG6$*&&9$6#,&8%"" """#FfindequationgivenorderratpolyG%?findequationgivenor derrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*inter pmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpe arlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/% %loadGF`o/%'unloadGFao6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.alge qtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohom diffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG% )invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolist G%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.se riestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpo lyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexports G%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/d iffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%, mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF.F.6(%/type/gfun/f reeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1ty pe/gfun/initeqG%6gfun/rectoproc/symbolGF.F.6#/%+modulenameG%%gfunG M7R0 I%:-95f*6&%"pG%"qG%"xG%"nG6&%"uG%"bG%"iG%"jG6#%\pCopyright~(c)~1992-2008~by~Alg orithms~Project,~INRIA~France.~All~rights~reserved.G6"C%@$/-%%subsG6$/9&""!9%F9 YQ0not~implementedF0?(8&F9"""9'%%trueGC$>&8%6#F>-%&coeffG6%F:F8F>>&8$FF*&,&-FH6 %9$F8F>F?-%$addG6$*&&FL6#8'F?&FE6#,&F>F?FX!""F?/FX;F9,&F>F?FfnF?FfnF?&FE6#F9Ffn -FS6$*&FKF?)F8F>F?/F>;F9F@F0F06$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GF UN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoserie s/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheap gausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.gu essandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isr ootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoser iestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myi solveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powd ivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomr ec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitpar ametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytoc oeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Chec kNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7f indequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderr ationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmat G%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearly abortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loa dGFio/%'unloadGFjo6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtos eriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiff eqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)inv borelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.l isttoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratp olytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.series toalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG% ,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,d iffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffe qG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mind egcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF0F06(%/type/gfun/freeG %7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/g fun/initeqG%6gfun/rectoproc/symbolGF0F06#/%+modulenameG%%gfunG M7R0 I&:-112f*6#%"nG6#%"iG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~ France.~All~rights~reserved.G6"@7/9$"""@+32""#9#-%%typeG6$7#&9"6#;F2""$7$.%%lis tG.%%nameG@)/F3FY6$%+not~a~listGFco4-F56$&F96#F-.%)functionG6#F@@)FCO6%FFF8FK3 3FM-F56$FTF>-F56$7#-%$seqG6$&FR6#8$/F[rFT-F>6#FVOFYFgnYFinYF[oF]oY%2too~few~arg umentsGF`oYFfo4-F56$F[pFhpY6$%9invalid~unknown~functionGF[pYFap/F-F<@+F0@*FCOF^ qF_qOFYFgnYFinFMYF[oF]oYF_oF`oYFfoFhoYF^pY%1invalid~argmentsG/F-FN@-3FM-F56$7#F Z7%.%'seriesGF@F@OFY0F3FNY%:wrong~number~of~argumentsG4-F56$FcoF_tY6$%-not~a~se riesGFcoFhoYF^p4-F56$FTF@Y6$F_pFTYFap/F-""&@+3FCFepO6$FFF80F3F-F56$7#-Fgq6$Fiq/F[rF[pF]rOF gu2FfindequationgivenorderratpolyG%?findequationgivenorderrationa lG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+int erpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG %(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF`\l /%'unloadGFa\l6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoserie sG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG% ,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invbore lG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listt oratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolyt ocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoal geqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,ser iestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffe qtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3 goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegco effG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF*F*6(%/type/gfun/freeG%7ty pe/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/ initeqG%6gfun/rectoproc/symbolGF*F*F[elc*optionsgf%:-57Fg]lc2listtoseriestable% :-836#/%+modulenameG%%gfunG M7R0 I$:-1f*6%%%exprG%%yofxG%)inicondsG6)%"yG%"xG%#eqG%$ordG%$typG%*findcondsG%&init sG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~ reserved.G6"C)-T%6%9%8$8%>8(.%)rationalG>8)%&falseG@&/9#""%C%>F;&9"6#FD@$30F;.% *algebraicG0F;FF?%%trueG/FC""$@%5/&FH6#FWF F;Fen>F?FU>8&-T'6&9$F8F9F;@$F?C%>8',&-%'degreeG6$F[oF8"""-Ffo6$-%'lcoef fGFgoF9Fho>8*-T)6(F_oF9,&FcoFho!""FhoF8""!<"@%-%$hasG6$F^pF9>9&%%NULLG>F[qF^pF[ oF2F26*%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUP G%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoa lgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-f irstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG %-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromse riesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/ l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powco mposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtr uncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/check condG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exmi nG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbi sG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG %*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>f indequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;fin dequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmo dpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearl yG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFeq/%'unloadGFfq6fn%.al gfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchypro ductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesse qnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoa lgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG %-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(re c*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG %2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestose riesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/ doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%( makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,min ordereqnG%*optionsgfG%(versionGF2F26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G %7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectopr oc/symbolGF2F2Farc(getname%:-72Fiqc/algfuntoalgeq2%:-64Fhrc.inifromseries%:-796 $%*protectedG/%+modulenameG%%gfunG M7R0 I&:-129f*6&%"pG%"AG%"BG%"nG6%%$degG%"iG%$resG6"F-C%>8$,&-T%6#9%"""-T'6#9&F6?(8% ""!F6F0%%trueG>&8&6#F<-__%.LinearAlgebraG%(ModularG%)MultiplyG6%9$-_FE%$ModG6&F JF5/9'F<&%(integerGF--FL6&FJF:FOFQ-T)6&FJ7#-%$seqG6$F@/F<;F=F0-%#opG6$7$F6""#F: FPF-F-6*%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETU PG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfunto algeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%- firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeq G%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifroms eriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h /l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powc omposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powt runcateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/chec kcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exm inG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecb isG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeq G%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%> findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;fi ndequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultm odpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryear lyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFdo/%'unloadGFeo6fn%.a lgfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchypr oductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guess eqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listto algeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorec G%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(r ec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeq G%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestos eriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec /doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG% (makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,mi nordereqnG%*optionsgfG%(versionGF-F-6(%/type/gfun/freeG%7type/gfun/has2diffeqs2 G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectop roc/symbolGF-F-Fesc(degvect&:-125Fdsc'degmat&:-124Fgsc+interpvect&:-1276#/%+mod ulenameG%%gfunG M7R0 I%:-18f*6"6+%'resultG%#exG%(methodsG%'methodG%"yG%"xG%"sG%%unknG%%exprG6#%\pCop yright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G F$C+@$0&9"6#""".%(stampedGO-T'6#-T%6$""#F5>8,&F56#FA>8+&F56#""$>8&&F56#""%>8(-% #opG6$""!FG>8)-FS6#FG>8%FC?&8'FL%%trueGC&Z%@%35/Fgn.%'revogfG/Fgn.%'revegfG0&Fe nF6FU>8*-T)6&F87$F7-FS6#FenFWFgn>Fgo-Fio6&F8FenFWFgnF$\-%)userinfoG6'FJ.%%gfunG %,Trying~the~GFgnFgo>8$-T+6%FgoFWFQ@$0Fip%%FAILGC$-Fcp6(FAFep.%$TheGFgn.%1seems ~to~satisfyGFipO7$-T-6&FgoFipFQFWFgnF_qF$F$6.%6_thismoduledefinitionGb6#%+thism oduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG% :algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinv borelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG% (getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4inf solvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpar tG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%( mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimp ledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doi tG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectopro c/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmt G%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typ echeckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-fin dequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequati ongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvec tG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matin terpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(p ackageG/%%loadGFcr/%'unloadGFdr6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiff eqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2di ffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprt odiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+l isttolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)po ltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*recto procG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seri estoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%* _pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodini tvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*max degeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/ty pe/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/iden tityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF$F$Fguc*typecheck&:-112Fgxc-li sttodiffeq%:-18F\yc-listtoseries%:-23Fduc(s2d/s2d&:-109Fesc(inicond%:-786$%*pro tectedG/%+modulenameGFfp M7R0 I%:-27f*6%%"fG%"xG%"nG6$%"gG%%polyG6#%\pCopyright~(c)~1992-2008~by~Algorithms~P roject,~INRIA~France.~All~rights~reserved.G6"C'>8$-%(convertG6&9$.%,fullparfrac G9%.%(sqrfreeG@%-%%typeG6$F0.%"+G>F07#-%#opG6#F0>F07#F0>6$8%F0-%-selectremoveG6 %FF0-F26$-%$mapG6&T%F0F79&F?@%/FI7"F0,&F0"""-T'6 %-F26$FIF?F7FYFhnF-F-6(%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDEN G%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyp rintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselim G%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandche ckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(ini condG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG %(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*n binicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*p owrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG% 4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG% 1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/poly G%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@ @DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequati ongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG% *do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interp vectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(i nitmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFeo/%'u nloadGFfo6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&b orelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diff eqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(L aplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratp olyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoef fG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG% /seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriesto recG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtabl eG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodi nitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG% *mindegeqnG%,minordereqnG%*optionsgfG%(versionGF-F-6(%/type/gfun/freeG%7type/gf un/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/inite qG%6gfun/rectoproc/symbolGF-F-Fcrc4ratpolytocoeff/elmt&:-106Fdrc4ratpolytocoeff /poly&:-1076$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-44=6"%&falseGE\[lfn%)FresnelCGf*6$%"yG%"zGF$6$%)operatorG%&arrowGF$7%,(*(%# PiG""#9%""$-%%diffG6$-9$6#F4F4"""F<-F76$F6F4!""*&F4F<-F76$F=F4FfindequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_redu ceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,m atmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG% )tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFO/%'unloadGFP6 fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cau chyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%) guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,l isttoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*list torecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+re cG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestod iffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seri estoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeq torec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/ recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqn G%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2dif feqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/r ectoproc/symbolGF$F$%'WeberEGf*6%F*F+%#nuGF$F,F$7%/,(*&F4F3-F76%F9F4F4F8&-T%6%<$,&*( -8(6#,&8%F8'Fgy/FealF aal>Fhal<$FFhalFC7%Fd_lFhalFEF$F$6&FIFJFitc,rectodiffeq%:-30%%coshGf*F)F$F, F$7%,&F9FFd`l-Ff_l6&-F76$F97#-Fc[l6$F4F\x7#Ffcl7#F9F9@$-% %typeG6$Fd`l.%$setG>Fd`l-%#opG6#-%'selectG6%%$hasGFd`lF97%Fd`lFCFexF$F$6&FIFJFd tc,poltodiffeq%:-25%&dilogGf*F)F$F,F$7%,(FgwF<*&,&F4F?FjwFFd`lFd[m@$F^\m>Fd`lFd\mF[]mF$F$F\]m%*KelvinKeiGf*FjzF$F, F$F]jlF$F$FH%'arcsecGf*F)F$F,F$F[]lF$F$FH%(polylogGf*6%F*F+%"aG6%F__lF\_l%(frac ratGF`_lF$C$@$4-F_\m6$F\xF`flYQ;not~a~holonomic~expressionF$@%1F\xFGC&>Fd_l*&F4 FFd_l*&F4F<-F76$Fd_lF4F<>Fd_l-%'normalG6#*&F[cmF< Fd_lF?7%<%,&*&-%&denomG6#Fd_lFrec_has_constant_coefficientsG%,read_diff eqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_di ffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2fal ling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprin t_small_approxG6#%(packageG64%*fnth_termG%6analytic_continuationG%+evaldiffeqG% -diffeqtoprocG%2transition_matrixG%-bound_diffeqG%*bound_recG%.bound_ratpolyG%2 bound_diffeq_tailG%/bound_rec_tailG%0abs_with_RootOfG%.dominant_rootG%2make_wak sman_procG%-needed_termsG%*utilitiesG%*_pexportsG%(versionG%)SettingsGF&6#QeoBi nary~splitting,~analytic~continuation~of~holonomic~functions,~and~boundsF&6#%)n dmatrixGF&F&F4c&types&:-1376#"""6#/%+modulenameG%%gfunG M7R0 I%:-78f*6&%"sG%$eqnG%"yG%"xG6%%&orderG%$deqG%"iG6#%\pCopyright~(c)~1992-2008~by ~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C$>8%-%'selectG6%%$ha sG-%'indetsG6$9%.-%%diffG6$%)anythingG-%*identicalG6#9'-9&FB@%/F2<"F:C$?(8$"""F LF/0F2<#FD>F2-%%subsG6$/-F=6$FDFCFDF2<$-%$seqG6$/-T%6%8&FE""!*&-%&coeffG6%9$FCF hnFL-%*factorialG6#FhnFL/Fhn;Fin,&FKFL!"#FLF:F/F/6&%6_thismoduledefinitionGb6#% +thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/ doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.bo relinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodi ffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/found G%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listp rimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minin dexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcompo sesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiff eq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=re ctoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoef f/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrix G%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolation G%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?find equationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%( degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG% 8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresult G6%%(packageG/%%loadGF]p/%'unloadGF^p6fn%.algfuntoalgeqG%.algebraicsubsG%.algeq todiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffe qG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0ho lexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohyperge omG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffe qG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG% *rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG %0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_t ermG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6g oodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqn G%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF/F/ 6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfu n/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF/F/Fcsc$@@D&:-1146#/%+mo dulenameG%%gfunG M7R0 I&:-119f*6&%"LG%$ordG%"nG%'optypeG6"F)F)@'-%%typeG6$9$-%%listG6#%)rationalG-T%6 &F.9%9&9'-F,6$F.-F06#-%(ratpolyGF1-%$mapG6$%'normalG-T'F5Y6$QMnot~a~list~of~rat poly~over~the~rationals:~%1F)F.F)F)6(%6_thismoduledefinitionGb6#%+thismoduleG6i o%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqto series/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/ cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getname G%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepol y/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2list toseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG %)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG% *powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rect ohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binspl itparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpo lytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG% *CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequatio nG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgiveno rderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*inte rpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodp earlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/ %%loadGFO/%'unloadGFP6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeq toseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomd iffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%) invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG %.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/r atpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.ser iestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpol yG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG %,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/di ffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,m indegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF)F)6(%/type/gfun/fr eeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1typ e/gfun/initeqG%6gfun/rectoproc/symbolGF)F)Ffqc?findequationgivenorderrational&: -121Feqc>findequationgivenorderratpoly&:-1206#/%+modulenameG%%gfunG M7R0 I&:-104f*6%%"lG%&orderG%$auxG6#%$resG6#%\pCopyright~(c)~1992-2008~by~Algorithms ~Project,~INRIA~France.~All~rights~reserved.G6"C%>8$-%#opG6$"""-%%sortG6$9$9%@$ /9#""$-%'memberG6%F/F79&F/F,F,6$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GF UN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoserie s/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheap gausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.gu essandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isr ootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoser iestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myi solveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powd ivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomr ec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitpar ametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytoc oeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Chec kNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7f indequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderr ationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmat G%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearly abortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loa dGFH/%'unloadGFI6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoser iesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeq G%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invbo relG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.lis ttoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpol ytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriesto algeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,s eriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,dif feqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG %3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindeg coeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF,F,6(%/type/gfun/freeG%7 type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfu n/initeqG%6gfun/rectoproc/symbolGF,F,6#/%+modulenameG%%gfunG M7R0 I%:-25f*6&%"pG'%%ldeqG%%listG'%#lyGF(%%yofzG6C%"iG%%deqsG%$ordG%$iniG%"yG%"zG%$ lcoG%%varsG%"nG%"hG%"uG%'tosubsG%)origdiffG%"jG%"kG%#l2G%"lG%#yyG%'dorderG%%jma xG%%indsG%#ppG%&lindsG%"vG%$monG%%lindG%&lcoefG%%lmaxG%&basisG%%backG%#uuG%%sin gG%'iszeroG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~Al l~rights~reserved.G6"C:@$0-%%nopsG6#9%-FU6#9&Y6%QKnot~the~same~number~of~elemen ts:~%1~and~%2FPFWFZ-T%6%9'8(8)>8,FT>8/-%'subsopG6$/""%%%NULLGf*FPFPFPFP9"FPFPFP -%)userinfoG6&Ffo.%%gfunGQ?entering~poltodiffeq~with~argsFPFio?(8$"""FbpF_o%%tr ueGC)>&8%6#Fap-T'6&7$&FWFhp&FZFhp.85.F]o&8'Fhp>&8&Fhp,&-FU6#FfpFbp!"#Fbp>8*&Ffp 6#Fhq>8<-%%diffG6$-&F\oFhp6#F]o7#-%"$G6$F]oFeq>8;,&*&&Ffp6#FbpFbpF\r!""Fas-%$ad dG6$*(&Ffp6#81FbpF\rFas-Fbr6$Fdr7#-Fir6$F]o,&FhsFbpFjqFbpFbp/Fhs;""#,&FeqFbpFbp FbpFas>-Fao6#F`rF\s>&8>Fet7#-%'coeffsG6%F\s7#-%$seqG6$-Fbr6$Fdr7#-Fir6$F]oFhs/F hs;""!,&FeqFbpFasFbp&8=Fet@%-%$hasG6$9$.%"DG>89-%(convertG6$F`vFbr>FdvF`v>8.-%% subsG6$7#-F_u6$/-%#opG6$FhuF^qFer/Fap;FbpF_oFdv>8:<#-F_u6$FarFew>807#-F_u6$/Fap -FaoFhp/FapFhw>Fdv-%'selectG6%F^v-%'indetsG6$Fjv-.%)specfuncG6$.%)anythingGFbr< #-F_u6$FerFew?(8?FhuFbpFP0Fdv<">Fdv-Ffx6%F^v-%$mapG6$FcwFdvFbr?(FPFbpFbpFP-F^v6 $FjvFhw>Fjv-%%evalG6#-F\w6$F]xFjv>FdvFjv>8+<#-F_u6$F^uFew@$4-%%typeG6$Fjv-.%(po lynomG6$-.%(ratpolyG6$F_yF]oFiz@%/FXFbpY6%QQ%1~is~not~a~polynomial~in~%2~and~it s~derivativesFPF`v-FcwFYY6%QS%1~is~not~a~polynomial~in~%2~and~their~derivatives FPF`vF_\l>8@Fiz>Fhw-%&unionG6$<#FbpFhw?(86FbpFbpFPFcpC4-F[p6&""$F]pQKcomputing~ and~reducing~derivative~of~orderFPF[]l>Fjv-%(collectG6&FezFiz.%,distributedG%'n ormalG>Fjv7#-F[u6%FjvFiz.84>F]^l7#F]^l>Fjv-Fc]l6&-Fcs6$*&&FjvFgsFbp-Fao6#&F]^lF gsFbp/Fhs;Fbp-FU6#FjvFizFe]lFg]l>F\rFi]l>83-%&minusG6$<#F]^lFhw@$/F`_lFgy[>F]^l F_^l>8A-%&evalbG6#/-Fb_l6$F`_lFd\lFgy@%4Fj_l>F`r-Fcw6$FbpF_`l>F`r&F`_lF`s-%'mem berG6%F`rF]^l.82>Fdt-Fc]l6%*&,(-Fbr6$-8-Ffr7#-Fir6$F]o,&F[]lFbpFasFbpFbp-Fcs6$* &&F\rFgsFbpFg^lFbp/Fhs;Fbp,&F\alFbpFasFbpFas-Fcs6$F\bl/Fhs;,&F\alFbpFbpFbp-FU6# F]^lFasFbp&F\r6#F\alFasFizFe]l>Fgt7#-F[u6%FdtFizFju>Fd\l-Fg\l6$Fd\l<#Fju@$Fj_l? &FapFhwFcp@$-Fi`l6%F`r7#&F[vFhpF[alC%>FhclFgcl>Fbx-Fc]l6%,(-Fcs6$*&&&FhtFhpFgsF bp&FhclFgsFbpF^blFbp*&&FcdlFiblFbpFdtFbpFbp-Fcs6$Fadl/Fhs;Febl-FU6#FcdlFbpFizFe ]l>Fcdl7#-F[u6%FbxFiz-%&evalnG6#Fhcl>Fhw-Fg\l6$Fhw<#F`r>Fjv-Fbr6$FjvF]o>Fjv-F\w 6$/FealF\o-Fc]l6$-%)primpartG6#-%&numerG6#,&FbalFbpFjvFas7#-F_u6$-Fbr6$FdalFcu/ Fhs;FhuFial>8C%&falseG?(FapFbpFbpF_o4F`gl@$3/FbqFgy/-F\w6$/F]oFhuF]rFhu>F`glFcp @%F`gl>FcqFgyC)>87Fas?(FapFbpFbpF_oFcpC&>-Fbv6#Fer-Fbel6#Fdhl>Fbq&-T)6'FfpFbw-F cw6#F^qFbq,(F[]lFbpFjqFbpFeyFbpF`s>88-Fix6$Fbq&%#_CG6#F_y@$0FailFgyC$>Fbq-F\w6$ 7#-F_u6$/&FailFgs&Feil6#,&F`hlFbpFhsFbp/Fhs;Fbp-FU6#FailFbq>F`hl,&F`hlFbpFgjlFb p>Fcq-Fg\l6#-F_u6$-F\w6$FawFbqFew>F`hl-%$maxG6%-F_u6$-Fcw6$Fat-Fcw6$Fhu-Fcw6$Fh u-Fcw6$FbpFap/Fap-Ffx6%F^vFcq%#@@G-F_u6$Fbp/Fap-Ffx6%F^vFcq<#-F_u6$FfhlFewFhu>8 B-Fjp6#7$Fjv-F\oFfr>F`hl-Fd[m6$F`hl-T+6%F]]mF\oF]oZ%C$>6$Fcq8D-F[il6&F]]mF\oF]o -%'removeG6%F^v-T-6(FdvF]oF`hlF\oFhuFcqFay@$F\^mOFa]mQFcqFgy@%/FcqFgyFjv<$-Fcw6#FcqFjvFPFP6.%6_thismoduledefinitionGb6#%+thismo duleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%: algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvb orelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%( getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infs olvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpart G%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(m ygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpl edoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doit G%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc /binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG %4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*type checkG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-find equationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequatio ngivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvect G%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matint erpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(pa ckageG/%%loadGFe_m/%'unloadGFf_m6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodif feqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2d iffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexpr todiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+ listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)p oltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rect oprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0ser iestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG% *_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodin itvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*ma xdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGFPFP6(%/t ype/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/ide ntityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGFPFPFa`mc(getname%:-72Fegmc-fo rmatdiffeq%:-46Fggmc6goodinitvalues/diffeq%:-48Fdamc*nbinicond%:-91Fh`mc.inifro mseries%:-796$%*protectedG/%+modulenameGF^p M7R0 I%:-10t+6(%$eqnG%%yofzG%%uofkG>'%+contentrecG%%nameG%&dummyG>'%$iniG%(booleanG% %FAILG>'%.returncontentGF0%&falseG6-%)inicondsG%"fG%"yG%"zG%"uG%"kG%"YG%"ZG%$re cG%'inirecG%%contG6#%\pCopyright~(c)~1992-2010~by~Algorithms~Project,~INRIA~Fra nce.~All~rights~reserved.G6"C*-T%6%9&8(8)@%3-%%typeG6$9$.%$setG09(F5>8%-T'6&7$F Q9%.8&.8'.8$C$>FW-FY6%FenFgnFin@%5/FU%%trueG0&FW6#"""""!>F\o<">F\o%%NULLG>FW-%% subsG6$7$/Fhn8*/Fjn8+FW@$0F\oF]p>F\o-F`p6$FcpF\o>6%8,8-8.-T)6(FWFdpFfpFJFKF\o@$ 9)>9'F`q@$Fhp>F_q-T+6'F^qFJFKF_qFdo-T-6&F^qFJFKF_qFDFD6.%6_thismoduledefinition Gb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtose ries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpoly G%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,fu ntodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/ foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%- listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%) minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5pow composesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rect odiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplit G%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolyt ocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systom atrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpol ationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG% ?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degm atG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpm odpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkr esultG6%%(packageG/%%loadGFgr/%'unloadGFhr6fn%.algfuntoalgeqG%.algebraicsubsG%. algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq* diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproduct G%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohy pergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,polto diffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohom recG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriesto listG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%) nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatre cG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxord ereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(version GFDFD6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3typ e/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGFDFDFcsc(getname%:-7 2Fgzc-formatdiffeq%:-46Ffzc1diffeqtorec/doit%:-45Fjzc3goodinitvalues/rec%:-49F[ [lc(makerec%:-506#""$6$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-51G6$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-36f*6"6'%"sG%%methG%"lG%"xG%"iG6#%\pCopyright~(c)~1992-2008~by~Algorithms~P roject,~INRIA~France.~All~rights~reserved.GF$C(@$0&9"6#""".%(stampedGO-T'6#-T%6 $"")F1>8$&F16#""#>8%&F16#""$>8'-%#opG6$""!F?@%/-FK6$,&-%%nopsG6#F?F3!""F3F?-%"O GF2>8&7#-%$seqG6$-%&coeffG6%F?FI8(/F\o;FM,&-FK6$FSF?F3FVF3>FZ7#-Fgn6$Fin/F\o;FM F`o@%/FD.%$ogfGFZ-F86%F4-T)6&F4FZFIFDFjoF$F$6*%6_thismoduledefinitionGb6#%+this moduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG %:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelin vborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG %(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4in fsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpa rtG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG% (mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesim pledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/do itG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectopr oc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elm tG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*ty pecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-fi ndequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequat iongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degve ctG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8mati nterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%( packageG/%%loadGFhp/%'unloadGFip6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodif feqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2d iffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexpr todiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+ listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)p oltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rect oprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0ser iestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG% *_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodin itvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*ma xdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/t ype/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/ide ntityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF$F$F\tc*typecheck&:-112F^xc-s eriestolist%:-36Fawc-listtoseries%:-236$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-85f*6$%"lG%"xG6-%"aG%#a0G%"kG%$eqnG%"uG%"vG%"wG%$denG%"iG%"zG%"cG6#%\pCopyr ight~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6" C7>8$9$?(8&"""FF8-%'subsopG6$/F<%%NULLGF8>8%F>>F;,&F;FF87#-%$seqG6$*&-F?6$8,F8F8'-%'norma lG6#,,*&,.*(&F86#""%F<&F86#F8)FFcq-F?6$F<7#-%&solveGFgq>8+-F^o6#,0*&FioFjnFcqFjnFfo*(F]pF8**&-F^o6#,$*&,*FirFjn*$FioFjnFfoF[sFfr*&F] pF8--F^o6#,,*(F]p F8(,$*(-F^o6#FhsFFet,$*&FetF8.,$*Fev*.FevF<,(FbuFfindequationgivenorderratpolyG%? findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degma tG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmo dpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkre sultG6%%(packageG/%%loadGFay/%'unloadGFby6fn%.algfuntoalgeqG%.algebraicsubsG%.a lgeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*d iffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG %0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohyp ergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltod iffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomr ecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestol istG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)n th_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrec G%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxorde reqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionG F5F56(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type /gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF5F56#/%+modulenameGF ^v M7R0 I%:-70f*6&%"lG%"yG%"zG%)inicondsG6%%"YG%"ZG%"PG6#%\pCopyright~(c)~1992-2008~by~ Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C)@$52-%%nopsG6#9$""#2 ""%F4Y6$%Gformatpoleq:~wrong~number~of~argumentsG-%#opGF6-T%6%-F?6$F8F78$8%@$2" ""9#C$>9%FE>9&FF@%-%%typeG6$-F?6$FIF7.%"=G>8&,&-F?6$FIFTFI-F?6$F8FT!"">FYFT@$4- FR6$FY-.%(polynomG6$.%)anythingG7$FEFFC$>FY-%%subsG6$/-FE6#FFFEFY@$F\oY6$%1inva lid~argumentGFY@$/FJF:@%2F8F4@%-FR6$-F?6$""$F7.%$setG>9'FipY6$FapFip>F_q<"-%(co llectG6$-%)primpartG6$FYFEFEF/F/6&%6_thismoduledefinitionGb6#%+thismoduleG6io%, GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoser ies/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/che apgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%. guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/i srootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtos eriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)m yisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*po wdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectoho mrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitp arametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolyt ocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Ch eckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG% 7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorde rrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpm atG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpear lyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%l oadGFar/%'unloadGFbr6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqt oseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdi ffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)i nvborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG% .listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ra tpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seri estoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpoly G%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG% ,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/dif feqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mi ndegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF/F/6(%/type/gfun/fre eG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type /gfun/initeqG%6gfun/rectoproc/symbolGF/F/F]sc(getname%:-726#/%+modulenameG%%gfu nG M7R0 I&:-111f*6%%$sysG%"VG%"BG6)%"aG%"iG%"jG%$eqnG%"tG%$indG%$lcoG6#%\pCopyright~(c) ~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"@%5/9$<" /F67"C$>9&-%&ArrayG6$;"""FA7#""!-F>6%F@;FA-%%nopsG6#9%7#7#-%"$G6$FCFGC'>8$-F>6% ;FA-FH6#F6FF-%#ifG6%4-%(hastypeG6$F6%&floatG/.%(storageG.%'sparseG%%NULLG>F<-F> 6$FUFjn?(8%FAFAFG%%trueG>&8)6#&FJ6#FdoFdo?(FdoFAFAFVFeoC'>8'-%#opG6$FdoF6@$-%%t ypeG6$F_p.%"=G>F_p,&-Fap6$FAF_pFA-Fap6$""#F_p!"">8*7#-%'coeffsG6%F_pFJ.8(>Fhq7# Fhq?(8&FAFA-FH6#FhqFeo@%0&Fhq6#F\rFA>&FR6$Fdo&Fho6#Far&FbqFbr>&FfindequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_re duceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG% ,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmat G%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFfs/%'unloadG Fgs6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG% .cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtore cG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(Laplace G%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%* listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(re c+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/serie stodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/ seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1di ffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitval ues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*minde geqnG%,minordereqnG%*optionsgfG%(versionGF2F26(%/type/gfun/freeG%7type/gfun/has 2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gf un/rectoproc/symbolGF2F26#/%+modulenameG%%gfunG M7R0 I%:-96f*6%'%"sG%'seriesG%"xG%"oG6'%"pG%"vG%"kG%#pvG%$ppvG6#%\pCopyright~(c)~199 2-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C)@$0-%#opG6 $""#9$"""Y6$QKexpected~a~series~with~valuation~1,~got~%1F2F:>8%*&9%F;-F76$F;F:! "">8$-%(convertG6$F:%(polynomG>8&F;?(F2F;F;F21,&FMF9F;F;9&C&>8'-T%6&FGF@FBFP>8( -T'6&FTF@FBFP>F@,&F@F;-T)6&,&FTF;FBFEFYFBFPFE>FMFP@$2FMFQC%>FT-FV6&FGF@FBFQ>FY- Fen6&FTF@FBFQ>F@,&F@F;-Fjn6&F\oFYFBFQFE-F'6%,&F@F;-%"OG6#)FB,&FQF;F;F;F;FBFbpF2 F26*%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0 NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalge q2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firs tnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-i nfsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromserie sG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2h G%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcompo seG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtrunc ateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcon dG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG% 0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG% (s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*f indalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>find equationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findeq uationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG %-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG% 2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFjp/%'unloadGF[q6fn%.algfu ntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproduc tG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG %(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalge qG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-l isttoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*r ecG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2s eriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoserie sG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doi tG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(mak erecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minord ereqnG%*optionsgfG%(versionGF2F26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7t ype/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/ symbolGF2F2Fjrc+powcompose%:-92F`sc/pprimeknowingp%:-98F]sc*powdivide%:-956#/%+ modulenameG%%gfunG M7R0 I%:-17f*6"6+%'resultG%#exG%(methodsG%'methodG%"yG%"xG%"sG%%unknG%%exprG6#%\pCop yright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G F$C+@$0&9"6#""".%(stampedGO-T'6#-T%6$""#F5>8,&F56#FA>8+&F56#""$>8&&F56#""%>8(-% #opG6$""!FG>8)-FS6#FG>8%FC?&8'FL%%trueGC&Z%@%35/Fgn.%'revogfG/Fgn.%'revegfG0&Fe nF6FU>8*-T)6&F87$F7-FS6#FenFWFgn>Fgo-Fio6&F8FenFWFgnF$\-%)userinfoG6'FJ.%%gfunG %,Trying~the~GFgnFgo>8$-T+6%FgoFWFQ@$0Fip%%FAILGC$-Fcp6(FAFep.%$TheGFgn.%1seems ~to~satisfyGFipO7$FipFgnF_qF$F$6,%6_thismoduledefinitionGb6#%+thismoduleG6io%,G FUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseri es/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/chea pgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.g uessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/is rootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtose riestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)my isolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*pow divideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohom rec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitpa rametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolyto coeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Che ckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7 findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorder rationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpma tG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearl yabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%lo adGF`r/%'unloadGFar6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqto seriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdif feqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)in vborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%. listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/rat polytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.serie stoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG %,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%, diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diff eqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,min degcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/free G%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/ gfun/initeqG%6gfun/rectoproc/symbolGF$F$Fduc*typecheck&:-112Fcxc,listtoalgeq%:- 17Fixc-listtoseries%:-23Fbuc(s2a/s2a&:-1106$%*protectedG/%+modulenameGFfp M7R0 I$:-2f*6&%$DeqG%#eqG%%yofzG%'inipolG6C%"yG%"zG%$deqG%"PG%"uG%"dG%"iG%#d1G%"kG%" AG%"CG%#DgG%"gG%"jG%(ord_eqnG%"cG%"fG%(inhomogG%$eqnG%%inipG%%inidG%%deq0G%$ini G%#P0G%"vG%%deq1G%#P2G%'tosubsG%&lvarsG%'reduceG%"YG%'iszeroG%$ordG6#%\pCopyrig ht~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C@ >8'-T%6&7#&9"6#;""#9#.8$.8%87>8)-%'degreeG6$FPFfn>89-%%subsG6$/FhnFfn-T'6&7$9$9 &FenFgn88>8+,&-%%nopsG6#F`o"""!"#Fbp@&/F[o""!Y6%QJ%1~is~not~a~polynomial~in~the ~variable~%2FM9%Ffn/F[oFbpC$>8>,&*&-%&coeffG6%FPFfnFfpFbp-Fbq6%FPFfnFbp!""FfqFh nFfq@(/F^qFfpOFio4-%$hasG6$F^qFhnO-T)6%-%$mapG6%%(collectG-Fbo6$/Ffn,&FhnFbpF^q FbpF`oFhnFfnFhn/F]pFfpO-F`r6%-Fbo6$/Ffn,$F`qFfqF`oFfnFhn>80-T+6&-%%diffGF^oFPFf n.8(@$-F\r6$FcsFfnO-T-6%Fio-%'normalG6#*&FPFbpFcsFfqFjo>8/-%$remG6%,$*(FjsFbpFc sFfq-Fhs6$FPFhnFbpFfqFPFfn>Fcs-Fes6&&F`o6#,&F]pFbpFYFbpFPFfnFis@$F\tOF_t>8&-Fcr 6&Fit7#-%$seqG6$,$*(&F`o6#8*FbpFjsFbpFcsFfqFfq/Fcv;Fbp,&F]pFbpFbpFbpFPFfn>85-%& evalbG6#0-%#opG6$FbpFhuFfp@%Fhv>82*&F[oFbpFfvFbp>Fbw*&F[oFbpF]pFbp>8?/-Fhs6$-84 6#Ffn7#-%"$G6$FfnF]p-F`r6%FhuF\xFfn>8@7#-F]v6$-Fhs6$F[x7#-F`x6$Ffn8,/F^y;Ffp,&F ]pFbpFfqFbp>&866#FfpF[x>8A-Fbo6$7$/%#_PGFP/%#_YGFfnf*6#%"QGFMFMFM-Fit6%FioF\zF^ zFMFMFM?(F^yFbpFbpFbw%%trueG>&Fdy6#F^y-Fer6&,&-Fhs6$&Fdy6#,&F^yFbpFfqFbpFhnFbp* &-Fbo6$Fgw-Fhs6$F^[lFfnFbpFgtFbpFbpFex.%,distributedGFgy>Fgw7#-F]v6$/Fix)8B,&F^ yFbpFbpFbpF_y?(F^yFfpFbpFbwFez>Fgz-Fbo6$FgwFgz>8--%'MatrixG6%;Fbp,&FbwFbpFbpFbp ;FbpFbw/.%(storageG.%'sparseG>8.-%'VectorG6$Fi\lF\]l>&Fe\l6$FbpFbpFbp?(F^yFbpFb pFj\lFez?(FcvFfpFbpFayFezC$>83-Fer6$-Fbq6%F^[lF^\l,&FcvFbpFbpFbpFfn?(81FfpFbp,& F[oFbpFfqFbpFez>&Fe\l6$F^y,(*&Fd^lFbpF]pFbpFbpFcvFbpFbpFbp-Fbq6%F]^lFfnFd^l@$Fh v?(F^yFbpFbpFj\lFezC%>F]^l-Fbq6%F^[lF^\lFfp?(Fd^lFbpFbpFe^lFez>&Fe\l6$F^y,&FewF bpFd^lFbp-Fct6#F[_l>&Fb]lFhz-Fbq6%F]^lFfnFfp>Fhu-Fbo6$7#-F]v6$/&88=-Ffo6#7$FhuFi`l>Fbw-T36$-T1 6%FeblFhnFhnFhn@%/FbwFfp>8:<"C*>FcclFdcl?(FcvFfpFbpFM-F\r6$Fin-T56%FcvFfnFfpFM> 8;-%(convertG6$-Fbo6$Fin7#-F]v6$*(-F[dl6%Fd^lFfnFfpFbp-%*factorialG6#Fd^lFfq)Fh nFd^lFbp/Fd^l;Ffp,&FcvFbpFfqFbp%"+G@%2FcvFbwC%>FP-Fbo6$/Ffn,&F^dlFbp*&)FhnFcvFb pFfnFbpFbpFP>Fin-T76'FPFhnFfn,&FbwFbpFcvFfqFez@'/-F`p6#FinFfp@%2FfpFcv>FinF^dl> Fin%)infinityG2FbpFcfl>FinF^dlC%@$34-%%typeG6$&Fin6#Fbp%'seriesG-F\r6$Fcgl%"OGC %>8D-F^w6#-F^w6#-%'indetsG6$Fcgl-%)specfuncG6$.%)anythingGFhgl@%-Fagl6$F[hl.%%n ameG>F[hlFbp>F[hl-F^w6$FYF[hl@$2F[hlF`fl>Fin-F^fl6'FPFhnFfn,(FbwFYFcvFcp-%&floo rG6#F[hlFfqFez>Fin,&F^dlFbp*&F[flFbpFcglFbpFbp>Fin-Fbo6$-F]v6$/Fcv-Fhgl6#)Fhn-% %ceilG6#-F^w6$FY-F^wFbv/Fcv-Fahl6$Fin-.Fdhl6$)-.%*identicalGFj`l.%)rationalGFhg lFin>FinF^dl>F^dl-%%evalG6$Fin7$/FhglFfp/FhnFfp@'/F^dlFfpC$>6$F[p8C-T96'-Fbo6$/ FfnFhnF`oFfnFhnF[p,&FbwFbpFfqFbp@$Fe\mOFi`l/F^dlFifl>F[pFdcl>Fd\m-Fg\m6'-Fcr6%F er-Fbo6$/Ffn,&F^dlFbpFhnFbpF`oFhnFfnFhnFdclF\]m@$30F[pFdcl0FinFiflC$>Fccl-Fbo6$ /-FhglFeyFfp-Fegl6%-Fbo6$/Ff`l,&FinFbpF^dlFfq-F`dl6$-Fbo6$F[p7$-F]v6$*(---%#@@G 6$%"DGFd^lF]xFeyFbp)Ff`lFd^lFbpFjdlFfq/Fd^l;FfpF\]m-Fhgl6#)Ff`lFbwFaelFhnFifl@$ 4-F\r6$Fccl-FhglFdgl>Fccl-F`dl6$Fccl%(polynomG@(-Fagl6$Fccl.FeglC$>6$FcclFe\m-F g\m6&FeblFfnFhn<#-F]v6$/Fhdl*&-Fbq6%FcclFhnFd^lFbpFjdlFbp/Fd^l;Ffp-%$minG6$F\]m ,&-F^w6$-F`p6#FcclFcclFbpFfqFbp@$Fe\mOFi`l-Fagl6$Fccl-.Ff`m6$%*algebraicG-F^w6# FjoC$>F]am-Fg\m6&FeblFfnFhn<#-F]v6$FcamFi_m@$Fe\m>FcclFdcl-%(hastypeG6$FcclFb[m >FcclFdcl@%/FcclFdclFhu<$-F^wF`bmFhuFMFM6:%6_thismoduledefinitionGb6#%+thismodu leG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:al geqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvbor elG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(ge tnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsol vepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG% 2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(myg cdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpled oitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG% 1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/b insplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4 ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typech eckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findeq uationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationg ivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG% *interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinter pmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(pack ageG/%%loadGFcdm/%'unloadGFddm6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffe qG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2dif feqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprto diffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+li sttolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)pol torecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectop rocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0serie storatpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_ pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinit values/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxd egeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGFMFM6(%/typ e/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/ident ityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGFMFMF]emc,formatpoleq%:-70Fc\nc- formatdiffeq%:-46F]fmc+makediffeq%:-86F`fmc(mygcdex%:-89Fgimc.algebraicsubs$:-2 Fhemc'lindep%:-81Faemc+indicialeq%:-74F\emc-firstnonzero%:-69Figmc$@@D&:-114Fii mc.algeqtoseries$:-4Fe\nc6goodinitvalues/diffeq%:-486$%*protectedG/%+modulename G%%gfunG M7R0 I&:-130f*6*%"UG%"aG%"bG%$dimG%"nG%"xG%"pG%'optypeG6"F-F--T%6*9%9&9'9(9)9*9+9$F- F-6&%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0 NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalge q2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firs tnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-i nfsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromserie sG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2h G%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcompo seG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtrunc ateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcon dG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG% 0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG% (s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*f indalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>find equationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findeq uationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG %-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG% 2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF@/%'unloadGFA6fn%.algfunt oalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG %.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%( guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG %-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-lis ttoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*rec G%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2ser iestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG %+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG %-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(maker ecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minorder eqnG%*optionsgfG%(versionGF-F-6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7typ e/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/sy mbolGF-F-Faqc8matinterpmodpearlyabort&:-1316#/%+modulenameG%%gfunG M7R0 I%:-43f*6"F$F$F$7#-%#opG6#-%&minusG6$<#-%(exportsG6#%%gfunGT%F$F$6&%6_thismodul edefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG %3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalg eq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,forma tpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3in fsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG %'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%) maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposes impleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknow ingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectopr oc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doit G%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s 2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6ratio nalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenord erratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenorder modpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG% .matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnorm alG%,checkresultG6%%(packageG/%%loadGF9/%'unloadGF:6fn%.algfuntoalgeqG%.algebra icsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG %.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadama rdproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG% 0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade 2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG% ,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG% -seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(N umGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG% *formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeff G%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG %(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffe qs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF$F$F8c,GFU N_HIDDEN%:-596$%*protectedG/%+modulenameGF0 M7R0 I%:-28f*6%%$eq1G%$eq2G%%yofzG6&%#y1G%#y2G%"yG%"zG6#%\pCopyright~(c)~1992-2008~b y~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C$-T%6%9&8&8'-T'6&,& -8$6#F6"""-8%F=F>7$-%%subsG6$/F5F<9$-FC6$/F5F@9%7$F;F?F4F/F/6(%6_thismoduledefi nitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3alg eqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/fo rmpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpole qG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolv epoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lin depG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxin dexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimple G%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG %1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/bi nsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ra tpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%, systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalin terpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderrat polyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG %'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.mati nterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%, checkresultG6%%(packageG/%%loadGFS/%'unloadGFT6fn%.algfuntoalgeqG%.algebraicsub sG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.dif feq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardpro ductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0list tohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,p oltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rect ohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seri estolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfu nG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*form atrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,ma xordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(ver sionGF/F/6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G% 3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF/F/Finc(getname %:-72Fitc)poltorec%:-266$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-77f*6%%#ptG%$polG%"xG6"F(F(-%&evalbG6#2-%$absG6#-%%evalG6$*&9%"""-%%diffG6$ F49&!""/F9-%&evalfG6#9$-%&FloatG6$F5,&""#F5%'DigitsGF:F(F(6$%6_thismoduledefini tionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeq toseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/form polyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG %,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvep oly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'linde pG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxinde xG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG% 5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1 rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/bins plitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratp olytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,sy stomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinte rpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpo lyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%' degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matint erpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,ch eckresultG6%%(packageG/%%loadGFM/%'unloadGFN6fn%.algfuntoalgeqG%.algebraicsubsG %.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffe q*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardprodu ctG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listto hypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,pol todiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectoh omrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-series tolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG %)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*format recG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxo rdereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versi onGF(F(6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3t ype/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF(F(6#/%+modulenam eG%%gfunG M7R0 I%:-62f*6'%$PolG%"xG%"yG%$ordG%$optG6:%$polG%"aG%"uG%"iG%"jG%$ptsG%&alphaG%%min iG%$degG%&thetaG%%jminG%#slG%'lastptG%"pG%#puG%$nb2G%$resG%"rG%#nbG%"qG%#a0G%+n ormalizerG%#eqG%+leadcoeffsG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project, ~INRIA~France.~All~rights~reserved.G6"C/>%-_EnvExplicitG%&falseG>8$-%(collectG6 %9$7$9&9%%&evalaG>8,-%'degreeG6$FKFQ>8)-%'selectG6$f*6#F&FEFEFE0&FO6#""#""!FEFE FE7#-%$seqG6$7$8'-%&coeffG6%FKFQFdo/Fdo;F^oFU>FZ7#-Fao6$7$&Fdo6#"""-%(ldegreeG6 $&FdoF\oFR/FdoFZ>86F^o>80&FZF`p?(FdoF]oFap-%%nopsG6#FZ%%trueGC(>8+%)infinityG?( 8(FdoFapF]qF`qC$>8-*&,&&&FZ6#FfqF\oFap&FjpF\o!""Fap,&&F]rF`pFap&FjpF`pF`rF`r@$2 FiqFcqC$>FcqFiq>8.Ffq>Fhp,&FhpFapFapFap>&8*6#Fhp,$FcqF`r>FdoFir>Fjp&FZ6#Fdo>83F ^o>F^s<#-Fao6$&F^sFds/Fdo;FapFhp@$/9#""&>F^s-Ffn6%%%typeGF^s.%,nonnegativeG?&8/ F^sF`qC(>85-%&denomG6#Fit>81-FM6$-%%subsG6%/FR)FRF\u/FQ*&)FR-%&numerGF_uFapFQFa pFKFR@$0-Fcp6$FauFRF^o>Fau-FM6$*&FauFap)FRF`vF`rFR>87-FM6$-Ffo6%FauFRF^oFQ@$0-F cp6$FhvFQF^o>Fhv-FM6$*&FhvFap)FQF_wF`rFQ?&8&&-%(sqrfreeGF`wF\oF`qC$>8;7#-%'Root OfG6$&FgwF`pFQ?(FEFapFapFE0F]x7"Z%C%>88&F]xF`p>F]x-%'subsopG6$/Fap%%NULLGF]x@'/ &FgwF\oFapC(@%-Fet6$Fix.F`x>89FS>Fjy%'normalG>&8%6#F^oFix>82Fau?(FdoFapFap,&9'F apF`rFapF`qC%>Fbz-FM6$-Feu6$/FQ,&&F_z6#,&FdoFapF`rFapFap*&FRFapFQFapFapFbzFR>8: -Ffo6%FbzFRFdo@%/-FW6$Fc[lFQFap>&F_zFds-Fjy6#,$*&-Ffo6%Fc[lFQF^oFap-Ffo6%Fc[lFQ FapF`rF`rYQ0unforecast~caseFE>Ffs,&FfsFapFapFap>&846#Ffs7$-Fao6$7$F[\l,&FitFap* &FdoFapF\uF`rFap/Fdo;F^oFdz7$-%"OGF`p,&FitFap*&FezFapF\uF`rFap/FezF^o?(FEFapFap FcyF`qC$>FfsFg\l>Fi\l7#7$Fe]lFit?&Fdo-T%6'-Feu6$7$/FR)FRFcy/FQ,&FixFapFa[lFapFa uFRFQFdzFapF`qC$>FfsFg\l>Fi\l7$7$FixFit-Fao6$7$&FfqF`p,&FitFap*(,&&FfqF\oFapFap FapFapFcyF`rF\uF`rFap/FfqFdoQNreducible~RootOf~detected.~~Substitutions~areFE>F ]x7$-%#opG6#-%$mapG6%Feu&%.lastexceptionG6#""$F_x-F]`l6#F]x7#-Fao6$&Fj\lFds/Fdo ;FapFfsFEFE6&%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN _SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/alg funtoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expinta lgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indic ialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.ini fromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG %(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG% +powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG% ,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc /checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade 2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectoho mrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+findd iffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenord erG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduce G%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,mat multmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)t ryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFeal/%'unloadGFfa l6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.c auchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG %)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG% ,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*li sttorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+ recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriest odiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/se riestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diff eqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalue s/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindege qnG%,minordereqnG%*optionsgfG%(versionGFEFE6(%/type/gfun/freeG%7type/gfun/has2d iffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun /rectoproc/symbolGFEFEFgalc3algeqtoseries/doit%:-626#/%+modulenameG%%gfunG M7R0 I$:-7f*6%%$eq1G%$eq2G%%yofzG6&%#y1G%#y2G%"yG%"zG6#%\pCopyright~(c)~1992-2008~by ~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C$-T%6%9&8&8'-T'6&,&- 8$6#F6"""-8%F=F>7$-%%subsG6$/F5F<9$-FC6$/F5F@9%7$F;F?F4F/F/6(%6_thismoduledefin itionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3alge qtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/for mpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleq G%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolve poly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lind epG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxind exG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG %5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG% 1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/bin splitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4rat polytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,s ystomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalint erpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratp olyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG% 'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matin terpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,c heckresultG6%%(packageG/%%loadGFS/%'unloadGFT6fn%.algfuntoalgeqG%.algebraicsubs G%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diff eq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardprod uctG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listt ohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,po ltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,recto homrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-serie stolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfun G%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*forma trecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,max ordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(vers ionGF/F/6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3 type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF/F/Finc(getname% :-72Fhtc,poltodiffeq%:-256$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-135f*6(%&recopG%(listvalG%"pG%$ordG%"nG%'optypeG6(%"iG%)listcofsG%"UG%$resG %%bigOG%%cofsG6"F2C$>8%-%%modpG6$9$9&@)/9)Q6rationalinterpolationF2C%>8&-F76$9% F:?(8$""!""",&-%%nopsG6#FDFH!""FH%%trueGC$>8)-F76$-%%evalG6$F5/9(FFF:@$0-F76$,& *&&FQ6#""#FH&FD6#,&FFFHFHFHFHFH&FQ6#FHFMF:FGO%&falseGFN/F=Q+recurrenceF2C&>F5-& %'VectorG6#%$rowG6#F5>FA-__%.LinearAlgebraG%(ModularG%$ModG6%F:FD&%(integerGF2? (FFFGFH,(FJFH9'FMFMFHFN@$0-_F`p%)MultiplyG6%F:-F_p6&F:F5FWFep&FA6#;F^o,(FFFHFip FHFHFHFGOFboFN/F=Q*algebraicF2C(>F5Fgo>FA-%&modp1G6$-%*ConvertInG6$FBFXF:>8(-F] r6$-F`r6$7$-%"$G6$FG,&FJFHFipFMFHFXF:>8'-F]r6$-F`r6$&F56#,&FipFHFHFHFXF:?(FFFip FMFHFN>F^s-F]r6$-%$RemG6$-%$AddG6$-F`r6$&F56#FFFX-F^q6$FAF^sFcrF:-F]r6$-%'IsZer oG6#F^sF:C(>F5Fgo>FAF\r>FcrFdr>F^s-F]r6$-F[t6$-F^q6$-F`r6$&F5F`oFXFAFcrF:?(FFFH FHFipFNC$>FA-%%DiffG6#FA>F^s-F]r6$-F^t6$F^s-F[t6$-F^q6$-F`r6$&F5F]oFXFAFcrF:Fft F2F26$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG %0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoal geq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-fi rstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG% -infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromser iesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l 2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcom poseG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtru ncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkc ondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exmin G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbis G%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG% *findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>fi ndequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;find equationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmod pG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearly G%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFbw/%'unloadGFcw6fn%.alg funtoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyprod uctG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseq nG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoal geqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG% -listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec *recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG% 2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoser iesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/d oitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(m akerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,mino rdereqnG%*optionsgfG%(versionGF2F26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G% 7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectopro c/symbolGF2F26#/%+modulenameG%%gfunG M7R0 I%:-24f*6%'%-functionlistG-%%listG6#%*algebraicG'%&pointG<$%%nameG/F.F*'%)accur acyG<$%(integerG-F(6#%*nonnegintG6*%"xG%"aG%"nG%"lG%"iG%$accG%"mG%'resultG6#%\p Copyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserve d.G6"C'@%-%%typeG6$9%.%"=GC$>8%-%#opG6$""#FH>8$-FO6$"""FHC$>FM""!>FSFH>8&-%%nop sG6#9$@%-FF6$9&.F(C%>8*-%$maxG6#-FO6#F^o>8'7#-%$seqG6$,&FboFV8(!""/F_pF^o>8),(- %(convertG6$F^o%"+GFVFfnFVF`pFVC$>Fio7#-%"$G6$FYFfn>FcpF^o>8+-T%6&-%$mapG6&%'ta ylorG-%%subsG6$/FS,&FSFVFMFVFjnFSFcpFSFio,&FcpFVF`pFV@%/Faq%%FAILGFar-Fjq6$/FS, &FSFVFMF`pFaqFBFB6&%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.N UMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprint G%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*e xpintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG% +indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicond G%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2 r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbini condG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powre vertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rec toproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfu n_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/r ectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG% +finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgi venorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_ reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvect G%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initm atG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF]s/%'unloa dGF^s6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borel G%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqto recG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(Lapla ceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG %*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%( rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/ser iestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG %/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1 diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitv alues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*min degeqnG%,minordereqnG%*optionsgfG%(versionGFBFB6(%/type/gfun/freeG%7type/gfun/h as2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6 gfun/rectoproc/symbolGFBFBFjuc0gfun_pade2/doit&:-1056$%*protectedG/%+modulename G%%gfunG M7R0 I&:-105f*6&%#llG%"xG%%degsG%'nbiterG6B%"yG%"iG%"LG%"nG%"jG%"lG%$indG%#l2G%&pivo tG%%varsG%*leadcoeffG%"kG%*normalizeG%#lkG%.rationalcoeffG%#ttG%)finishedG%%dmi nG%$degG%<ermG%#jjG%'lterm2G%%indsG%*polycoeffG%$ll2G%&dmin2G%%ind2G%#coG%$cc oG%%cco1G%%cco2G%%cco3G6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRI A~France.~All~rights~reserved.G6"C->8'-%%nopsG6#9$>8-7$-%$seqG6$&8$6#8%/Fgn;""" FO9%>8:-%&minusG6$-%'indetsGFR<#F[o@%/F]o<"C%>80f*6#F&FL6$%)operatorG%&arrowGFL FSFLFLFL>82-%%typeG6$-F_o6$<#-%#opG6#-%$mapG6$FhpFS<#-%"OG6#Fjn-.%$setG6#.%)rat ionalG>8;%&falseGC%>Fio%'normalG>F`pFiq>Fhq-Fbp6$Fdp-Fbq6#-.%(polynomG6$FeqF]o? (FgnFjnFjnFO%%trueGC%>&8&Ffn-%'seriesG6%*&FZFjn)F[o&9&FfnFjnF[o%)infinityG>&8)F fn&FSFfn>&8?FfnFjn>84Fiq?(8(""!Fjn9'4F]tC3-%)userinfoG6&""$.%+gfun_pade2G%1iter ation~numberGF_t>85Fds?(FgnFjnFjnFOFhrC'>&8.Ffn-Fio6#-%&coeffG6%FfsF[oF_t@%0F`u F`tC%>&8+FfnFgn>86-Fhp6$-FQ6#F[sF[s@'2F\uF^v\2F^vF\uC&>F\uF^v>87-Fhp6$,&FavFjn! ""FjnF[s>8=-%'lengthG6#Ffs>8>FgnC&>89F[w@$2FawF`wC$>FewFgn>F`wFaw?(88FjnFjnFO3- %$hasG6$Fjv&Fen6#F_x-Fbx6$FhwFdxFL@%531F_xFO4Fax332FOF_x0F`uF^q1-Fbw6#&Fau6#8*- Fbw6#F`uFev>FjvFhwC$>F[v%%NULLG@%/FduF`tFevC$>Ffs-F[q6$FioFfs@$30FfsF`t0-Fhp6$F jnFfsF^qFev>FfyFgn>8,Fdy@$/F[[lF^q[@$F][lC$>8/FfyF^[l@$/F\uFdsFev>8<7#-FX6$F[vF hn@&33F`p0F[[lFjn0F[[lF^wC$>83-%$absG6#-%)icontentG6#-%$addG6$*&F`uFjnFZFjn/Fgn Ff[l@$0Fa\lFjnC$>F[[l*&F[[lFjnFa\lF^w?&FgnFf[lFhr>F`u*&F`uFjnFa\lF^wFhqC$>Fa\l- %(contentG6$Fh\lFU@$F^]lC$-%'divideG6%F[[lFa\l.F[[l?&FgnFf[lFhr-F]^l6%F`uFa\l-% &evalnGFhy>Fa\l&Fgs6#Few?&FgnFf[lFhr@$0FgnFfyC$>Ffs-F[q6$Fio-F^s6%,&*&F[[lFjnFf sFjnFjn*&F`uFjn&FgsFeyFjnF^wF[oFds@&5/FfsF`t/FgzF^qC$>F[s-F[q6$Fio-F^s6%,&*(F[[ lFjnFjsFjnF[sFjnFjn*(F`uFjn&F[tFeyFjn&F\sFeyFjnF^wF[oFds>F]tFhr/-Fhp6$""#FfsF_t >Ffs-%'subsopG6$/FjnF`tFfs@$F]tC%>F\uFds?&FgnFf[lFhr@$3Ff_l2-FbwFbvF\uC$>F\uFea l>Fb[lFgnF^[l>Fd_l-F^s6%*&F[oFjnFa\lFjnF[oFds>Fa\l&F\sFg^l>8@&F[tFg^l?&FgnFf[lF hr@$Fj^l@'F`pC+>8B*&F[[lFjnFjsFjn>8C*&Fb`lFjn-%&numerGFhyFjn>8A-%%igcdG6$FgblFj bl>Fgbl*&FgblFjnF_clF^w>Fjbl*(Fb`lFjnF`uFjnF_clF^w>F[s-F^s6%,&*&FgblFjnF[sFjnFj n*&FjblFjnFc`lFjnF^wF[oFds>Fgbl-F]cl6#-Ff\l6#-Fi\l6$*&-Ff\l6#-Fhp6$,&F_xFh`lF^w FjnF[sFjnFdxFjn/F_x;Fjn-%%iquoG6$FavFh`l@$30FgblFjn0FgblF^w>F[s-F^s6%*&F[sFjnFg blF^wF[oFds>Fjs*&F_clFjnFgblFjnFhqC&>F_cl-%$gcdG6&Fhbl*&F`uFjnFb`lFjn.Fgbl.Fjbl >F[s-F[q6$F\rFhcl>Fgbl-Fh]l6%-%(convertG6$F[sFerFUF`fl@%F`elC$>F[s-F^s6%FjblF[o Fds>FjsFhel>FjsF_cl>F[s-F[q6$Fio-F^s6%,&*&F[[lFjnF[sFjnFjn*&F`uFjnFc`lFjnF^wF[o Fds>Fc`lFjal>Fb`lF`bl-Fet6&""&Fht%-current~listG-%'lprintG6#7#-FX6$F[sFhn@$3/F_ t,&FatFjnFjnFjnFbt-T%6%7#-FX6$-%#ifG6%FezFf`lFdsFhn%(numericG.Fb[l>81-%(collect G6&-Fhfl6$&F\s6#Fb[lFerFU.%,distributedGFio@&F`p-F]^l6%Feil-Ff\l6#Feil.FeilFhq- F]^l6%Feil-Fh]l6$FeilFUFdjl-T'6#-F[q6%Fgil7#-FX6$*&-Feu6$FeilFZFjn)F[o,$FbsF^wF jnFhnF[oFLFL6(%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFU N_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/al gfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expint algG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indi cialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.in ifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2r G%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG %+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG %,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectopro c/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pad e2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectoh omrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+find diffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenor derG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduc eG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,ma tmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%) tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF]\m/%'unloadGF^ \m6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%. cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorec G%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG %,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*l isttorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec +recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/series todiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/s eriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1dif feqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalu es/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindeg eqnG%,minordereqnG%*optionsgfG%(versionGFLFL6(%/type/gfun/freeG%7type/gfun/has2 diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfu n/rectoproc/symbolGFLFLFi^mc1gfun_pade2/exmin&:-104Fc]mc-listprimpart%:-826#/%+ modulenameG%%gfunG M7R0 I&:-122f*6$%"LG%"pG6"6#%)rememberGF'-%%modpG6$9$9%F'F'6$%6_thismoduledefinition Gb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtose ries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpoly G%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,fu ntodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/ foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%- listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%) minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5pow composesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rect odiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplit G%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolyt ocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systom atrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpol ationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG% ?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degm atG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpm odpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkr esultG6%%(packageG/%%loadGF6/%'unloadGF76fn%.algfuntoalgeqG%.algebraicsubsG%.al geqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*di ffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG% 0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohype rgeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodi ffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomre cG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestoli stG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nt h_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG %6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxorder eqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF 'F'6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/ gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF'F'6#/%+modulenameG%% gfunG M7R0 I%:-67f*6%%"AG%%nlinG%%ncolG6)%&lcolsG%"cG%"kG%"iG%"uG%"jG%$pivG6#%\pCopyright~ (c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C%>8$ 7#-%"$G6#;"""9&?(8%F;F;9%%%trueGC*?&8&F5/-%'normalG6#&9$6$F>FC""!>FHFK@$/FCFF<>8*FH?(8',&F>F;F;F;F;F?F@C$@%/&FI6$FUFCFK\>8(FZ?&8)F5F@>&FI6$FUFjn-FF6# ,&*&FSF;F\oF;F;*&FhnF;&FI6$F>FjnF;!""-%)userinfoG6'""&.%%gfunG%&line~GF>%,~elim inatedG?&FUF5F@>&FI6$F>FUFK-Fgo6&""'.%'rsolveG%2remaining~matrix~G-%&printG6#-% #opG6#FI>F5-%%subsG6$/FC%%NULLGF5%%FAILGF2F26$%6_thismoduledefinitionGb6#%+this moduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG %:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelin vborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG %(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4in fsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpa rtG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG% (mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesim pledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/do itG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectopr oc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elm tG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*ty pecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-fi ndequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequat iongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degve ctG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8mati nterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%( packageG/%%loadGF\r/%'unloadGF]r6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodif feqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2d iffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexpr todiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+ listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)p oltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rect oprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0ser iestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG% *_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodin itvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*ma xdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF2F26(%/t ype/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/ide ntityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF2F26#/%+modulenameGF[p M7R0 I%:-84f*6%%"LG%"nG%"uG6&%$resG%"iG%)ordereqnG%)inicoeffG6"F-C$>8$-T%6%9$9%Q+rec urrenceF-@%/F0%%FAILGF9C&>8&,&-%%nopsG6#F0"""!""FA>8'-%%subsG6$/F5,&F5FAFT',&-%$maxG6$F<-T)6$FDF5FAFBFA<$-%$addG6$*&&F06#,&8%FAFAFAFA-9&6#,&F5FAFgn FAFA/Fgn;""!F<-%$seqG6$/-Fin6#%"jG&F46#,&FeoFAFAFA/Feo;F^o-%$minG6$FM,&-F?6#F4F AFBFAF-F-6*%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_S ETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfu ntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalg G%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicia leqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifr omseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%( l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+p owcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,p owtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/c heckcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/ exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomr ecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddif feqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorder G%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG% ;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmu ltmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)try earlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFhp/%'unloadGFip6fn %.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauch yproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)gu esseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,lis ttoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listto recG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG %(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodif feqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/series toseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqto rec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/re cG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG% ,minordereqnG%*optionsgfG%(versionGF-F-6(%/type/gfun/freeG%7type/gfun/has2diffe qs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rec toproc/symbolGF-F-Fbtc-findequation&:-118Fgrc*nbinicond%:-91Faqc-firstnonzero%: -696#/%+modulenameG%%gfunG M7R0 I%:-37f*6"F$F$F$@%0&9"6#""".%(stampedG-T'6#-T%6$""(F(-T+6&F+-T)6%F+&F(6#""#.%$o gfG-%#opG6$""!F:&F(6#""$F$F$6,%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN _HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/ prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapga usselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.gues sandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isroo tG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoserie stableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myiso lveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdiv ideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec /doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparam etersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoe ff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckN ameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7fin dequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrat ionalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG% +interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyab ortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadG FM/%'unloadGFN6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoserie sG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG% ,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invbore lG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listt oratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolyt ocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoal geqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,ser iestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffe qtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3 goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegco effG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7ty pe/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/ initeqG%6gfun/rectoproc/symbolGF$F$F[qc*typecheck&:-112F^uc0seriestoratpoly%:-3 7F]uc-seriestolist%:-36F^tc.listtoratpoly%:-216$%*protectedG/%+modulenameG%%gfu nG M7R0 I%:-54G6$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-127f*6&%"pG%)listvectG%$dimG%$varG6&%"iG%%lptsG%'resultG%%vectG6"F.C%>8%7#- %"$G6#;""!,&-%%nopsG6#9%"""!""F=?(8$F=F=9&%%trueG>&8&6#F@-%&modp1G6$-%'InterpG6 %F17#-%$seqG6$&8'FF/FRF<9'9$-&%'VectorG6#%$rowG6#7#-FO6$FD/F@;F=FAF.F.6$%6_this moduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLE ANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfun toalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%, formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepoly G%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholon omicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediff eqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcom posesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprim eknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/re ctoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2 /doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%( s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6 rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgiv enorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgiven ordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultm odpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresul tnormalG%,checkresultG6%%(packageG/%%loadGFbo/%'unloadGFco6fn%.algfuntoalgeqG%. algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+ diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG% 0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtod iffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseries G%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectod iffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohype rgeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Paramet ersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatd iffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxd egcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*opt ionsgfG%(versionGF.F.6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/ha s2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF.F. 6#/%+modulenameG%%gfunG M7R0 I%:-16f*6"F$F$F$-T%6$%&falseG9"F$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6i o%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqto series/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/ cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getname G%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepol y/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2list toseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG %)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG% *powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rect ohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binspl itparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpo lytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG% *CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequatio nG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgiveno rderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*inte rpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodp earlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/ %%loadGF1/%'unloadGF26fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeq toseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomd iffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%) invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG %.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/r atpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.ser iestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpol yG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG %,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/di ffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,m indegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/fr eeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1typ e/gfun/initeqG%6gfun/rectoproc/symbolGF$F$F7c.borelinvborel%:-666$%*protectedG/ %+modulenameG%%gfunG M7R0 I%:-97f*6%%$polG%"xG%"nG6#%"iG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Projec t,~INRIA~France.~All~rights~reserved.G6"@'1-%'degreeG6$9$9%9&F22F4-%(ldegreeGF1 ""!-%$addG6$*&-%&coeffG6%F2F38$""")F3F@FA/F@;F8F4F,F,6$%6_thismoduledefinitionG b6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoser ies/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG %.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,fun todiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/f oundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-l istprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)m inindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powc omposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1recto diffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG %=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolyto coeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systoma trixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpola tionG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%? findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degma tG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmo dpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkre sultG6%%(packageG/%%loadGFL/%'unloadGFM6fn%.algfuntoalgeqG%.algebraicsubsG%.alg eqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*dif feqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0 holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohyper geomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodif feqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrec G%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolis tG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth _termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG% 6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordere qnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF, F,6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/g fun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF,F,6#/%+modulenameG%%g funG M7R0 I&:-114f*6%%"iG%"yG%"xG6"F(F(@'/9$""!.-9%6#9&/F+""".--%"DG6#F/F0.---%#@@G6$F7F+ F8F0F(F(6$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SE TUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfun toalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG %-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicial eqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifro mseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l 2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+po wcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,po wtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/ch eckcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/e xminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomre cbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiff eqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG %>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%; findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmul tmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)trye arlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFF/%'unloadGFG6fn%.a lgfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchypr oductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guess eqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listto algeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorec G%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(r ec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeq G%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestos eriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec /doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG% (makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,mi nordereqnG%*optionsgfG%(versionGF(F(6(%/type/gfun/freeG%7type/gfun/has2diffeqs2 G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectop roc/symbolGF(F(6#/%+modulenameG%%gfunG M7R0 I%:-59<.%(makerecG%(versionG%*_pexportsG%,diffeqtableG%-formatdiffeqG%*formatre cG%,maxordereqnG%,minordereqnG%*optionsgfG%1diffeqtorec/doitG%6goodinitvalues/d iffeqG%3goodinitvalues/recG6#/%+modulenameG%%gfunG M7R0 I%:-76f*6&%'lrootsG%$polG%"xG%$degG6$%$solG%%fsolG6"F,@%2""#9'-%%map2G6%%'RootO fG-%%subsG6$/9&%#_ZG9%9$C$>8$7#-%&solveG6$F;F9@%/-%%nopsG6#F8%-%&evalfG 6#F?@%2-%$absG6#,&&FK6#"""FW&Ffindequati ongivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequation givenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vect multmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2check resultnormalG%,checkresultG6%%(packageG/%%loadGFdo/%'unloadGFeo6fn%.algfuntoalg eqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.di ffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(gues sgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-li sttodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtos eriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,r ectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriest ohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Pa rametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-fo rmatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG% ,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG %*optionsgfG%(versionGF,F,6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gf un/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbol GF,F,6#/%+modulenameG%%gfunG M7R0 I%:-29t+6&%$eq1G%$eq2G%%yofzG>'%$iniG%(booleanG%%trueG6&%#y1G%#y2G%"yG%"zG6#%\p Copyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserve d.G6"C$-T%6%9&8&8'-T'6'*&-8$6#F;"""-8%FBFC7$-%%subsG6$/F:FA9$-FH6$/F:FE9%7$F@FD F9/.%+computeiniG9'F4F46(%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDD ENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prett yprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgaussel imG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandc heckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(i nicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestabl eG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG% *nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG% *powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doit G%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparameters G%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/po lyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG% $@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequa tiongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrational G%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+inte rpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG% (initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFfn/% 'unloadGFgn6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG% &borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,di ffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG% (LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtora tpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytoco effG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeq G%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,series torecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqta bleG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goo dinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeff G%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF4F46(%/type/gfun/freeG%7type/ gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/ini teqG%6gfun/rectoproc/symbolGF4F4Fboc(getname%:-72Fbuc)poltorec%:-266#""$6$%*pro tectedG/%+modulenameG%%gfunG M7R0 I%:-46f*6'%"lG%"YG%"XG%)inicondsG%$denG6,%"rG%"yG%"xG%"iG%(diffordG%"jG%%lvarG% "ZG%%contG%'locdenG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~Fr ance.~All~rights~reserved.G6"C2@$0-%%nopsG6#9$""#Y6$%:wrong~number~of~arguments G-%#opGF=-T%6%-FD6$F?F>8%8&@$2"""9#C$>9&FK>9%FJ@%-%%typeG6$-FD6$FNF>.%$setGC'>8 $-%-selectremoveG6%%$hasGFYFK@$2FN-F<6#&Fin6#FNY6$%>invalid~differential~equati onGFC@$/F`o""!Y%Uthe~unknown~variable~does~not~appear~in~the~equationG@$2""$FO> 9'&Fin6#F?>Fin-FDFaoC$>FinFY@$F]p>F`p<"@$3F]p-F]o6$F`p.%"DG>-F_q6#FT.Faq@$-FW6$ Fin.%"=G>Fin,&-FD6$FNFinFN-FD6$F?Fin!""@$-F]o6$FinF^q>Fin-%(convertG6$Fin.%%dif fG@$0-%'indetsG6$Fin-.%)specfuncG6$.%)anythingGFJ<#-FJ6#FKYFeo@%2FO""&>Fin-%'ex pandG6#-%&numerG6#-%'normalG6#FinC%>FinFbt>8,-%&denomGFdt>Fin-F]t6#-F`tFdt>8*-% 'selectG6%F]o-F\s6$Fin-F_s6$FbsFhrFJ?(8(FioFNF70F`uFip>F`u-%&minusG6$-%%subsG6$ /-Fhr6$FesFKFesF`uFds@$4-FW6$Fin-.%'linearG6#7$Fes-%$seqG6$-Fhr6$Fes-%"$G6$FK8' /Ffw;FNFiuY6%Fin%Iis~not~a~linear~differential~equation~inGFes>Fin-F`v6$7$/Fes8 +-F_w6$/-Fhr6$Fes-Fdw6$FK8))Fax,&FixFNFNFN/FixFhwFin>Fin7$-F`v6$/FaxFioFin-F_w6 $-%&coeffG6%FinFaxF[y/Fix;FioFiu@$4-FW6$Fin-.%%listG6#-.%(polynomG6$FbsFKY6$%Fin-Fjz6%FinFK.8->9(*&Fa[lFNFhtF NFinF7F76(%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SE TUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfun toalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG %-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicial eqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifro mseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l 2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+po wcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,po wtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/ch eckcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/e xminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomre cbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiff eqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG %>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%; findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmul tmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)trye arlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF\\l/%'unloadGF]\l6f n%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauc hyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)g uesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,li sttoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listt orecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+rec G%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodi ffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/serie stoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqt orec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/r ecG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG %,minordereqnG%*optionsgfG%(versionGF7F76(%/type/gfun/freeG%7type/gfun/has2diff eqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/re ctoproc/symbolGF7F7Fh\lc(getname%:-72Fb]lc-listprimpart%:-826$%*protectedG/%+mo dulenameG%%gfunG M7R0 I%:-23f*6"F$F$F$@%0&9"6#""".%(stampedG-T'6#-T%6$F*F(-%$mapG6$%'normalG-&T)6#&F( 6#""%6$&F(6#""#&F(6#""$F$F$6*%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_ HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/p rettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgau sselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guess andcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isroot G%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseries tableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisol veG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivi deG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/ doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparame tersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoef f/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNa meG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7find equationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrati onalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+ interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabo rtG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF L/%'unloadGFM6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseries G%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%, diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborel G%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listto ratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolyto coeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalg eqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seri estorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeq tableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3g oodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoe ffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7typ e/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/i niteqG%6gfun/rectoproc/symbolGF$F$Fjpc*typecheck&:-112F_tc-listtoseries%:-23F]o c2listtoseriestable%:-836$%*protectedG/%+modulenameG%%gfunG M7R0 I$:-8f*6%%$eq1G%$eq2G%%yofzG6&%#y1G%#y2G%"yG%"zG6#%\pCopyright~(c)~1992-2008~by ~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C$-T%6%9&8&8'-T'6&*&- 8$6#F6"""-8%F=F>7$-%%subsG6$/F5F<9$-FC6$/F5F@9%7$F;F?F4F/F/6(%6_thismoduledefin itionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3alge qtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/for mpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleq G%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolve poly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lind epG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxind exG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG %5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG% 1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/bin splitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4rat polytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,s ystomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalint erpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratp olyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG% 'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matin terpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,c heckresultG6%%(packageG/%%loadGFS/%'unloadGFT6fn%.algfuntoalgeqG%.algebraicsubs G%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diff eq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardprod uctG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listt ohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,po ltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,recto homrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-serie stolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfun G%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*forma trecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,max ordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(vers ionGF/F/6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3 type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF/F/Finc(getname% :-72Fhtc,poltodiffeq%:-256$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-121f*6&%"LG%$ordG%"nG%'optypeG6.%"pG%&roundG%)nbprimesG%(resmodpG%$resG%'re sultG%(modulusG%'moduliG%"iG%*ratresultG%#LLG%(partialG6"F6C&>8$-%&modp1G6#-%&P rimeG6#""">%$modG%%modsG?(8%""!F@""'%%trueGC'?(8&F@F@)""#FEFHC(?(F6F@F@F6FHC$Z% >8.-T%6$9$F9QCthe~modular~inverse~does~not~existF6C%-%)userinfoG6%""$.%%gfunGQ* bad~primeF6>F9-F;6#-F>6#F9\[>8'-T'6(FS9%9&8/F99'@$/Fco%%FAILGOF]p>&8(6#FKFco>&8 *FbpF9>F9F\o@%/FEFFC$>8+&FepF?>8)FcoC$>F[q7$-%$seqG6$&Fep6#8,/Fgq;F@FLF[q>F^q-% &chremG6$7$-Fcq6$&FapFfqFhqF^qF[q>F[q-%(convertG6$F[q%"*G>8--%*iratreconG6$F^qF [q@$0FhrF]pC$>Fhr7#-Fcq6$-%&coeffG6%FhrFioFgq/Fgq;FFFgo@$-T)6(FhrFWF9FgoFhoFjo@ %2-%'lengthG6#FW-F_t6#FhrOF]pOFhrF]pF6F66*%6_thismoduledefinitionGb6#%+thismodu leG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:al geqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvbor elG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(ge tnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsol vepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG% 2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(myg cdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpled oitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG% 1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/b insplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4 ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typech eckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findeq uationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationg ivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG% *interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinter pmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(pack ageG/%%loadGF\u/%'unloadGF]u6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG %.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffe qtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodi ffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+list tolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)polto recG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectopro cG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriest oratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pe xportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitva lues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdeg eqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF6F66(%/type/ gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identit yG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF6F6Fjxc*do_reduce&:-122F[yc;finde quationgivenordermodp&:-123Fgyc,checkresult&:-1356#/%+modulenameGFin M7R0 I&:-106f*6%%"gG%"xG%"nG6&%"kG%"aG%"cG%"iG6#%\pCopyright~(c)~1992-2008~by~Algori thms~Project,~INRIA~France.~All~rights~reserved.G6"@'-%%typeG6$9$.%)functionG-- %#opG6$""!F46$-T%6%-F96$"""F49%9&-F96$;""#-%%nopsG6#F4F4-F26$F4-.%(polynomG6$.% )anythingGFCF;C)>8$-%'selectG6%%$hasG-%'indetsG6$F4%"^GFC@$0-FJ6#FVFBY6&QGrepor t~this~as~a~bug:~g=%1,~x=%2,~n=%3F/F4FCFD>FV-F9F\o>8%,&FCFB-F96$FBFV!"">8&*&F4F BFVFgo>FV,$-F96$FHFVFgo*,FioFB),$FcoFgoFVFgo)Fco,$FDFgoFB-%$mulG6$,&FDFB8'FB/Fh p;FB,&FVFBFgoFBFB-%*factorialG6#F[qFgoF/F/6&%6_thismoduledefinitionGb6#%+thismo duleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%: algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvb orelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%( getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infs olvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpart G%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(m ygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpl edoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doit G%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc /binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG %4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*type checkG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-find equationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequatio ngivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvect G%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matint erpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(pa ckageG/%%loadGFfq/%'unloadGFgq6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffe qG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2dif feqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprto diffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+li sttolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)pol torecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectop rocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0serie storatpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_ pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinit values/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxd egeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF/F/6(%/typ e/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/ident ityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF/F/Fdtc4ratpolytocoeff/elmt&:-1 066#/%+modulenameG%%gfunG M7R0 I%:-83=6"%&falseGE\[l)%'revogfGf*6$%"LG%"xG6$%"iG%#nlG6#%\pCopyright~(c)~1992-2 008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.GF$C$>8%-%%nopsG6# 9$-T%6%-%'seriesG6%,&-%$addG6$*&&F76#8$""")9%,&FEFF!""FFFF/FE;FFF3FF-%"OG6#)FHF 3FFFHF3FH,&F3FFFJFFF$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDD ENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prett yprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgaussel imG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandc heckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(i nicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestabl eG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG% *nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG% *powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doit G%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparameters G%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/po lyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG% $@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequa tiongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrational G%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+inte rpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG% (initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFY/%' unloadGFZ6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&b orelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diff eqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(L aplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratp olyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoef fG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG% /seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriesto recG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtabl eG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodi nitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG% *mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gf un/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/inite qG%6gfun/rectoproc/symbolGF$F$Fgpc*powrevert%:-96%'lgdegfGf*F)F,F/F$C$>F3F4-F<6 %*&-F@6$*(FCFF)FH,&FEFF!"#FFFF-%*factorialG6#FcxFJ/FE;""#F3FF-F@6$*(FCFFFGFF-Ff x6#FIFJFKFJFHFQF$F$6$FSFTc(Laplace%:-16f*6$%"lGF+6#F-F/F$-F<6%,&-F@6$*(-%#opG6$ FEF7FFFGFFF^yFF/FE;FFF4FF-FN6#)FHF4FFFHF4F$F$F`y%$ogfGf*FcyFeyF/F$-F<6%,&-F@6$* &F\zFFFGFFF_zFFFazFFFHF4F$F$F`yFetFby%'revegfGf*F)F,F/F$C$>F3F4-F96%-F<6%,&-F@6 $*(&F76#,&FEFFFFFFFF)FHFEFF-FfxFDFJ/FE;""!FQFFFMFFFHF3FHFQF$F$FR%$egfGf*FcyFeyF /F$-F<6%,&-F@6$*(F\zFFFGFFF^yFJF_zFFFazFFFHF4F$F$F`y%'lgdogfGf*F)F,F/F$C$>F3F4- F<6%*&-F@6$*(FEFFFh[lFFFGFF/FE;FFFQFFF?FJFHFQF$F$F`y6#/%+modulenameG%%gfunG M7R0 I%:-68f*6&%#eqG%%yofzG%'inipolG%)iniconstG67%"yG%"zG%$deqG%"PG%"uG%"dG%"iG%#d1G %"kG%"AG%#DgG%"gG%"jG%(ord_eqnG%$eqnG%%inipG%%deq0G%$iniG%#P0G%"vG%%deq1G6#%\pC opyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved .G6"C5>8'-T%6&7%9$9%-%#ifG6%1""$9#9&%%NULLG.8$.8%83>8)-%'degreeG6$FDFT@$/FP""#> FW<"@$/FY""!Y6%QJ%1~is~not~a~polynomial~in~the~variable~%2FAFIFT>8/-T'6&-%%diff GFfnFDFT.8(@$-%$hasG6$FcoFTO-9!6$-%'normalG6#*&FD"""Fco!""&9"6#;FinFhp>8.-%$rem G6%,$*(FjoFgpFcoFhp-Fho6$FDFVFgpFhpFDFT>Fco-Feo6&&846#,&8+FgpFinFgpFDFTFio@$F\p OF`p>81FY>&826#F^oFgp?(8,FgpFgpFar%%trueG>&Fdr6#Fgr-F`q6%,&*&FTFgp&Fdr6#,&FgrFg pFhpFgpFgpFgp*&-Fho6$F`sFTFgpF^qFgpFgpFDFT>8--%'MatrixG6$;Fgp,&FarFgpFgpFgp;Fgp Far?(FgrF^oFgpFarFhr?(80F^oFgp,&FarFgpFhpFgpFhr>&Fgs6$,&FgrFgpFgpFgp,&F`tFgpFgp Fgp-%&coeffG6%FjrFTF`t>8&-%%subsG6$7#-%$seqG6$/&876#8*-Fho6$-FT6#FV7#-%"$G6$FVF gu/Fgu;F^oFar-%(collectG6$-%)primpartG6$-%&numerG6#-T)6%Fgs7#-Fau6$FduF`vFVF^wF ^w>88-T+6#7$F[uFju>Far-T/6$-T-6%FbwFVFVFV@%/FarF^o>85F[oC(>FaxF[o?(FguF^oFgpFA- F]p6$FW-T16%FguFTF^oFA>86-%(convertG6$-F]u6$FW7#-Fau6$*(-Fhx6%F`tFTF^oFgp-%*fac torialG6#F`tFhp)FVF`tFgp/F`t;F^o,&FguFgpFhpFgp%"+G@%2FguFarC%>FD-F]u6$/FT,&F[yF gp*&)FVFguFgpFTFgpFgpFD>FW-T36'FDFVFT,&FarFgpFguFhpFhr@'/-%%nopsG6#FWF^o@%2F^oF gu>FWF[y>FW%)infinityG2FgpF`[l>FWF[yC$>FW-%'seriesG6%,&F[yFgp*&FhzFgp&FW6#FgpFg pFgpFVF\t>FW-F]u6$-Fau6$/Fgu-%"OG6#)FV-%%ceilG6#-%#opG6$Fin-Fa]lFfu/Fgu-%'indet sG6$FW-.%)specfuncG6$)-.%*identicalGF[v.%)rationalGFj\lFW>FWF[y>F[y-%%evalG6$FW 7$/Fj\lF^o/FVF^o@$0FWFg[lC&>FW-%$intG6$FWFV@$/FP""%>FW,&9'FgpFWFgp>Fax-F]\l6%-% $expGFb[lFVFar>Fax<#-Fau6$/Fey*&-Fht6%FaxFVF`tFgpFgyFgp/F`t;F^oFat@%/FaxF[oF[u< $-Fa]l6#FaxF[uFAFA64%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%. NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprin tG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%* expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG %+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicon dG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l 2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbin icondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powr evertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4re ctoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gf un_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/ rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG %+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationg ivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do _reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvec tG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(init matG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFbal/%'unl oadGFcal6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&bo relG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffe qtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(La placeG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpo lyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeff G%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/ seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestor ecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtable G%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodin itvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%* mindegeqnG%,minordereqnG%*optionsgfG%(versionGFAFA6(%/type/gfun/freeG%7type/gfu n/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeq G%6gfun/rectoproc/symbolGFAFAF\blc,formatpoleq%:-70F_clc(mygcdex%:-89Fgblc'lind ep%:-81Fbilc-formatdiffeq%:-46F`blc+indicialeq%:-74F[blc-firstnonzero%:-69Fhdlc $@@D&:-114Fhflc.algeqtoseries$:-46#/%+modulenameG%%gfunG M7R0 I%:-53G6$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-38f*6"6%%"LG%$moeG%$resGF$F$@%0&9"6#""".%(stampedG-T'6#-T%6$""'F,C&>8$-T)6% F/&F,6#""#.%$ogfG>8%-T-6#.T+Z%C%@$4-%$hasG6$F>-%"OGF-C$-FF6#/FH-%$maxG6$-FF6#.T /,&-%%nopsG6#F:F.!"#F.>F:7$-%#opGF[o-%"$G6$""!-FX6$"#5Fin>8&-T16&F/F:&F,6#""$&F ,6#""%-%+PamametersG6#/FHFDF$C$FcpYF$FioF$F$62%6_thismoduledefinitionGb6#%+this moduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG %:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelin vborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG %(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4in fsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpa rtG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG% (mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesim pledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/do itG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectopr oc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elm tG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*ty pecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-fi ndequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequat iongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degve ctG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8mati nterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%( packageG/%%loadGF`q/%'unloadGFaq6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodif feqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2d iffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexpr todiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+ listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)p oltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rect oprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0ser iestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG% *_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodin itvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*ma xdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/t ype/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/ide ntityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF$F$Fdtc*typecheck&:-112Fhxc,s eriestorec%:-38Ffxc-seriestolist%:-36Ffyc,maxordereqn%:-52Fjxc+Parameters%:-40F jyc,minordereqn%:-56Fhwc*listtorec%:-226$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-15f*6"F$F$F$-T%6$%&falseG9"F$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6i o%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqto series/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/ cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getname G%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepol y/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2list toseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG %)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG% *powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rect ohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binspl itparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpo lytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG% *CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequatio nG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgiveno rderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*inte rpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodp earlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/ %%loadGF1/%'unloadGF26fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeq toseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomd iffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%) invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG %.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/r atpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.ser iestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpol yG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG %,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/di ffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,m indegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/fr eeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1typ e/gfun/initeqG%6gfun/rectoproc/symbolGF$F$F7c.borelinvborel%:-666$%*protectedG/ %+modulenameG%%gfunG M7R0 I&:-128f*6'%"pG%"AG%"BG%"CG%"nG6%%$degG%"iG%$resG6"F.C%>8$,&-T%6#9%"""-F46#9&F7 ?(8%""!F7F1%%trueG>&8&6#F<-__%.LinearAlgebraG%(ModularG%)MultiplyG6%9$-_FE%$Mod G6&FJF6/9(F<&%(integerGF.-FL6&FJF:FOFQ-T'6(FJ7#-%$seqG6$F@/F<;F=F1-%#opG6$7$F7F 7F6-Fin6$7$F7""#F:9'FPF.F.6(%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_H IDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/pr ettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgaus selimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessa ndcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG %(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriest ableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolv eG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivid eG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/d oitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparamet ersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff /polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNam eG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7finde quationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderratio nalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+i nterpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabor tG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFh o/%'unloadGFio6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoserie sG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG% ,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invbore lG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listt oratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolyt ocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoal geqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,ser iestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffe qtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3 goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegco effG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF.F.6(%/type/gfun/freeG%7ty pe/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/ initeqG%6gfun/rectoproc/symbolGF.F.Fhsc'degmat&:-124Fjsc*interpmat&:-1266#/%+mo dulenameG%%gfunG M7R0 I&:-113f*6#%"xG6#%%globG6"F(C$>8$-%(convertG6$9$.%'globalG@%4-%'memberG6$F+<&._ F(%(versionG._F(%,maxordereqnG._F(%,minordereqnG._F(%*optionsgfGY6$Q3invalid~op tion:~%1F(F+F+F(F(6$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%. NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprin tG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%* expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG %+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicon dG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l 2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbin icondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powr evertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4re ctoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gf un_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/ rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG %+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationg ivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do _reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvec tG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(init matG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFN/%'unloa dGFO6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG %.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtor ecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(Laplac eG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG% *listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(r ec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seri estodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG% /seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1d iffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitva lues/recG%(makerecG%,maxdegcoeffGF=%*maxdegeqnG%,mindegcoeffG%*mindegeqnGF@FCF: F(F(6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type /gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF(F(6#/%+modulenameG% %gfunG M7R0 I%:-98f*6&%%poffG%"fG%"xG%"nG6"F)F)-T%6&-%%diffG6$9$9&-F.6$9%F1F19'F)F)6&%6_thi smoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CL EANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfu ntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG% ,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepol yG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholo nomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makedif feqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powco mposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/ppri meknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/r ectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade 2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG% (s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG% 6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgi venorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgive nordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmult modpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresu ltnormalG%,checkresultG6%%(packageG/%%loadGF=/%'unloadGF>6fn%.algfuntoalgeqG%.a lgebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+d iffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0 hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodi ffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG %&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodi ffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohyper geomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Paramete rsG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdi ffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxde gcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*opti onsgfG%(versionGF)F)6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has 2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF)F)F jnc*powdivide%:-956#/%+modulenameG%%gfunG M7R0 I%:-75f*6$%"pG%"xG61%$solG%"iG%$degG%'abssolG%'sortedG%'nbminiG%+candidatesG%"j G%&cand2G%"nG%"qG%"yG%$sqfG%%sqf2G%$polG6"F7C5>82-%(collectG6$9$9%>8&-%'degreeG 6$F:F?@$/FA""!O7"@$/FA"""O7#-%&solveGFD>8$7#-%'fsolveG6%F:F?%(complexG>8--%%nop sG6#FR>8'-%$mapG6$%$absGFR>8(-%%sortG6#Fhn?(8)""#FL-Fen6#F^o2,&&F^o6#FcoFL&F^o6 #FL!""-%&FloatG6$FL,&FdoFL%'DigitsGF]pF7>Fco,&FcoFLF]pFL@$/FcoFLC$-%'memberG6%F [pFhn.8%O-T%6&7#&FR6#F\qF:F?FA>8.-%$gcdG6$F:-%%diffGFD@$0FeqFLC$@%-%%typeG6$Feq -.%(polynomG6$.%)rationalGF?-%'divideG6%F:Feq.Feq>Feq-%$quoG6%F:FeqF?O-9!6$FeqF ?>8*7#-%$seqG6$Fbq/F\q-%'selectG6$f*6#%"kGF7F7F71&T#6#F>&F_q6#T'F7F76(F+FhnF,F^ oF-Fco7#-%"$G6#;FLFY@$4-F`r6$F:-Fdr6#%)realconsGC$>F:-%)primpartGFD@%F_uC$>Feq- F<6%-%&evalcG6#,&*$-%#ReG6#F:FdoFL*$-%#ImGFevFdoFLF?%'expandGO-F\t6&FgtFasF:F?O -FbsFD@$3/FcoFdo/,&-Fhv6#&FesF\pFL-Fhv6#&Fes6#FdoFLFG@%/FdwFGC$>Feq-Fgq6$F:-%%e valG6$F:/F?,$F?F]p@$-Fgt6%FfwFeqF?O-F_q6&FesFeqF?-FCFcsO-F_q6&FesF:F?FA>Feq-%*r esultantG6%-%%subsG6$/F?8/F>-%&numerG6#-Fey6$/F?*&F?FLFhyF]pF>Fhy>80-F\t6$f*6#% "tGF7F7F7/&F>FjwFctF7F76$F-Fco&-%(sqrfreeGFcsFjw@%30FazFI-Fgt6%*$F[pFdo&&FazF\p F\pF?F^yC$>Fbp,$FbpFdoF^wF7F76(%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFU N_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries /prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapg ausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.gue ssandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isro otG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseri estableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myis olveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdi videG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomre c/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitpara metersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytoco eff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Check NameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7fi ndequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderra tionalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG %+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlya bortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%load GF_\l/%'unloadGF`\l6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqto seriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdif feqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)in vborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%. listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/rat polytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.serie stoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG %,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%, diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diff eqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,min degcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF7F76(%/type/gfun/free G%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/ gfun/initeqG%6gfun/rectoproc/symbolGF7F7F_]lc3infsolvepoly/found%:-76F`]lc4infs olvepoly/isroot%:-776#/%+modulenameG%%gfunG M7R0 I%:-60t+6#%#~$G6"F&F&-_T%%&setupGF&F&F&6&%6_thismoduledefinitionGb6#%+thismodul eG6V%-numeric_modeG%/NUMGFUN_HIDDENG%4bound_normal_diffeqG%&typesG%)matricesG%( nthtermG%'ancontG%'boundsG%/numeric_boundsG%0symbolic_boundsG%&hrdeqG%&hrrecG%* evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%) rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_appro ximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generat orG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeq G%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diff eqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falli ng_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_ small_approxG6#%(packageG64%*fnth_termG%6analytic_continuationG%+evaldiffeqG%-d iffeqtoprocG%2transition_matrixG%-bound_diffeqG%*bound_recG%.bound_ratpolyG%2bo und_diffeq_tailG%/bound_rec_tailG%0abs_with_RootOfG%.dominant_rootG%2make_waksm an_procG%-needed_termsG%*utilitiesG%*_pexportsG%(versionG%)SettingsGF&6#QeoBina ry~splitting,~analytic~continuation~of~holonomic~functions,~and~boundsF&6#%)ndm atrixGF&F&F4c&types&:-1376#"""6#/%+modulenameG%%gfunG M7R0 I%:-45f*6(%"RG%"yG%"zG%"uG%"kG%)inicondsG61%"lG%$iniG%"iG%$recG%"jG%*minordrecG %*maxordrecG%"mG%"rG%$dr1G%'inhdegG%(inhpartG%"pG%#rrG%%contG6#%\pCopyright~(c) ~1992-2007~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C0@&-%$h asG6$9$9(Y6$FD%Kcannot~appear~in~the~differential~equationG-FA6$FC9'Y6$FJFG@%/9 #""'C&>8$<#-%$seqG6$-%#opG6$""#-FY6$""!-FY6$Fhn8&/F[o-%&minusG6$-%'indetsG6$7$9 )FC-%,gfun/initeqG6#9%<$-Fho6#Fhn.--%"DGFgoF[p>8%7%/Fjo-FJF[p/F\p-FJ6#"""-FV6$/ -T%6%F[oFhoFhn*&-FJ6#F[oFhp-%*factorialGFaqFhp/F[oFS>8,-%%subsG6$FapFC>Fap-Fhq6 $FapFdoC$>FfqFC>Fap<"@$0&FfqFgpFhn?(8.FhnFhpF=%%trueGC&>80,&FhpFhp9&!""?(F[oFen Fhp-%%nopsG6#Ffq/-%'degreeG6$FirF[sFhp>Fir-%$gcdG6$Fir&FfqFaq@$4-FAFds[>Ffq7$Fc r-FV6$-%$quoG6%FisFjrF[s/F[o;FenF^s>81-%$mapG6$f*6#%"xGF=F=F=@%/FCFhnFhpFCF=F=F =Ffq>8)-%$minG6#-FV6$,&F[oFhp-Fcs6$-FY6$,&F[oFhpFenFhpFhtF[sF\s/F[o;Fhn,&F^sFhp !"#Fhp>8*-%$maxG6#-FV6$,&F[oFhp-%(ldegreeGFjuF\sF^v>8'-%&ArrayG6$;FbuFcv/.%(sto rageG.%'sparseG?(F[oFenFhpF^sFfr?(8(-F[w6$-FY6$F[oFfqF[sFhp-FcsF[xFfr>&F]w6#,(F [oFhpFavFhpFiwF\s,&F`xFhp*&-%&coeffG6%F\xF[sFiwFhp-%'expandG6#-%$mulG6$,&FDFhp8 +Fhp/F_y;,&FhpFhpFiwF\sFbxFhpFhp@%/FcrFhnC$>8-F\s>8/FhnC$>Fgy-Fcs6$FcrF[s@%0Fer FhnC$>Fiy*&-Fix6#-%$addG6$*&-Ffx6%FcrF[sF[oFhp-F\y6$,&FDFhpFiwFhp/Fiw;,&FhpFhpF [oF\s,(FerFhpF[oF\sF\sFhpFhp/F[o;FhnFgyFhp-Fcq6#,&FerFhpF\sFhpF\s>Ffq-%'subsopG 6$/Fhp-%'seriesG6%*&FcrFhp)FjrFerF\sF[s,&-Fev6$Fgy,&FcvFhpFbuF\sFhpFhpFhpFfq>Fi yFhn@$550FapF`rFN0FgyF\sC$>Fap<$-FY6#-Fjt6%%(convertG7#-FV6$-Fhq6$/FDF[o7$Fiz-F V6$*&&F]w6#FiwFhp-FJ6#,&F[oFhpFiwFhpFhp/Fiw;-Fev6$Fbu,$F[oF\sFcvFb[l%"+G-FY6#Fa p?(F[o,&FgyFhpFhpFhpFhpF=52F[o,$FbuF\s/-Fhq6$Fh]l<#-FV6$&F]w6#,&FcvFhpFiwF\s/Fi w;Fhn-Fdu6$,(F[oFhpFgyF\sF\sFhpFd\l<#Fhn>Fap<$-Fb]l6$-Fhq6$Fh]l7$Fj]lFiyFg^lFh^ l>F]w-T'6%-Fhq6$/FD,&FDFhpFbuF\s7$Fiy-FV6$&F]wFaq/F[oFawFD.82@$3-FA6$FcalFDFh\l C$>FSF\s?&Fiw-%'selectG6%%%typeG-T)Fgal%*nonnegintGFfr@$1F[oFiwC$>FS,&FSFhpFhpF hp>Fap-%&unionG6$Fap<#/-FJF^^l&%#_CG6#FS?(F=FhpFhpF=32Fen-F_s6#F]w/&F]w6#FdclFh n>F]w-Fi[l6$/Fdcl%%NULLGF]w6%-Fjt6%%(collectGF]wFDFapFcalF=F=6*%6_thismoduledef initionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3al geqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/f ormpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpol eqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsol vepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'li ndepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxi ndexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpl eG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingp G%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/b insplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4r atpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG% ,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationali nterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderra tpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodp G%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.mat interpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG% ,checkresultG6%%(packageG/%%loadGFidl/%'unloadGFjdl6fn%.algfuntoalgeqG%.algebra icsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG %.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadama rdproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG% 0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade 2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG% ,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG% -seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(N umGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG% *formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeff G%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG %(versionGF=F=6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffe qs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF=F=F_hlc$@ @D&:-114F_flc-listprimpart%:-82Fgflc)myisolve%:-906$%*protectedG/%+modulenameG% %gfunG M7R0 I%:-30t+6'%%exprG%%aofnG%%foftG>'%,homogeneousG%(booleanG%&falseG>'%$iniGF+%%tr ueG6*%"rG%"aG%"nG%"fG%"tG%)inicondsG%"AG%"NG6#%\pCopyright~(c)~1992-2008~by~Alg orithms~Project,~INRIA~France.~All~rights~reserved.G6"C(-T%6%9&8'8(@%9(>8$-T'6& 7$9$9%.8%.8&.8)>FG-FI6%FKFNFP@$39'0&FG6#"""""!>FG-T)6$FGFQ@%FE>FS-T+6'FGFOFQFSF ,>FS%%NULLG@&-%$hasG6$FGFBY6$QC%1~cannot~appear~in~the~recurrenceFfindequationgivenorderratpolyG%?findequationgivenorder rationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpma tG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearl yabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%lo adGFip/%'unloadGFjp6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqto seriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdif feqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)in vborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%. listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/rat polytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.serie stoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG %,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%, diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diff eqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,min degcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGFfindequationgivenorderratpolyG%?findequationgivenorderrat ionalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG% +interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyab ortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadG FM/%'unloadGFN6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoserie sG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG% ,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invbore lG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listt oratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolyt ocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoal geqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,ser iestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffe qtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3 goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegco effG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7ty pe/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/ initeqG%6gfun/rectoproc/symbolGF$F$F[qc*typecheck&:-112F`uc/seriestoseries%:-39 F]uc-seriestolist%:-36F`tc-listtoseries%:-236$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-56"""6#/%+modulenameG%%gfunG M7R0 I%:-73f*6(%+listseriesG%"xG%$ordG%*nbnonzeroG%+tryfactorsG%)ordcheckG6&%%lpolG% "kG%"jG%&checkG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France .~All~rights~reserved.G6"C(>8$-%$mapG6%%(collectG-T%6%9$9%9&F>@$/F5%%FAILGOFB@$ 29'-%%nopsG6#-%%subsG6$/""!%%NULLG-F76%%'coeffsGF5F>C&@$49(OFB>F5-F76$%(factors GF5@$2FF,&-FH6#-FK6$FM7#-%$seqG6$-FR6$-%#opG6$"""8%F>/Fgo-F_o6$-Fdo6#-Fdo6$""#F go/FgoF5Ffo-FH6#-%'removeG6%%$hasGF5F>FfoOFB>F5-F76%%(convertG7#-F_o6$7$&Fgo6#F fo-F_o6$)&8&Faq&Ffq6#F_p/Ffq&FgoFhqF`p%"*G>8'-F76$%'normalG-%'seriesG6%-%$addG6 $*&&F56#FfqFfo&F=FirFfo/Ffq;Ffo-FH6#F=F>9)@$5/F]rFN/-Fdo6$FfoF]r-%"OGFaqOF5FBF2 F26&%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0 NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalge q2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firs tnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-i nfsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromserie sG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2h G%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcompo seG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtrunc ateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcon dG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG% 0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG% (s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*f indalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>find equationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findeq uationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG %-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG% 2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF`t/%'unloadGFat6fn%.algfu ntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproduc tG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG %(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalge qG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-l isttoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*r ecG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2s eriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoserie sG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doi tG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(mak erecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minord ereqnG%*optionsgfG%(versionGF2F26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7t ype/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/ symbolGF2F2Fjzc&pade2%:-246#/%+modulenameG%%gfunG M7R0 I%:-90f*6$%$eqnG%"nG6'%$solG%"iG%"dG%"fG%"gG6#%\pCopyright~(c)~1992-2008~by~Alg orithms~Project,~INRIA~France.~All~rights~reserved.G6"@)4-%$hasG6$9$9%<"-%%type G6$F5-.%(polynomG6$.%)rationalGF6-%'selectG6%F9<#-%$seqG6$&8%6#"""/FI-%&rootsG6 #F5.%(integerG-F96$F5.%"*G-%&unionG6#-%#opG6#-%$mapG6%T%7#-FZFOF6C'>8'-%(collec tGF4>8(-%)primpartG6$F^oF6@$0-%'expandG6#,&FboFKF^o!""""!O-Fin6$FboF6>8&-%'degr eeGFeo@)/FbpFKC$>F^o,$*&-%&coeffG6%F^oF6F]pFK-F\q6%F^oF6FKF\pF\p@'-F96$F^oFP<#F ^o45-F36$F^o.%'RootOfG-F36$F^o.%(&RootOfGF7C$>F^o-%&evalaG6#-%'NormalG6#F^o@%Fa qFcqF7/Fbp""#C&>F^o7#-FF6$-F\q6%F^oF6FI/FI;F]pFhr>Fbp-%%sqrtG6#,&*$-FZ6$FhrF^oF hrFK*&-FZ6$""$F^oFK-FZ6$FKF^oFK!"%>Fbp-%)simplifyG6%Fbp.%(radicalG.%)symbolicG- FB6%F9-Fgn6$%'normalG<$,$*&,&FbpFKFhsF\pFKF[tF\p#FKFhr,$*&,&FbpFKFhsFKFKF[tF\p# F\pFhrFPFRFVC$Z%>8$-%'isolveG6$-FioFOF6F/OF7<#-FF6$-FZ6$FhrFI/FI-FB6%F9-Fgn6$FZ 7#Fju/-.%*identicalG6#F6FPF/F/6&%6_thismoduledefinitionGb6#%+thismoduleG6io%,GF UN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoserie s/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheap gausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.gu essandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isr ootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoser iestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myi solveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powd ivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomr ec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitpar ametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytoc oeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Chec kNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7f indequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderr ationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmat G%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearly abortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loa dGFgw/%'unloadGFhw6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtos eriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiff eqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)inv borelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.l isttoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratp olytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.series toalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG% ,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,d iffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffe qG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mind egcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF/F/6(%/type/gfun/freeG %7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/g fun/initeqG%6gfun/rectoproc/symbolGF/F/Feyc)myisolve%:-906#/%+modulenameG%%gfun G M7R0 I%:-99f*6)%"rG%"uG%"nG%"fG%"zG%,homogeneousG%)inicondsG64%&orderG%'diffeqG%"PG% "kG%"pG%"aG%#rrG%+returninisG%$iniG%"iG%#k0G%%indsG%$resG%"lG%"cG%#aaG%"jG%'isz eroG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~right s~reserved.G6"C1>8$-%$maxG6#-%#opG6#-%$mapG6%%'degreeG9$9&>8+-%&evalbG6#/9#""(> 8%-%&ArrayG6$;!""FD/.%(storageG.%'sparseG>8.,&-%%nopsG6#FO"""!"#Feo>-%"DG6#9'.F ho?(8'""!FeoF`o%%trueGC$>8&-FI6$,&F^pFeo""#FeoFO?(8(F_pFeo-FN6$FcpFPF`pC%>Fcp-% $quoG6&Fcp,(FPFeoF^pFeoFipFinFP.8)>&FZ6#Fip,&FeqFeo*&FcqFeo)9(,(F`oFeoFipFeoF^p FinFeoFeo>&FZ6#Fin,&F]rFeo-%(collectG6$*(FcqFeoFiqFeo-%%diffG6$-%$addG6$*(-T%6% 8-F[pF_pFeo)FjqF^sFeo-%*factorialG6#F^sFin/F^s;Fip,&F^pFeoFinFeo7#-%"$G6$FjqFip FeoFjqFin>Fcp-FI6$FeoFO?(FipF_pFeoFjpF`pC$>&8*Ffq-%%subsG6$/FP,&FipFinFinFeoFcp >Fcp-F_q6%,&FcpFeoF`tFin*&,(FPFeoFipFeoFeoFeoFeo,&FipFeoFeoFeoFinFP>FZ7$,&*&F]r Feo),&FeoFeoFjqFinFipFeoFeo*&)FjqF`oFeo-Fhr6$*&&Fat6#F^pFeo)Fcu,(FipFeoF^pFinFi nFeoFeo/F^p;F_p,&FipFeoFinFeoFeoFeo-%$seqG6$*&FbuFeo&FZFjuFeo/F^p;F_pFD@$FRC'>8 /-FL6$FI-%'indetsG6$9*-9%6#.%)anythingG>8,-%&solveG6$-Fct6$7#-Fav6$/-FbwFbs*&F[ sFeoF`sFin/F^sFjvF`w<#-Fav6$F[sFcx>FZ-Fct6$FgwFZ>Fjv-FF6#-FI6#Fjv@$30Fjv,$%)inf inityGFin1FDFjv>FZ-%'subsopG6$/Feo,&-Far6$&FZ6#FeoFjqFeo-%(convertG6$-%'seriesG 6%-%%evalG6#-Fct6%/-F[p6#Fjq,&-Fhr6$Fjr/F^s;F_pFjvFeo*&-%"OGF^zFeo)Fjq,&FjvFeoF eoFeoFeoFeoFgw-T'6%FZF[pFjqFjqFcy%(polynomGFinFZ@$5-%$hasG6$F]zF[p9)C+>81-%'sel ectG6%F^\l-F^w6$F]z.%)functionGF[p@$30Fc\l<"4-%%typeG6$F]z-.%'linearG6#Fc\lYQ;i nvalid~inhomogeneous~partFA>FZ-Fct6$<#-Fav6$/&Fc\lFbs&83Fbs/F^s;Feo-FcoFf]lFZ>F c\l7#-Fav6$Fa^lFc^l>FZ-Fgy6$/Feo-Far6$F]zFc\lFZ?&F^sFc\lF`p@$-F^\l6$F]zF^sC%>82 -%&coeffG6%F]zF^sFeo>80,$-Fer6$Ff_lFjqFin>FZ7&-Far6%,&*&F[`lFeoF]zFeoFeo*&Ff_lF eo-FerF\zFeoFeoFc\l%'normalG,&*&F[`lFeo&FZ6#FgpFeoFeo*&Ff_lFeo-Fer6$Fj`lFjqFeoF eo-Fav6$,(*&F[`lFeo&FZ6#84FeoFeo*&Ff_lFeo-Fer6$FcalFjqFeoFeo*&Ff_lFeo&FZ6#,&Fea lFeoFinFeoFeoFeo/Feal;""$-Fco6#FZ*&Ff_lFeo&FZ6#F`blFeo@$3F`\l0F]zF_pC%>Ff_lF]z> F[`lF\`l>FZ7&F_pFh`lF_alFbbl@$-F^\l6$FZFb^lYQ9some~assertion~was~wrongFA>FZ-FL6 %FarFZFjq>FZ-T)6$FZFjq@%FRC$>6$Fgw85-T+6&FZF[pFjqFgw@$F]dlOF[[l>FgwF^]l>F[`l-Fh [l6%FhxF[pFjq@%0FgwF^]l<$-FI6#FgwF[`lF[`lFAFA6,%6_thismoduledefinitionGb6#%+thi smoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doit G%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.boreli nvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeq G%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4i nfsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimp artG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG %(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesi mpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/d oitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectop roc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/el mtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*t ypecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-f indequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequa tiongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degv ectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8mat interpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%% (packageG/%%loadGFcel/%'unloadGFdel6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqto diffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG %2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0hole xprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeom G%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG %)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*r ectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0 seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_ter mG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goo dinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG% *maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGFAFA6( %/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/ identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGFAFAFihlc$@@D&:-114F]glc+ma kediffeq%:-86Fiflc-listprimpart%:-82Fe]mc6goodinitvalues/diffeq%:-486#/%+module nameG%%gfunG M7R0 I&:-116f*6%%"LG%"yG%"xG6$%$resG%"iG6"F+C$>8$-T%6%9$9&Q*algebraicF+@%/F.%%FAILGF 7-%$addG6$*&&F.6#,&8%"""F@F@F@)-9%6#F3F?F@/F?;""!,&-%%nopsG6#F.F@!""F@F+F+6&%6_ thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN _CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7al gfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzer oG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolve polyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,ish olonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+make diffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1po wcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/p primeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfu n/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_p ade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2 dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalge qG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequatio ngivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationg ivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectm ultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkr esultnormalG%,checkresultG6%%(packageG/%%loadGFT/%'unloadGFU6fn%.algfuntoalgeqG %.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffe q+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgf G%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listt odiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseri esG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rect odiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohy pergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Param etersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-forma tdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,ma xdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*o ptionsgfG%(versionGF+F+6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/ has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF+ F+Fhqc-findequation&:-1186#/%+modulenameG%%gfunG M7R0 I$:-5f*6"F$F$F$-T%6$%%trueG9"F$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6io% ,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtose ries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/ch eapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG% .guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/ isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listto seriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%) myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*p owdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectoh omrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplit parametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpoly tocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*C heckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG %7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenord errationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interp matG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpea rlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%% loadGF1/%'unloadGF26fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqto seriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdif feqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)in vborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%. listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/rat polytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.serie stoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG %,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%, diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diff eqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,min degcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/free G%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/ gfun/initeqG%6gfun/rectoproc/symbolGF$F$F7c.borelinvborel%:-666$%*protectedG/%+ modulenameG%%gfunG M7R0 I&:-133f*6(%"LG%$dimG%"xG%"pG%'optypeG%&stackG6(%"UG%"aG%"bG%"cG%"kG%%zeroG6"F2 @'/9#""&9$/&9)6#"""F6&8$8%8&8'-%#opG6$;""#!""F:@%/9(Q+recurrenceF2C$?(8(F8)-%&evalbG6#2FQFP>Fco-%&modp1G 6$-%'IsZeroG6#-%$AddG6#-%$seqG6$-FX6$&F76#FP&F@Fhp/FP;F<9%FZ@%4Fco%%FAILG-T%6(F 7F\qFjnFZFL&9"6#;""(FI-Faq6(-T'6&FZF7&F:6#FHFjnF\qFjnFZFLFcqF2F26(%6_thismodule definitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG% 3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalge q/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,format poleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3inf solvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG% 'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)m axindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesi mpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowi ngpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectopro c/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG %4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2 aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6ration alinterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorde rratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenorderm odpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%. matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnorma lG%,checkresultG6%%(packageG/%%loadGFfr/%'unloadGFgr6fn%.algfuntoalgeqG%.algebr aicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeq G%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadam ardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG %0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pad e2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG %,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG %-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%( NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG %*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoef fG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgf G%(versionGF2F26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diff eqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF2F2F_wc)t ryearly&:-133F[wc-vectmultmodp&:-1296#/%+modulenameG%%gfunG M7R0 I%:-22f*6"6*%'resultG%(methodsG%'methodG%"uG%"nG%"sG%%unknG%%exprG6#%\pCopyrigh t~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.GF$C*@ $0&9"6#""".%(stampedGO-T'6#-T%6$""#F4>8+&F46#F@>8*&F46#""$>8%&F46#""%>8'-%#opG6 $""!FF>8(-FR6#FF?&8&FK%%trueGC&Z%@%35/FZ.%'revogfG/FZ.%'revegfG0&FBF5FT>8)-T)6% F77$F6-FR6#FBFZ>Fdo-Ffo6%F7FBFZF$\-%)userinfoG6'FI.%%gfunG%,Trying~the~GFZFdo>8 $-T+6%FdoFVFP@$0Ffp%%FAILGC$-F`p6(F@Fbp.%$TheGFZ.%1seems~to~satisfyGFfpO7$FfpFZ F\qF$F$6,%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SET UPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfunt oalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG% -firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indiciale qG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifrom seriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2 h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+pow composeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,pow truncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/che ckcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/ex minG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrec bisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffe qG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG% >findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;f indequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmult modpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryea rlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF]r/%'unloadGF^r6fn%. algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyp roductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)gues seqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listt oalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtore cG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%( rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffe qG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriesto seriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtore c/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG %(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,m inordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs 2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/recto proc/symbolGF$F$Fauc*typecheck&:-112Fexc*listtorec%:-22Fcxc+listtolist%:-20Fesc (l2r/l2r%:-846$%*protectedG/%+modulenameGFcp M7R0 I%:-31f*6$%$RecG%%uofkG6'%$recG%"uG%"kG%$iniG%"nG6#%\pCopyright~(c)~1992-2008~b y~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C$>8$-T%6&7#9"8%8&8' @%/&F26#"""""!9$C&>8(-%%nopsG6#F2@$50F:<"-%%typeG6$FA%$setG>F:-T)6(F2F8F9F:%%tr ueG-%$maxG6$,&FDF?!"#F?-T'6$F=F9>F2-T+6$F2F9-T-6&F2F8F9F:F/F/6.%6_thismoduledef initionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3al geqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/f ormpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpol eqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsol vepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'li ndepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxi ndexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpl eG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingp G%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/b insplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4r atpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG% ,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationali nterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderra tpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodp G%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.mat interpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG% ,checkresultG6%%(packageG/%%loadGFeo/%'unloadGFfo6fn%.algfuntoalgeqG%.algebraic subsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%. diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamard productG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0l isttohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G %,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,r ectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-s eriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(Num GfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*f ormatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG% ,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%( versionGF/F/6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs 3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF/F/Ffwc*form atrec%:-47F^pc-firstnonzero%:-69Fhwc3goodinitvalues/rec%:-49F]rc1rectohomrec/do it&:-100Fiwc(makerec%:-506$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-48f*6'%$deqG%"yG%"zG%$iniG%"pG61%"uG%%initG%"iG%$solG%)maxorderG%%indsG%"jG %$rejG%"kG%$sysG%"vG%#gbG%*termorderG%)goodindsG%&unknsG6#%\pCopyright~(c)~1992 -2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C+>81-%'selec tG6%%%typeG-T'6$-T%6%9$9&FKFK%*nonnegintG@%/F?<"C$@$/&FJ6#"""""!O6$FO%&falseG>8 (-%'degreeG6$FSFKC$>F?-%%sortG6#7#-%#opG6#F?>Fen&F?6#!""@$/9#""&>Fen-%$maxG6$Fe n9(@%32""$Fho-FC6$9'.%$setGC%>8%Fep>Fen-F\p6$Fen-%$seqG6$-F`o6$""#-F`o6$FV-F`o6 $FV8&/Fhq-%&minusG6$-%'indetsG6$Fjp-%,gfun/initeqG6#9%<$-Fcr6#FV.--%"DGFbrFfr@$ 31FenFV-%$hasG6$FjpFgr>FenFU>FjpFO>8$-%'seriesG6%-%%evalG6$-T)6%FJFcrFK/-Fcr6#F K-%%subsG6$Fjp,&-%$addG6$*(-T+6%FhqFcrFVFU)FKFhqFU-%*factorialG6#FhqFeo/Fhq;FVF enFU*&-%"OGFTFU)FK,&FenFUFUFUFUFUFK%)infinityG>Fds-%&unionG6$-%'removeG6%F_s<#- F_q6$-%&coeffG6%FdsFKFhqF`uFcuFjp>82<#-F_q6$FitF`u>8'-%&solveG6$Fds-%*intersect G6$Ffv-F^r6$Fds-.%)functionGFfr@%/F[w%%NULLGY%F?7#-%"$G6#Fau>F[w-Fbt6$F[w7#-F_q6$Fit/FhqF?>8)-FA6%F_s-F^r6$F[wFewFfv>8*-F \p6#-F`o6#-%$mapG6$F`o-F^r6$7$FJF[w&%#_CG6#.%)anythingG@$/Fay,$FguFeo>FayFeo?&F hqF[y%%trueG@%3-%'memberG6%FhqF[w.8,2FU-%%nopsG6#-FA6%F_sF[wFhqC$>Fay,&FayFUFUF U>F[w-Fbt6$/Fhq&F]z6#FayF[wC$>F?-%'subsopG6$/F][lFiwF?>F[w-F`\l6$Fb\lF[w@%33334 -%(hastypeG6$FJF\z-F]]l6$-F]v6%FCF[w.%%nameGF\z2-F\p6#-F`o6#-Fgy6%FgnF[w-F^r6$F [wF\zFbp4-F_s6$F[w.%'RootOfG-FC6$F[w-.%%listG6#-.%(polynomG6$.%)rationalGF\^lC* >8-<#-F_q6$,&&8.F_uFU&F[wF_uFeo/Fhq;FU-F`[l6#F[w>F[y-F^r6$Fa_lF\z>80-%'lexdegG6 $7#-F`o6#F[y7#-F_q6$Ff_lFi_l>8/-F]v6%F]]l-_%)GroebnerG%&BasisG6$Fa_lFa`lF\z@%/F \al7">F[wFh`l>F[w-Fbt6$-F]w6$<#-F`o6#F\al<#-F_q6$Ff_l/Fhq&F?6#;,&-_Faal%1Hilber tDimensionG6$F\alFa`lFU-F`[lFg`lFeoFeoFh`l>FayFeo?(FhqFUFUF[`lFfz@$/Fh_lFf_l@%3 /-F`[l6#-FA6%F_sF[wFh_lFU1FhqFen>&8+F_uFhqC%>FjclFiw>FayFf[l>F[w-Fbt6$/Ff_lF[\l F[w6$<#-F_q6$/-Fjt6%&F?F_uFcrFVFh_l/Fhq-F[r6$<#-Fax6#Fj_l<#-F_q6$FjclFi_lFY6$<# -F_q6$Fgdl/Fhq;FU-F`[lFao-%&evalbG6#3FR/<#-F`oF\`l<#FVFfindequationgivenorderratpo lyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%' degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matint erpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,ch eckresultG6%%(packageG/%%loadGFjfl/%'unloadGF[gl6fn%.algfuntoalgeqG%.algebraics ubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.d iffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardp roductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0li sttohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G% ,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,re ctohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-se riestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumG funG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*fo rmatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%, maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(v ersionGFfindeq uationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequa tiongivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%- vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2c heckresultnormalG%,checkresultG6%%(packageG/%%loadGFU/%'unloadGFV6fn%.algfuntoa lgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%. diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(gu essgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%- listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listt oseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG% ,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2serie stohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%- formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerec G%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereq nG%*optionsgfG%(versionGF'F'6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/ gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symb olGF'F'6#/%+modulenameG%%gfunG M7R0 I%:-82f*6%%"lG%$varG%+optcontentG6'%"iG%"TG%"qG%%contG%"nG6#%\pCopyright~(c)~19 92-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"@%-%(hastyp eG6$9$.%&floatGF5C&>8(-%%nopsG6#F5>8'-%(contentG6%-%$addG6$*&&F56#8$""")8%,&FIF J!""FJFJ/FI;FJF:FL.8&@$/9#""$>9&F?7#-%$seqG6$-%&coeffG6%FRFLFI/FI;""!,&F:FJFNFJ F0F06$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG %0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoal geq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-fi rstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG% -infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromser iesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l 2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcom poseG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtru ncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkc ondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exmin G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbis G%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG% *findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>fi ndequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;find equationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmod pG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearly G%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFeo/%'unloadGFfo6fn%.alg funtoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyprod uctG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseq nG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoal geqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG% -listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec *recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG% 2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoser iesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/d oitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(m akerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,mino rdereqnG%*optionsgfG%(versionGF0F06(%/type/gfun/freeG%7type/gfun/has2diffeqs2G% 7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectopro c/symbolGF0F06#/%+modulenameG%%gfunG M7R0 I%:-91f*6%%$deqG%"yG%"zG6%%$polG%$valG%$resG6#%\pCopyright~(c)~1992-2008~by~Alg orithms~Project,~INRIA~France.~All~rights~reserved.G6"C%>8$-T%6&9$9&F68%>8&,&-T '6$F1F6"""!""F>@'/-%&coeffG6%&F56#F>F6,&F9F>F7F>""!F9/-%%subsG6$/F6FH&F56#-%%no psG6#F5FHFHY%findequationgivenorderratpolyG%?findequ ationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(deg vectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8ma tinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6% %(packageG/%%loadGFfn/%'unloadGFgn6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtod iffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG% 2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holex prtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG %+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG% )poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*re ctoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0s eriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_term G%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6good initvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%* maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF.F.6(% /type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/i dentityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF.F.Fdoc+indicialeq%:-74F_oc -firstnonzero%:-696#/%+modulenameG%%gfunG M7R0 I&:-108f*6$%$RecG%%uofkG6,%$recG%"uG%"kG%$iniG%"nG%"iG%"cG%#dcG%#coG%"jG6#%\pCo pyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved. G6"C$>8$-T%6&7#9"8%8&8'@'/&F76#"""""!9$-%$hasG6$-%'subsopG6$/FD%%NULLGF7F>Y6$Q7 invalid~recurrence:~%1F4FFC*>8(-%%nopsG6#F7>8*-%(collectG6$FBF>>8+-%'degreeG6$F YF>@$0F?<">F?-T'6(F7F=F>F?%%trueG,(FTFD!""FDFhnFD>&8,6#FeoFE?(8)FEFD,&FTFD!"#FD Fco>&Fho6#F[p&F76#,&F[pFD""#FD?(F[pFEFDFhnFcoC$>&Fho6#,(FTFDF[pFDFeoFD&Fho6#,(F TFDF[pFDF]pFD?(8-F]qFeoFEFco>&Fho6#F_q,&&Fho6#,&F_qFDFeoFDFDFaqFeo-T)6&7$FE-%$s eqG6$Faq/F_q;FEFdoF=F>F?F4F46*%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN _HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/ prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapga usselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.gues sandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isroo tG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoserie stableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myiso lveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdiv ideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec /doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparam etersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoe ff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckN ameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7fin dequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrat ionalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG% +interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyab ortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadG Fgr/%'unloadGFhr6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoser iesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeq G%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invbo relG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.lis ttoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpol ytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriesto algeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,s eriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,dif feqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG %3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindeg coeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF4F46(%/type/gfun/freeG%7 type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfu n/initeqG%6gfun/rectoproc/symbolGF4F4Fhzc*formatrec%:-47Fjzc3goodinitvalues/rec %:-49F[[lc(makerec%:-506#/%+modulenameG%%gfunG M7R0 I&:-125f*6#%"AG6#%"iG6"F(,&-%$maxG6#-%$seqG6$-%%nopsG6#&9$6#8$/F6;"""-%#opG6$F9 F4F9!""F9F(F(6$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGF UN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/a lgfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expin talgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+ind icialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.i nifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2 rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicond G%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevert G%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectopr oc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pa de2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/recto homrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+fin ddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgiveno rderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_redu ceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,m atmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG% )tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFE/%'unloadGFF6 fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cau chyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%) guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,l isttoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*list torecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+re cG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestod iffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seri estoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeq torec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/ recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqn G%,minordereqnG%*optionsgfG%(versionGF(F(6(%/type/gfun/freeG%7type/gfun/has2dif feqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/r ectoproc/symbolGF(F(6#/%+modulenameG%%gfunG M7R0 I%:-14f*6$%%exprG%%yofxG63%"yG%"xG%%deqsG%(newexprG%%funsG%#nfG%"iG%"jG%*sortby lenG%#eqG%&initsG%%powsG%#npG%$iniG%$deqG%&nbsubG%%intsG6#%\pCopyright~(c)~1992 -2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C7-T%6%9%8$8% @&-%$hasG6$9$FAY6%QHfirst~argument~%1~should~not~contain~%2F;FGFA4-T'6$FGFBY6$Q `pexpression~is~not~holonomic~(or~involves~a~function~which~is~not~implemented~ yet):~%1F;FG@$4-FEFNO,&F@"""FG!"">8,f*6$%"aG%"bGF;6$%)operatorG%&arrowGF;-%&eva lbG6#1-%'lengthG6#F@-Fao6#FGF;F;F;>8'FG>83""!>8(-%'selectG6%FE-%'indetsG6$Ffo-. %)specfuncG6$.%)anythingG%$IntGFB?(8*FWFWF;0F[p<"C)>Fho,&FhoFWFWFW>F[p-%%sortG6 $7#-%#opG6#F[pFZ>8--9!6$-Ffq6$FW&F[p6#FW-FA6#FB@$-%%typeG6$Fiq%$setG>Fiq-Ffq6#- %'removeG6%FerFiq%"=G>&8&6#Fho-%%subsG6$/Far-%%diffG6$-&FAFbsFbrFBFiq>Ffo-Fds6$ /F_rFjsFfo>F[pF\p>F[p-F]p6%FE-F`p6$Ffo)-Fcp6$Ffp%$expG.%)rationalGFB>Ffo-Fds6$7 #-%$seqG6$/Fjp-Fit6#*&-Ffq6$""#FjpFW-Ffq6#-Ffq6$FWFjpFW/FjpF[pFfo>F[p7#-Ffq6#-F `p6$FfoFgt>F[p-F\s6%FerF[p-%)functionG6#<$.%'algfunG.%'radfunG@$4-Fer6$-%$mapG6 %Fhs-Few6$FfqF[pFB-%%listGFjvY6$Q@expression~is~not~holonomic:~%1F;F[p?(FjpFWFW -%%nopsGFgq%%trueGC%>FhoF_q>F`s-Fds6$/FAF[t-T)6$&F[p6#FjpFar>Ffo-Fds6$/F[yFjsFf o>F[p7#-Ffq6#-%&minusG6$-F]p6%FE-F\s6%Fer-F`p6$Ffo.Fiv.%'RootOfGFB<#-Fau6$-&FAF \yFbr/Fjp;FWFho?(FjpFWFWF_xFaxC%>FhoF_q>F`sFex>FfoF^y>8/-F\s6%Fer-F]p6%FE-F`p6$ Ffo)-.%(polynomG6$FfpFB-%*gfun/freeGFbrFB)FfpFjt?(FjpFWFW-F`x6#F^[lFaxC'>FhoF_q >81-Fds6$/FBFio-Ffq6$FW&F^[lF\y>82,&*&Fg\lFWFgsFWFW*(-Ffq6$FiuFi\lFW-Fhs6$Fg\lF BFWFjsFWFX@%/Fc\lFio>F`sF[]l>F`s<$/-F[t6#Fio)Fc\lF_]lF[]l>Ffo-Fds6$/Fi\lFjsFfo> F[p-F\s6%Fer-F`p6$Ffo<$-F\wFi[l-F^wFi[l-.%(ratpolyGFi[l?(FjpFWFWF;F[qC(>FhoF_q> F[pFaq>Fiq-T+6&F_rFar.8..%*algebraicG>F`s-Fds6$Fgx-T-6%FiqFarFd_l>FfoF]t>F[p-F \s6%FerFc^lFf[l-T/6&Ffo7#-Fau6$&Fas6#8+/Fi`lFgz7#-Fau6$-&FAFh`lFbrFj`lFarF;F;60 %6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMG FUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G% 7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnon zeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infso lvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%, isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+m akediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG% 1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG %/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8 gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfu n_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d /s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*finda lgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequa tiongivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequati ongivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-ve ctmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2che ckresultnormalG%,checkresultG6%%(packageG/%%loadGFgal/%'unloadGFhal6fn%.algfunt oalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG %.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%( guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG %-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-lis ttoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*rec G%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2ser iestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG %+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG %-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(maker ecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minorder eqnG%*optionsgfG%(versionGF;F;6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7typ e/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/sy mbolGF;F;Fcblc(getname%:-72F[clc,isholonomic%:-80Fbblc,funtodiffeq%:-71Fjflc.al gfuntoalgeq$:-1F\glc.algeqtodiffeq$:-3Fbhlc,poltodiffeq%:-256$%*protectedG/%+mo dulenameG%%gfunG M7R0 I%:-55G6$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-40f*6#%"xG6'%$oldG%%globG%"pG%"qG%#iiG6"F,C$@$2"""9#O-%#opG6#-%$mapG6$9!7#9 "@%'9$.%"=GC%>8%-T%6#-%$lhsG6#F>>8$&T(6#FC@'-%'memberG6$FC<$._F,%,maxordereqnG. _F,%,minordereqnG@%'-%$rhsGFI.%*nonnegintGC'>8&7#-%(exportsG6#FM>8'7#-F_o6$FM.% )instanceG-FQ6%FCF\o.8(-%'assignG6$&Fbo6#F[pFfnFKY6%Q9invalid~value~for~%1:~%2F ,FCFfn/FC._F,%*optionsgfG@%'Ffn-.%%listG6#<)-.%*identicalG6#.%$egfG-F`q6#.%'lgd egfG-F`q6#.%'lgdogfG-F`q6#.%$ogfG-F`q6#.%'revegfG-F`q6#.%'revogfG-F`q6#.T)C$>T+ FfnFKYFbpYQ2can't~set~versionF,&FM6#-FEFIF,F,6,%6_thismoduledefinitionGb6#%+thi smoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doit G%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.boreli nvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeq G%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4i nfsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimp artG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG %(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesi mpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/d oitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectop roc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/el mtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*t ypecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-f indequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequa tiongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degv ectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8mat interpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%% (packageG/%%loadGF]t/%'unloadGF^t6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodi ffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2 diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexp rtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG% +listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%) poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rec toprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0se riestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG %*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodi nitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffGFV%*maxdegeqnG%,m indegcoeffG%*mindegeqnGFYFgp%(versionGF,F,6(%/type/gfun/freeG%7type/gfun/has2di ffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/ rectoproc/symbolGF,F,Fbwc*CheckName&:-113Fjs`6fnc.algfuntoalgeq$:-1c.algebraics ubs$:-2c.algeqtodiffeq$:-3c.algeqtoseries$:-4c&borel$:-5c.cauchyproduct$:-6c.di ffeq+diffeq$:-7c.diffeq*diffeq$:-8c2diffeqtohomdiffeq$:-9c,diffeqtorec%:-10c)gu esseqn%:-11c(guessgf%:-12c0hadamardproduct%:-13c0holexprtodiffeq%:-14c)invborel %:-15c(Laplace%:-16c,listtoalgeq%:-17c-listtodiffeq%:-18c0listtohypergeom%:-19c +listtolist%:-20c.listtoratpoly%:-21c*listtorec%:-22c-listtoseries%:-23c&pade2% :-24c,poltodiffeq%:-25c)poltorec%:-26c/ratpolytocoeff%:-27c(rec+rec%:-28c(rec*r ec%:-29c,rectodiffeq%:-30c,rectohomrec%:-31c*rectoproc%:-32c.seriestoalgeq%:-33 c/seriestodiffeq%:-34c2seriestohypergeom%:-35c-seriestolist%:-36c0seriestoratpo ly%:-37c,seriestorec%:-38c/seriestoseries%:-39c+Parameters%:-40c(NumGfun%:-41c) nth_term%:-42c*_pexports%:-43c,diffeqtable%:-44c1diffeqtorec/doit%:-45c-formatd iffeq%:-46c*formatrec%:-47c6goodinitvalues/diffeq%:-48c3goodinitvalues/rec%:-49 c(makerec%:-50c,maxdegcoeff%:-51c,maxordereqn%:-52c*maxdegeqn%:-53c,mindegcoeff %:-54c*mindegeqn%:-55c,minordereqn%:-56c*optionsgf%:-57c(version%:-58Fhs6ioc,GF UN_HIDDEN%:-59c.NUMGFUN_SETUP%:-60c0NUMGFUN_CLEANUP%:-61c3algeqtoseries/doit%:- 62c:algeqtoseries/prettyprint%:-63c/algfuntoalgeq2%:-64c7algfuntoalgeq/formpoly %:-65c.borelinvborel%:-66c/cheapgausselim%:-67c*expintalg%:-68c-firstnonzero%:- 69c,formatpoleq%:-70c,funtodiffeq%:-71c(getname%:-72c.guessandcheck%:-73c+indic ialeq%:-74c-infsolvepoly%:-75c3infsolvepoly/found%:-76c4infsolvepoly/isroot%:-7 7c(inicond%:-78c.inifromseries%:-79c,isholonomic%:-80c'lindep%:-81c-listprimpar t%:-82c2listtoseriestable%:-83c(l2r/l2r%:-84c(l2h/l2h%:-85c+makediffeq%:-86c)ma xindex%:-87c)minindex%:-88c(mygcdex%:-89c)myisolve%:-90c*nbinicond%:-91c+powcom pose%:-92c1powcomposesimple%:-93c5powcomposesimpledoit%:-94c*powdivide%:-95c*po wrevert%:-96c,powtruncate%:-97c/pprimeknowingp%:-98c1rectodiffeq/doit%:-99c1rec tohomrec/doit&:-100c4rectoproc/checkcond&:-101c8gfun/rectoproc/binsplit&:-102c= rectoproc/binsplitparameters&:-103c1gfun_pade2/exmin&:-104c0gfun_pade2/doit&:-1 05c4ratpolytocoeff/elmt&:-106c4ratpolytocoeff/poly&:-107c/rectohomrecbis&:-108c (s2d/s2d&:-109c(s2a/s2a&:-110c,systomatrix&:-111c*typecheck&:-112F^]lc$@@D&:-11 4c+finddiffeq&:-115c*findalgeq&:-116c6rationalinterpolation&:-117c-findequation &:-118c7findequationgivenorder&:-119c>findequationgivenorderratpoly&:-120c?find equationgivenorderrational&:-121c*do_reduce&:-122c;findequationgivenordermodp&: -123c'degmat&:-124c(degvect&:-125c*interpmat&:-126c+interpvect&:-127c,matmultmo dp&:-128c-vectmultmodp&:-129c.matinterpmodp&:-130c8matinterpmodpearlyabort&:-13 1c(initmat&:-132c)tryearly&:-133c2checkresultnormal&:-134c,checkresult&:-135F_z F`^lFgpFi`l6$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-89f*6'%"aG%"bG%"yG%"sG%"tG6-%"qG%"rG%"uG%"vG%#duG%#dvG%&alphaG%%betaG%)olda lphaG%(oldbetaG%#ttG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~F rance.~All~rights~reserved.G6"C&>%&OrderG%)infinityG>8&-%'seriesG6$9$9&>8'-F@6$ 9%FC@'/F>""!FH/FEFKFBC*>8,""">8-FK>8*FK>8+FP>8(-%#opG6$-%%nopsG6#F>F>>8)-FZ6$-F gn6#FEFE?(F8FPFPF8%%trueGC/@$2FXFjnC*>8.Fjn>FjnFX>FXFfo>FfoFE>FEF>>F>Ffo@$2""$9 #C%>FfoFT>FTFO>FOFfo@$2""%F_pC%>FfoFV>FVFR>FRFfo-%)userinfoG6'F^p.%%gfunG%;degr ees~of~the~polynomialsGFXFjn-F\q6'""&F^q.%,polynomialsGF>FE@$3/FXFK/FjnFK[>8$*( -FZ6$,&FfnFP!""FPF>FP-FZ6$,&F]oFPFarFPFEFar)FC,&FXFPFjnFarFP>8%-%'normalG6#-F@6 $,&F>FP*&F\rFPFEFPFarFC@$/FhrFKFjq@$F]pC%>Ffo,&FOFP*&F\rFPFTFPFar>FOFT>FTFfo@$F epC%>Ffo,&FRFP*&F\rFPFVFPFar>FRFV>FVFfo>F>FE>FXFjn>FEFhr>FjnF[o@%FiqC%@$F]p>9'- %(convertG6$-Fjr6#-F@6$*&FTFP-%&coeffG6%FEFCFKFarFC%(polynomG@$Fep>9(-Fjt6$-Fjr 6#-F@6$*&FVFPFauFarFCFduFPC%@$F]p>Fht-Fjt6$-Fjr6#-F@6$FTFCFdu@$Fep>Fgu-Fjt6$-Fj r6#-F@6$FVFCFduFEF8F86$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDEN G%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyp rintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselim G%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandche ckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(ini condG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG %(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*n binicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*p owrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG% 4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG% 1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/poly G%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@ @DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequati ongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG% *do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interp vectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(i nitmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFgw/%'u nloadGFhw6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&b orelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diff eqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(L aplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratp olyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoef fG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG% /seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriesto recG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtabl eG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodi nitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG% *mindegeqnG%,minordereqnG%*optionsgfG%(versionGF8F86(%/type/gfun/freeG%7type/gf un/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/inite qG%6gfun/rectoproc/symbolGF8F86#/%+modulenameGF_q M7R0 I%:-74f*6&%$deqG%"zG%&alphaG%$valG6(%%ldegG%"iG%"vG%$resG%"jG%#ddG6#%\pCopyrigh t~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C(> 8)-%$mapG6$f*6#%"xGF2F2F2@%/9$""!"""F>F2F2F2F>>8$7#-%$seqG6$,(-%(ldegreeG6$&F56 #8%9%F@FM!""""#F@/FM;FP-%%nopsG6#F>>8&-%$minG6#-%#opG6#FB@$/9#""%>9'FW?(FMF@F@- FTFgn%%trueG@%/&FBFLFW>&8'FL*&-%'tcoeffG6$&F>6#,&FMF@F@F@FNF@-%$mulG6$,&9&F@8(F O/Fcp;F?,&FMF@!"#F@F@>FeoF?-%(collectG6$-%$addG6$Feo/FM;F@F_oFbpF2F26$%6_thismo duledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEAN UPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfunto algeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,fo rmatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG% 3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonom icG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeq G%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcompo sesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimek nowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rect oproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/d oitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2 a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6ra tionalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgiven orderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenor dermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmod pG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultn ormalG%,checkresultG6%%(packageG/%%loadGFhq/%'unloadGFiq6fn%.algfuntoalgeqG%.al gebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+di ffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0h adamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodif feqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG% &pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodif feqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohyperg eomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Parameter sG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdif feqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdeg coeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optio nsgfG%(versionGF2F26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2 diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF2F26# /%+modulenameG%%gfunG M7R0 I&:-115f*6%%"LG%"yG%"xG6$%$resG%"iG6"F+C$>8$-T%6%9$9&Q-differentialF+@%/F.%%FAI LGF7-%$addG6$*&&F.6#,&8%"""F@F@F@-%%diffG6$-9%6#F37#-%"$G6$F3F?F@/F?;""!,&-%%no psG6#F.F@!""F@F+F+6&%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%. NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprin tG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%* expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG %+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicon dG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l 2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbin icondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powr evertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4re ctoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gf un_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/ rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG %+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationg ivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do _reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvec tG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(init matG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFZ/%'unloa dGFen6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borel G%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqto recG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(Lapla ceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG %*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%( rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/ser iestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG %/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1 diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitv alues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*min degeqnG%,minordereqnG%*optionsgfG%(versionGF+F+6(%/type/gfun/freeG%7type/gfun/h as2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6 gfun/rectoproc/symbolGF+F+F^rc-findequation&:-1186#/%+modulenameG%%gfunG M7R0 I&:-100f*6$%$recG%"kG6&%"cG%"nG%#dcG%"iG6#%\pCopyright~(c)~1992-2008~by~Algorit hms~Project,~INRIA~France.~All~rights~reserved.G6"C&>8%-%%nopsG6#9$>8$&F56#"""> 8&,$-%%subsG6$/9%,&FBF:F:F:F7!""-%$mapG6%%(collectG7&""!*&FfindequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduce G%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,mat multmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)t ryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFfo/%'unloadGFgo6 fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cau chyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%) guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,l isttoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*list torecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+re cG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestod iffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seri estoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeq torec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/ recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqn G%,minordereqnG%*optionsgfG%(versionGF.F.6(%/type/gfun/freeG%7type/gfun/has2dif feqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/r ectoproc/symbolGF.F.6#/%+modulenameG%%gfunG M7R0 I%:-21f*6"6-%'resultG%#exG%(methodsG%'methodG%"sG%"xG%%bigOG%$ordG%$nbzG%+tryfa ctorsG%(nbzerosG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~Franc e.~All~rights~reserved.GF$C(@%/&9"6#""".%(stampedGC%>8%&F76#""#>8)&F76#""$>8&&F 76#""%O-T'6#-T%6$FFF7>8--%%typeG6$F>-.%%listG6#.%)rationalG>8*-%%nopsG6#F>>8.,& FjnF9-F[o6#-%%subsG6$/""!%%NULLGF>!""?&8'FH%%trueGC'Z%@%35/Fjo.%'revogfG/Fjo.%' revegfG0&F>F8Ffo>8(-T)6&F:7$F9-%#opGF\oFCFjo>Fjp-F\q6&F:F>FCFjoF$\-%)userinfoG6 'FF.%%gfunG%,Trying~the~GFjoFjp@%-FV6$Fjp.%'seriesGC$>8+-%&orderG6#Fjp>8,-%$max G6$-F`q6$FAFjpF^oC$>Fbr,&FinF9FhoF9>FgrF^o>8$-T+6(7$F9FjpFCFbr,(FbrF9FgrFhoFhoF 9FT,&FbrF9FFF9@$0Fbs%%FAILGC$-Ffq6(FAFhq.%$TheGFjo.%,seems~to~beGFbsO7$,$*&&Fbs F8F9&FbsF@FhoFhoFjoF[tF$F$6,%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_H IDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/pr ettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgaus selimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessa ndcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG %(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriest ableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolv eG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivid eG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/d oitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparamet ersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff /polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNam eG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7finde quationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderratio nalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+i nterpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabor tG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF` u/%'unloadGFau6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoserie sG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG% ,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invbore lG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listt oratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolyt ocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoal geqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,ser iestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffe qtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3 goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegco effG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7ty pe/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/ initeqG%6gfun/rectoproc/symbolGF$F$Fdxc*typecheck&:-112Fg[lc.listtoratpoly%:-21 Fi[lc-listtoseries%:-23F]vc.guessandcheck%:-736$%*protectedG/%+modulenameGFiq M7R0 I$:-6f*6%%%rec1G%%rec2G%%uofnG6+%#y1G%#y2G%"yG%"zG%#d1G%#d2G%%indsG%"jG%"iG6#% \pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reser ved.G6"C'>8(-T%6%9$9&-8$6#8'>8)-F96%9%F<-8%F?>8*-%*intersectG6$-%'indetsG6$F7&% #_CG6#.%)anythingG-FN6$FBFP@$0FI<"C$>8+-%$maxG6#-%#opG6#-%$mapG6$F[o-%&unionGFL >FB-%%subsG6$7#-%$seqG6$/&FI6#8,&FQ6#,&Ffn"""F]pFap/F]p;Fap-%%nopsG6#FIFB-T)6%- T'6&*&F=FapFFFap7$F7FB7$F=FF-8&F?F`qFfindequationgivenorderratpolyG%?findequatio ngivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvect G%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matint erpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(pa ckageG/%%loadGFiq/%'unloadGFjq6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffe qG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2dif feqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprto diffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+li sttolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)pol torecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectop rocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0serie storatpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_ pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinit values/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxd egeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF4F46(%/typ e/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/ident ityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF4F4Fixc,rectodiffeq%:-30Fdxc,po ltodiffeq%:-25Fewc,diffeqtorec%:-106$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-134f*6'%)listcofsG%(listvalG%$ordG%"nG%'optypeG6(%%indsG%"pG%%cofsG%%valsG% $valG%"iG6"F1C)>8$-%'indetsG6#9%>8%,&-%&modp1G6#-%&PrimeG6#"""#FB""##!""FDFB?(8 )FBFB-%%nopsG6#F4%%trueGC$>F:-F=6#-F@6#F:>&8(6#FHF:>FU7#-%$seqG6$/&F4FVFT/FH;FB FI>8'-%%evalG6$F8FU>8&-F]o6$9$FU-T%6(F`oF[oFO9&9'9(F1F16&%6_thismoduledefinitio nGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtos eries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpol yG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,f untodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly /foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG% -listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG% )minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5po wcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rec todiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binspli tG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpoly tocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systo matrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpo lationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG %?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'deg matG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterp modpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,check resultG6%%(packageG/%%loadGFap/%'unloadGFbp6fn%.algfuntoalgeqG%.algebraicsubsG% .algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq *diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproduc tG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtoh ypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,polt odiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectoho mrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriest olistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG% )nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatr ecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxor dereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versio nGF1F16(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3ty pe/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF1F1F\uc,checkresul t&:-1356#/%+modulenameG%%gfunG M7R0 I%:-47f*6'%"lG%"uG%"nG%)inicondsG%$denG6+%"rG%"iG%"UG%"NG%#miG%#maG%'lociniG%"j G%'locdenG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All ~rights~reserved.G6"C3@$52-%%nopsG6#9$""#2""&F;Y6$%:wrong~number~of~argumentsG- %#opGF=-T%6%-FF6$F?F>8&8'@$2"""9#C$>9&FM>9%FL@%-%%typeG6$-FF6$FPF>.%$setGC'>8$- %-selectremoveG6%%$hasGFenFM@$2FP-F<6#&F[o6#FPY6$%3invalid~recurrenceGFE@$/Fdo< "Y%1empty~recurrenceG@$2""$FQC$>8*&F[o6#F?@$4-FY6$Fcp-Fgn6#/-FL6#.%(integerG.%) anythingGY6$%;invalid~initial~conditionsGFcp>F[o-FFFcoC$>F[oFen@$F_p>FcpF[p@$-F Y6$F[o.%"=G>F[o,&-FF6$FPF[oFP-FF6$F?F[o!"">8(-T'6%F[oFLFM>8)-T)F\s>F[o-%(collec tG6%F[o7#-%$seqG6$-FL6#,&FMFP8%FP/F\t;FirF^s%'normalG@$4-FY6$F[o-.%'linearG6#Fe sY6$%8Not~a~linear~recurrenceGFE@$0Fir""!C$@$F_pC$>8+Fgr?(F\tF]uFP-%$minG6$Fir, &F^sFPFgrFP%%trueG@$4-F_o6$Fcp-FL6#F\tC$>Fbu,&FbuFPFPFP>Fcp-%&unionG6$Fcp<#/F]v &%#_CG6#Fbu@$2FirF]uC$>F[o-%%subsG6$/FM,&FMFPFirFgrF[o>F^s,&F^sFPFirFgr@$F_p>9' Fcp>8,FP@$-F_o6$-%$mapG6$%&denomG<#-FF6#F[oFMC%>F[o-F_tFdx>Fjw-FaxFdx>F[o-Fcs6% -%&numerGFdx7#-Fgs6$Fis/F\t;F]uF^sF_t@$2""%FQ>9(Fjw>F[o7$-F`w6$7#-Fgs6$/FisF]uF byF[o-Fgs6$-%&coeffG6%F[oFisFPFby@$5-F_o6$F[oFL4-FY6$F[o-.%%listG6#-.%(polynomG 6$FaqFMY6$%>invalid~recurrence~or~unknownGFEF[oF6F66*%6_thismoduledefinitionGb6 #%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoserie s/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%. borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funto diffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/fou ndG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-lis tprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)min indexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcom posesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodi ffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%= rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytoco eff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatr ixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolati onG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?fi ndequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG %(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodp G%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresu ltG6%%(packageG/%%loadGF_\l/%'unloadGF`\l6fn%.algfuntoalgeqG%.algebraicsubsG%.a lgeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*d iffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG %0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohyp ergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltod iffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomr ecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestol istG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)n th_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrec G%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxorde reqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionG F6F66(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type /gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF6F6F[]lc(getname%:-7 2F[^lc)minindex%:-88Fj]lc)maxindex%:-876$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-32f*6$%%exprG%%yofnG6bo%"YG%"NG%"RG%&INITSG%(ARGLISTG%(RECSTATG%"UG%#IIG%&R EMBRG%&ORDERG%#N0G%(INIVECTG%'INIMATG%(RECLOOPG%*THRESHOLDG%%LISTG%'PARAMSG%'TO SUBSG%"JG%(EVALFUNG%(PREARGSG%)POSTARGSG%*WHILECONDG%*ERRORCONDG%)ERRORINDG%)WH ILEINDG%&INDEXG%'EXTRASG%$MAXG%)STARTINDG%$LOCG%$OPTG%$RHSG%$TMPG%&DENOMG%)ARGU MENTG%(CONTENTG%,EVALINICONDG%+EXTRALOCALG%)XLOCVARSG%)XLOCBODYG%-NOSYMBOLSUBSG %)PARAMSEQG%*OPTIONSEQG%-APPLYEVALFUNG%'DOINITG%*LASTEXTRAG%(ENDLOOPG%'LOCGENG% 'RESULTG%*RESULTELTG%'INITABG%+VALRECSTATG%)FIRSTINIG%&INIT2G%&BODY2G%(RESULT2G %)OPTIMIZEG%)MAXINDEXG%*COPYRIGHTG%&CLOSEG%)BSPARAMSG%&PLAING%(BSINITSG%"iG%"lG %$resG%"aG%"uG%"nG6#%\pCopyright~(c)~1992-2004~by~Algorithms~Project,~INRIA~Fra nce.~All~rights~reserved.G6"CU>6$8^o8_o-%$seqG6$-%$catG6$-%%evalG6$&%6gfun/rect oproc/symbolG6#Q)loc_loopFjo"""8+/F^q;F]q""#>6$8`o8ao-Fap6$-Fdp6$-Fgp6$&Fjp6#Q( loc_tmpFjoF]qF^qF_q>8bo-Fgp6$&Fjp6#Q,loc_genericFjoF]q>8co-Fgp6$&Fjp6#Q)arg_mai nFjoF]q@$29#FaqYQ;wrong~number~of~parametersFjo>83%&falseG>8,Fds>84%%NULLG>85Fi s>8D""!>8>Fds>8gnFds>8IFds>8MFds>87Fis>8inFis>8:Fis>8;Fis>8JFis>88Fis>89Fis>8hn Fis>8\oFds?&8G&9"6#;""$F_s%%trueG@E/Fju.%%listG>FcsF`v/Fju.%)rememberG>FfsF`v/F ju.%&plainG>FhuF`v-%%typeG6$Fju/-%*identicalG6#.%'paramsG%)anythingGC%>Fhs-%#op G6$FaqFju>F[t-Fap6$/&Fhs6#F^q-Fdp6$-Fgp6$&Fjp6#Q*arg_paramFjoF]qF^q/F^q;F]q-%%n opsG6#Fhs>Fhs-F[x6#-%%map2G6%F[xFaq7#F[t-F_w6$Fju/-Fcw6#.%$rhsGFgw>F]tFjw/Fju.% &indexG>F`tF`v/Fju.%)optimizeG>FbtF`v/Fju.%,evalinicondG>FdtF`v/Fju.%-nosymbols ubsG>FftF`v-F_w6$Fju/-Fcw6#.%(evalfunGFgw>FhtFjw-F_w6$Fju/-Fcw6#.%*copyrightGFg w>FjtFjw-F_w6$Fju/-Fcw6#.%*whilecondGFgw>F\uFjw-F_w6$Fju/-Fcw6#.%*errorcondGFgw >F^uFjw-F_w6$Fju/-Fcw6#.%+extralocalGFgw>F`uFjw-F_w6$Fju/-Fcw6#.%(preargsGFgw>F buFjw-F_w6$Fju/-Fcw6#.%)postargsGFgw>FduFjw-F_w6$Fju/-Fcw6#.%-maximalindexG%*no nnegintG>Ffu/.%(maxsingGFjwY6$QIunknown~or~badly~specified~option(s):~%1FjoFju@ $3/FhtFis550FduFis0FbuFisFdtYQ7missing~option~evalfunFjo>8&-T%6'7#&F\v6#F`q.8$. 8%.8'.8F>8-,&-F]y6#F_`lF]q!"#F]q@%/F`uFisC$>8KFis>8LFisC&>8E<$-F[x6#-Fcy6%F[xF] q-%'selectG6%F_wF`u%"=G-F[x6#-Fdbl6%F_wF`u.%%nameG@%Fft>Fhal-F[x6#F]blC%>Fhal-F ap6$/-F[x6$F^qF]bl-Fdp6$&Fjp6#Q*loc_extraFjoF^q/F^q;F]q-F]yF`cl>F[t6$F[tFhal>Fh al-F[x6#-Fcy6%F[xFaq7#Fhal>F]bl-%%subsG6%F[t/Fi`lFgrFcbl>Fjal-Fap6$-%$mapG6$%(T oInertG-%._Inert_ASSIGNG6$-F[x6$F]qF^q-F[x6$FaqF^q/F^qF]bl>F]t-Fjdl6$F[tF]t@$F[ `l>Fbu-Fjdl6$F[tFbu@$Fj_l>Fdu-Fjdl6$F[tFdu>F[al-Fjdl6$Fey-T'6(F_`lFg`lFi`lF[alF dsFfu>8.-F]y6#F[al@%Fg_l>8Pf*6$%$indG%$valGFjoFjoFjo9%FjoFjoFjo>Fcglf*6%FfglFgg l%*donotevalG6%%$FUNG%$PREG%%POSTGFjoFjoC%@%0T#Fis>Fi`l-F[x6#-Fjdl6$/Fa`l9$Fdhl >Fi`lFis@%0F[glFis>F_`l-F[x6#-Fjdl6$FjhlF[gl>F_`lFis@%5/F_sFaq9&-Fjdl6$/Fg`lT)- Fg`l6%Fi`lFhglF_`l-Fgp6$F]jlF[jlFjoFjo6*FF[al<#-Fap6$/Fgel -Fcgl6%-F[x6$7$F]qF]qF^pFiel4Fdt/F^qF[al@%555/F[al<"Fcs0FhtFis0FhsFis>8W-%._Ine rt_EXPSEQGFjo>Fg[m-%/_Inert_HASHTABG6#-Fap6$-Fael6$Fcel-%0_Inert_HASHPAIRG6$-F[ x6$F[[mF^qFielF][m@$0F\uFis>6$F\u8=-F\jl6'F\uFg`lFi`lF[al<#F[t@'Fcs>8@Fi`l/F\uF is>Fa]mF_al>Fa]m-%$maxG6$F_al,&F[]mF]qF]qF]q@'Fcs>8Tf*6#FboFjoFjoFjo&Fdhl6#F[il FjoFjo6$FfoF`rFfs>F[^mf*F]^mFjoFjoFjo-%)PROCNAMEG6$F[ilFdhlFjoFjo6$F8Fhs>F[^mf* F]^mFjoFjoFjo-Fdp6$FcrF[ilFjoFjoFjo@$Fh\m>F\u-Fcel6#-Fjdl6%-Fap6$/-Fg`l6#,&Fi`l F]qF^q!""-F[^m6#,(Fa]mF]qF^qFg_mFg_mF]q/F^q;F^tF[]m/Fi`lF^pF\u@%Fb]m>8(7$'Fgr.F ]_lFhs>F``m7#Fhs>8N-%0_Inert_PARAMSEQG6#-F[x6#-Fael6$FcelF``m>8jn6&-%6_Inert_DE SCRIPTIONSEQGFjo-%1_Inert_GLOBALSEQGFjo-%2_Inert_LEXICALSEQGFjo-%+_Inert_EOPG6# -Fi[m6#-%._Inert_INTPOSG6#-F]y6#Fg`m@$0F^uFisC%>6$F^u8<-F\jl6(F^uFg`lFi`lF[alF^ ]mF_al>F^u-Fjdl6%-Fap6$/Fd_m-F[^m6#,&Fa]mF]qF^qFg_m/F^q;F^tFgbmF]`mF^u>F^u-%*_I nert_IFG6#-%0_Inert_CONDPAIRG6$-Fcel6#F^u-%/_Inert_STATSEQG6#-%-_Inert_ERRORG6# -Fael6$Fcel-Fi[m6%Q@error~condition~true~at~%1~=~%2FjoFi`l.F^p@%Ffs>8O6$FgvFjt> F\emFjt>F\em-Fael6$Fcel-%1_Inert_OPTIONSEQG6#F\em>F_`l-Fjdl6$7$/Fi`l,&Fi`lF]qF_ alFg_mF[t-T+6%F_`lFi`l.8H>8)*&,&-Fjdl6$Fiem*(F]tF]qF]alF]qF_fmFg_mF]q-%(convert G6%-Fhfm6$7$&F_`l6#F]q-Fap6$*&&F_`l6#,&F^qF]qFaqF]qF]q&8*FbxF]q/F^q;F^t,&F_alF] qFg_mF]q%"+G.%'hornerGFi`lFg_mF]q-Fhfm6%&F_`l6#FaalF[hmFi`lFg_m>8Xf*6$Fgo%)shif tindGF]^mFjoFjo-T-6$F[il-Fjdl6$7$/FdhlF[il-Fap6$/&F\jl6#Fg`l-F[gl6#,(Fg`lF]qFa` lFg_mFhglF]q/Fg`l;F^t,&Fa`lF]qFg_mF]qF\fmFjoFjo6.F)Fi`lF1F_alFXF[^mF.FfgmF-Fafm FTFcgl@%FfsC'>8BFis>8?Fis>81-F_dm6#-Fjdl6$/-%,_Inert_NAMEG6#Q)PROCNAMEFjo-%0_In ert_PROCNAMEGFjo-Fcel6#-Fbhm6$FgrFgr>8UFis@%3/FhsFisFg_l>8QFisC&>Fg[mFh[m>Ff[n- Fap6$-Fjcm6$-Fcel6#/FgrFe\m-F_dm6#-Fcel6#FielF][m>F`jm-Fgcm6$Ff[nF`jm>Ff[nFisC, @%5/Fa]mFi`l2,&F^glF]qFg_mF]qFa]m>8YF^t>F`]n,&F^glF]qFa]mFg_m>8C-Fjdl6$F[al7#-F ap6$/&F`rFbx-Fg`lFbx/F^q;F`]nF^]n@%4Fbt>F\jmF^pC$>Fd]n7#-_%(codegenGFdz6#Fd]n>F \jm6$F^p-F[x6#-%&minusG6$<#-Fap6$Fgel/F^qFd]n<#-Fap6$F[^nF]^n>Ff[n-Fjdl6$7#-Fap 6$/F[^n-F[^m6#,&F^qF]qF`]nFg_mF]^nFd]n>Ff[n-Fap6$-Feel6$-Fcel6#FgelFc\n/F^qFf[n @%5F\]n1Fa]mF^]n>8RF^]n>F]an,&Fa]mF]qFg_mF]q>F^jm-Fap6$-Fael6$Fcel-Feel6$-F[^m6 #86-Fbhm6$FianFian/Fian;F^glF]an>8AF]an@%Fb]mC$>8S-Fcel6#,&FgrF]qFg_mF]q>F\u-Fc el6#F`v>FcbnFh[m@%FcsC&>F\jm6$F\jmF`r>F`jm-%/_Inert_FORFROMG6(-Fcel6#F^p-Fcel6# F_bn-FcelF^gmFcbnF\u-F_dm6$-Fael6$Fcel-Feel6$-F[^m6#,&F^pF]qF]qF]q-Fbhm6$F`dnF` dnF^u@%F`t>8V7$F^p&F`rFdcn>FednFgdn>Fa[n-Fcel6#7#-.Fap6$Fedn/F^p;F^tFgrC&>F\jm6 $F\jm-Fap6$-F[^mFbx/F^q;F^tFa]m>F`jm-Facn6(FccnFecnFgcnFcbnF\u-F_dm6%-Fael6$Fce l-Feel6$-F[^m6#Fa]m-Fbhm6$F`dnFa]m-Fap6$-Fael6$Fcel-Feel6$Fgen-F[^m6#,&F^qF]qF] qF]q/F^q;F^tF_anF^u@$2F]qF^gl>F`jm-Fgcm6$-Fap6$-Fjcm6$-Fcel6#/FgrF^q-F_dm6#-%._ Inert_RETURNG6#-Fcel6#Fgen/F^q;F^t,&F^glF]qFcalF]q-F_dm6#F`jm@%4F`t>Fa[n-Fcel6# -F[^m6#F_an>Fa[n-Fcel6#7$FgrF_in@'555555FhuFcsFd[mFcbm0F]tF^t0F\uFhbn4-F_w6$F_` l-Fcv6#-.%(polynomG6$-.%(complexG6#.%)rationalGFi`l-%*FromInertG6#-%,_Inert_PRO CG6(Fg`m-%0_Inert_LOCALSEQG6#-F[x6#-Fael6$Fcel7$F\jmFhalF\emFg[m-F_dm6'FjalFf[n F^jmF`jmFa[nF`am4-%$hasG6$-%'subsopG6$/F]qFisF_`lFi`lC*@$0F]gmF^tO-9!6$-Fghm6$F [ilFhgl&F\v6#;FaqFg_m>82-%&roundG6#-%&evalfG6#,$*(F_alFaq-%#lnG6#FaqFg_m-%)Lamb ertWG6$Fg_m,$*&F[^oF]qF_alFcal#Fg_mFaqF]qFcal>807$7#-Fap6$,$*&&F_`l6#,&FaalF]qF ^qFg_mF]qF_hmFg_mFg_m/F^q;F]qF_al-Fap6$7%-%"$G6$F^t,&F^qF]qFg_mF]qF]q-Fe_o6$F^t ,&F_alF]qF^qFg_m/F^q;F]qFigm>8/-Fjdl6$F[al7#-Fap6$-Fg`l6#,&F^glF]qF^qFg_mF__o>8 Z6&-Fael6$Fcel-Feel6$Feq-%'MatrixG6#Fe^o-Fael6$Fcel-Feel6$Fdq-%'VectorG6#F^`o-F ael6$Fcel-Feel6$F_p-.Fhfm6%,(FgrF]qF^glFg_mF]qF]q.%%baseGFaq-Fgcm6#-Fjcm6$-Fcel 6#/&F_pF^gmF]q-F_dm6#-Fael6$Fcel-Feel6$Fdq-_%.LinearAlgebraG%)MultiplyG6$F^aoFe ao>8en-%-_Inert_FORING6&Fccn-Fcel6#-.Fb\o6$Fd\oF_pFhbn-F_dm6$-Feel6$-Fcel6#Feq- Fcel6#-._Fbco%5MatrixMatrixMultiplyG6$FeqFeq-Fgcm6#-Fjcm6$-Fcel6#/F^pF]q-F_dm6# -Fael6$Fcel-Feel6$Fdq-._Fbco%5MatrixVectorMultiplyG6$FeqFdq@%F[in>8fn-Fcel6#&Fd qF^gm>F`fo-Fcel6#7$FgrFcfo-F^[o6#-Fa[o6(Fg`m-Fd[o6#-F[x6#-Fael6$Fcel7'F\jmFeqFd qF_pFhalF\emFg[m-F_dm6#-Fgcm6$-Fjcm6$-Fcel6#1FgrFb]oF[\o-F_dm6%Fh`oFfcoF`foF`am C)@$Fg\oO-Fj\o6$-T/F]]oF^]o>Fb]o,&F^glF]q*$F_alFaq""&>8]o7#-Fap6$-Fg`l6#,(F^glF ]qF_alFg_mF^qF]qFggm>8[o-T16&-F[x6#-Fjdl6$/FgrF_p7$F[ilFhgl,&F^glF]qF_alFg_mFgr -Ffao6#Fjho>Ffco-F_dm6$-Feel6$-Fcel6#Fdq-%0_Inert_FUNCTIONG6$-Fcel6#.T3Fbio-Fee l6$Fdjo-Fgjo6$-Fcel6#.Fjdl-Fi[m6$-Fcel6#-Fdbl6%F_\oF[alFjhoFdjo@%F[in>F`foFdjo> F`fo-Fcel6#7$FgrFdq-F^[o6#-Fa[o6(Fg`mF\goF\emFg[m-F_dm6$Fjal-Fgcm6$-Fjcm6$Figo- F_dm6&Ff[nF^jmF`jmFa[n-F_dm6$FfcoF`foF`amFjoFjo64%6_thismoduledefinitionGb6#%+t hismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/do itG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.bore linvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiff eqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG% 4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listpri mpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)mininde xG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcompose simpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq /doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rect oproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/ elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG% *typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG% -findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findeq uationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(de gvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8m atinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6 %%(packageG/%%loadGFe]p/%'unloadGFf]p6fn%.algfuntoalgeqG%.algebraicsubsG%.algeq todiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffe qG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0ho lexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohyperge omG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffe qG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG% *rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG %0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_t ermG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6g oodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqn G%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGFjoF jo6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/g fun/identityG%1type/gfun/initeqGFjpFjoFjoFfepc*formatrec%:-47Fhepc3goodinitvalu es/rec%:-49F^`pc4rectoproc/checkcond&:-101F[_pc-listprimpart%:-82Fe`pc/rectohom recbis&:-108Ffdpc,rectohomrec%:-31F``pc=rectoproc/binsplitparameters&:-103F_`pc 8gfun/rectoproc/binsplit&:-1026$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-81f*6%%"AG%"uG%"xG6'%"kG%"iG%"BG%$dimG%$tmpG6#%\pCopyright~(c)~1992-2008~by ~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C,>8$-%%nopsG6#9%@$0- _%.LinearAlgebraG%-RowDimensionG6#9$F3Y6$%9incorrect~number~of~rowsG-%#opGF>>8& -%'MatrixG6#7#-FD6#-&F<6#%*NullSpaceG6#-&F<6#%*TransposeGF>>8'-_F<%0ColumnDimen sionG6#FF@$/FW""!O%%FAILG?(F0"""F\oF02F\oFWC$>FF-_F<%)MultiplyG6$FF-FH6#7#-FD6# -_FFWFX>FF-%$mapG6$%'normalGFF-%)userinfoG6& ""$.%%gfunGQ;degree~of~the~coefficientsF0-%'degreeG6#-%&denomG6#&FF6$F\oF\o>FF- %)primpartG6$-%&numerG6#-%$addG6$*&&FF6$8%F\oF\o)8(FdrF\o/Fdr;F\oF3Ffr-F_r6$*&- %&coeffG6%FFFfrFdrF\o&F76#FdrF\oFgrF0F06$%6_thismoduledefinitionGb6#%+thismodul eG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:alg eqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvbore lG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(get nameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolv epoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2 listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygc dexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledo itG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1 rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/bi nsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4r atpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typeche ckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequ ationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgi venorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%* interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterp modpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packa geG/%%loadGFhs/%'unloadGFis6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG% .algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeq tohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodif feqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listt olistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltor ecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoproc G%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriesto ratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pex portsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitval ues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdege qnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF0F06(%/type/g fun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identity G%1type/gfun/initeqG%6gfun/rectoproc/symbolGF0F06#/%+modulenameGF]q M7R0 I%:-66f*6%%&borelG%%exprG%%aofnG6&%"aG%"bG%"nG%%rec2G6#%\pCopyright~(c)~1992-20 08~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"@'/9#""$C%-T%6%9 &8$8&@%9$>8'<$/*&F:"""-8%6#F:FB-FD6#,&F:FB!""FB/-FD6#""!FB>F><$FJ/FC*&F:FBFFFB- T'6&*&-F9FEFBFCFB7$9%F>7$FVFCFV0&9"6#""%.%'diffeqGY6$Q5invalid~argument:~%1F/Fe n-T+6%-9!6%F<-T)6%FXF8FVFVFVF8F/F/6,%6_thismoduledefinitionGb6#%+thismoduleG6io %,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtos eries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/c heapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG %.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly /isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listt oseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG% )myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%* powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1recto homrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binspli tparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpol ytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%* CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequation G%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenor derrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*inter pmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpe arlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/% %loadGF^p/%'unloadGF_p6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.alge qtoseriesGF%%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeq G%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invbo relG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.lis ttoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpol ytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriesto algeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,s eriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,dif feqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG %3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindeg coeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF/F/6(%/type/gfun/freeG%7 type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfu n/initeqG%6gfun/rectoproc/symbolGF/F/Fjpc(getname%:-72Fivc)poltorec%:-26Fiuc,di ffeqtorec%:-10F]wc,rectodiffeq%:-306#/%+modulenameG%%gfunG M7R0 I&:-107f*6%%$polG%"xG%"nG6%%%cofsG%%monsG%"iG6"F,C$>8$7#-%'coeffsG6%-%(collectG 6$9$9%F88%-%*piecewiseG6$-%$seqG6$-%#opG6#7$/9&-%'degreeG6$&F96#8&F8&F/FJ/FK;"" "-%%nopsG6#F/""!F,F,6$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG %.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettypr intG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG %*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandchec kG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inic ondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG% (l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nb inicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*po wrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4 rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1 gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG %/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@ DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequatio ngivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%* do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpv ectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(in itmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFen/%'un loadGFfn6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&bo relG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffe qtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(La placeG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpo lyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeff G%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/ seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestor ecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtable G%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodin itvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%* mindegeqnG%,minordereqnG%*optionsgfG%(versionGF,F,6(%/type/gfun/freeG%7type/gfu n/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeq G%6gfun/rectoproc/symbolGF,F,6#/%+modulenameG%%gfunG M7R0 I%:-92f*6&%"QG%"PG%"xG%"nG6+%"mG%#pmG%#prG%$pr1G%"lG%"iG%"sG%"pG%"qG6#%\pCopyri ght~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C %>8+-T%6%9%9&9'>8,-F:6%9$F=F>@%2F>""*C%>&8*6#""!-%&coeffG6%FCF=FL?(8)"""FR-%'de greeG6$FCF=%%trueG>&FJ6#FQ-%(collectG6$*&-FN6%FCF=FQFR)-F:6%FFRFQ!""FRFR FQFRF=-F:6%-%$addG6$FX/FQ;FLFSF=F>C*>8$-%&isqrtG6#-%&truncG6#*($"*4G>K$!")FRF>F R-%'lengthG6#F>F^o>8%-F:6%F8F=Fho>8&FR>8',&F8FRFgpF^o>8(-T'6&F@FgpF=F>>FIF`q?(F QFRFR,&-%%iquoG6$F>FhoFRFRFRFVC%>F`q-T)6&F`qFgpF=,&F>FRFQF^o>F[q-F:6%-Fen6$*&F[ qFRF]qFRF=F=F>>FX-Fen6$*(F`qFRF[qFR-%*factorialGFYF^oF=-F:6%-Fbo6$FX/FQ;FLFfqF= F>F5F56*%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETU PG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfunto algeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%- firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeq G%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifroms eriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h /l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powc omposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powt runcateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/chec kcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exm inG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecb isG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeq G%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%> findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;fi ndequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultm odpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryear lyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFis/%'unloadGFjs6fn%.a lgfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchypr oductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guess eqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listto algeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorec G%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(r ec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeq G%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestos eriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec /doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG% (makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,mi nordereqnG%*optionsgfG%(versionGF5F56(%/type/gfun/freeG%7type/gfun/has2diffeqs2 G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectop roc/symbolGF5F5F^vc,powtruncate%:-97Fjuc1powcomposesimple%:-93F_vc/pprimeknowin gp%:-986#/%+modulenameG%%gfunG M7R0 I%:-13f*6%%$eq1G%$eq2G%%yofzG6+%"uG%#u1G%#u2G%"nG%#r1G%#r2G%%indsG%"iG%"jG6#%\p Copyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserve d.G6"C'>8(-T%6%9$9&-8%6#8'>8)-F96%9%F<-8&F?>8*-%*intersectG6$-%'indetsG6$F7&%#_ CG6#.%)anythingG-FN6$FBFP@$0FI<"C$>8,-%$maxG6#-%#opG6#-%$mapG6$F[o-%&unionGFL>F B-%%subsG6$7#-%$seqG6$/&FI6#8+&FQ6#,&F]p"""FfnFap/F]p;Fap-%%nopsG6#FIFB-T)6%-T' 6&*&F=FapFFFap7$F7FB7$F=FF-8$F?F`qFfindequationgivenorderratpolyG%?findequationg ivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG% *interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinter pmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(pack ageG/%%loadGFiq/%'unloadGFjq6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG %.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffe qtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodi ffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+list tolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)polto recG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectopro cG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriest oratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pe xportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitva lues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdeg eqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF4F46(%/type/ gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identit yG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF4F4Fewc,diffeqtorec%:-10Fexc)polt orec%:-26Fixc,rectodiffeq%:-306$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-126f*6(%"pG%(listmatG%'rowdimG%'coldimG%'resultG%$varG6&%"iG%"jG%%lptsG%$ma tG6"F0C$>8&7#-%"$G6#;""!,&-%%nopsG6#9%"""!""F??(8$F?F?9&%%trueG?(8%F?F?9'FD>&9( 6$FBFF-%&modp1G6$-%'InterpG6%F37#-%$seqG6$&8'FK/FWF>9)9$F0F06$%6_thismoduledefi nitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3alg eqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/fo rmpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpole qG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolv epoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lin depG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxin dexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimple G%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG %1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/bi nsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ra tpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%, systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalin terpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderrat polyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG %'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.mati nterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%, checkresultG6%%(packageG/%%loadGF\o/%'unloadGF]o6fn%.algfuntoalgeqG%.algebraics ubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.d iffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardp roductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0li sttohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G% ,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,re ctohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-se riestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumG funG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*fo rmatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%, maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(v ersionGF0F06(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3 G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF0F06#/%+modul enameG%%gfunG M7R0 I%:-71f*6$%%exprG%%yofxG65%"xG%"yG%$funG%$deqG%$limG%%deq2G%$ordG%*initcondsG%" iG%(initptsG%'tabrefG%#nuG%%infoG%#eqG%&pinitG%&limptG%%newxG%%singG%'issingG6# %\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~rights~rese rved.G6"C6-T%6%9%8%8$>8&-%#opG6$""!9$@$4-%$hasG6$FKFDO,&FB"""FK!"">8.FF@$3-%%ty peG6$FV%2gfun/has2diffeqs2G/-%%nopsG6#FK""#>FV-%$catG6$FVF[o>8/-FH6$;FS,&FhnFSF TFSFK>8(-_%,MultiSeriesG%&limitG6%-FH6$FhnFK/FDFJ.%&rightG@$-FO6$Fgo%)infinityG >FgoFep@$3/FG%$expG4-FZ6$-FHFjn<$.%'algfunG.%'radfunG@%0FgoFepC$>81-T'6&-%%diff G6$F^qFDFB.82.%*algebraicGO-T)6&FhqFBF`rFgoC$>Fhq-Fjq6%F\rFBFarO-Fer6$FhqFB>80- &T+6#FV6%FCFDFao>8'&F_s6#FS>86-%'memberG6$Fgo&F_s6#F[o@'/FgoFJ>8)FfsFeq>Fct-T-6 %Ffs,(FCFSFgoFTFDFT-FC6#FD>Fct-Fft6%Ffs,&*&FCFSFDFSFSFTFSFit@%5Fjs3Fgn4-FZ6$Fao .%(integerG>8*FJ>Fiu,&-Fin6#-T/6#7$FctFBFS!"#FS@%/FgoFepC$>83FJ>84*$FDFTC$>FgvF go>FivFD>85-%'selectG6%f*6$%"aG%"lGF=6$%)operatorG%&arrowGF=-%&evalbG6#/-FH6$FS FKFBF=F=F=&F_s6#""$Fgo@%/F_w<">8+-T16(-FF6$Fao,&FgvFSFivFSFD,&FiuFSFTFSFCFJFexC $>8-<#-%$seqG6$,&8,FS-FH6$F[o-FH6#F_wFS/Fgy;FJF^y>Fgx<#-Fdy6$/-T36%FgyFCFJ-F[p6 $-F]r6$-FF6$FaoFiv7#-%"$G6$FDFgy/FDFgv/FgyFay@$4-FZ6$Fct.%$setG>Fct<#Fct>Fct-%& unionG6$Fct-%)simplifyG6$FgxFep@%FeqC$>Fhq-Fjq6&F]pFBF_rFar-Fft6&Fct-%%subsG6$/ FC,&FgoFSFCFSFhqFit-F\\l6$<#/-FC6#FJFJ-%'removeG6%FOF`rFa]lC$>Fhq-Fjq6%*$F]pFTF BFar-Fft6&FctFhqFitF_]lF=F=64%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_ HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/p rettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgau sselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guess andcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isroot G%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseries tableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisol veG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivi deG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/ doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparame tersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoef f/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNa meG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7find equationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrati onalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+ interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabo rtG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF d^l/%'unloadGFe^l6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtose riesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffe qG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invb orelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.li sttoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpo lytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriest oalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%, seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,di ffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeq G%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,minde gcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF=F=6(%/type/gfun/freeG% 7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gf un/initeqG%6gfun/rectoproc/symbolGF=F=F`_lc(getname%:-72Fgclc.algfuntoalgeq$:-1 F\_lc*expintalg%:-68Fbflc,diffeqtable%:-44Fhclc.algebraicsubs$:-2Fdflc-formatdi ffeq%:-46Fg_lc.inifromseries%:-79Fjalc$@@D&:-1146#/%+modulenameG%%gfunG M7R0 I%:-88f*6%%$recG%"uG%"nG6"F(F(,&-%$minG6#-%#opG6#-%$mapG6$F.-%'indetsG6$9$-.%)s pecfuncG6$-.%'linearG6#9&9%"""F?!""F(F(6$%6_thismoduledefinitionGb6#%+thismodul eG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:alg eqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvbore lG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(get nameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolv epoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2 listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygc dexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledo itG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1 rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/bi nsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4r atpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typeche ckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequ ationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgi venorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%* interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterp modpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packa geG/%%loadGFJ/%'unloadGFK6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.a lgeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqto homdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffe qG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtol istG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorec G%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG% .seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestora tpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexpo rtsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalue s/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqn G%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF(F(6(%/type/gfu n/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG% 1type/gfun/initeqG%6gfun/rectoproc/symbolGF(F(6#/%+modulenameG%%gfunG M7R0 I%:-41`64c*fnth_term&:-138c6analytic_continuation&:-139c+evaldiffeq&:-140c-diff eqtoproc&:-141c2transition_matrix&:-142c-bound_diffeq&:-143c*bound_rec&:-144c.b ound_ratpoly&:-145c2bound_diffeq_tail&:-146c/bound_rec_tail&:-147c0abs_with_Roo tOf&:-148c.dominant_root&:-149c2make_waksman_proc&:-150c-needed_terms&:-151c*ut ilities&:-152c*_pexports&:-153c(version&:-154c)Settings&:-155b6#%+thismoduleG6V %-numeric_modeG%/NUMGFUN_HIDDENG%4bound_normal_diffeqG%&typesG%)matricesG%(ntht ermG%'ancontG%'boundsG%/numeric_boundsG%0symbolic_boundsG%&hrdeqG%&hrrecG%*eval f_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rata boveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approxima tionG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG% (ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)r ead_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG% )bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_f actorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_smal l_approxG6#%(packageG64%*fnth_termG%6analytic_continuationG%+evaldiffeqG%-diffe qtoprocG%2transition_matrixG%-bound_diffeqG%*bound_recG%.bound_ratpolyG%2bound_ diffeq_tailG%/bound_rec_tailG%0abs_with_RootOfG%.dominant_rootG%2make_waksman_p rocG%-needed_termsG%*utilitiesG%*_pexportsG%(versionG%)SettingsG6"6#QeoBinary~s plitting,~analytic~continuation~of~holonomic~functions,~and~boundsF^q6#%)ndmatr ixGF^q%-_m4330818712G6Vc-numeric_mode&:-156c/NUMGFUN_HIDDEN&:-157c4bound_normal _diffeq&:-158c&types&:-137c)matrices&:-159c(nthterm&:-160c'ancont&:-161c'bounds &:-162c/numeric_bounds&:-163c0symbolic_bounds&:-164c&hrdeq&:-165c&hrrec&:-166c* evalf_rnd&:-167c%rndu&:-168c%rndz&:-169c%rndd&:-170c%rndn&:-171c%rndi&:-172c&up per&:-173c&lower&:-174c&below&:-175c&above&:-176c)ratabove&:-177c5evalf_absolut e_error&:-178c=evalf_complex_absolute_error&:-179c7ndmatrix_approximation&:-180 c)thetadeq&:-181c6diffeq_for_derivative&:-182c(getname&:-183c:make_fresh_name_g enerator&:-184c(ordfrec&:-185c*orddiffeq&:-186c'ordrec&:-187c>rec_has_constant_ coefficients&:-188c,read_diffeq&:-189c)read_rec&:-190c.diffeq_lcoeff&:-191c5dif feq_singularities&:-192c/diffeq_infsing&:-193c,bare_diffeq&:-194c)bare_rec&:-19 5c0simplify_RootOf&:-196c)set_mode&:-197c+reset_mode&:-198c%call&:-199c'argmax& :-200c2falling_factorial&:-201c)colinear&:-202c)ratbelow&:-203c,Digits_plus&:-2 04c3bound_abs_interval&:-205c4sprint_small_approx&:-2066$%*protectedG/%+modulen ameG%%gfunG M7R0 I%:-58$"$`$!"#6$%*protectedG/%+modulenameG%%gfunG M7R0 I$:-3t+6''%"pG-%(dependsG6#<$-%(polynomG6$%)anythingG9%/F+F+'%%yofzG-%)function G6#%%nameG>'%&initsG%$setG<">'%,homogeneousG%(booleanG%&falseG>'%)ini_condGF?%% trueG69%"PG%"yG%"zG%"gG%"uG%"dG%"iG%"YG%$deqG%"jG%"rG%&inityG%#P0G%'iszeroG%#gg G%#stG%$matG%$st0G%%remPG%$denG%%maxdG%$st1G%(newinitG6#%\pCopyright~(c)~1992-2 008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C;>8%-%#opG6$"" !F/>8&-F^o6#F/@%-%%typeG6$9$%"=G>8$,&-F^o6$"""FioF`p-F^o6$""#Fio!"">F\pFio>F\p- %%subsG6$/F/F\oF\p-%)userinfoG6'Fcp.T%QGentering~algeqtodiffeq~with~polynomialF inF\p-%'assignG6#/89-%%timeGFin>8'-%&gcdexG6&-%%diffG6$F\pF\oF\pF\o.8(-F\q6'Fcp F^qQImodular~inverse~of~P_y~computed~in~time:Fin,&FfqF`pFeqFdp-Fbq6%/.FeqFer/.8 3Ffq/.85Ffq@$-%$hasG6$FiqF\oO-F_q6&-%'normalG6#*&F\pF`pFiqFdp-F\o6#Fbo9&9'>8)-% 'degreeGF_r-F\q6&""$F^q%+degree~is~GF`t@%F^t>88F`t>Fit,&F`tF`pFdpF`p@'1F`tF`p>8 ,-Fhp6$/F\oF[tF\p4-Fbs6$F\pFbo>F_u,&F[tF`p-%'RootOfGF_rFdpC)>&8+6#F`p-%$remG6%, $*(FarF`pFiqFdp-F^rFeuF`pFdpF\pF\o-F\q6)FetF^qQ-row~of~indexFinF`pQ1computed~in ~timeFin,&FfqF`pF\sFdp-Fbq6#Fjr?(8*FcpF`pFitFDC$>&F]v6#F]w-F`v6%,&-F^r6$&F]v6#, &F]wF`pFdpF`pFboF`p*&-F^r6$FgwF\oF`pF\vF`pF`pF\pF\o-F\q6)FetF^qFgvF]wFhvFivFjv> 84-%'MatrixG6%;F`p,&F`tF`pF`pF`p;F`pF`t7%-%#ifG6%F^t%%NULLG7$F`p-%"$G6$F`oF[u7% F`oF`p-F^y6$F`o,&F`tF`p!"#F`p-%$seqG6$7#-Ffy6$-%&coeffG6%F`wF\o8-/F^z;F`oF[u/F] w;F`pFit-F\q6'FcpF^qQ8matrix~computed~in~timeFin,&FfqF`pF_sFdp-Fbq6$/F^sFfzFjr> F_u-T'6%F`x7$-Fix6%F^tF[yF`p-Ffy6$-F^r6$F[t7#-F^y6$FboF]w/F]w;F`oFitFbo-F\q6'Fc pF^qQClinear~dependency~computed~in~timeFinFiv-Fbq6#/F[sFiv-F\q6%""%F^q-%(sprin tfG6#QN###~~~~deg~~~~mod_inverse~~~~matrix~~~~lindepFin-F\q6%Fb\lF^q-Fd\l6'QF## #~~~~~%d~~~~~~%g~~~~~~~~~~%g~~~~~%gFinF`tFeqF_sF\s-F\q6&""&F^q%9differential~eq uation~isGF_u>80-Fhs6#-Fhp6&/FboF`o/F\o-F\o6#F`oF]tF\p@$34-Fbs6$Fa]lF\o0Fa]lF`o @%/F]tF;OF_uYQ;invalid~initial~conditionsFin>8:F;@$F_^lC&>Fa]l-Fhp6$/Fh]lF\oFa] l>82-%$gcdG6$Fa]l-F^rF^^l@$0F^_lF`p>Fa]l-%$quoG6%Fa]lF^_lF\oZ%C$-%&evalaG6#-Fiu F^^l>Ff^l<#/Fh]lF^`lFinFin>8//F\o-Fhp6$-%&unionG6$F]tFf^lFh]l>Ff^l-Fh`l6$<#/Fh] l-F^o6$FcpFc`l-Fhp6$F^al-%'removeG6%FgoFg`l/-%*identicalG6#Fh]l.F.?(F]wF`pF`pF[ uFDZ%C$>8./-T)6%F]wF\oF`o-Fhp6$7$Ff]lFc`lF`w>Ff^l-Fh`l6$Ff^l<#F_blFin[@$49(OF_u >6$Ff^l81-T-6&-T+6#7$F_uF[tF\oFbo-%'selectG6%FgoFg`l/Fjal-%*gfun/freeGFial@'/Ff ^lF;OF_uFbclOF[tO<$-F^o6#Ff^lF_uFinFin6.%6_thismoduledefinitionGb6#%+thismodule G6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:alge qtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborel G%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getn ameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolve poly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2l isttoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcd exG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoi tG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1r ectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/bin splitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ra tpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typechec kG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequa tionG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgiv enorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*i nterpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpm odpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packag eG/%%loadGF_el/%'unloadGF`el6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG %.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffe qtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodi ffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+list tolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)polto recG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectopro cG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriest oratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pe xportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitva lues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdeg eqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGFinFin6(%/typ e/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/ident ityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGFinFinFdjlc.algeqtodiffeq$:-3Fdf lc'lindep%:-81Fehlc$@@D&:-114F_]mc-formatdiffeq%:-46Fa]mc6goodinitvalues/diffeq %:-486(FetFcpF`pFetFb\lF^]l6$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-131f*6+%"aG%"bG%$dimG%"nG%"xG%"pG%'optypeG%"UG%&stackG6.%"cG%#P1G%#P2G%"RG% "iG%"kG%$dctG%)indearlyG%&earlyG%%bigOG%#xcG%"VG6"F;@%/9$9%C$@%/9*Q+recurrenceF ;>8/&9+6#""">FF7#-%$seqG6$-%&modp1G6$-%&CoeffG6$&FH6#8(""!9)/FX;FJ9&-T%6)F>FFFg n9'9(FCFZC+>8$-%%iquoG6$,&F>FJF?FJ""#>6$8%8*-T'6,F>F_oFgnF[oF\oFZFCFH7'FJFHF>F? F_o&9"6#;""*!""@$/Fho%%trueGOFfo@%FB>8'7#-FN6$-__%.LinearAlgebraG%(ModularG%)Mu ltiplyG6%FZ-_F_q%$ModG6&FZFgo/F\o,&F_oFJ8)FJ&%(integerGF;&FH6#,*FJFJF_oFJF>FbpF jqFJ/Fjq;FJ,&F?FJF_oFbpC%>8.-FQ6$-%*ConvertInG6$)F\o,(FJFJF_oFJF>FbpF\oFZ>8--FQ 6$-Fir6$)F\o,(F?FJFJFJF>FbpF\oFZ>Fip7#-FN6$-FQ6$-%$QuoG6$-%$RemG6$-%$AddG6#-FN6 $-Fbq6$&Fgo6$FXFjq&FH6#Fjq/FjqFfnF^sFerFZFen@$2FJFbrC%>8+Fbp?(FXFJFJFgnFep@%FBC $?(FjqFJFJFbr/&&FipF[uFWFYF;@$3/Fjq,(F?FJF_oFbpFJFJ5/FauFbp2&Fho6#Fau&FhoFW>Fau FX@$3-FQ6$-%'IsZeroG6#&FipFWFZF]v>FauFX@$0FauFbpC$>8,-T)6(&Fgo6$Fau;FJFbpFgnF\o FZFCF]p@$0Faw%%FAILGO6$FawFep>6$8&Fho-Fjo6,,&F_oFJFJFJF?FgnFhoF\oFZFCFip7$FdoFg oF]p@$FdpOF^x-T+6'FZF_xFgoF_xF\oF^xF;F;6,%6_thismoduledefinitionGb6#%+thismodul eG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:alg eqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvbore lG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(get nameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolv epoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2 listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygc dexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledo itG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1 rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/bi nsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4r atpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typeche ckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequ ationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgi venorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%* interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterp modpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packa geG/%%loadGF`y/%'unloadGFay6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG% .algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeq tohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodif feqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listt olistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltor ecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoproc G%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriesto ratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pex portsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitval ues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdege qnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF;F;6(%/type/g fun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identity G%1type/gfun/initeqG%6gfun/rectoproc/symbolGF;F;Fh]lc(initmat&:-132Fg]lc8matint erpmodpearlyabort&:-131Fi]lc)tryearly&:-133Fd]lc,matmultmodp&:-1286#/%+modulena meG%%gfunG M7R0 I%:-20f*6"6#%"xG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~Franc e.~All~rights~reserved.GF$@'0&9"6#""".%(stampedG-T'6#-T%6$""*F,/&F,6#""$.%$ogfG &F,6#""#-T+6%F/-T)6&F/F>8$F9FfindequationgivenorderratpolyG%?findequationgivenor derrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*inter pmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpe arlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/% %loadGFO/%'unloadGFP6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqt oseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdi ffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)i nvborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG% .listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ra tpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seri estoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpoly G%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG% ,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/dif feqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mi ndegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/fre eG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type /gfun/initeqG%6gfun/rectoproc/symbolGF$F$F]qc*typecheck&:-112F_tc+listtolist%:- 20Fbtc-listtoseries%:-23F_uc-seriestolist%:-366$%*protectedG/%+modulenameG%%gfu nG M7R0 I&:-101f*6'%%condG%"uG%"nG%&initsG%'tosubsG6&%"cG%#shG%#mxG%"iG6#%\pCopyright~( c)~1992-2004~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.G6"C*@$4- %%typeG6$9$%(booleanGY6$QJexpecting~boolean~expression,~received~%1F1&9"6#""">8 $-%%subsG6%9'9(F8>8%-%$mapG6$%#opG-%'indetsG6$FB-%)specfuncG6$%)anythingG9%>FI< #-%$seqG6$,&9&F@8'!""/FgnFI@$4-F66$FI-%$setG6#%*nonnegintGYQ/invalid~shiftsF1>8 &-%$maxG6$""!-FM6#FI@$3/9#""'2&F>6#F`pFeoY6$QJin~errorcond:~shift~must~be~lower ~than~%1F1Fbp6$FBFeoF1F16$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HID DENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/pret typrintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausse limG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessand checkG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%( inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestab leG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG %*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG %*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doi tG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparameter sG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/p olyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG %$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequ ationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationa lG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+int erpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG %(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF_q/ %'unloadGF`q6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG %&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,d iffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG %(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtor atpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytoc oeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalge qG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,serie storecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqt ableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3go odinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoef fG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF1F16(%/type/gfun/freeG%7type /gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/in iteqG%6gfun/rectoproc/symbolGF1F16#/%+modulenameG%%gfunG M7R0 I&:-118f*6%'%"LG%%listG'%"nG%%nameG'%'optypeG<&-%*identicalG6#Q*algebraic6"-F/6 #Q-differentialF2-F/6#Q+recurrenceF2-F/6#Q6rationalinterpolationF26$%$resG%$ord GF2F2C%@%/9&F;>8$-T%6&9$"""9%FB?(8%-%$maxG6$FI-T)6#.T'FI-FN6$FP-%$minG6$,&-%%no psG6#FHFI!"#FI-FQ6#.T+%%trueGC%-%)userinfoG6&FI.%%gfunGQ>looking~for~equation~o f~orderF2FL>FD-FF6&FHFLFJFB@$0FD%%FAILG[>T--%'subsopG6$/""%%%NULLG-%#opG6#F]pFD F2F26.%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG %0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoal geq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-fi rstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG% -infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromser iesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l 2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcom poseG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtru ncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkc ondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exmin G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbis G%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG% *findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>fi ndequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;find equationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmod pG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearly G%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGF^q/%'unloadGF_q6fn%.alg funtoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyprod uctG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseq nG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoal geqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG% -listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec *recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG% 2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoser iesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/d oitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(m akerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,mino rdereqnG%*optionsgfG%(versionGF2F26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G% 7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectopro c/symbolGF2F2Fitc7findequationgivenorder&:-119Fhyc,minordereqn%:-56Fhxc+Paramet ers%:-40Fdyc,maxordereqn%:-52F\uc*do_reduce&:-1226#/%+modulenameGFco M7R0 I%:-63f*6$%"lG%"xG6#%"iG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INR IA~France.~All~rights~reserved.G6"-%'seriesG6%-%$addG6$*&&8$6#"""F6)9%&F46#""#F 6/F49$F8-%$maxG6$""%-%%ceilG6#&&F=6#-%%nopsG6#F=F:F+F+6$%6_thismoduledefinition Gb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtose ries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpoly G%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,fu ntodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/ foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%- listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%) minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5pow composesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rect odiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplit G%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolyt ocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systom atrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpol ationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG% ?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degm atG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpm odpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkr esultG6%%(packageG/%%loadGFR/%'unloadGFS6fn%.algfuntoalgeqG%.algebraicsubsG%.al geqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*di ffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG% 0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohype rgeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodi ffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomre cG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestoli stG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nt h_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG %6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxorder eqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF +F+6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/ gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF+F+6#/%+modulenameG%% gfunG M7R0 I%:-80f*6$%%exprG%"xG6#%"iG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~ INRIA~France.~All~rights~reserved.G6"@-4-%$hasG6$9$9%%%trueG-%%typeG6$F1.%)func tionG@)/-%#opG6$""!F1.%$expG-F56$-%%diffG6$-F<6#F1F2<$-.%'algfunG6$.%)anythingG F2-.%'radfunGFL3-F56$F1-%)specfuncG6$FN.%$IntG/-F<6$""#F1F2-9!6$-F<6$"""F1F24-F 56$F1.%'RootOfG-%&evalbG6#3-%)assignedG6#&T%6#F;-F56$-F<6$-%%nopsGFGF1FH-F56$F[ o<$-FJ6$FM%#_ZG-FPFgp-F56$F1FHF3-F56$F1<$.%"*G.%"+GC$?(8$F]oF]oFap-Fin6$-F<6$Fe qF1F2F+-Fdo6#/Feq,&FapF]oF]oF]o-F56$F1.%"^G553-F56$F[o-.%(polynomGFL4-F/6$FenF2 3-F56$Fen.%'posintGFhn3-F56$Fen.%)rationalG-F56$F[o-.FV6$FHF@%&falseGF+F+6&%6_t hismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_ CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7alg funtoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzero G%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvep olyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isho lonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+maked iffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1pow composesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pp rimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun /rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pa de2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2d G%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeq G%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequation givenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgi venordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmu ltmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkre sultnormalG%,checkresultG6%%(packageG/%%loadGFdt/%'unloadGFet6fn%.algfuntoalgeq G%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diff eq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessg fG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-list todiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoser iesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rec todiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestoh ypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Para metersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-form atdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,m axdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%* optionsgfG%(versionGF+F+6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun /has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF +F+Fb\lc,diffeqtable%:-446#/%+modulenameG%%gfunG M7R0 I%:-33f*6"6#%"LGF$F$@%0&9"6#""".%(stampedG-T'6#-T%6$""'F*C%>8$-T)6%F-&F*6#""#.% $ogfG@$4-%$hasG6$F<-%"OGF+>F87$-%#opG6#F8-%"$G6$""!-%$maxG6$"#5-%%nopsGFL-T+6&F -F8&F*6#""$&F*6#""%F$F$6,%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDD ENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prett yprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgaussel imG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandc heckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(i nicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestabl eG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG% *nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG% *powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doit G%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparameters G%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/po lyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG% $@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequa tiongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrational G%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+inte rpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG% (initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFao/% 'unloadGFbo6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG% &borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,di ffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG% (LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtora tpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytoco effG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeq G%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,series torecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqta bleG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goo dinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeff G%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/ gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/ini teqG%6gfun/rectoproc/symbolGF$F$Ferc*typecheck&:-112Fdvc.seriestoalgeq%:-33Fgvc -seriestolist%:-36Fduc,listtoalgeq%:-176$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-50f*6&%$recG%"uG%"nG%$iniG6$%"rG%"iG6#%\pCopyright~(c)~1992-2008~by~Algorit hms~Project,~INRIA~France.~All~rights~reserved.G6"C$>8$,&-%$addG6$*&&9$6#,&8%"" """#FfindequationgivenorderratpolyG%?findequationgivenorderrationalG%*d o_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpve ctG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(ini tmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFjn/%'unl oadGF[o6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&bor elG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeq torecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(Lap laceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpol yG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG %(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/s eriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestore cG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG %1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodini tvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*m indegeqnG%,minordereqnG%*optionsgfG%(versionGF.F.6(%/type/gfun/freeG%7type/gfun /has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG %6gfun/rectoproc/symbolGF.F.6$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-123f*6(%"LG%$ordG%"nG%(partialG%'moduloG%'optypeG66%"NG%"iG%"jG%"UG%$resG%$ defG%$lcoG%(typeoptG%)truncateG%&nbeqsG%)nbcoeffsG%*dimensionG%#LLG%'periodG%-f irstnonzeroG%,lastnonzeroG%%precG%)testzeroG%%bigOG%(trueordG6"F@C4>80-%$modG6$ 9$9(@$/-%%subsG6$/""!%%NULLGFC7"O9'>8$,&-%%nopsG6#FG"""!""FZ@)/9)Q+recurrenceF@ C%>8'7#-%$seqG6$-__%.LinearAlgebraG%(ModularG%$ModG6%FH-%'VectorG6#7#-F_o6$&FC6 #,&8&FZ8%FZ/Fap;FO9%&%(integerGF@/Fbp;FZ,(FUFZFZFZFepFen>84,&FUFZFepFen>8+Fhn/F hnQ6rationalinterpolationF@C%>F\o7#-F_o6$-Fbo6%FH-Fio6#7$Fen&FC6#FbpFfp/Fbp;FZ, &FUFZFZFZ>F\qF]q>F_qFin/FhnQ*algebraicF@C(>F_qQ-differentialF@>&F\o6#FO-%&modp1 G6$-%*ConvertInG6$FC9&FH>8,-F\s6$-F_s6$)FasF`rFasFH?(FbpFZFZFep%%trueG>&F\oF]r- F\s6$-%$RemG6$-%)MultiplyG6$&F\o6#,&FbpFZFenFZFirFcsFH>F\qFU>F\o7#-F_o6$F\t/Fbp FdpC'>F_qFhn>FirF[s?(FbpFZFZFepFjs>F\t-F\s6$-%%DiffG6#FetFH>F\q-%$maxG6$FOF]q>F \oFjt>6$8(8)-T%6*F\oFOF\q,&FepFZFZFZ7#-%"$G6$FOFdvFasFHF_q@$0F`vFjsC$-%'memberG 6%-Fju6#-%#opG6#F`vF`v.Fbp>F_v&F_v6$Fbp;FZFen?(FbpFZFZF@-F\s6$-%'IsZeroG6#&F_v6 #,$FbpFenFHF@>87,(FepFZFbpFenFZFZ>F_v7#-F_o6$-F\s6$-%+ConvertOutG6$&F_v6#FapFas FH/Fap;FZ,&FcxFZFZFZ@$32FcxFep4-T'6(F_vFCFHFcxFasF_qO%%FAILG@$33/F_qFin/-FX6#-F L6$FNF_vFZ0-FX6#-FL6$FNFGFZOF[z?(82FZFZF@/&FG6#F\[lFOF@@'5/F_qFdr/F_qFgr>81-%%i gcdG6#-Fbw6#-%%map2G6%Fbw""#-%'selectG6%%$hasG-%'indetsG6$F_v%"^GFas/Faz-FX6#F_ v>Fe[lFZC%>Fe[lFO?(83FZFZF@/&F_v6#F^]lFOF@?(F@FZFZF@2F^]lFh\lC$?(Fbp,&F^]lFZFZF ZFZFh\l/&F_vF]rFOF@@%1FbpFh\lC$>Fe[l-Fg[l6$Fe[l,&FbpFZF^]lFen>F^]lFbp[@'F_z>8-, &-FX6#F\oFZ-Fju6$,(F\[lFZFenFZFepFenFOFenFcr>Fd^l,(FUFZF^\lFZF\[lFen>Fd^l,*FUFZ FZFZFepFenFh^lFen@$2FZFe[l>Fd^l-%%ceilG6#*&Fd^lFZFe[lFen>8.-FX6#-%$mapG6%%'coef fsGF_vFas>8/,&-%(convertG6$-FL6$/,$%)infinityGFenFen-F[`l6%%'degreeGF_vFas%"+GF ZFh\lFZ@%331Fd^lF_`l2*&$""&FenFZ-%'lengthG6#FKFZ-FfalFi\l2Fd^l,&Fg_lFZFWFZF[zC% >F_v-%$addG6$*&F^yFZ)FS,&FapFZFenFZFZF`y>8*-%%modpG6$*$-%'lcoeffG6$F_v7$FSFasFe nFH-%%modsG6$-%'expandG6#*&F_vFZFdblFZFHF@F@6(%6_thismoduledefinitionGb6#%+this moduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG %:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelin vborelG%/cheapgausselimG%*expintalgGF:%,formatpoleqG%,funtodiffeqG%(getnameG%.g uessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/is rootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtose riestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)my isolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*pow divideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohom rec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitpa rametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolyto coeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Che ckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7 findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorder rationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpma tG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearl yabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%lo adGF[dl/%'unloadGF\dl6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeq toseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomd iffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%) invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG %.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/r atpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.ser iestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpol yG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG %,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/di ffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,m indegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF@F@6(%/type/gfun/fr eeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1typ e/gfun/initeqG%6gfun/rectoproc/symbolGF@F@F`hlc.matinterpmodp&:-130Fehlc,checkr esult&:-1356#/%+modulenameG%%gfunG M7R0 I%:-12f*6"6/%)interresG%"yG%'resultG%"lG%"xG%(methodsG%%indsG%"sG%"iG%#llG%"jG% $solG%$tmpG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~Al l~rights~reserved.GF$C/@$0&9"6#""".%(stampedGO-T'6#-T%6$""$F9>8'&F96#""#>8(&F96 #FE>8)&F96#""%-%)userinfoG6%F;.%%gfunG%NTrying~to~find~a~rational~generating~fu nctionG?&8,FP%%trueGC%Z%@%35/Fen.%'revogfG/Fen.%'revegfG0&FGF:""!>&8-6#Fen-T)6$ 7$Fdo-%#opG6#FGFen>Ffo-Fjo6$FGFenF$\>8&-T+6&FFep-T-Fhp@$F]qOF`q-FU6%F;FW%PTrying~to~find~an~algebraic~generating~functio nG?&FenFPFfnC)>Fep-T/6&F8/7#-%&solveG6$FaqFer@$/-%%nopsG6#F^sF;O7$F^sFen>8+-T16$FfoFL?(8.F; F;FesFfnC$>80-%'seriesG6%,&&F^s6#F`tF;F[t!""FL-Ffs6#Ffo@$5/FctFdo3-%%typeG6$Fct .Fet1F[u-F^p6$FJFctO7$FhtFen-FU6%F;FW%NTrying~to~find~a~linear~differential~equ ationG?&FenFPFfnC'>8$-T3Fdr@$/F`vF^qFcp-FU6%F;FW%3Trying~to~solve~itG>Fep-%'dso lveG6$-F^p6$F;F`vFer@$3F]q0Fep%%NULLGC'>8*-%&minusG6$-Ffw6$-%'indetsG6$-F^p6$FJ Fep.%%nameG-F[x6$FGF_x<$%*constantsGFL@$/Fdw<"O7$F]xFen>F[t-Fet6%F]xFL,&-FfsF_p F;F;F;>F[t-Fas6$<#-%$seqG6$,&-%&coeffG6%F[tFL,&F`tF;FjtF;F;-F^p6$F`tFGFjt/F`t;F ;F^yFdw@$30F[tFaw-Fbu6$F[t.%$setGO-%%subsG6$F[tFixF^qF$F$64%6_thismoduledefinit ionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqt oseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formp olyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG% ,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepo ly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindep G%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindex G%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5 powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1r ectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsp litG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpo lytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,sys tomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinter polationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpol yG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'d egmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinte rpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,che ckresultG6%%(packageG/%%loadGFa[l/%'unloadGFb[l6fn%.algfuntoalgeqG%.algebraicsu bsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.di ffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardpr oductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0lis ttohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%, poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rec tohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-ser iestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGf unG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*for matrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,m axordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(ve rsionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G %3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF$F$Fe^lc*typec heck&:-112F_alc(guessgf%:-12Fgalc+listtolist%:-20Fhalc.listtoratpoly%:-21Ffalc0 listtohypergeom%:-19Fdalc,listtoalgeq%:-17Fjalc-listtoseries%:-23Fealc-listtodi ffeq%:-186$%*protectedG/%+modulenameGFX M7R0 I%:-93f*6&%"qG%"pG%"xG%"nG6&%"sG%"jG%#pkG%"iG6#%\pCopyright~(c)~1992-2008~by~Al gorithms~Project,~INRIA~France.~All~rights~reserved.G6"C)>8%-%'degreeG6$9$9&>8$ """?(F0F;F;F02F:F3>F:,$F:""#>&8&6#F;-T%6%9%F89'>8'F;?(F0F;F;F02FKF:C$>&FC6#,$FK F@-FF6%-%(collectG6$*$&FC6#FKF@F8F8FI>FKFR-T'6'F7F:FCF8FIF0F06(%6_thismoduledef initionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3al geqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/f ormpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpol eqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsol vepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'li ndepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxi ndexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpl eG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingp G%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/b insplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4r atpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG% ,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationali nterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderra tpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodp G%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.mat interpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG% ,checkresultG6%%(packageG/%%loadGF`o/%'unloadGFao6fn%.algfuntoalgeqG%.algebraic subsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%. diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamard productG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0l isttohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G %,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,r ectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-s eriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(Num GfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*f ormatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG% ,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%( versionGF0F06(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs 3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF0F0Feqc,powt runcate%:-97Fbqc5powcomposesimpledoit%:-946#/%+modulenameG%%gfunG M7R0 I&:-110f*6%%"sG%"xG%"yG6$%"LG%"iG6"F+C$>8$7#-%$seqG6$-%&coeffG6%9$9%8%/F8;""!,& -%&orderG6#F6"""!""F@-T%6%F.9&F7F+F+6&%6_thismoduledefinitionGb6#%+thismoduleG6 io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqt oseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG% /cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnam eG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepo ly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2lis ttoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdex G%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG %*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rec tohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsp litparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratp olytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG %*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequati onG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgiven orderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*int erpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmod pearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG /%%loadGFM/%'unloadGFN6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.alge qtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohom diffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG% )invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolist G%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.se riestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpo lyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexports G%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/d iffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%, mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF+F+6(%/type/gfun/f reeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1ty pe/gfun/initeqG%6gfun/rectoproc/symbolGF+F+F_qc*findalgeq&:-1166#/%+modulenameG %%gfunG M7R0 I%:-87f*6%%$recG%"uG%"nG6"F(F(,&-%$maxG6#-%#opG6#-%$mapG6$F.-%'indetsG6$9$-.%)s pecfuncG6$-.%'linearG6#9&9%"""F?!""F(F(6$%6_thismoduledefinitionGb6#%+thismodul eG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:alg eqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvbore lG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(get nameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolv epoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2 listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygc dexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledo itG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1 rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/bi nsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4r atpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typeche ckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequ ationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgi venorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%* interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterp modpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packa geG/%%loadGFJ/%'unloadGFK6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.a lgeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqto homdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffe qG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtol istG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorec G%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG% .seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestora tpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexpo rtsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalue s/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqn G%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF(F(6(%/type/gfu n/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG% 1type/gfun/initeqG%6gfun/rectoproc/symbolGF(F(6#/%+modulenameG%%gfunG M7R0 I%:-72f*6%'%%yofzG-%)functionG6#%%nameG%"yG%"zG6"F-F-C%>9%-%#opG6$""!9$@$-%%typ eG6$F0.%*procedureGY6$%7not~an~unassigned~nameGF0>9&-F26#F5F-F-6$%6_thismoduled efinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3 algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq /formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatp oleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infs olvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%' lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)ma xindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesim pleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowin gpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc /binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG% 4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2a G%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationa linterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorder ratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermo dpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.m atinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormal G%,checkresultG6%%(packageG/%%loadGFJ/%'unloadGFK6fn%.algfuntoalgeqG%.algebraic subsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%. diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamard productG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0l isttohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G %,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,r ectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-s eriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(Num GfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*f ormatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG% ,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%( versionGF-F-6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs 3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF-F-6#/%+modu lenameG%%gfunG M7R0 I%:-577$%$ogfG%$egfG6#/%+modulenameG%%gfunG M7R0 I%:-42t+6(%$recG'%%uofnG-%)functionG6#%%nameG'%"NG%,nonnegativeG%#~$G>'7$%)rati onalG%$gcdG%(booleanG%&falseG>'%'seriesGF5F66#%)ringnameG6"F8$-T%6$9)9(-T+6 &-T'6'9$9%""!9&F?-T)6$FKFL%)infinityGF?6#QLComputes~u(N)~in~Q[i]~where~u~satisf ies~recF8)&F26#""#>8(&F26#F>>8%&F26#""%?&8&FI%%trueGC&Z%@ %35/FN.%'revogfG/FN.%'revegfG0&F@F3""!>8'-T)6%F57$F4-%#opG6#F@FN>Fin-F[o6%F5F@F NF$\-%)userinfoG6'F>.%%gfunG%,Trying~the~GFNFin>8$-T+6$FinFE@$0F\p%%FAILGC$-Ffo 6(FCFho.%$TheGFN.%1seems~to~satisfyGF\pO7$F\pFNFbpF$F$6,%6_thismoduledefinition Gb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtose ries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpoly G%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,fu ntodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/ foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%- listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%) minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5pow composesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rect odiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplit G%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolyt ocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systom atrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpol ationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG% ?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degm atG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpm odpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkr esultG6%%(packageG/%%loadGFcq/%'unloadGFdq6fn%.algfuntoalgeqG%.algebraicsubsG%. algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq* diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproduct G%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohy pergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,polto diffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohom recG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriesto listG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%) nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatre cG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxord ereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(version GF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3typ e/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF$F$Fgtc*typecheck&: -112Fhwc0listtohypergeom%:-19Fiwc+listtolist%:-20F\sc(l2h/l2h%:-856$%*protected G/%+modulenameGFio M7R0 I$:-4f*6''%$PolG-%(polynomG6$%)anythingG7$%"xG%"yG'F,%%nameG'F-F/'%$ordG%*nonne gintG%9optional_positive_slopesG6"F5F5-%$mapG6%T%-T'6#9"9%F5F56(%6_thismodulede finitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3a lgeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/ formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpo leqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infso lvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'l indepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)max indexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimp leG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowing pG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/ binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4 ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG %,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rational interpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderr atpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermod pG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.ma tinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG %,checkresultG6%%(packageG/%%loadGFF/%'unloadGFG6fn%.algfuntoalgeqG%.algebraics ubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.d iffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardp roductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0li sttohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G% ,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,re ctohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-se riestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumG funG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*fo rmatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%, maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(v ersionGF5F56(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3 G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF5F5FIc:algeqt oseries/prettyprint%:-63FHc3algeqtoseries/doit%:-626$%*protectedG/%+modulenameG %%gfunG M7R0 I&:-132f*6)%"aG%"VG%$dimG%$dctG%"xG%'optypeG%'moduloG6'%$resG%'indmaxG%%nmaxG%" iG%&pivotG6"F2C*>8$-%'rtableG6&;"""9&F9/.%%fillG-%&modp1G6$-%*ConvertInG6$""!9( 9*/.%(subtypeG.%'MatrixG>8%FE>8&,$%)infinityG!""?(8'F:F:F;%%trueG@$30&9%6#FUFE2 FP&9'FfnC$>FPFhn>FNFU@$/FNFEC$?(FUF:F:F;FV>&F56$FUFU-F@6$-FC6$F:FFFGO6$F5Fin>8( -F@6$-FC6$&Fen6#FNFFFG?(FUF:F:F;FV@'/FUFN@%/9)Q+recurrenceF2>Fbo-F@6$-FC6$,&FFF :9$FSFFFG>Fbo-F@6$-FC6$FFFFFG/FZFE>FboFdoC$>FboF[p>&F56$FUFN-F@6$-FC6$,$FZFSFFF G6$F5,&FinF:-%'subsopG6$/FNF:7#-%"$G6$FEF;FSF2F26$%6_thismoduledefinitionGb6#%+ thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/d oitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.bor elinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodif feqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG %4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listpr impartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minind exG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcompos esimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffe q/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rec toproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff /elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG %*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG %-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?finde quationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(d egvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8 matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG 6%%(packageG/%%loadGFbs/%'unloadGFcs6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqt odiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeq G%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0hol exprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeo mG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeq G%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%* rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG% 0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_te rmG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6go odinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG %*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF2F26 (%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun /identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF2F26#/%+modulenameG%%gfun G M7R0 I&:-117f*6$%"LG%"nG6#%$resG6"F)C$>8$-T%6%9$9%Q6rationalinterpolationF)@%/F,%%FA ILGF5*&&F,6#"""F9&F,6#""#!""F)F)6&%6_thismoduledefinitionGb6#%+thismoduleG6io%, GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoser ies/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/che apgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%. guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/i srootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtos eriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)m yisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*po wdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectoho mrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitp arametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolyt ocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Ch eckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG% 7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorde rrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpm atG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpear lyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%l oadGFE/%'unloadGFF6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtos eriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiff eqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)inv borelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.l isttoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratp olytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.series toalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG% ,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,d iffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffe qG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mind egcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF)F)6(%/type/gfun/freeG %7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/g fun/initeqG%6gfun/rectoproc/symbolGF)F)Fipc-findequation&:-1186#/%+modulenameG% %gfunG M7R0 I&:-102t+6%%/binsplitparamsG%$iniG%#~$G6"F(F(-T%6&9$9%%)infinityG.%)ndmatrixG6# QhnNumGfun~helper~used~by~some~procedures~generated~by~rectoprocF(F(6&%6_thismo duledefinitionGb6#%+thismoduleGF(F(61%+frectopolyG%*recmatrixG%-frectomatrixG%3 rec_inicond_vectorG%)binsplitG%5makeitfloat/mantissaG%,makeitfloatG%,extractlin eG%0binsplit_paramsG%+ratorfloatG%.nth_term_doitG%,choose_ringG%*fnth_termG%5nt h_term_of_ndseriesG%&mydivGF(F(F(F(F(FCc.nth_term_doit&:-2096#""$6#/%+modulenam eG%%gfunG M7R0 I%:-79f*6(%%exprG%$varG%'maxordG%%unknG%#ptG%$iniG6&%"sG%"iG%"jG%"hG6"F0C$@$/9& !""O<"?(8%"""F:F0%%trueGC&>8$-%%subsG6$9)-_%,MultiSeriesG%'seriesG6%9$/9%9(*&F9 F:,&F4F:F:F:F:@$43-%%typeG6$F>.FF-FR6$-%#opG6$""#F>.%*nonnegintGOF7@%-%$hasG6$F >.%"OG>8'-FX6$-%%nopsG6#F>F>>F_o%)infinityG@$2F4F_oO<#-%$seqG6$/-T%6%8&9'FK*&-% *factorialG6#FbpF:-%&coeffG6%F>,&FJF:FKF5FbpF:/Fbp;""!F4F0F06&%6_thismoduledefi nitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3alg eqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/fo rmpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpole qG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolv epoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lin depG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxin dexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimple G%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG %1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/bi nsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ra tpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%, systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalin terpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderrat polyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG %'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.mati nterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%, checkresultG6%%(packageG/%%loadGFfq/%'unloadGFgq6fn%.algfuntoalgeqG%.algebraics ubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.d iffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardp roductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0li sttohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G% ,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,re ctohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-se riestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumG funG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*fo rmatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%, maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(v ersionGF0F06(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3 G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF0F0F\uc$@@D&: -1146#/%+modulenameG%%gfunG M7R0 I%:-64f*6&%%exprG%"yG%"xG%$typG64%"YG%"pG%(replaceG%(minpolsG%%radsG%(rootofsG% &basesG%*sortbylenG%"iG%%indsG%"bG%&basebG%"dG%)radtableG%)subslistG%"tG%"jG%+n umreplaceG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All ~rights~reserved.G6"C%>8--%'indetsG6#9$@&-%$hasG6$FA9%Y6%Q@expression~%2~cannot ~contain~%1F>FJFE4-%(convertG6$-%$mapG6%%%typeGFA<$-.%'algfunG6#.%)anythingG-.% 'radfunGFZ%$andGF>@%53/9'.%*algebraicG-FU6$FE-.%(polynomG6$Fen9&3/F_o.%)rationa lG-FU6$FE-Feo6#F[p,&FJ"""FE!""C3>8%-%&numerG6#Fap>8(-FC6$Ffp)Fen.%)fractionG>8) -FC6$Ffp.%'RootOfG@$F^oC$>F[q-%'selectG6%FHF[qFho>Fbq-F[r6%FHFbqFho>8*-%%map2G6 %%#opGFbpF[q@$0-%%nopsG6#Far-Fir6#F[q?&8.FarFgrC$>8/-F[r6%f*6$F9F4F>6$%)operato rG%&arrowGF>-%&evalbG6#/-Fer6$FbpFEFJF>F>F>F[qF^s@$2Fbp-Fir6#FasC%>&816#F^s7#-% $seqG6$-Fer6$""#83/F_uFas>80-%%ilcmG6#-Fjt6$-Fer6$F^uF\uF`u>F[q-%&unionG6$-%&mi nusG6$F[qFas<#)F^s*$FbuFcp>8+f*6$%"aGF4F>FfsF>-Fjs6#1-%'lengthG6#FJ-F]wFDF>F>F> >8&-%%sortG6$7$-FerF\s-Fer6#FbqFev>85-Fir6#Faw>Faw-%&tableGF\x?(8,FbpFbpFjw%%tr ueG@%5-FU6$&Faw6#FaxFeq4-%)assignedG6#&Fft6#-Fer6$FbpFgx>&82Fhx/Fgx&8$Fhx>Fby-F jt6$/)F_y84)Fey*&F\zFbp-Fer6$F^u-Fer6$F^uFgxFbp/F\zF]y>Ffp-%%subsG6$7#-Fjt6$Fby /Fax;FbpFjwFfp>8'-F_x6#7#-Fjt6$-T%6$FgxFeyF[[l?(FaxFjwFcpF^uFbx>F^[l-Ffz6$Fby-% %evalG6#F^[l>Ffp-Fhp6#Ffp?(FaxFbpFbpFjwFbx>Ffp-%*resultantG6%Ffp-Fhp6#&F^[lFhxF ey@%-FU6$FfpF_p-%$quoG6%Ffp-%$gcdG6$Ffp-%%diffG6$FfpFJFJ-F]]l6%Ffp-%&gcdexG6%Ff pFb]lFJFJF>F>6&%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGF UN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/a lgfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expin talgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+ind icialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.i nifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2 rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicond G%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevert G%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectopr oc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pa de2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/recto homrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+fin ddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgiveno rderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_redu ceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,m atmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG% )tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFa^l/%'unloadGF b^l6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG% .cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtore cG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(Laplace G%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%* listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(re c+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/serie stodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/ seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1di ffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitval ues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*minde geqnG%,minordereqnG%*optionsgfG%(versionGF>F>6(%/type/gfun/freeG%7type/gfun/has 2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gf un/rectoproc/symbolGF>F>Ff^lc7algfuntoalgeq/formpoly%:-656#/%+modulenameG%%gfun G M7R0 I%:-49f*6(%$recG%"uG%"nG%$iniG%%flagG%%arg6G65%#n0G%&orderG%"iG%%indsG%'minindG %'maxindG%$sysG%"rG%$solG%"bG%"aG%"jG%"kG%$rejG%/maxsingularityG%#gbG%*termorde rG%&dorejG%&inds2G6#%\pCopyright~(c)~1992-2007~by~Algorithms~Project,~INRIA~Fra nce.~All~rights~reserved.G6"C4>8%,&-%%nopsG6#9$"""!"#FJ>8),&FDFJ!""FJ@%-%%typeG 6$9'.%$setG>8'-%$mapG6$%#opG-%'indetsG6$FT-9%6#.%(integerGC$>FX<">FM-%$maxG6$FM FT>82%%NULLG@$/9#""'@'-FR6$9)F^o>FM-Fdo6$FMF`p-FR6$F`p/-%*identicalG6#.%(maxsin gG%*nonnegintG>Fgo-Ffn6$""#F`pY6$Q1invalid~argumentFAF`p>8$-T%6%-%%subsG6$/9&,& F]rFJFDFO&FI6#FFF]rFgo>FM-Fdo6%FM-Ffn6#FX,&FeqFJFOFJ>8(-%$minG6$Fdr""!>8+-T'6%F IF[oF]r?(8/FJFJF`q%%trueGC'@%/FcsFJ>8*<$-Ffn6#FT-%$seqG6$-Fjq6$/F]r8&F^s/Fct;Fh r,&FMFJFDFO>Fis<$F[t-F^t6$-Fjq6$/F]r,&FctFJFDFOF^s/Fct-%&minusG6$<#-%"$G6#;,&Fh rFJFDFJFMFX@$/FisFao@%49(O<#-F^t6$/-F[o6#Fct&%#_CGFdv/Fct;FhrFMO<#-F^t6$Fbv/Fct -Fau6$<#-Feu6#Fhv<#-Feu6#;F\sFN>8.-T)6%Fis7#-F^t6$FcvFgv.8-Z%>8,-_%.LinearAlgeb raG%,LinearSolveG6$Fhw-&%'VectorG6#.%'columnG6#F`xQ4inconsistent~systemFA>FcxFh o@&3/FcxFho/FcsF`qYQFcx-%(convertG6$Fcx% %listG>FX-%&unionG6$-Fhn6$Fcx&%#_tG6#%)anythingG-Fhn6$Fcx-.%*typeindexG6$.Fhz-. %)suffixedG6$.FfzF]o>853F]vFgs>Fcs-Fdo6#-Ffn6#-FZ6$Ffn-Fhn6$7$FIFT&Ffv6#F_[l@$/ Fcs,$%)infinityGFO>FcsFO?&FctFXFds@%3-%'memberG6%FctFcx.805554Ff[l2FJ-FG6#-%'se lectG6%%$hasGFcxFct2F`]l,&FhrFJFOFJ2FD,&F`]lFJFhrFJC%>Fcs,&FcsFJFJFJ>Fcx-Fjq6$/ Fct&Ffv6#,&FhrFJFcsFJFcx>&81FdvFho>F[_lF`]l>Fis<#-F^t6$/-F[o6#,(FctFJFhrFJFOFJ& FcxFdv/Fct-Fau6$<#-Feu6#;FJ-FG6#Fcx<#-F^t6$F[_l/FctFX@%333-%(hastypeG6$-%'remov eG6%FRFis/-F[oFc\l.%%nameGFb\l2-Fdo6#-Ffn6#-FZ6%%'degreeG7#-F^t6$-Ffn6$F`qFct/F ctFis-Fhn6$FisFb\l""$4-F[^l6$Fis.%'RootOfG-FR6$Fjal-.F^z6#-.%(polynomG6$.%)rati onalGF`blC+>FXF`bl>86-%%sortG6#7#-Ffn6#-FZ6$Ffn-Fhn6$FisF_al>Fis-Fjq6$7#-F^t6$/ Fcv&F[oFdv/FctFfcl<#-F^t6$,&-Ffn6$FJFctFJF]blFOF_bl>84-%'lexdegG6$7#Fdr7#-F^t6$ FhdlFidl>83-F\al6%Fi`l-_%)GroebnerG%&BasisG6$FisFaelFb\l@%/Fjel7">FcxFfel>Fcx-F jq6$-%&solveG6$<#-Ffn6#Fjel<#-F^t6$Fhdl/Fct&Ffcl6#;,&-_F_fl%1HilbertDimensionG6 $FjelFaelFJ-FGFerFOFOFfel>FcsFO?(FctFJFJF^`lFds@$/Ff_l&F[o6#&FfclFdv@%3Ff[l/-FG 6#-Fi]l6%F[^lFcxFf_lFJ>F[_lFctC%>F[_lFho>FcsFb^l>Fcx-Fjq6$/F`hl&Ffv6#FcsFcx<#-F ^t6$/-F[oFahlFf_l/Fct-Fau6$Fj_l<#-F^t6$F[_l/FctF]`lFisFAFA6*%6_thismoduledefini tionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeq toseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/form polyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG %,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvep oly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'linde pG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxinde xG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG% 5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1 rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/bins plitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratp olytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,sy stomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinte rpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpo lyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%' degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matint erpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,ch eckresultG6%%(packageG/%%loadGFgjl/%'unloadGFhjl6fn%.algfuntoalgeqG%.algebraics ubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.d iffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardp roductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0li sttohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G% ,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,re ctohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-se riestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumG funG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*fo rmatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%, maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(v ersionGFAFA6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3 G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGFAFAF`[mc-firs tnonzero%:-69F[cmc(makerec%:-50Fj]mc,systomatrix&:-1116$%*protectedG/%+modulena meG%%gfunG M7R0 I%:-34f*6"6#%"LGF$F$@%0&9"6#""".%(stampedG-T'6#-T%6$""'F*C%>8$-T)6%F-&F*6#""#.% $ogfG@$4-%$hasG6$F<-%"OGF+>F87$-%#opG6#F8-%"$G6$""!-%$maxG6$"#5-%%nopsGFL-T+6&F -F8&F*6#""$&F*6#""%F$F$6,%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDD ENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prett yprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgaussel imG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandc heckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(i nicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestabl eG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG% *nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG% *powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doit G%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparameters G%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/po lyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG% $@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequa tiongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrational G%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+inte rpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG% (initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFao/% 'unloadGFbo6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG% &borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,di ffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG% (LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtora tpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytoco effG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeq G%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,series torecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqta bleG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goo dinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeff G%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/ gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/ini teqG%6gfun/rectoproc/symbolGF$F$Ferc*typecheck&:-112Fevc/seriestodiffeq%:-34Fgv c-seriestolist%:-36Feuc-listtodiffeq%:-186$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-11f*6"6)%"yG%'resultG%"lG%"xG%(methodsG%#llG%"iG6#%\pCopyright~(c)~1992-200 8~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.GF$C.@$0&9"6#""".%(s tampedGO-T'6#-T%6$""#F3>8&&F36#F?>8$-%#opG6$""!&F36#""$>8'-FG6#FJ>8(&F36#""%-%) userinfoG6%F5.%%gfunG%NTrying~to~find~a~rational~generating~functionG?&8*FR%%tr ueGC&Z%@%35/Fgn.%'revogfG/Fgn.%'revegfG0&FAF4FI>&8)6#Fgn-T)6$7$FI-FG6#FAFgn>Fgo -F[p6$FAFgnF$\>8%-T+6&F6FgoFN7#.%$ogfG@$/Fep%%FAILGFcpO7$,&*&-%&denomG6#&FepF4F 5-FE6#FNF5F5-%&numerGFeq!""Fgn-FW6%F5FY%PTrying~to~find~an~algebraic~generating ~functionG?&FgnFRFhnC$>Fep-T-6&F6FgoFgqFip@$0FepF^qO7$FfqFgn-FW6%F5FY%NTrying~t o~find~a~linear~differential~equationG?&FgnFRFhnC$>Fep-T/Fdr@$FfrOFhrF^qF$F$60% 6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGF UN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7 algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonz eroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsol vepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,i sholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+ma kediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1 powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG% /pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8g fun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun _pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/ s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findal geqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequat iongivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequatio ngivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vec tmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2chec kresultnormalG%,checkresultG6%%(packageG/%%loadGFjs/%'unloadGF[t6fn%.algfuntoal geqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.d iffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(gue ssgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-l isttodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listto seriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%, rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2series tohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+P arametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-f ormatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG %,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqn G%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/g fun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbo lGF$F$F^wc*typecheck&:-112Fgyc)guesseqn%:-11F`zc+listtolist%:-20Fazc.listtoratp oly%:-21F]zc,listtoalgeq%:-17F^zc-listtodiffeq%:-186$%*protectedG/%+modulenameG FZ M7R0 I&:-124f*6#%"AG6&%"iG%"jG%'rowdimG%'coldimG6"F+C$>6$8&8'-%#opG6$"""9$,&-%$maxG6 #-%$seqG6$-F;6$-%%nopsG6#&F56$8$8%/FE;F4F0/FD;F4F/F4!""F4F+F+6$%6_thismoduledef initionGb6#%+thismoduleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3al geqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/f ormpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpol eqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsol vepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'li ndepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxi ndexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpl eG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingp G%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/b insplitG%=rectoproc/binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4r atpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG% ,systomatrixG%*typecheckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationali nterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderra tpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodp G%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.mat interpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG% ,checkresultG6%%(packageG/%%loadGFR/%'unloadGFS6fn%.algfuntoalgeqG%.algebraicsu bsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.di ffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardpr oductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0lis ttohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%, poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rec tohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-ser iestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGf unG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*for matrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,m axordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(ve rsionGF+F+6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G %3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF+F+6#/%+module nameG%%gfunG M7R0 I&:-109f*6%%"sG%"xG%"yG6$%"LG%"iG6"F+C$>8$7#-%$seqG6$-%&coeffG6%9$9%8%/F8;""!,& -%&orderG6#F6"""!""F@-T%6%F.9&F7F+F+6&%6_thismoduledefinitionGb6#%+thismoduleG6 io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqt oseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG% /cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnam eG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepo ly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2lis ttoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdex G%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG %*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rec tohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsp litparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratp olytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG %*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequati onG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgiven orderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*int erpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmod pearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG /%%loadGFM/%'unloadGFN6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.alge qtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohom diffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG% )invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolist G%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.se riestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpo lyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexports G%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/d iffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%, mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF+F+6(%/type/gfun/f reeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1ty pe/gfun/initeqG%6gfun/rectoproc/symbolGF+F+F^qc+finddiffeq&:-1156#/%+modulename G%%gfunG M7R0 I%:-94f*6'%"qG%"sG%#pkG%"xG%"nG6$%#q1G%#q2G6#%\pCopyright~(c)~1992-2008~by~Algo rithms~Project,~INRIA~France.~All~rights~reserved.G6"@+/9%"")-T%6%-%(collectG6$ ,,-%&coeffG6%9$9'""!"""*&&9&6#FAFA,(-F<6%F>F?FAFA*&-F<6%F>F?""$FA&FD6#""#FAFA*& &FD6#""%FA,&-F<6%F>F?""&FA*&-F<6%F>F?""(FAFMFAFAFAFAFAFA*&FMFA,&-F<6%F>F?FOFA*& -F<6%F>F?""'FAFQFAFAFAFA*&-F<6%F>F?FSFAFQFAFA*&-F<6%F>F?F3FA&FD6#F3FAFAF?F?9(2F 3F2C%>8$-F56%F>F?,&F2#FAFO!""FA>8%-F86$*&,&F>FAFjoF_pFA)F?,$F2F^pF_pF?-F56%,&-T '6'FjoFgpFDF?FfoFA-F86$*&&FD6#FgpFA-F\q6'FapFgpFDF?,&FfoFAF2#F_pFOFAF?FAF?Ffo/F 2FS-F56%-F86$,*F;FA*&FCFA,&FGFAFIFAFAFA*&FhnFAFMFAFAF^oFAF?F?Ffo/F2FO-F86$,(F;F A*&FGFAFCFAFAF_rFAF?-%%subsG6$/F?FCF>F/F/6(%6_thismoduledefinitionGb6#%+thismod uleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:a lgeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvbo relG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(g etnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infso lvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG %2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(my gcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimple doitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG %1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/ binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG% 4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typec heckG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-finde quationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequation givenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG %*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinte rpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(pac kageG/%%loadGF`s/%'unloadGFas6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeq G%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diff eqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtod iffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+lis ttolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)polt orecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectopr ocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0series toratpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_p exportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitv alues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxde geqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF/F/6(%/type /gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identi tyG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF/F/Feuc,powtruncate%:-97Fbuc5pow composesimpledoit%:-946#/%+modulenameG%%gfunG M7R0 I&:-137`6&c0typecheck_hr_eq&:-210c,types_table&:-211c&setup&:-212c(cleanup&:-21 3b6#%+thismoduleG6"F,6&%0typecheck_hr_eqG%,types_tableG%&setupG%(cleanupGF,F,F, F,%-_m4330822392G6"6#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-154Q)0.5devel6"6$%*protectedG/%+modulenameGc(NumGfun%:-41 M7R0 I&:-163`6+c5bound_frobenius_norm&:-214crec_has_constant_coef ficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diff eq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG% %callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_ abs_intervalG%4sprint_small_approxG6#%(packageG64%*fnth_termG%6analytic_continu ationG%+evaldiffeqG%-diffeqtoprocG%2transition_matrixG%-bound_diffeqG%*bound_re cG%.bound_ratpolyG%2bound_diffeq_tailG%/bound_rec_tailG%0abs_with_RootOfG%.domi nant_rootG%2make_waksman_procG%-needed_termsG%*utilitiesG%*_pexportsG%(versionG %)SettingsGF$6#QeoBinary~splitting,~analytic~continuation~of~holonomic~function s,~and~boundsF$6#%)ndmatrixGF$F$F6`64c*fnth_term&:-138c6analytic_continuation&: -139c+evaldiffeq&:-140c-diffeqtoproc&:-141c2transition_matrix&:-142c-bound_diff eq&:-143c*bound_rec&:-144c.bound_ratpoly&:-145c2bound_diffeq_tail&:-146c/bound_ rec_tail&:-147c0abs_with_RootOf&:-148c.dominant_root&:-149c2make_waksman_proc&: -150c-needed_terms&:-151c*utilities&:-152c*_pexports&:-153c(version&:-154c)Sett ings&:-155F46Vc-numeric_mode&:-156c/NUMGFUN_HIDDEN&:-157c4bound_normal_diffeq&: -158c&types&:-137c)matrices&:-159c(nthterm&:-160c'ancont&:-161c'bounds&:-162c/n umeric_bounds&:-163c0symbolic_bounds&:-164c&hrdeq&:-165c&hrrec&:-166c*evalf_rnd &:-167c%rndu&:-168c%rndz&:-169c%rndd&:-170c%rndn&:-171c%rndi&:-172c&upper&:-173 c&lower&:-174c&below&:-175c&above&:-176c)ratabove&:-177c5evalf_absolute_error&: -178c=evalf_complex_absolute_error&:-179c7ndmatrix_approximation&:-180c)thetade q&:-181c6diffeq_for_derivative&:-182c(getname&:-183c:make_fresh_name_generator& :-184c(ordfrec&:-185c*orddiffeq&:-186c'ordrec&:-187c>rec_has_constant_coefficie nts&:-188c,read_diffeq&:-189c)read_rec&:-190c.diffeq_lcoeff&:-191c5diffeq_singu larities&:-192c/diffeq_infsing&:-193c,bare_diffeq&:-194c)bare_rec&:-195c0simpli fy_RootOf&:-196c)set_mode&:-197c+reset_mode&:-198c%call&:-199c'argmax&:-200c2fa lling_factorial&:-201c)colinear&:-202c)ratbelow&:-203c,Digits_plus&:-204c3bound _abs_interval&:-205c4sprint_small_approx&:-206F9Fer6$%*protectedG/%+modulenameG c(NumGfun%:-41 M7R0 I&:-138c*fnth_term&:-2386$%*protectedG/%+modulenameGc(NumGfun%:-41 M7R0 I&:-179c=evalf_complex_absolute_error&:-2396#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-164`6'c/bound_rec_tail&:-240c*bound_rec&:-241c2bound_diffeq_tail&:-225c-bou nd_diffeq&:-242c3simplify_algebraic&:-243b6#%+thismoduleG6"F-6'%/bound_rec_tail G%*bound_recG%2bound_diffeq_tailG%-bound_diffeqG%3simplify_algebraicGF-F-6#%)Co eftaylGF-%-_m4330821688G6"6#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-198c+reset_mode&:-2446#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-145`6)c3parse_exppoly_term&:-245c3ratabove_algebraic&:-246c8ratabove_algebr aic_doit&:-247c+bound_term&:-248c+bound_tail&:-249c%doit&:-250c,ModuleApply&:-2 51b6#%+thismoduleG6"F/6)%3parse_exppoly_termG%3ratabove_algebraicG%8ratabove_al gebraic_doitG%+bound_termG%+bound_tailG%%doitG%,ModuleApplyGF/F/F/F/%-_m4330820 760G6"6$%*protectedG/%+modulenameGc(NumGfun%:-41 M7R0 I&:-171c%rndn&:-2526#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-156%&falseG6#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-205c3bound_abs_interval&:-2536#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-190c)read_rec&:-2546#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-152`6Jc*evalf_rnd&:-255c%rndu&:-256c%rndz&:-257c%rndd&:-258c%rndn&:-252c%rn di&:-235c&upper&:-259c&lower&:-260c&below&:-261c&above&:-262c)ratabove&:-263c5e valf_absolute_error&:-264c=evalf_complex_absolute_error&:-239c7ndmatrix_approxi mation&:-223c)thetadeq&:-265c6diffeq_for_derivative&:-266c(getname&:-267c:make_ fresh_name_generator&:-268c(ordfrec&:-269c*orddiffeq&:-270c'ordrec&:-271c>rec_h as_constant_coefficients&:-272c,read_diffeq&:-236c)read_rec&:-254c.diffeq_lcoef f&:-273c5diffeq_singularities&:-274c/diffeq_infsing&:-275c,bare_diffeq&:-276c)b are_rec&:-277c0simplify_RootOf&:-278c)set_mode&:-224c+reset_mode&:-244c%call&:- 279c'argmax&:-280c2falling_factorial&:-281c)colinear&:-282c)ratbelow&:-283c,Dig its_plus&:-284c3bound_abs_interval&:-253c4sprint_small_approx&:-237b6#%+thismod uleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#% (packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&bel owG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7n dmatrix_approximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh _name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG %,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsin gG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'a rgmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_inter valG%4sprint_small_approxG6"FjpFjpFjp%-_m4330819192G6&c1rnd_mode_aliases&:-285c ,above_below&:-286c3read_diffeq_or_rec&:-287c.my_abs/RootOf&:-2886$%*protectedG /%+modulenameGc(NumGfun%:-41 M7R0 I&:-195c)bare_rec&:-2776#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-165G6#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-182c6diffeq_for_derivative&:-2666#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-144c*bound_rec&:-2416$%*protectedG/%+modulenameGc(NumGfun%:-41 M7R0 I&:-187c'ordrec&:-2716#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-204c,Digits_plus&:-2846#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-157<&%(versionG%)SettingsG%*_pexportsG%*utilitiesG6#/%+modulenameGc(NumGfun %:-41 M7R0 I&:-174c&lower&:-2606#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-151c-needed_terms&:-2176$%*protectedG/%+modulenameGc(NumGfun%:-41 M7R0 I&:-136t+6(%$recG%%uofnG%)startidxG%(stopidxG%)ringnameG%#~$G6/%"rG%%ringG%"AG% "dG%"hG%4expected_entry_sizeG%"iG%"kG%%frecG%'ordrecG%$iniG%"uG%"nG6"F9C+-%'ASS ERTG6#-%%typeG6$9'-.%#OrG6$.%*nonnegintG.%%nameG>6$8/80-T%6#9%>6%8,8$8.-T'6$9$F Q>8%-T+6%_T)%+genmatringG9(FU>8&-T-6$FTF]o>8'-%$maxG6#-%"$G6$-%'degreeG6$&FT6#8 *FM/F`p;"""FU>8(-%$addG6$-Fgp6$-%'lengthG6#8+/F^q-%'coeffsG6$-%'expandG6#F^pFM/ F`p;""#,&FUFcpFcpFcp>8)-%%evalG6#f*6$F2%"jGF96$%)operatorG%&arrowGF9*&,&FQFcpFZ !""Fcp,&*&T#Fcp-%&ilog2GFPFcpFcpFOFcpFcpF9F96&F/FdoF0Fep7(F_oFM9&FAFfnF[rF9F96. %6_thismoduledefinitionGb6#%+thismoduleGF9F961%+frectopolyG%*recmatrixG%-frecto matrixG%3rec_inicond_vectorG%)binsplitG%5makeitfloat/mantissaG%,makeitfloatG%,e xtractlineG%0binsplit_paramsG%+ratorfloatG%.nth_term_doitG%,choose_ringG%*fnth_ termG%5nth_term_of_ndseriesG%&mydivGF9F9F9F9F9%(getnameGc(getname&:-183%)read_r ecGc)read_rec&:-190%)matricesGc)matrices&:-159%%callGc%call&:-199Fhsc-frectomat rix&:-2896#""'F9 M7R0 I&:-196c0simplify_RootOf&:-2786#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-181c)thetadeq&:-2656#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-166G6#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-143c-bound_diffeq&:-2426$%*protectedG/%+modulenameGc(NumGfun%:-41 M7R0 I&:-203c)ratbelow&:-2836#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-188c>rec_has_constant_coefficients&:-2726#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-173c&upper&:-2596#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-158`6(c/rewrite_diffeq&:-290c3bound_coefficients&:-291c-reduce_order&:-292c 3fit_initial_values&:-293c%doit&:-294c,ModuleApply&:-295b6#%+thismoduleG6&%"nG% "yG%"zG%&ordeqG6"6(%/rewrite_diffeqG%3bound_coefficientsG%-reduce_orderG%3fit_i nitial_valuesG%%doitG%,ModuleApplyGF3F3F3F3%-_m4330821112G6&c"n&:-296c"y&:-297c "z&:-298c&ordeq&:-2996#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-167c*evalf_rnd&:-2556#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-184c:make_fresh_name_generator&:-2686#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-201c2falling_factorial&:-2816#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-150c0waksman_product&:-3006$%*protectedG/%+modulenameGc(NumGfun%:-41 M7R0 I&:-159`6,c'LAMain&:-301c%ReIm&:-302c'bigint&:-303c'mvMult&:-304c/WaksmanInplac e&:-305c(waksman&:-306c2ndmatrix_multiply&:-307c.ndmatrix_norm&:-308c+genmatrin g&:-309c0waksman_product&:-300b6#%+thismoduleG6"F26,%'LAMainG%%ReImG%'bigintG%' mvMultG%/WaksmanInplaceG%(waksmanG%2ndmatrix_multiplyG%.ndmatrix_normG%+genmatr ingG%0waksman_productGF2F26%%1type/matrix_ringG%.type/ndmatrixG%1convert/ndmatr ixGF2%-_m4330819896G6"6#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-176c&above&:-2626#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-193c/diffeq_infsing&:-2756#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-142c2transition_matrix&:-3106$%*protectedG/%+modulenameGc(NumGfun%:-41 M7R0 I&:-183c(getname&:-2676#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-168c%rndu&:-2566#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-202c)colinear&:-2826#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-149`6-c(longgcd&:-311c2infroot_resultant&:-312c'sqrabs&:-313c2irreducible_s olve&:-314c2irreducible_check&:-315c+inffactors&:-316c'isroot&:-317c%doit&:-318 c,ModuleApply&:-319c/dominant_first&:-320c1ratbelow_complex&:-321b6#%+thismodul eG6"F36-%(longgcdG%2infroot_resultantG%'sqrabsG%2irreducible_solveG%2irreducibl e_checkG%+inffactorsG%'isrootG%%doitG%,ModuleApplyG%/dominant_firstG%1ratbelow_ complexGF36#Qjpcompute~a~root~of~maximal~multiplicity~among~those~of~minimalmod ulus~of~a~polynomial~in~Q(i)[z]F3F3F3%-_m4330820536G6"6$%*protectedG/%+modulena meGc(NumGfun%:-41 M7R0 I&:-175c&below&:-2616#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-160`61c+frectopoly&:-322c*recmatrix&:-323c-frectomatrix&:-289c3rec_inicond_ vector&:-208c)binsplit&:-324c5makeitfloat/mantissa&:-325c,makeitfloat&:-326c,ex tractline&:-327c0binsplit_params&:-136c+ratorfloat&:-328c.nth_term_doit&:-209c, choose_ring&:-207c*fnth_term&:-238c5nth_term_of_ndseries&:-329c&mydiv&:-330b6#% +thismoduleG6"F761%+frectopolyG%*recmatrixG%-frectomatrixG%3rec_inicond_vectorG %)binsplitG%5makeitfloat/mantissaG%,makeitfloatG%,extractlineG%0binsplit_params G%+ratorfloatG%.nth_term_doitG%,choose_ringG%*fnth_termG%5nth_term_of_ndseriesG %&mydivGF7F7F7F7%-_m4330820120G6"6#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-209t+6'%/binsplitparamsG%$IniG%%precG%)ringnameG%#~$G6'%&ndlinG%$linG%,matr ix_1toNG%$iniG%$resG6"F0C&>8&-T%6#-%#opG6#9$>8$-T)6%T'9'F3>8'9%@%-%%typeG6$FC-. %'VectorG6#-.%(complexG6#.%(numericGC%@$-FG6$FC-FJ6#-FN6#.%&floatG>FC-%(convert G6%FC.%)rationalG.%&exactG>8(-_T+%2ndmatrix_multiplyG6$F<-Fin6$FC%)ndmatrixG&-T -6$F`o9&6#"""C$>8%-F[p6$F8$%+abs/RootOfG>F6T%>8%-%%evalG6#-%%subsG6$/%$absG9!9"> F:-FB6#F:>F6F5F+F0F:F)6#F66&%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mod e_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*ev alf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)ra taboveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approxi mationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generator G%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG% )read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeq G%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling _factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_sm all_approxGF)F)F)F)F)FSc.my_abs/RootOf&:-2886$%*protectedG/%+modulenameGc(NumGf un%:-41 M7R0 I&:-191c.diffeq_lcoeff&:-2736#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-208t,6%%$recG%%uofnG%#~$G6%%"uG%"nG%"iG6"F,C$>6$8$8%-T%6#9%-%'VectorG6#-%%s ubsG6$-%'selectG6%%%typeG9$%"=G7#-%$seqG6$-F06#8&/FH;""!,&-T'6$F@-F06#F1"""!""F RF,F,6(%6_thismoduledefinitionGb6#%+thismoduleGF,F,61%+frectopolyG%*recmatrixG% -frectomatrixG%3rec_inicond_vectorG%)binsplitG%5makeitfloat/mantissaG%,makeitfl oatG%,extractlineG%0binsplit_paramsG%+ratorfloatG%.nth_term_doitG%,choose_ringG %*fnth_termG%5nth_term_of_ndseriesG%&mydivGF,F,F,F,F,%(getnameGc(getname&:-183% 'ordrecGc'ordrec&:-1876#""$&F76#%'columnG6#/%+modulenameGc(nthterm&:-160 M7R0 I&:-161`67c-rectodiffrec&:-343c0parametered_rec&:-344c7step_transition_matrix&: -345c7path_transition_matrix&:-346c*plot_path&:-347c6fail_if_singular_path&:-34 8c/bit_burst_path&:-349c/subdivide_path&:-350c-rewrite_path&:-351c;absolute_pre cision_warning&:-352c6diffeq_inicond_matrix&:-353c-ext_norm_ini&:-354c*apply_in i&:-355c6analytic_continuation&:-356c2transition_matrix&:-310c0local_monodromy& :-357c*monodromy&:-358c3rec_matrix_num_den&:-359c0binsplit_matrix&:-360c)binspl it&:-361c4diffeq_to_local_rec&:-362b6#%+thismoduleG6"F=67%-rectodiffrecG%0param etered_recG%7step_transition_matrixG%7path_transition_matrixG%*plot_pathG%6fail _if_singular_pathG%/bit_burst_pathG%/subdivide_pathG%-rewrite_pathG%;absolute_p recision_warningG%6diffeq_inicond_matrixG%-ext_norm_iniG%*apply_iniG%6analytic_ continuationG%2transition_matrixG%0local_monodromyG%*monodromyG%3rec_matrix_num _denG%0binsplit_matrixG%)binsplitG%4diffeq_to_local_recGF=F=F=F=%-_m4330973304G 6"6#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-178c5evalf_absolute_error&:-2646#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-140c6analytic_continuation&:-3566$%*protectedG/%+modulenameGc(NumGfun%:-41 M7R0 I&:-200c'argmax&:-2806#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-185c(ordfrec&:-2696#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-170c%rndd&:-2586#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-147c/bound_rec_tail&:-2406$%*protectedG/%+modulenameGc(NumGfun%:-41 M7R0 I&:-207t+6%%'seriesG%)rationalG%#~$G6"F(F(@'9%YQ4not~implemented~yetF(9$.%)ndse riesG.%)ndmatrixGF(F(6$%6_thismoduledefinitionGb6#%+thismoduleGF(F(61%+frectopo lyG%*recmatrixG%-frectomatrixG%3rec_inicond_vectorG%)binsplitG%5makeitfloat/man tissaG%,makeitfloatG%,extractlineG%0binsplit_paramsG%+ratorfloatG%.nth_term_doi tG%,choose_ringG%*fnth_termG%5nth_term_of_ndseriesG%&mydivGF(F(F(F(F(6#""$6#/%+ modulenameGc(nthterm&:-160 M7R0 I&:-192c5diffeq_singularities&:-2746#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-177c)ratabove&:-2636#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-162`63c9common_root_multiplicity&:-363c2infroot_resultant&:-364c(longgcd&:- 365c?normal_majorant_series_formula&:-366c5normal_coeff_formula&:-367c+tail_bou nd&:-368c,normal_type&:-369c5rec_factorial_growth&:-370c3normalize_rec_doit&:-3 71c.normalize_rec&:-372c1normalize_diffeq&:-373c/make_above_psi&:-374c.find_con stant&:-375c7find_constant_from_rec&:-376c-get_rid_of_P&:-377c2bound_diffeq_doi t&:-378c/bound_rec_doit&:-379b6#%+thismoduleG6"F963%9common_root_multiplicityG% 2infroot_resultantG%(longgcdG%?normal_majorant_series_formulaG%5normal_coeff_fo rmulaG%+tail_boundG%,normal_typeG%5rec_factorial_growthG%3normalize_rec_doitG%. normalize_recG%1normalize_diffeqG%/make_above_psiG%.find_constantG%7find_consta nt_from_recG%-get_rid_of_PG%2bound_diffeq_doitG%/bound_rec_doitGF9F96$%)Coeftay lG%/value/CoeftaylGF9%-_m4330821144G6"6#/%+modulenameGc(NumGfun%:-41 M7R0 I&:-139c6analytic_continuation&:-3566$%*protectedG/%+modulenameGc(NumGfun%:-41 M7R0 I&:-231"#?6#/%+modulenameGc)Settings&:-155 M7R0 I&:-359t+6%%$recG%%uofnG%#~$G6*%"uG%"nG%(barerecG%&recopG%)charpolyG%$denG%$mat G%&ShiftG6"F1C,>6$8$8%-T%6#9%>8&-T'6$9$F:>8'-%%evalG6$F8(-FD6#-%*radnormalG6#*&FB"""-%'lco effG6$FBFT!"">8)-%&denomG6#FV>8**&F]oFgn-_%.LinearAlgebraG%*TransposeG6#&7#-_Ff o%0CompanionMatrixG6$FVFT6#FgnFgn>Fbo-%$mapG6$%'normalGFbo>Fbo-Fbp6%%(convertGF bo.%'hornerG>F]o-Fhp6$F]oFip-%)ndmatrixG6$FboF]oF1F16(%6_thismoduledefinitionGb 6#%+thismoduleGF1F167%-rectodiffrecG%0parametered_recG%7step_transition_matrixG %7path_transition_matrixG%*plot_pathG%6fail_if_singular_pathG%/bit_burst_pathG% /subdivide_pathG%-rewrite_pathG%;absolute_precision_warningG%6diffeq_inicond_ma trixG%-ext_norm_iniG%*apply_iniG%6analytic_continuationG%2transition_matrixG%0l ocal_monodromyG%*monodromyG%3rec_matrix_num_denG%0binsplit_matrixG%)binsplitG%4 diffeq_to_local_recGF1F1F1F1F1%(getnameGc(getname&:-183%)bare_recGc)bare_rec&:- 1956#""$6#/%+modulenameGc'ancont&:-161 M7R0 I&:-248t+6'%%TermG%"nG%&alphaG%"mG%#~$G64%%exprG%#eqG%%zetaG%'P_zetaG%&npartG%$ ratG%%ldegG%%polyG%*sum_valueG%(infrootG%%csteG%$degG%"tG%'lambdaG%&boundG%"kG% #n0G%$solG6"F=C'@'-%%typeG6$9$-.%#OrG6$.%)constantG-.%'linearG6#9%C(@$/FC""!O7$ FR"""-%'ASSERTG6$1-%'degreeG6$FCFN9'Q,m~too~smallF=>81-T%6#*$9&!"">8(-%)assumin gG6$7#-%$absG6#FC7#'FN%*nonnegintG>82*(-%*factorialG6#,&FgnFUF`oFUFU-%'normalG6 #*&FboFU-%$mulG6$,&FNFU83FU/F\q;FUFcpF`oFU)FjnFNFUO7$F^pFU-FA6$FC-.%)specfuncG6 $.%)anythingG.%$SumGC2>6$8$8%-%#opGFio-FW6$-FA6$-%$rhsG6#F`r.%'RootOfGQ5malform ed~expressionF=>8&-%$lhsGFir>8'-%%subsG6$/%#_ZGF^s-Fbr6#Fgr@%-FA6$F_r%"*G>F_r7# -Fbr6#F_r>F_r7#F_r>6$Fbo8)-%-selectremoveG6%%$hasGF_rFN>Fbo-F]t6#-Fbr6#Fbo>Fft- F]t6#-Fbr6#Fft>80-T'6$FboFN-FW6#/&Ffu6#FUFU-FW6#/&Ffu6#""$F^s>8.-%$addG6$-T)6#- %'evalrCG6#-Fds6$/%'_alphaG-F^w6#85Fft-%#inG6$Ffw7#-%'fsolveG6%FbsF^s.%(complex G>Ffv-T+6#Ffv-%)userinfoG6%""&.%%gfunG/.FfvFfv>8-&-T-6$FbsF^sF^v>8/&Ffu6#""#C&> Ffu-FhuFfn>Ffv-Fho6#F]v>FcyFdy>F]yFbv>Fjn-F\o6#*&F_oF`oF]yF`o>F^p**FfvFUF`pFU-F ep6#*&-Fip6$F[q/F\q;FUFcyFUFhpF`oFUF_qFU@%2FcyFgn>84FUC$-FW6#2FjnFU>F_[l-%$maxG 6$FU-%%ceilG6#-T/6#*&,&FcyFUFgnF`oFU-%$logG6#*$FjnF`oF`o7$F^pF_[lF=F=60%6_thism oduledefinitionGb6#%+thismoduleGF=F=6)%3parse_exppoly_termG%3ratabove_algebraic G%8ratabove_algebraic_doitG%+bound_termG%+bound_tailG%%doitG%,ModuleApplyGF=F=F =F=F=F\]lc3ratabove_algebraic&:-246F[]lc3parse_exppoly_term&:-245%3bound_abs_in tervalGc3bound_abs_interval&:-205%)rataboveGc)ratabove&:-177%.dominant_rootGc.d ominant_root&:-149%&aboveGc&above&:-1766#Fgx6#/%+modulenameGc.bound_ratpoly&:-1 45 M7R0 I&:-376f*6'%'paramsG%)validityG%$recG%%uofnG%7incomplete_inicond_msgG6'%"uG%"nG %$fmtG%$iniG%%headG6"F0C&>6$8$8%-T%6#9'>8&-T'6&7$9&-F46#F5F4F58'>FC-T)6'F;F4F5F C%&falseG@%/-%'indetsG6#-%'removeG6%%$hasGFCF5<"C$>8(-T+6%F@FA.%)rememberG-T-6% 9$9%FUC$-%)userinfoG6%""".%%gfunG9(%#_CGF0F06.%6_thismoduledefinitionGb6#%+this moduleGF0F063%9common_root_multiplicityG%2infroot_resultantG%(longgcdG%?normal_ majorant_series_formulaG%5normal_coeff_formulaG%+tail_boundG%,normal_typeG%5rec _factorial_growthG%3normalize_rec_doitG%.normalize_recG%1normalize_diffeqG%/mak e_above_psiG%.find_constantG%7find_constant_from_recG%-get_rid_of_PG%2bound_dif feq_doitG%/bound_rec_doitGF0F06$%)CoeftaylG%/value/CoeftaylGF0F0%(getnameGc(get name&:-183%*formatrecGc*formatrec%:-47%3goodinitvalues/recGc3goodinitvalues/rec %:-49%*rectoprocGc*rectoproc%:-32Fepc.find_constant&:-3756#/%+modulenameGc'boun ds&:-162 M7R0 I&:-265t+6%%$DeqG%%yofzG%#~$G6*%"yG%"zG%$deqG%&thetaG%"jG%"rG%%polyG%"uG6"F1C(> 6$8$8%-T%6#9%@%-%%typeG6$9$.%$setG>8&-%#opG6#-%'selectG6%%$hasGF?F6>FCF?@$-F=6$ FC%"=G>FC,&-%$lhsG6#FC"""-%$rhsGFT!"">8)-T'6$FCF:>8*-%'expandG6$-%%subsG6$<#-%$ seqG6$/-%%diffG6$-F56#F67#-%"$G6$F68(*&)F6,&FZFUF^pFXFU-%$mulG6$,&8'FU8+FX/Fgp; ""!,&F^pFUFXFUFU/F^p;FjpFZFCFfp-%&tableG6#7#-Fbo6$/F^p-%&coeffG6%FinFfpF^pF\qF1 F16(%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG %3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%% rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_ errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diff eq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG% 'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoef fG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_R ootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%) ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF1F1F1F1F1Fes c(getname&:-267Fhsc*orddiffeq&:-2706#""$6$%*protectedG/%+modulenameGc*utilities &:-152 M7R0 I&:-282f+6%%"uG%"vG%(supportG6%%"iG%'uovervG%'voveruG6"F,C$?&8$9&%%trueG@*-%)as signedG6#8&@$0-%'normalG6#,&&9%6#F/"""*&&9$F?F@F6F@!""""!O%&falseG-F46#8%@$0-F: 6#,&FBF@*&F=F@FJF@FDFEOFG0FBFE>F6*&F=F@FBFD0F=FE>FJ*&FBF@F=FDF1F,F,6$%6_thismod uledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_ or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%% rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_ complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_derivat iveG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_ has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_sin gularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_mo deG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Dig its_plusG%3bound_abs_intervalG%4sprint_small_approxGF,F,F,F,F,%(booleanG6$%*pro tectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-291t+6$%"aG%#~$G6-%&lcdenG%#muG%%multG%+inffactorsG%(refpolyG%&alphaG%"TG%" kG%"MG%"PG%#jjG6"F3C.>8$-%$lcmG6#-%$seqG6$-%&denomG6#&9$6#8+/FC;""!,&T%"""!""FI >6%8%8&8'-%#opG6#-T)6%F6T'.FO@$T+C$>FM*&,&FIFI)"#5,$-T-6#!"#FJFJFIFMFI>FM-%(con vertG6%-T/6#-%$absG6#FM%)rationalG%&exactG>8(-%"*G6#-FQ6#FO>8*-%$maxG6$FF-F;6$, (-_T1%9common_root_multiplicityG6%F=F\pFVFIFHFJFCFIFD>8)*$FMFJ-%)userinfoG6&""$ .%%gfunG/-.Fgo6#.F`q-&%&evalfG6#""&6#-Fjq6#F`q/.%-irregularityGFcp?(FCFFFIFG%%t rueGC$>6$&8,FB&8-FB-_T3%%doitG6&F@FVF`q,(FcpFIFHFIFCFJ>F_s-_%0PolynomialToolsG% 4FromCoefficientListG6$F_sFV>F^s-Fep6#-F;6$*&F]sFI-%)binomialG6$FGFCFJFD-%'ASSE RTG6#-%%typeG6$F^s.Fio>F`s7#-F;6$-Fep6$FF-F;6$*(-%&coeffG6%F_sFV8.FIFctFJ),&Fiu FIFIFI,(FHFIFJFIFCFJFJFD/Fiu;FF-Fep6#-F;6$-%'degreeG6#F_sFD6&FMFcpF^sF`sF3F364% 6_thismoduledefinitionGb6#%+thismoduleG6&%"nG%"yG%"zG%&ordeqGF36(%/rewrite_diff eqG%3bound_coefficientsG%-reduce_orderG%3fit_initial_valuesGFds%,ModuleApplyGF3 F3F3F3F3F`wc&ordeq&:-299F_wc"z&:-298%.dominant_rootGc.dominant_root&:-149%-nume ric_modeGc-numeric_mode&:-156%,Digits_plusGc,Digits_plus&:-204%%rndzGc%rndz&:-1 69%'boundsGc'bounds&:-162%.bound_ratpolyGc.bound_ratpoly&:-1456#""#6#/%+modulen ameGc4bound_normal_diffeq&:-158 M7R0 I&:-308f+6#%"aG6"F&F&-_%.LinearAlgebraG%%NormG6$-_T%%,makeitfloatG6$9$%'DigitsG .%*FrobeniusGF&F&6&%6_thismoduledefinitionGb6#%+thismoduleGF&F&6,%'LAMainG%%ReI mG%'bigintG%'mvMultG%/WaksmanInplaceG%(waksmanG%2ndmatrix_multiplyG%.ndmatrix_n ormG%+genmatringG%0waksman_productGF&F&6%%1type/matrix_ringG%.type/ndmatrixG%1c onvert/ndmatrixGF&F&%(nthtermGc(nthterm&:-160%&floatG6#/%+modulenameGc)matrices &:-159 M7R0 I&:-325t+6&%$numG%$denG%%precG%#~$G6%%"mG%"rG%$sgnG6"F-C'-%'ASSERTG6#2""!9%>8&- %%signG6#9$>8$-%%iquoG6$*(F6"""F:FA)"#5,&9&FAFAFAFAF4>F<-F>6%F%)RoundingG%)infinityG-_%.LinearAlgebraG%%NormG6$-%&evalfG6#9$.%*Fro beniusGF$F$6$%6_thismoduledefinitionGb6#%+thismoduleGF$F$6+%5bound_frobenius_no rmG%%2UseHardwareFloatsG%&falseG>6$8$8%-%#opGFA>F[ o-T%6#F[o>F\o-T'6#F\o-9!6#-Fao6%%"/GF[oF\oF$F$6(FFFG%%rnduGc%rndu&:-168%%rndzGc %rndz&:-169F$F$F$F$6#/%+modulenameGc/numeric_bounds&:-163 M7R0 I&:-342G6#/%+modulenameGc-diffeqtoproc&:-141 M7R0 I&:-223t+6%%$matG'%%precG<$%(integerG%-neg_infinityG%#~$G6$%%fmatG%%rmatG6"F/C% >8$-%$mapG6%T%9$9%>8%-%(convertG6%F2.%)rationalG.%&exactG-F<6$F:.%)ndmatrixGF/F /6&%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG% 3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%r nddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_e rrorG%=evalf_complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffe q_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%' ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeff G%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_Ro otOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)r atbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF/F/F/F/F/Finc =evalf_complex_absolute_error&:-2396#""$6$%*protectedG/%+modulenameGc*utilities &:-152 M7R0 I&:-351t,6)%$deqG%%yofzG%%PathG%,usebitburstG%#~$G>%)fromzeroG%%trueG>%*subdivi deGF,6#%%pathG6"F1C,>8$9&@(-%%typeG6$F4.-%(complexG6#%(numericGC$>F47$""!F4Z%-T %6&9$9%F4.%2check_convergenceGQ%stepF1Y6$Qgsevaluation~point~outside~the~disk~o f~convergence~of~the~differential~equation~(try~specifying~an~analytic~continua tion~path~such~as~[0,~%1])F1F5/F47"YQBempty~analytic~continuation~path!F130&F46 #"""FB9)C$-%)userinfoG6%FW.%%gfunGQPadding~0~in~front~of~analytic~continuation~ pathF1>F47$FB-%#opG6#F4@$/-%%nopsGF^oFW>F47$F\oF\o-FE6%FGFHF4@$9*>F4-T'Ffo@$9'> F47$-F]o6#&F46#;FW!"#-F]o6#-T)6#&F46#;Fep!""FD>F4-%$mapG6&%(convertGF4.%)ration alG.%&exactG-Fen6&""%FgnQAanalytic~continuation~along~pathF1F4F4F1F16*%6_thismo duledefinitionGb6#%+thismoduleGF1F167%-rectodiffrecG%0parametered_recG%7step_tr ansition_matrixG%7path_transition_matrixG%*plot_pathG%6fail_if_singular_pathG%/ bit_burst_pathG%/subdivide_pathG%-rewrite_pathG%;absolute_precision_warningG%6d iffeq_inicond_matrixG%-ext_norm_iniG%*apply_iniG%6analytic_continuationG%2trans ition_matrixG%0local_monodromyG%*monodromyG%3rec_matrix_num_denG%0binsplit_matr ixG%)binsplitG%4diffeq_to_local_recGF1F1F1F1F1Fgrc6fail_if_singular_path&:-348F irc/subdivide_path&:-350Fhrc/bit_burst_path&:-3496#""&-%%listG6#F;6#/%+modulena meGc'ancont&:-161 M7R0 I&:-240t+6%'%$recGT%'%%uofnG-%)functionG6#%%nameG>'%#n0GF-&-T'6#9%6#""#6+%"zG%$ majG%)validityG%&kappaG%"TG%&alphaG%"KG%"PG%"AG6"FBC%>6(8'8(8)8*8+8,-%#opG6#-_T )%/bound_rec_doitG6$9$F5>FH-T+6#FH-%%evalG6$-_FQ%+tail_boundG6*FFFGFHFIFJFK"""9 &/8$-%$absG6#F]oFBFB6,%6_thismoduledefinitionGb6#%+thismoduleGFBFB6'%/bound_rec _tailG%*bound_recG%2bound_diffeq_tailG%-bound_diffeqG%3simplify_algebraicGFBFB6 #%)CoeftaylGFBFB%&hrrecGc&hrrec&:-166%(getnameGc(getname&:-183%'boundsGc'bounds &:-162F[pc3simplify_algebraic&:-2436#""$6#/%+modulenameGc0symbolic_bounds&:-164 M7R0 I&:-368`6&c2simplify_validity&:-380c$psi&:-381c+tail_bound&:-382c,ModuleApply&: -383b6#%+thismoduleG6"F,6&%2simplify_validityG%$psiG%+tail_boundG%,ModuleApplyG F,F,F,F,%-_m4330821336G6"6#/%+modulenameGc'bounds&:-162 M7R0 I&:-257f*6"F$F$F$-T%6$Q%rndzF$9"F$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6 &%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(pack ageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%& aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatr ix_approximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name _generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,rea d_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,b are_diffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmax G%2falling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG% 4sprint_small_approxGF$F$F$F$F$F7c*evalf_rnd&:-2556$%*protectedG/%+modulenameGc *utilities&:-152 M7R0 I&:-274f*6$%$deqG%%yofzG6"6#%&cacheGF'-%'removeG6$f*6#%"xGF'6$%)operatorG%&arro wGF'2-%$absG6#9$-%&FloatG6$""",&""#F;%'DigitsG!""F'F'F'7#-%'fsolveG6%-T%6$F79%- %#opG6#FG.%(complexGF'F'6&%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_ aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*eval f_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rata boveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approxima tionG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG% (ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)r ead_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG% )bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_f actorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_smal l_approxGF'F'F'F'F'F\pc.diffeq_lcoeff&:-2736$%*protectedG/%+modulenameGc*utilit ies&:-152 M7R0 I&:-283f*6#%"xG6"F&F&-%(convertG6%-T%6#9$.%)rationalG.%&exactGF&F&6&%6_thismodu ledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_o r_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%r ndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_c omplex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_derivati veG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_h as_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_sing ularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_mod eG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Digi ts_plusG%3bound_abs_intervalG%4sprint_small_approxGF&F&F&F&F&FGc&below&:-2616$% *protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-300f+6#%"nG66%"iG%"jG%"kG%"tG%"uG%"vG%"mG%"aG%"bG%"AG%"BG%#s1G%#s2G%"sG%+fr esh_nameG%&tempsG%'localsG%%halfG%"cG%$tmpG6"F;C+>8*-%%iquoG6$9$""#>85f*6#%"xGF ;F;F;F?F;F;F;>8/7&-%$seqG6$-FM6$/&8-6%8$8%8'*&,&&8+6$FU8("""&8,6$8)FVFhnFhn,&&F en6$FUF\oFhn&Fjn6$FgnFVFhnFhn/FV;FhnFB/FUFco-FM6$/&8.6%FhnFVFW,&&FSFjoFhn*&,&&F en6$FhnFgnFhnFin!""Fhn,&&Fen6$FhnF\oFhnF`oFapFhnFhnFbo-FM6$/&Fio6%FUFUFW,&&FSFi pFhn*&,&FZFhn&Fjn6$F\oFUFapFhn,&F^oFhn&Fjn6$FgnFUFapFhnFhn/FU;FCFB-FM6$-FM6$/&F ioFT,(FhpFhn&Fio6%FhnFUFWFapFhoFhn-%#inG6$FV7$-%"$G6#;Fhn,&FUFhnFapFhn-Fcr6#;,& FUFhnFhnFhnFBFcq>807#-FM6$-FM6$/&866$FUFV,&-%$addG6$,&FRFhn-FE6#FjqFap/FW;FhnF> Fhn-%#ifG6%/-%$modGFAFhn*&&Fen6$FUFBFhn&Fjn6$FBFVFhn""!FhnFboFdo>817$-FM6$-%#op G6#-%%evalG6$FJ<%/FW8&/Fgn,&FhuFCFapFhn/F\o,$FhuFC/FhuF^t-Fau6#F\s>82-T%6#87>83 -%(convertG6$-%'removeG6%%$hasG-%'indetsG6$F\u%%nameG<%FenFjnFds%%listG>84-%$ma pG6$FavFgv-_%(codegenG%)makeprocG6$-%%subsG6$<#-FM6$/&Fgv6#FU&FfwFgx/FU;Fhn-%%n opsG6#FgvF\u/.%+parametersG7%FenFjnFdsF;F;6&%6_thismoduledefinitionGb6#%+thismo duleGF;F;6,%'LAMainG%%ReImG%'bigintG%'mvMultG%/WaksmanInplaceG%(waksmanG%2ndmat rix_multiplyG%.ndmatrix_normG%+genmatringG%0waksman_productGF;F;6%%1type/matrix _ringG%.type/ndmatrixG%1convert/ndmatrixGF;F;%:make_fresh_name_generatorGc:make _fresh_name_generator&:-184%*procedureG6#/%+modulenameGc)matrices&:-159 M7R0 I&:-317f*6%%#ptG%$polG%"zG6"F(F(-%&evalbG6#2-%$absG6#-%%evalG6$-%'normalG6#*&9% """-%%diffG6$F79&!""/F<-%&evalfG6#9$-%&FloatG6$F8,&""#F8%'DigitsGF=F(F(6$%6_thi smoduledefinitionGb6#%+thismoduleGF(F(6-%(longgcdG%2infroot_resultantG%'sqrabsG %2irreducible_solveG%2irreducible_checkG%+inffactorsG%'isrootG%%doitG%,ModuleAp plyG%/dominant_firstG%1ratbelow_complexGF(6#Qjpcompute~a~root~of~maximal~multip licity~among~those~of~minimalmodulus~of~a~polynomial~in~Q(i)[z]F(F(F(F(6#/%+mod ulenameGc.dominant_root&:-149 M7R0 I&:-334t+6(%$deqG%%yofzG%#ptG%(sol_idxG%%precG%#~$G6.%"yG%"zG%&ordeqG%$iniG%"kG %$solG%#dzG%&mydeqG%$recG%"uG%"nG%%coefG6"F8C+>6$8$8%-T%6#9%>8&-T'6$9$-F<6#F=>8 +-T+6$-T)6%FG/F<,&9&"""F=FUFAF=>8'<$-%$seqG6$/---%#@@G6$%"DG8(6#F<6#""!F`o-%#in G6$F]o-%&minusG6$<#-%"$G6#;F`o,&FCFU!""FU<#9'/---Fjn6$F\oF_pF^oF_o-%*factorialG 6#F_p>8,-T-6%<$-%#opG6#FWFKFA-8-6#8.>8/-T/6%FipFaq.%)rememberG>8)-%$addG6$*&-Ff q6#F]oFU)8*F]oFU/F]o;F`o,&9(FUF]pFU>F]r-%(convertG6$-F\s6$F]r.%(polynomG.%'horn erG-%%subsG6$/Fer,&F=FUFTF]pF]rF8F860%6_thismoduledefinitionGb6#%+thismoduleG6' %1PRECOMPUTED_DATAG%4PRECOMPUTATION_PRECG%$DEQG%"YG%"ZGF86)%.default_disksG%,Mo duleApplyG%*trial_runG%1basic_series_solG%5precompute_local_solG%5fundamental_s olutionG%.proc_templateGF8F8F8F8F8%(getnameGc(getname&:-183%*orddiffeqGc*orddif feq&:-186%.algebraicsubsGc.algebraicsubs$:-2%,bare_diffeqGc,bare_diffeq&:-194%, diffeqtorecGc,diffeqtorec%:-10%*rectoprocGc*rectoproc%:-326#""'6#/%+modulenameG c-diffeqtoproc&:-141 M7R0 I&:-247f*6#%%zetaG6%%$numG%"rG%"aG6"F*C'@$2"$+#%'DigitsGY6$QFemergency~stop:~Di gits~too~large~(%1)F*F/@$-%%typeG6$9$-.%(complexG6#.%)rationalGC%>8&-%$absG6#F7 @$2"""*$F@""#YQ>something~is~going~wrong~hereF*OF@>8$-FB6#-%&evalfGFC>8%,&FMFF- %&FloatG6$FF,&FHFFF/!""FF@'2FSFF-%(convertG6%FSF<.%&exactG2,&FFFFFUFFFMY6$QLexp ected~abs(zeta)~<=~1,~received~zeta~=~%1F*F7C$>F@-T%FC@%/F@FFFFC$>F/,$F/FH-9!6# F@F*F*6&%6_thismoduledefinitionGb6#%+thismoduleGF*F*6)%3parse_exppoly_termG%3ra tabove_algebraicG%8ratabove_algebraic_doitG%+bound_termG%+bound_tailG%%doitG%,M oduleApplyGF*F*F*F*F*%0abs_with_RootOfGc0abs_with_RootOf&:-1486#/%+modulenameGc .bound_ratpoly&:-145 M7R0 I&:-375f*6%%'paramsG%)validityG%%headG6.%&kappaG%"TG%&alphaG%"KG%"PG%*above_psi G%+normalheadG%,below_alphaG%*below_majG%/below_maj_headG%&mydivG%$cstG6"F5C->6 '8$8%8&8'8(-%#opG6#9$>8)-T%6#F9>8*f*6#%"nGF5F5F5*&-T#F@"""-T'6#-%$absG6#-T&F@FO F5F56(F.FCF'9&%)rataboveGFQ>8+*$-FQ6#*$-FT6#F;!""F]o>8,-T)6'F:FfnF%&Ord erG,&9%FOFOFO>8--%'taylorG6$F_o/Fco""!>8.f*6$%"aG%"bGF5F5F5@%/FAF^pF^p*&FAFOFgo F]oF5F5F5-%$seqG6$7&-FYFJ-FCFJ-FHFJ-%&coeffG6%FioFcoFK/FK;F^pFgo>8/-%$maxG6#-Fi p6$-F`p6$F^q-T+6#F_qFbq>Feq-FQ6#FeqF5F56,%6_thismoduledefinitionGb6#%+thismodul eGF5F563%9common_root_multiplicityG%2infroot_resultantG%(longgcdG%?normal_major ant_series_formulaG%5normal_coeff_formulaG%+tail_boundG%,normal_typeG%5rec_fact orial_growthG%3normalize_rec_doitG%.normalize_recG%1normalize_diffeqG%/make_abo ve_psiG%.find_constantG%7find_constant_from_recG%-get_rid_of_PG%2bound_diffeq_d oitG%/bound_rec_doitGF5F56$%)CoeftaylG%/value/CoeftaylGF5F5Fdsc/make_above_psi& :-374FZc)ratabove&:-177F\sc?normal_majorant_series_formula&:-366%)ratbelowGc)ra tbelow&:-2036#/%+modulenameGc'bounds&:-162 M7R0 I&:-232"#I6#/%+modulenameGc)Settings&:-155 M7R0 I&:-360t+6(%$recG%%uofnG%#ptG%'lambdaG%+diff_orderG%#~$G6'%+coeffs_matG%$denG%( pow_numG%(pow_denG%)sums_rowG6"F1C'>6$8$8%-%#opG6#-T%6$9$9%>8&-%'seriesG6%-%&nu merG6#,&9&"""9'FIFJ9(>8'-%&denomG6#FH>8(-%'MatrixG6#7#7$*&F6FIFMFI-%"$G6$""!,&- T'F rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq _singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)se t_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG% ,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF)F)F)F)F)6$%*protected G/%+modulenameGc*utilities&:-152 M7R0 I&:-266t+6%%$deqG%%yofzG%#~$G6)%"yG%"zG%(diffdeqG%*difforderG%$iniG%'newiniG%"k G6"F0C)>6$8$8%-T%6#9%>8&-%#opG6#-%'selectG6%%$hasG9$F5@$4-%%typeG6$F;%"+GYQ&plo umF0?(8'""!"""F00-%'removeG6%FBF;%%diffGFN>F;-FT6$F;F5>8(-T)6$-T'6%FC-F46#F5-%" uG6#%"nGF\o>8)<#-%$seqG6$/---%#@@G6$%"DG8*6#F46#FN*&-%*factorialG6#,&F]pFOFOFOF O-FYFcpFO/F]p;FN,(-T+6$FCFjnFOFMFO!"#FO-%&unionG6$<#-%%subsG6$/-FT6$FjnF5FjnF;F aoF0F06,%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_be lowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rnd zG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absol ute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6 diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiff eqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_l coeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simpli fy_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinea rG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF0F0F0F0F 0Fdsc(getname&:-267%,diffeqtorecGc,diffeqtorec%:-10%*rectoprocGc*rectoproc%:-32 Fgsc*orddiffeq&:-2706#""$6$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-307f+6$%"aG%"bG6"6#%'inlineGF'-%)ndmatrixG6$-_%.LinearAlgebraG%)MultiplyG6$ -%#opG6$"""9$-F36$F59%*&-F36$""#F6F5-F36$F=F9F5F'F'F'F+6#/%+modulenameGc)matric es&:-159 M7R0 I&:-292t+6&%"cG%#muG%"MG%#~$G6&%&qrestG%#K0G%"KG%"NG6"F.C*>8$-%$addG6$*&-%$absG 6#&9$6#%"kG""")T%F8%*&9&F=-F76#-%&evalfG6#9%F=>8&-%%ceilG 6#FG@$32,&FQF=FGFE#F="#50%)absqrestGFB>FQ,&FQF=F=F=>8'FD?(F.F=F=F./-%'signumG6# ,&-F76#-%%subsG6$/F?FjnFfnF=*&)FjnFDF=,&F=F=*(FIF=FQFE-F7FNF=FEF=FEF=C$>Fjn,$Fj n""#@$2"%+IFjnYQTunable~to~compute~a~reasonable~bound~(indicial~pol)F.-%)userin foG6'""&.%%gfunG/.FIFI/.FQFQ/.FjnFjn6$FQFjnF.F.6(%6_thismoduledefinitionGb6#%+t hismoduleG6&%"nG%"yG%"zG%&ordeqGF.6(%/rewrite_diffeqG%3bound_coefficientsG%-red uce_orderG%3fit_initial_valuesG%%doitG%,ModuleApplyGF.F.F.F.F.Fhqc"n&:-296F[rc& ordeq&:-2996#""%6#/%+modulenameGc4bound_normal_diffeq&:-158 M7R0 I&:-213t+6#%#~$G6#%'mytypeG6"F(?&8$-%(indicesG6$T%.%'nolistG%%trueGZ%-_%*TypeTo olsG%+RemoveTypeG6#F*F(F(F(F(6&%6_thismoduledefinitionGb6#%+thismoduleGF(F(6&%0 typecheck_hr_eqG%,types_tableG%&setupG%(cleanupGF(F(F(F(F(F?c,types_table&:-211 6#"""6#/%+modulenameGc&types&:-137 M7R0 I&:-341G6#/%+modulenameGc-diffeqtoproc&:-141 M7R0 I&:-326t+6%%"xG%%precG%#~$G6%%"pG%"qG%$valG6"F,@)-%%typeG6$9$-.%(complexG6#.%)r ationalG-9!6$7$-%&numerG6#F1-%&denomGF>9%-F/6$F1.%)ndmatrixG-%$mapG6$f*6#F)F,6$ %)operatorG%&arrowGF,-T'6$7$F1-%#opG6$""#T$T&F,F,6(F%F1F&FA%,makeitfloatGFO-FS6 $"""F1-F/6$F17$-F36#.%(integerGF\oC$>6$8$8%-FSF>-%&FloatG6$,&-T%6%-%#ReG6#FaoFb oFAFfn*&^#FfnFfn-Fio6%-%#ImGF]pFboFAFfnFfn,$FA!""C&>8&-%)frontendG6(&%+subsinde tsG6#%%flatG7#F17$<$%"*G%"+G<"<#F2F9FA@%-F/6$FhpFdq>Fhp7#-FS6#Fhp>Fhp7#Fhp>Fhp- FG6$f*6#%"uGF,FKF,-%#ifG6%-%(hastypeG6$F1%&floatGF1*&-Feo6$)"#5FV,$FVFepFfnF1Ff nF,F,6$F&FAFhp-Fdq6#F\rF,F,6(%6_thismoduledefinitionGb6#%+thismoduleGF,F,61%+fr ectopolyG%*recmatrixG%-frectomatrixG%3rec_inicond_vectorG%)binsplitG%5makeitflo at/mantissaGFY%,extractlineG%0binsplit_paramsG%+ratorfloatG%.nth_term_doitG%,ch oose_ringG%*fnth_termG%5nth_term_of_ndseriesG%&mydivGF,F,F,F,F,Fatc5makeitfloat /mantissa&:-325FYc,makeitfloat&:-3266#""$6#/%+modulenameGc(nthterm&:-160 M7R0 I&:-239f*6$%%exprG%%precG6"F'F',&-T%6$-%#ReG6#9$,&9%"""F2F2F2*&^#F2F2-F*6$-%#Im GF.F0F2F2F'F'6&%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,a bove_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnd uG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5eval f_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximationG%)thet adeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%* orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%.d iffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG% 0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%) colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF' F'F'F'F'FQc5evalf_absolute_error&:-2646$%*protectedG/%+modulenameGc*utilities&: -152 M7R0 I&:-367t+6)%"TG%&alphaG%"KG%"AG%"PG%"nG%#~$G6&%$majG%"zG%$binG%"kG6"F1@%3/9$""! /9(7"C$@%29&_T%%:binomial_expand_thresholdG>8&-%'expandG6#-%$mulG6$,&9)"""8'FK/ FL;FK,&F=FK!""FK>FB-%)binomialG6$,(FJFKF=FKFPFKFO*(9'FKFBFK)9%FJFKC$>8$*&FWFK-T '6'F5FYF=F88%FK-%&valueG6#-%)CoeftaylG6%Ffn/F[oF6FJF1F16(%6_thismoduledefinitio nGb6#%+thismoduleGF1F163%9common_root_multiplicityG%2infroot_resultantG%(longgc dG%?normal_majorant_series_formulaG%5normal_coeff_formulaG%+tail_boundG%,normal _typeG%5rec_factorial_growthG%3normalize_rec_doitG%.normalize_recG%1normalize_d iffeqG%/make_above_psiG%.find_constantG%7find_constant_from_recG%-get_rid_of_PG %2bound_diffeq_doitG%/bound_rec_doitGF1F16$F`o%/value/CoeftaylGF1F1%)SettingsGc )Settings&:-155F\pc?normal_majorant_series_formula&:-3666#""(6#/%+modulenameGc' bounds&:-162 M7R0 I&:-224t+6$'%$varG%'unevalG>%$valG%%trueG6#%'oldvalG6"F-C%>8$-%%evalG6#9$>F49%O 7$-%(ToInertGF3F0F-F-6$%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_ali asesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_r ndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)ratabov eG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximatio nG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(or dfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read _recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)ba re_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_fact orialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_a pproxGF-F-F-F-F-6#""#6$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-352t+6#%#~$G6"F&F&-%)userinfoG6%""".%%gfunGQWRecall~that~gfun:-NumGfun~work s~with~*absolute*~error.F&F&F&6$%6_thismoduledefinitionGb6#%+thismoduleGF&F&67% -rectodiffrecG%0parametered_recG%7step_transition_matrixG%7path_transition_matr ixG%*plot_pathG%6fail_if_singular_pathG%/bit_burst_pathG%/subdivide_pathG%-rewr ite_pathG%;absolute_precision_warningG%6diffeq_inicond_matrixG%-ext_norm_iniG%* apply_iniG%6analytic_continuationG%2transition_matrixG%0local_monodromyG%*monod romyG%3rec_matrix_num_denG%0binsplit_matrixG%)binsplitG%4diffeq_to_local_recGF& F&F&F&F&6#F*6#/%+modulenameGc'ancont&:-161 M7R0 I&:-273f*6$%$deqG%%yofzG6"F'F'&&-T%6$9$9%6#"""6#!""F'F'6&%6_thismoduledefinitio nGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_ abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upper G%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_complex_abso lute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_derivativeG%(getnam eG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant _coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG% /diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_m odeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3b ound_abs_intervalG%4sprint_small_approxGF'F'F'F'F'FVc,read_diffeq&:-2366$%*prot ectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-258f*6"F$F$F$-T%6$Q%rnddF$9"F$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6 &%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(pack ageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%& aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatr ix_approximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name _generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,rea d_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,b are_diffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmax G%2falling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG% 4sprint_small_approxGF$F$F$F$F$F7c*evalf_rnd&:-2556$%*protectedG/%+modulenameGc *utilities&:-152 M7R0 I&:-299G6#/%+modulenameGc4bound_normal_diffeq&:-158 M7R0 I&:-284f*6#%"nG6"F&F&C$@$2,&%'DigitsG"""9$F,F,Y6$Q=Digits~should~be~at~least~%1 F&,&F,F,F-!""F*F&F&6$%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_alias esG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rnd G%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG %5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximationG %)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordf recG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_r ecG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare _recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factor ialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_app roxGF&F&F&F&F&6$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-333t+6%%$deqG%%yofzG%#~$G6#%"aG6"F*C%>8$-%(convertG6%,$-T%6%9$9%.%(numericG #""""#5.%)rationalG""#@$/F-%)infinityG>F-F:-_T'%6analytic_continuationG6&F5F67$ ""!F-F;F*F*6(%6_thismoduledefinitionGb6#%+thismoduleG6'%1PRECOMPUTED_DATAG%4PRE COMPUTATION_PRECG%$DEQG%"YG%"ZGF*6)%.default_disksG%,ModuleApplyG%*trial_runG%1 basic_series_solG%5precompute_local_solG%5fundamental_solutionG%.proc_templateG F*F*F*F*F*%/diffeq_infsingGc/diffeq_infsing&:-193%'ancontGc'ancont&:-1616#""$6# /%+modulenameGc-diffeqtoproc&:-141 M7R0 I&:-318t+6&%(facpolyG%"zG%#~$G>%'banzaiG%&falseG6'%'sortedG%'nbminiG%$chkG%"iG% $resG6"F1C)@$2"$+#%'DigitsGYQBemergency~stop~(Digits~too~large)F1>8$-%%sortG6$- %$mapG6%T%9$9%T'?(8%"""FG,&-%%nopsG6#F:FG!""FG2,&-T)6#&&F:6#,&FFFGFGFG6#""$FG-F P6#&&F:6#FGFVFL-%&FloatG6$FG,&""#FGF6FLF1-%)userinfoG6%""'.%%gfunG/Q'nbminiF1FF @%5T+9'-F]o6%F_oF`oQ0skipping~checksF1C$?(8'FGFGFF%%trueG@$4-T-6$&F:6#F]pFCC%-F ]o6&""&F`oFdpQCfactor~root~check~failed,~refiningF1>F6,$F6F[oO-9!6$&F:6#;FGFFFC @$2FGFFC$>8&-T16#7#-%$seqG6$-T/6$&FdpFfnFC/F]pFcq@$5/FhqFG4-T36%FXFhqFCC%-F]o6% FipF`oQIcross-factor~root~check~failed,~refiningF1>F6F\qOF^q@%Ffo>8(-T5FY>Fds-% 'RootOfG6%&FenFfnFCFZ7%Fds&Fen6#F[o7#-F^r6$FcrFdrF1F166%6_thismoduledefinitionG b6#%+thismoduleGF1F16-%(longgcdG%2infroot_resultantG%'sqrabsG%2irreducible_solv eG%2irreducible_checkG%+inffactorsG%'isrootG%%doitG%,ModuleApplyG%/dominant_fir stG%1ratbelow_complexGF16#Qjpcompute~a~root~of~maximal~multiplicity~among~those ~of~minimalmodulus~of~a~polynomial~in~Q(i)[z]F1F1F1F1F[uc2irreducible_solve&:-3 14Fauc/dominant_first&:-320Fjtc'sqrabs&:-313%-numeric_modeGc-numeric_mode&:-156 F\uc2irreducible_check&:-315Fitc2infroot_resultant&:-312Fhtc(longgcd&:-311F^uc' isroot&:-317Fbuc1ratbelow_complex&:-3216#FW6#/%+modulenameGc.dominant_root&:-14 9 M7R0 I&:-263f*6#%"xG6"F&F&-%(convertG6%-T%6#9$.%)rationalG.%&exactGF&F&6&%6_thismodu ledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_o r_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%r ndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_c omplex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_derivati veG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_h as_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_sing ularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_mod eG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Digi ts_plusG%3bound_abs_intervalG%4sprint_small_approxGF&F&F&F&F&FHc&above&:-2626$% *protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-280f+6$%"fG'%"rG/%%nameG;%(integerGF+6)%"xG%&firstG%%lastG%"nG%$valG%%nmaxG %'valmaxG6"F4C&>6%8$8%8&6$-%$lhsG6#9%-%#opG6#-%$rhsGF>>8*,$%)infinityG!""?(8'F9 """F:%%trueGC$>8(-%%evalG6$9$/F8FK@$2FFFPC$>FFFP>8)FKFen6#QjoReturns~the~smalle st~integer~n~between~first~and~last~for~which~f(n)~is~maximalF4F46$%6_thismodul edefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_or _recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rn diG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_co mplex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_derivativ eG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_ha s_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singu laritiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_mode G%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Digit s_plusG%3bound_abs_intervalG%4sprint_small_approxGF4F4F4F4F4F+6$%*protectedG/%+ modulenameGc*utilities&:-152 M7R0 I&:-233"#56#/%+modulenameGc)Settings&:-155 M7R0 I&:-361t+6)%+gen_factorG%"nG%'lambdaG%*pow_cacheG%$lowG%%highG%#~$G66%$midG%%tm p1G%%tmp2G%'ordrecG%"jG%-coeffs_mat_lG%&den_lG%*pow_num_lG%*pow_den_lG%+sums_ro w_lG%-coeffs_mat_hG%&den_hG%*pow_num_hG%*pow_den_hG%+sums_row_hG%+coeffs_matG%$ denG%(pow_numG%(pow_denG%)sums_rowG6"FA@%/,&9)"""9(!""FF-%%evalG6$9$/9%FGC->8$- %%iquoG6$,&FGFFFEFF""#>6'8)8*8+8,8--%#opG6#-9!6(FLFN9&9'FGFQ>6'8.8/808182-Fin6# -F\o6(FLFNF^oF_oFQFE>83-%+mvMultiplyG6$FboFY>8%-F^p6$FfoFY>8&*&FcoFFFeoFF>8'-Fi n6$7$FFFVFap>87-%'rtableG6&;FFFF;FFFhp7#7#-%$seqG6$-%'seriesG6$,&*&FenFF&Fap6$F F8(FFFF*&FepFF&FgnF^rFFFFF^o/F_r;FFFip/.%(subtypeG.%'MatrixG@%-%)assignedG6#&F_ o6#FD>6$8586F]sC%>Fas-Fiq6$*&FdoFFFenFFF^o>Fbs*&FeoFFFfnFF>F]sF`s>84*&FcoFFFZFF 7'F\pF\tFasFbsF]qFAFA6$%6_thismoduledefinitionGb6#%+thismoduleGFAFA67%-rectodif frecG%0parametered_recG%7step_transition_matrixG%7path_transition_matrixG%*plot _pathG%6fail_if_singular_pathG%/bit_burst_pathG%/subdivide_pathG%-rewrite_pathG %;absolute_precision_warningG%6diffeq_inicond_matrixG%-ext_norm_iniG%*apply_ini G%6analytic_continuationG%2transition_matrixG%0local_monodromyG%*monodromyG%3re c_matrix_num_denG%0binsplit_matrixG%)binsplitG%4diffeq_to_local_recGFAFAFAFAFA6 #""(6#/%+modulenameGc'ancont&:-161 M7R0 I&:-250t+6'%$ratG%"zG%&alphaG%"mG%#~$G6.%%tofnG%#n0G%+tail_boundG%(l_alphaG%(he adrecG%%headG%+head_boundG%"jG%"yG%"uG%"nG%&deltaG6"F7C$@%-%%typeG6$9$.%(polyno mGC$>8*7#-%$seqG6$-%$absG6#-%&coeffG6%F=9%%"iG/FN;""!-%'degreeG6#F=>8&FQC,-%'AS SERTG6#2FQ-%&evalfG6#-FH6#9&>6$8$8%-%#opG6#-T%6'F=FMF[o9'8.>FV-T'6#-%%subsG6$/F goF_oF^o>8(-T)6%/-8,6#FMF=Ffp-8-6#Fgo>8)-T+6%FapFip.%)rememberG>8'-%(convertG6% ,&-FH6#-FgnFjn"""-%&FloatG6$F\r,&""#F\r%'DigitsG!""Fcr.%)rationalG.%&exactG>8/- FE6$,&-FH6#-F]q6#8+F\r*(FVF\r)FdqFasF\r-%)binomialG6$,(FasF\rFfoF\rFcrF\r,&FfoF \rFcrF\rF\rFcr/Fas;FQ,&F_oF\rFcrF\r>FB7#-FE6$-%$maxG6$FQ&Fir6#,&FasF\rF\rF\rFis >FB-Ffq6%-T-6#FBFerFgr-%)userinfoG6%""%.%%gfunG-%(sprintfG6)QCbounded~%a~by~%a/ (1-%a*%a)^%a~+~%aF7F=-&Fgn6#""&6#FV-FH6#-FguFjnFMFfo-&%0PolynomialToolsG6#%4Fro mCoefficientListG6$-FguF[uFM6$FVFBF7F76.%6_thismoduledefinitionGb6#%+thismodule GF7F76)%3parse_exppoly_termG%3ratabove_algebraicG%8ratabove_algebraic_doitG%+bo und_termG%+bound_tailG%%doitG%,ModuleApplyGF7F7F7F7F7F`wc+bound_tail&:-249%)rat aboveGc)ratabove&:-177%,diffeqtorecGc,diffeqtorec%:-10%*rectoprocGc*rectoproc%: -32%%rnduGc%rndu&:-1686#Fiu6#/%+modulenameGc.bound_ratpoly&:-145 M7R0 I&:-378f*6$%$deqG%%yofzG6*%$recG%"uG%"nG%&kappaG%*normaldeqG%'paramsG%)validity G%$cstG6"F0C+Z%>8$-T%6%9$9%-8%6#8&Q6$8'8(-T'6$F8F9>6$8)8*-T)6$FDF9>FJ7$FC-%#opG6#FJ>8+-T+6'FJFKF4F :Q]qIncomplete~initial~conditions:~result~valid~up~to~some~constant,~for~all~*p ower~series*~solutions.F0>FJ7$FQFU>FJ-T-6$FJ-FR6#F9-%)userinfoG6&""$.%%gfunGQ3b ound~parameters:~F0FJFJF0F06.%6_thismoduledefinitionGb6#%+thismoduleGF0F063%9co mmon_root_multiplicityG%2infroot_resultantG%(longgcdG%?normal_majorant_series_f ormulaG%5normal_coeff_formulaG%+tail_boundG%,normal_typeG%5rec_factorial_growth G%3normalize_rec_doitG%.normalize_recG%1normalize_diffeqG%/make_above_psiG%.fin d_constantG%7find_constant_from_recG%-get_rid_of_PG%2bound_diffeq_doitG%/bound_ rec_doitGF0F06$%)CoeftaylG%/value/CoeftaylGF0F0%,diffeqtorecGc,diffeqtorec%:-10 Fcpc1normalize_diffeq&:-373%4bound_normal_diffeqGc4bound_normal_diffeq&:-158Ffp c7find_constant_from_rec&:-376Fgpc-get_rid_of_P&:-3776#/%+modulenameGc'bounds&: -162 M7R0 I&:-323=6"%&falseGE\[l$%(genericGt+6%%"LG%#SnG%#~$G6$%$denG%"MGF$F$C$>6$8%8$-%# opG6#-&T%6#%)ndmatrixG6#9"-%$mapG6%%'normalG*&F4!""F3"""%)expandedGF$F$6&%6_thi smoduledefinitionGb6#%+thismoduleGF$F$61%+frectopolyG%*recmatrixG%-frectomatrix G%3rec_inicond_vectorG%)binsplitG%5makeitfloat/mantissaG%,makeitfloatG%,extract lineG%0binsplit_paramsG%+ratorfloatG%.nth_term_doitG%,choose_ringG%*fnth_termG% 5nth_term_of_ndseriesG%&mydivGF$F$F$F$F$FNc*recmatrix&:-3236#""$%)ndseriesGt,F) 6&F.%&McoefGF/%"rGF$F$C(>F2F5>8'-%'degreeG6$9$9%>8&-%'MatrixG6%,&FaoFEFEFEF\pF3 >&Fho6$FDFDF4>&Fho6$FDFEF4OFhoF$F$FG6#Fhn-Fjo6#-%(polynomG6#-%(complexG6#%(inte gerGFF4-%&evalcG6#-FB6#*&FeoFE-%'lcoeffGFdoFD>F3-% &denomG6#F4>Fho-F@6$FB*&F3FE-_%.LinearAlgebraG%*TransposeG6#&7#-_Fer%0Companion MatrixG6$F4Ffo6#FEFE>Fho-F@6%%(convertGFho.%'hornerG>F3-Fbs6$F3Fcs-F<6$FhoF3F$F $6$FHFI6#Fhn6#/%+modulenameGc(nthterm&:-160 M7R0 I&:-212t+6#%#~$G6#%'mytypeG6"F(?&8$-%(indicesG6$T%.%'nolistG%%trueG-_%*TypeTool sG%(AddTypeG6$F*&F.6#F*F(F(6&%6_thismoduledefinitionGb6#%+thismoduleGF(F(6&%0ty pecheck_hr_eqG%,types_tableG%&setupG%(cleanupGF(F(F(F(F(F@c,types_table&:-2116# """6#/%+modulenameGc&types&:-137 M7R0 I&:-340G6#/%+modulenameGc-diffeqtoproc&:-141 M7R0 I&:-293G6#/%+modulenameGc4bound_normal_diffeq&:-158 M7R0 I&:-310t,6(%(userdeqG'%%yofzG-%)functionG6#%%nameG'%(inipathG-%#OrG6$-%(complex G6#%(numericG-%%listG6#F1>'%*precisionG%'posintG%'DigitsG%#~$G>'%,usebitburstG% (booleanG%%trueG6$%$deqG%%pathG6"FFC'>8$-T%6$9$9%@$3-%%typeG6$FI.%$setG2""!-%%n opsG6#FI-%*infolevelG6%""".%%gfunGQCinitial~conditions~will~be~ignoredFF>8%-T'6 (FIFN9&9)%*subdivideG/.%)fromzeroG%&falseG-T)FF-_T-%,makeitfloatG6$-T+6&FIFNF]o )"#5,$9'!""FepFFFF6.%6_thismoduledefinitionGb6#%+thismoduleGFFFF67%-rectodiffre cG%0parametered_recG%7step_transition_matrixG%7path_transition_matrixG%*plot_pa thG%6fail_if_singular_pathG%/bit_burst_pathG%/subdivide_pathG%-rewrite_pathG%;a bsolute_precision_warningG%6diffeq_inicond_matrixG%-ext_norm_iniG%*apply_iniG%6 analytic_continuationG%2transition_matrixG%0local_monodromyG%*monodromyG%3rec_m atrix_num_denG%0binsplit_matrixG%)binsplitG%4diffeq_to_local_recGFFFFFFFFFF%2di ffeqtohomdiffeqGc2diffeqtohomdiffeq$:-9Feqc-rewrite_path&:-351Ffqc;absolute_pre cision_warning&:-352F`qc7path_transition_matrix&:-346%(nthtermGc(nthterm&:-1606 #""&-%'MatrixG6#-F26#%&floatG6#/%+modulenameGc'ancont&:-161 M7R0 I&:-255t+6&'%)rnd_modeG%'unevalG%"aG>%0additional_precG""!>%%precG-T%6#9&6"F2F2 C%>%)RoundingG&T'6#9$>%'DigitsG9'@%/qF+-%&evalfG6#9%-FA6#-FC6#pF2F26(%6_thismod uledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_ or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%% rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_ complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_derivat iveG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_ has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_sin gularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_mo deG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Dig its_plusG%3bound_abs_intervalG%4sprint_small_approxGF2F2F2F2F2Fepc,Digits_plus& :-284FOc1rnd_mode_aliases&:-2856#""#6$%*protectedG/%+modulenameGc*utilities&:-1 52 M7R0 I&:-272f*6%%$recG%"uG%"nG6$%$tmpG%&dummyG6"F+4-%'memberG6$9&-%'indetsG6#-%%subs G6$<#-%$seqG6$/8$-F56$/F08%F<-%#inG6$F<-F26$9$-.%)specfuncG6$-.%'linearG6#F09%F FF+F+6$%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_bel owG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndz G%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolu te_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6d iffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffe qG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lc oeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplif y_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinear G%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF+F+F+F+F+ 6$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-225f*6%'%$deqGT%'%%yofzG-%)functionG6#%%nameG%"nG6)%"zG%&kappaG%"TG%&alphaG %"KG%"PG%"AG6"F7C&>8$&-T'6#9%6#""#>6(8%8&8'8(8)8*-%#opG6#-_T)%2bound_diffeq_doi tG6$9$F?>FF-T+6#FF-%%evalG6$-_FO%+tail_boundG6*FDFEFFFGFHFIF:9&/F:-%$absG6#F:F7 F76,%6_thismoduledefinitionGb6#%+thismoduleGF7F76'%/bound_rec_tailG%*bound_recG %2bound_diffeq_tailG%-bound_diffeqG%3simplify_algebraicGF7F76#%)CoeftaylGF7F7%& hrdeqGc&hrdeq&:-165%(getnameGc(getname&:-183%'boundsGc'bounds&:-162Fgoc3simplif y_algebraic&:-2436#/%+modulenameGc0symbolic_bounds&:-164 M7R0 I&:-353t+6%%$deqG%%yofzG%#~$G6(%"rG%"iG%"uG%"nG%)proc_iniG%$iniG6"F/C%>8$-T%6$9 $9%>8(-T)6%-T'6%F6F7-8&6#8'F@.%)rememberG-%'MatrixG6#7#-%$seqG6$7#-F96#8%/FP;"" !,&F2"""!""FUF/F/6*%6_thismoduledefinitionGb6#%+thismoduleGF/F/67%-rectodiffrec G%0parametered_recG%7step_transition_matrixG%7path_transition_matrixG%*plot_pat hG%6fail_if_singular_pathG%/bit_burst_pathG%/subdivide_pathG%-rewrite_pathG%;ab solute_precision_warningG%6diffeq_inicond_matrixG%-ext_norm_iniG%*apply_iniG%6a nalytic_continuationG%2transition_matrixG%0local_monodromyG%*monodromyG%3rec_ma trix_num_denG%0binsplit_matrixG%)binsplitG%4diffeq_to_local_recGF/F/F/F/F/%*ord diffeqGc*orddiffeq&:-186%,diffeqtorecGc,diffeqtorec%:-10%*rectoprocGc*rectoproc %:-326#""$6#/%+modulenameGc'ancont&:-161 M7R0 I&:-242t+6%'%$deqGT%'%%yofzG-%)functionG6#%%nameG>%#z0G""!62%"yG%"zG%&kappaG%"T G%&alphaG%"KG%"AG%"nG%$majG%"kG%"pG%"qG%)psiboundG%"PG%%coefG%$cstG6"FBC*>6$8$8 %-T'6#9%@$/-T)6$9$-FF6#FGF0O-T+6$-%&solveG6$FQFKFG>6(8&8'8(8)818*-%#opG6#-_T-%2 bound_diffeq_doitG6#&n6#;"""""#>Fin-T/6#Fin>8.-%&numerG6#Fgn>8/-%&denomGFcp>80* &)-%&GAMMAG6#,&*&8+FioFep!""FioFioFioF`pFio)Fep*&FgnFioFaqFioFio@)/FgnF0*&F\oFi o-_Fbo%?normal_majorant_series_formulaG6'FhnFinFjnF[oFGFio2F0FgnC%-%(WARNINGG6# Q0divergent~boundFB>8,Fhq*&F\oFio-%$SumG6$*(FipFio-%)CoeftaylG6%Fcr/FGF0FaqFio) FGFaqFio/Faq;F0%)infinityGFio/Fgn,$F`sFbq*&F\oFio-%$addG6$)FG8-/Fhs;F0FjnFioC'> FcrFhq>82-%)simplifyG6#*&FipFio-%&valueG6#FirFio>83Fio@$-%%typeG6$F^t%"*G>6$Fgt F^t-%-selectremoveG6%FjtF^t.%)constantG*(F\oFioFgtFio-Ffr6$*&F^tFioF]sFioF^sFio 6#Q]oComputes~a~majorant~series~for~the~*power~series*~solutions~of~deqFBFB60%6 _thismoduledefinitionGb6#%+thismoduleGFBFB6'%/bound_rec_tailG%*bound_recG%2boun d_diffeq_tailG%-bound_diffeqG%3simplify_algebraicGFBFB6#FjrFBFB%&hrdeqGc&hrdeq& :-165%(getnameGc(getname&:-183%*orddiffeqGc*orddiffeq&:-186%.bound_ratpolyGc.bo und_ratpoly&:-145%'boundsGc'bounds&:-162Fdvc3simplify_algebraic&:-2436#""$6#/%+ modulenameGc0symbolic_bounds&:-164 M7R0 I&:-370t+6%%$recG%%uofnG%#~$G6%%%coefG%"sG%$iniG6"F,C$>6%8$8%8&-T%6$9$9%-%$maxG 6#-%$seqG6$*&,&-%'degreeG6#&F06#,&%"jG"""""#FGFG-FA6#&F06#,&F1FGFHFG!""FG,&F1FG FFFNFN/FF;""!,&F1FGFNFGF,F,6&%6_thismoduledefinitionGb6#%+thismoduleGF,F,63%9co mmon_root_multiplicityG%2infroot_resultantG%(longgcdG%?normal_majorant_series_f ormulaG%5normal_coeff_formulaG%+tail_boundG%,normal_typeG%5rec_factorial_growth G%3normalize_rec_doitG%.normalize_recG%1normalize_diffeqG%/make_above_psiG%.fin d_constantG%7find_constant_from_recG%-get_rid_of_PG%2bound_diffeq_doitG%/bound_ rec_doitGF,F,6$%)CoeftaylG%/value/CoeftaylGF,F,%)read_recGc)read_rec&:-1906#""$ 6#/%+modulenameGc'bounds&:-162 M7R0 I&:-315t+6%%-facwithrootsG%"zG%#~$G6)%%polyG%'sortedG%'nbminiG%&poly2G%'minsqrG %(testfunG%+candidatesG6"F0C&>6$8$8%6$&9$6#"""&F86#;""$!""?(8&F:F:,&-%%nopsG6#F 5F:F?F:2,&-T%6#&F56#,&FAF:F:F:F:-FI6#&F5F9F?-%&FloatG6$F:,&""#F:%'DigitsGF?F0-% )userinfoG6%""'.%%gfunG/Q'nbminiF0FA@%/FAF:%%trueGC'>8'-T'6$F49%>8(FN>8)f*6#%"u GF06$%)operatorG%&arrowGF02-F`o6#-%%evalG6$-%#opG6$F:F8/T&T#FQF0F06(F-FdoF&Fbo% 'sqrabsGFI>8*-%'selectG6$Ffo-Fdp6$FU-%(sqrfreeG6$F^oFbo3/-FD6#F\qF:/-Fdp6$FU&F \qF9FAF0F06(%6_thismoduledefinitionGb6#%+thismoduleGF0F06-%(longgcdG%2infroot_r esultantGFjp%2irreducible_solveG%2irreducible_checkG%+inffactorsG%'isrootG%%doi tG%,ModuleApplyG%/dominant_firstG%1ratbelow_complexGF06#Qjpcompute~a~root~of~ma ximal~multiplicity~among~those~of~minimalmodulus~of~a~polynomial~in~Q(i)[z]F0F0 F0F0Fjpc'sqrabs&:-313Fdrc2infroot_resultant&:-3126#F>6#/%+modulenameGc.dominant _root&:-149 M7R0 I&:-332t+6'%$DeqG%%yofzG%#~$G>'%&disksG-%%listG6#7$%%pathG-%$AndG6$%(numericG%) positiveG-T%6%9$9%9(>'%%precG%*nonnegintG""!6'%$deqG%$epsG%1precomputed_dataG%" yG%"zG6"FFC)>8$-T'6$F8F9-T)6$FIF9@$3/F:F?09'7"-%(WARNINGG6#QG'disks'~will~be~ig nored~since~prec~=~0FF>8%-%&FloatG6$""",&F:!""F[oFin>8&-&%$mapG6#""$6'T+FIF9FTF en>6$8'8(-T-6#F9-%%subsG6$<'/T/F:/T1F]o/T3FI/T5Fgo/T7Fho-%%evalG6#T9FFFF6:%6_th ismoduledefinitionGb6#%+thismoduleG6'%1PRECOMPUTED_DATAG%4PRECOMPUTATION_PRECG% $DEQG%"YG%"ZGFF6)%.default_disksG%,ModuleApplyG%*trial_runG%1basic_series_solG% 5precompute_local_solG%5fundamental_solutionG%.proc_templateGFFFFFFFFFFFjqc.def ault_disks&:-331%2diffeqtohomdiffeqGc2diffeqtohomdiffeq$:-9F\rc*trial_run&:-333 F^rc5precompute_local_sol&:-335%(getnameGc(getname&:-183Feqc4PRECOMPUTATION_PRE C&:-339Fdqc1PRECOMPUTED_DATA&:-338Ffqc$DEQ&:-340Fgqc"Y&:-341Fhqc"Z&:-342F`rc.pr oc_template&:-3376(FboFin""#Fbo""&""%6#/%+modulenameGc-diffeqtoproc&:-141 M7R0 I&:-285=6"%&falseGE\[l-""!F'Q"zF$F',$%)infinityG!""F)Q(nearestF$%(nearestGQ"dF$ F)Q%rndzF$F'F*F*Q%rnduF$F*Q%rndnF$F-Q%rnddF$F)Q"nF$F-Q"uF$F*6#/%+modulenameGc*u tilities&:-152 M7R0 I&:-302G6#/%+modulenameGc)matrices&:-159 M7R0 I&:-279f*6$%%baseG%%caseG6$%)casenameG%$funG6"F*C$?&8$7$9%%(genericG%%trueGC$>8 %&9$6#F-@$-%%typeG6$F4%*procedureGO-F46#&9"6#;""$!""Y6%Q?Case~%1~not~implemente d~for~%2F*F/F6F*F*6$%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliase sG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG %%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG% 5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximationG% )thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfr ecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_re cG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_ recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factori alG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_appr oxGF*F*F*F*F*6$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-264f*6$%%exprG%%precG6#%(relprecG6"F)C$>8$,(-%/SFloatExponentG6#-&%&evalfG6 #"""6#9$F59%F5F5F5@%1F,""!$F;F;-&F36#F,F6F)F)6$%6_thismoduledefinitionGb6#%+thi smoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOf G6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG% &belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_error G%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_f resh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficie ntsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_in fsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%call G%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_i ntervalG%4sprint_small_approxGF)F)F)F)F)6$%*protectedG/%+modulenameGc*utilities &:-152 M7R0 I&:-249t+6(%$ratG%"zG%&alphaG%"mG%"nG%#~$G6+%$denG%)polypartG%$numG%%rofnG%,ter m_boundsG%%tofnG%#n0G%0prev_tail_boundG%+tail_boundG6"F5C->8$-%&denomG6#9$>8%-% $quoG6&-%&numerGF;F89%.8&>8'-%(convertG6$-T%6%*&FF"""F8!""FD9(.%*piecewiseG@%-% %typeG6$FH%"+G>FH7#-%#opG6#FH>FH7#FH>8(-%$mapG6'T'FHFR9&9'>8)-FY6#-Fgn6#-&F^o6# ""#6%FgnFPF\o>8*-%$maxG6#-Fgn6#-Fjo6%FgnF\pF\o>F_p-Fap6%FP,&-%'degreeG6#F>FPFPF PF_p?(F5FPFPF5532_T)%8bound_ratpoly_tail_precG*&8+FP8,FQ1F_p_Fcq%9bound_ratpoly _max_expandG-FW6$Ffq.%'symbolGC%>FfqFgq>Fgq-%&evalfG6#-%%subsG6$/FRF_pFdo>F_p,$ F_pF\p>F_p-%%iquoG6$F_pF\p7$FdoF_pF5F56*%6_thismoduledefinitionGb6#%+thismodule GF5F56)%3parse_exppoly_termG%3ratabove_algebraicG%8ratabove_algebraic_doitG%+bo und_termG%+bound_tailG%%doitG%,ModuleApplyGF5F5F5F5F5%/ratpolytocoeffGc/ratpoly tocoeff%:-27Fisc+bound_term&:-248%)SettingsGc)Settings&:-1556#""'6#/%+modulenam eGc.bound_ratpoly&:-145 M7R0 I&:-377f*6$%'paramsG%"zG6,%&kappaG%"TG%&alphaG%"KG%"PG%"AG%$polG%"tG%'logcstG%$ cstG6"F2C+>6(8$8%8&8'8(8)-%#opG6#9$@$-%%typeG6$F;.%'symbolGO-%'subsopG6$/!"#7"F ?>8*-%$intG6$-_%0PolynomialToolsG%4FromCoefficientListG6$F:9%FW>%)RoundingG%)in finityG>8+-%&evalfG6#-%#ifG6%/F7""!*&F9"""F8!""*$F8Fao>8,-%%evalG6$FN/FWFfn>8-- %$expG6#Fdo-%)userinfoG6&""%.%%gfunG/QSbound~parameters~before~removal~of~polyn omial~partF2F?/Q'logcstF2-FhnF]p@%2_T%%4get_rid_of_poly_thrGFdoF?-FH6%FJ/Fao-T' 6#*&FjoF`oF;F`oF?F2F26(%6_thismoduledefinitionGb6#%+thismoduleGF2F263%9common_r oot_multiplicityG%2infroot_resultantG%(longgcdG%?normal_majorant_series_formula G%5normal_coeff_formulaG%+tail_boundG%,normal_typeG%5rec_factorial_growthG%3nor malize_rec_doitG%.normalize_recG%1normalize_diffeqG%/make_above_psiG%.find_cons tantG%7find_constant_from_recG%-get_rid_of_PG%2bound_diffeq_doitG%/bound_rec_do itGF2F26$%)CoeftaylG%/value/CoeftaylGF2F2%)SettingsGc)Settings&:-155%)rataboveG c)ratabove&:-1776#/%+modulenameGc'bounds&:-162 M7R0 I&:-234"#I6#/%+modulenameGc)Settings&:-155 M7R0 I&:-362t+6%%$deqG%%yofzG%#~$G6+%"yG%"zG%*local_deqG%$recG%"iG%#z0G%"uG%"nG%&del taG6#-%&cacheG6#"""6"C'>6$8$8%-T%6#9%>8&-T'6%9$/F;,&8)F6FFB<$-%$seqG6$/-- -%#@@G6$%"DG8(6#F;6#""!*&-8,6#FVF6-%*factorialGFgnF6/FV;FY,&-T)6$FFF@F6!""F6FB> 8'-T+6%FBF@-8*6#8+6'-T-6$FboFfoFIFgoFioFfnF7F76.%6_thismoduledefinitionGb6#%+th ismoduleGF7F767%-rectodiffrecG%0parametered_recG%7step_transition_matrixG%7path _transition_matrixG%*plot_pathG%6fail_if_singular_pathG%/bit_burst_pathG%/subdi vide_pathG%-rewrite_pathG%;absolute_precision_warningG%6diffeq_inicond_matrixG% -ext_norm_iniG%*apply_iniG%6analytic_continuationG%2transition_matrixG%0local_m onodromyG%*monodromyG%3rec_matrix_num_denG%0binsplit_matrixG%)binsplitG%4diffeq _to_local_recGF7F7F7F7F7%(getnameGc(getname&:-183%.algebraicsubsGc.algebraicsub s$:-2%*orddiffeqGc*orddiffeq&:-186%,diffeqtorecGc,diffeqtorec%:-10%,rectohomrec Gc,rectohomrec%:-316#""$6#/%+modulenameGc'ancont&:-161 M7R0 I&:-211=6"%&falseGE\[l%c&hrrec&:-166f*6#%#eqGF$F$F$-T%6$9$/-.%)typefuncG6$.%*no nnegintG.%%nameG.%)anythingGF$F$6&%6_thismoduledefinitionGb6#%+thismoduleGF$F$6 &%0typecheck_hr_eqG%,types_tableG%&setupG%(cleanupGF$F$F$F$F$F@c0typecheck_hr_e q&:-210%%pathG<$-%(complexG6#%(numericG-%%listG6#FG%/complex_linearGf*6#%%exprG F$F$F$-%%typeG6$F.-%(polynomG6$-.FH6#.%&floatG-%)frontendG6$%'indetsG7#F.F$F$6$ F;F6$8)8*6$-%#opG6$""#9(-F=6$""%F@@%51,&9'"""9&!" """$1-9)6$FJFH_T%%;binary_splitting_thresholdGC%-%)userinfoG6'""'.%%gfunG%8$F:?(8'FJFI,&FHFIFKFI%%trueGC$>8+-%%subsG6$/9%Fin 9$>Fgn-F96$F^oFgnC'-FV6'FXFY%0split,~bounds~=GFJFH>8(-%%iquoG6$,&FJFIFHFIF?>8%- T'6(FdoFcoF]pFHF@FO>8&-Fep6(FdoFcoFJF]pF@FO>Fgn-F96$FcpFhpFgn6#QeoGiven~A(n)~[u sually~a~matrix],~computes~A(j-1)...A(i)~by~binary~splitting.F5F56(%6_thismodul edefinitionGb6#%+thismoduleGF5F561%+frectopolyG%*recmatrixG%-frectomatrixG%3rec _inicond_vectorG%)binsplitG%5makeitfloat/mantissaG%,makeitfloatG%,extractlineG% 0binsplit_paramsG%+ratorfloatG%.nth_term_doitG%,choose_ringG%*fnth_termG%5nth_t erm_of_ndseriesG%&mydivGF5F5F5F5F5%)SettingsGc)Settings&:-155Fjqc)binsplit&:-32 46#""(6#/%+modulenameGc(nthterm&:-160 M7R0 I&:-309=6"%&falseGE\[l+c'LAMain&:-301f+6#%"rG6&%#adG%#prG%#zeG%#idGF$F$C'>8$f*6 &%"aG%"bG%&alphaG%%betaGF$6#%'inlineGF$-__%.LinearAlgebraG%(LA_MainG%*MatrixAdd G6(9$9%9&9'/.%(inplaceGF%/.%.outputoptionsG7"F$F$F$>8%f*6$F5F6F$F9F$-_F=%5Matri xMatrixMultiplyG6&FBFCFFFIF$F$F$>8&-%'MatrixG6%FBFB/.%&shapeG.%%zeroG>8'-FX6%FB FB/Fen.%)identityG-%,matrix_ringG6&F2FNFVFjnF$F$6$%6_thismoduledefinitionGb6#%+ thismoduleGF$F$6,%'LAMainG%%ReImG%'bigintG%'mvMultG%/WaksmanInplaceG%(waksmanG% 2ndmatrix_multiplyG%.ndmatrix_normG%+genmatringG%0waksman_productGF$F$6%%1type/ matrix_ringG%.type/ndmatrixG%1convert/ndmatrixGF$F$Fao%(genericGf+F)F+F$F$C'>F2 f*F4F$F$F$,&*&FD"""FBF^qF^q*&FEF^qFCF^qF^qF$F$F$>FNf*FPF$F$F$-%".G6$FBFCF$F$F$> FVFW>FjnF[oF`oF$F$FcoFaoc/WaksmanInplace&:-305f+F)6'%$wakGF,F-F.F/F$F$C(>FNf*F4 6$%"iG%"jGF$F$?(F2F^qF^qT$%%trueG?(FNF^qF^qFbrFcr>&FB6$F2FN,&*&FDF^qFfrF^qF^q*& FEF^q&FCFgrF^qF^qF$F$6$F*FB>F2-T%6#FB>FVf*FP6#%"cGF$F$C%>F2-%'rtableG6(;F^qFbrF js%%NULLGF[t/.%)datatypeG.%(integerG/.%(subtypeG.FX-F_s6%FBFCF2F2F$F$6&F*FBFjqF 2>FjnFW>8(F[o-Fao6&FNFVFjnFjtF$F$6&FdoFeoFbpc0waksman_product&:-300Fao%,ReImInp laceGf+F)6*F,F-F.F/%'int_adG%'int_prG%'int_zeG%'int_idGF$F$C(>6&Fjt8)8*8+-%#opG 6#-&F_s6#T'F`s>F2f*F$F$F$F$YQ?Nobody~wants~to~add~imatrices.F$F$F$F$>FNf*6$%"UG %"VG6,%#U0G%#U1G%%denUG%#V0G%#V1G%%denVG%"TG%#W0G%#W1G%%denWGF$F$C.>6%F2FNFV-F] vF`s>6%FjnFjtFiu-F]v6#FC>F[v-T#6$F2Fjn>Fju-Fax6$FNFjt-F_s6&F2FNF^qF^q-F_s6&FjnF jtF^qF^q>8,F`x-F_s6&F[yF[vF^q!""-F_s6&F[yFjuF^qF^y-F_s6&F[vFjuF^qF^y>8-*&FVF^qF iuF^q-%(imatrixG6%F[vF[yFdyF$F$6&FcuFiuFbuFjt>FV-Fgy6%FjuFjuF^q>Fjn-Fgy6%F[vFju F^qF`oF$F$6(FdoFeoFapc+genmatring&:-309F]pFgqFao%)ndseriesGf*F)F$F$F$-F`v6#,&FB F^qF^qF^qF$F$6(FdoFeoFapFazF\pc'mvMult&:-304c(waksman&:-306f+F)FiqF$F$C(>FNf*F4 6%FdsF_rF`rF$F$C%>F2-Fhs6(FjsFjsF[tF[tF[tFat?(FNF^qF^qFbrFcr?(FVF^qF^qFbrFcr>&F 26$FNFV,&*&FDF^q&FBFg[lF^qF^q*&FEF^q&FCFg[lF^qF^qF2F$F$F\s>F2F^s>FVf*FPFcsF$F$C %>F2Fa[lFetF2F$F$Fgt>FjnFW>FjtF[oF[uF$F$F]uFao%)ndmatrixGf+F)F+F$F$C%>FNf*FivF$ F9F$-Fd\l6$-%+mvMultiplyG6$-F]v6$F^qFB-F]v6$F^qFC*&-F]v6$""#FBF^q-F]v6$Fe]lFCF^ qF$F$F$>Fjn-Fd\l6$F[oF^qF`oF$F$FcoFaoFhzf+F)F+F$F$C%>FNf*FPF$F9F$-F\]lFdqF$F$F$ >FjnF[oF`oF$F$FcoFaoc'bigint&:-303&Faz6#Fhzc%ReIm&:-302f+F)FauF$F$C(>Fhu-F]v6#- %2genmatring/bigintGF`s>F2f*F$F$F$F$YFfvF$F$F$>FNf*Fiv6+F]wF^wF_wF`wFawFbwFdwFe wFfwF$F$C(>FiwFjw>F\xF]x>Fju-F_s6&F`xFdxF^qF^y>F[v-F_s6&-Fax6$F2Fjt-Fax6$FNFjnF ^qF^q>F[yFey-Fgy6%FjuF[vF[yF$F$Fiy>FVF[z>FjnF^zF`oF$F$FcoFao6#/%+modulenameGc)m atrices&:-159 M7R0 I&:-294t+6&%$deqG%%yofzG%(numericG%#~$G6/%"aG%"cG%#muG%"TG%"MG%"PG%"KG%)validit yG%*below_majG%"AG%&alphaG%)my_alphaG%$majG6#%&cacheG6"C--%)userinfoG6%""&.%%gf unG/Q$deqF99$>6$T%T'-T)6#9%>T+-T-6$FCFK>6$8$8%-T/6#FC>6&8&8'8(8)-T16#FS@$/FZ%)i nfinityGO6$7&""!"""Fbo7"FM>6$8*8+-T36%FTFZFfn>8.-%$absG6#*$FZ!"">80-_T5%?normal _majorant_series_formulaG6'FenF\pFfoFgnFG-F<6%""%F?/.%)majorantG-&%&evalfG6#F>6 #Fcp6$7&FenF\pFfoFgnFgoF9F966%6_thismoduledefinitionGb6#%+thismoduleG6&%"nG%"yG %"zG%&ordeqGF96(%/rewrite_diffeqG%3bound_coefficientsG%-reduce_orderG%3fit_init ial_valuesG%%doitG%,ModuleApplyGF9F9F9F9F9F]rc"y&:-297F^rc"z&:-298%(getnameGc(g etname&:-183F_rc&ordeq&:-299%*orddiffeqGc*orddiffeq&:-186Farc/rewrite_diffeq&:- 290Fbrc3bound_coefficients&:-291Fcrc-reduce_order&:-292%'boundsGc'bounds&:-1626 #F[q6#/%+modulenameGc4bound_normal_diffeq&:-158 M7R0 I&:-271f+6$%#eqG%%fofxG6#%(shiftedG6"F)-%$maxG6#-%$seqG6$,&-%#opG6#8$"""-F26#9% !""/F4-%'indetsG6$9$-.%)specfuncG6$.%'linearG-F26$""!F8F)F)6$%6_thismoduledefin itionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_or_recG% .my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&u pperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_complex_ absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_derivativeG%(ge tnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_cons tant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singulariti esG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+res et_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Digits_plus G%3bound_abs_intervalG%4sprint_small_approxGF)F)F)F)F)%*nonnegintG6$%*protected G/%+modulenameGc*utilities&:-152 M7R0 I&:-256f*6"F$F$F$-T%6$Q%rnduF$9"F$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6 &%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(pack ageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%& aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatr ix_approximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name _generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,rea d_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,b are_diffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmax G%2falling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG% 4sprint_small_approxGF$F$F$F$F$F7c*evalf_rnd&:-2556$%*protectedG/%+modulenameGc *utilities&:-152 M7R0 I&:-241f*6$'%$recGT%'%%uofnG-%)functionG6#%%nameG60%&kappaG%"TG%&alphaG%"KG%"AG %"uG%"nG%"pG%"qG%)psiboundG%"PG%"yG%"zG%$deqG6"F=C'>6$8)8*-T'6#9%@$-T)6%9$FAFBC $>81-T+6%FK-FA6#FB-8/6#80O-T/6%-T-6$-%&solveG6$FNFTFWFWFB>6(8$8%8&8'8.8(-%#opG6 #-_T1%/bound_rec_doitG6#9">F`o-T36#F`o@%/F^o,$%)infinityG!""-%*piecewiseG6%Fco1 FBFao""!C&>8+-%&numerG6#F^o>8,-%&denomGF`q@%2FjpF]q>8-*(-T56#),$%#PiG""#*&F]q"" "FbqFepFbr)*&,&FBFbr-%%ceilG6#,$Fbq#""$F`rFbrFbrFbqFepF]qFbr)-%*factorialGFSFar Fbr>Fhq*&)Fer,$F^oFepFbr)F]sF^oFbr*&FhqFbr-_Fio%5normal_coeff_formulaG6(F_oF`oF aoFcoFboFBFbrF=F=66%6_thismoduledefinitionGb6#%+thismoduleGF=F=6'%/bound_rec_ta ilG%*bound_recG%2bound_diffeq_tailG%-bound_diffeqG%3simplify_algebraicGF=F=6#%) CoeftaylGF=F=%&hrrecGc&hrrec&:-166%(getnameGc(getname&:-183%>rec_has_constant_c oefficientsGc>rec_has_constant_coefficients&:-188%,rectodiffeqGc,rectodiffeq%:- 30%.bound_ratpolyGc.bound_ratpoly&:-145%/ratpolytocoeffGc/ratpolytocoeff%:-27%' boundsGc'bounds&:-162Fctc3simplify_algebraic&:-243%)rataboveGc)ratabove&:-1776# /%+modulenameGc0symbolic_bounds&:-164 M7R0 I&:-369t+6%%$recG%%uofnG%#~$G6%%%coefG%"sG%$iniG6"F,C$>6%8$8%8&-T%6$9$9%-%&eval bG6#/-%'degreeG6#&F06#,&F1"""""#FB-%$maxG6#-%$seqG6$-F=6#&F06#,&%"jGFBFCFB/FO;" "!,&F1FB!""FB6#QSTests~whether~a~recurrence~equation~is~normalized.F,F,6&%6_thi smoduledefinitionGb6#%+thismoduleGF,F,63%9common_root_multiplicityG%2infroot_re sultantG%(longgcdG%?normal_majorant_series_formulaG%5normal_coeff_formulaG%+tai l_boundG%,normal_typeG%5rec_factorial_growthG%3normalize_rec_doitG%.normalize_r ecG%1normalize_diffeqG%/make_above_psiG%.find_constantG%7find_constant_from_rec G%-get_rid_of_PG%2bound_diffeq_doitG%/bound_rec_doitGF,F,6$%)CoeftaylG%/value/C oeftaylGF,F,%)read_recGc)read_rec&:-1906#""$6#/%+modulenameGc'bounds&:-162 M7R0 I&:-226"$+)6#/%+modulenameGc)Settings&:-155 M7R0 I&:-354t+6%%$iniG>%3force_symbolic_iniG%&falseG%#~$G6"F*F*@%349%-%%typeG6$9$-.% 'MatrixG6#.%,complexconsG7$-_T%%5bound_frobenius_normG6#F2F(C$@$4-F06$F2-F46#<& .%(cx_zeroG.%%nameG.%(negzeroG.%(poszeroG-%(WARNINGG6#Q`vmixed~symbolic-numeric ~initial~values:~all~initial~values~will~be~treated~as~symbolic~values,~and~the ir~order~of~magnitude~will~not~be~taken~into~account~in~error~bound~computation sF*7$$"""""!%%trueGF*F*6&%6_thismoduledefinitionGb6#%+thismoduleGF*F*67%-rectod iffrecG%0parametered_recG%7step_transition_matrixG%7path_transition_matrixG%*pl ot_pathG%6fail_if_singular_pathG%/bit_burst_pathG%/subdivide_pathG%-rewrite_pat hG%;absolute_precision_warningG%6diffeq_inicond_matrixG%-ext_norm_iniG%*apply_i niG%6analytic_continuationG%2transition_matrixG%0local_monodromyG%*monodromyG%3 rec_matrix_num_denG%0binsplit_matrixG%)binsplitG%4diffeq_to_local_recGF*F*F*F*F *%/numeric_boundsGc/numeric_bounds&:-1636#""$6#/%+modulenameGc'ancont&:-161 M7R0 I&:-331t+6&%$deqG%%yofzG%%precG%#~$G6#%$radG6"F+C%>8$,$-%$absG6#-%(convertG6%-T %6%9$9%.%(numericG.%)rationalG""$#F?""%@$/F.%)infinityG>F."#5@%/9&""!7"7#7$7#FJ F.F+F+6&%6_thismoduledefinitionGb6#%+thismoduleG6'%1PRECOMPUTED_DATAG%4PRECOMPU TATION_PRECG%$DEQG%"YG%"ZGF+6)%.default_disksG%,ModuleApplyG%*trial_runG%1basic _series_solG%5precompute_local_solG%5fundamental_solutionG%.proc_templateGF+F+F +F+F+%/diffeq_infsingGc/diffeq_infsing&:-1936#FA6#/%+modulenameGc-diffeqtoproc& :-141 M7R0 I&:-316G6#/%+modulenameGc.dominant_root&:-149 M7R0 I&:-301G6#/%+modulenameGc)matrices&:-159 M7R0 I&:-286f+6$%"xG%"iG6$%"yG%%amplG6"F*@%3-%%typeG6$9$%)rationalG2-%'lengthG6#F0,$ %'DigitsG""$F0Z%-%#opG6$9%-F;6#-%&shakeGF5F*C$-%(WARNINGG6$Qiounable~to~compute ~an~enclosure~for~%1~--~using~evalf()~instead~(may~be~unsafe)F*F0-F;6$F=-F;6#-F A6#-%&evalfGF5F*F*6$%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliase sG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG %%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG% 5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximationG% )thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfr ecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_re cG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_ recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factori alG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_appr oxGF*F*F*F*F*%)realconsG6#/%+modulenameGc*utilities&:-152 M7R0 I&:-295t+6%%$deqG%%yofzG%#~$G6"F(F(-T'6%9$9%T%F(F(6(%6_thismoduledefinitionGb6# %+thismoduleG6&%"nG%"yG%"zG%&ordeqGF(6(%/rewrite_diffeqG%3bound_coefficientsG%- reduce_orderG%3fit_initial_valuesG%%doitG%,ModuleApplyGF(F(F(F(F(%-numeric_mode Gc-numeric_mode&:-156F>c%doit&:-2946#""$6#/%+modulenameGc4bound_normal_diffeq&: -158 M7R0 I&:-312t+6%%%PolyG%"zG%#~$G6'%%polyG%)conjpolyG%"yG%"jG%$resG6"F.C%>8$-%'expand G6#9$>8%-%$addG6$*&-%*conjugateG6#-%&coeffG6%F19%8'""")FBFCFD/FC;""!-%'degreeG6 $F1FB>8(-%*resultantG6%-%%subsG6$/FB8&F1-%&numerG6#-FR6$/FB*&FBFDFU!""F7FUF.F.6 $%6_thismoduledefinitionGb6#%+thismoduleGF.F.6-%(longgcdG%2infroot_resultantG%' sqrabsG%2irreducible_solveG%2irreducible_checkG%+inffactorsG%'isrootG%%doitG%,M oduleApplyG%/dominant_firstG%1ratbelow_complexGF.6#Qjpcompute~a~root~of~maximal ~multiplicity~among~those~of~minimalmodulus~of~a~polynomial~in~Q(i)[z]F.F.F.F.6 #""$6#/%+modulenameGc.dominant_root&:-149 M7R0 I&:-329t,6'%$recG%%uofnG'%#dzG-%(complexG6#%)rationalG%"NG%#~$G6(%"uG%"nG%"sG%" kG%(termrecG%"PG6"F6C'>6$8$8%-T%6#9%>8&-T'6$9$F?>8(-%%subsG6$<#-%$seqG6$/-F:6#, &8'"""F;FT*&)9&,&FAFTFS!""FTFPFT/FS;""!FAFE>8)-T+6#-%#opG6#-T)6'FGF?Ffn9'.%)nds eriesG-T/6%T-FcoFhnF6F660%6_thismoduledefinitionGb6#%+thismoduleGF6F661%+frecto polyG%*recmatrixG%-frectomatrixG%3rec_inicond_vectorG%)binsplitG%5makeitfloat/m antissaG%,makeitfloatG%,extractlineG%0binsplit_paramsG%+ratorfloatG%.nth_term_d oitG%,choose_ringG%*fnth_termG%5nth_term_of_ndseriesG%&mydivGF6F6F6F6F6%(getnam eGc(getname&:-183%'ordrecGc'ordrec&:-187Fgpc0binsplit_params&:-136Fcpc)binsplit &:-324Ffpc,extractline&:-327%%callGc%call&:-1996#""&%)ndmatrixG6#/%+modulenameG c(nthterm&:-160 M7R0 I&:-218f*6&%$deqG%%yofzG%#z0G%#z1G6(%'paramsG%*changevarG%&ordeqG%#dzG%"BG%"kG6 "F0C*-%)userinfoG6%""'.%%gfunGQ'calledF0>6$8$8%-T%6%9$9%9&>8&-T'6$F@FA>8'-%$abs G6#-%&evalfG6#,&9'"""FB!"">8(-%'evalrCG6#-%%sqrtG6#*&FDFR-%$addG6$*&-%*factoria lG6#8)!"#-_T)%+tail_boundG6'-%#opG6#F;FI""!/.%+derivativeGF^o/.%*transformGF<"" #/F^o;Fho,&FDFRFSFRFR>FU-T+6#FU-F36%""$F6-%(sprintfG6&Q6%a~->~%a,~bound~|ir=~%a F0FBFQ-&FN6#F_pFfp-T-FfpF0F06.%6_thismoduledefinitionGb6#%+thismoduleGF0F06+%5b ound_frobenius_normG%8$,&-%%nopsG6#9&"""!""F:@'51F4""!3/F4F:/&F96#F:&F96#""#-%)ndmatr ixG6$-_%.LinearAlgebraG%/IdentityMatrixG6#-T%6$9$9%F:FA-T'6&FSFT-%#opGF89'C&>8' -%%iquoG6$F4FG>8(7$&F96#;F:,&FgnF:F:F:&F96#;FaoF;?(8)F:F:FG%%trueGC$>8&,$*&FZF: -_T)%8bound_transition_matrixG6%FSFT&F\o6#,$FfoF;F;#F:FG>&8%6#Ffo-T+6&FSFT&F\oF ipFjo-_T-%2ndmatrix_multiplyG6$&FhpFF&FhpFDF1F16.%6_thismoduledefinitionGb6#%+t hismoduleGF1F167%-rectodiffrecG%0parametered_recG%7step_transition_matrixG%7pat h_transition_matrixG%*plot_pathG%6fail_if_singular_pathG%/bit_burst_pathG%/subd ivide_pathG%-rewrite_pathG%;absolute_precision_warningG%6diffeq_inicond_matrixG %-ext_norm_iniG%*apply_iniG%6analytic_continuationG%2transition_matrixG%0local_ monodromyG%*monodromyG%3rec_matrix_num_denG%0binsplit_matrixG%)binsplitG%4diffe q_to_local_recGF1F1F1F1F1%*orddiffeqGc*orddiffeq&:-186F]rc7step_transition_matr ix&:-345%/numeric_boundsGc/numeric_bounds&:-163F^rc7path_transition_matrix&:-34 6%)matricesGc)matrices&:-1596#""&6#/%+modulenameGc'ancont&:-161 M7R0 I&:-227f*6#%"NG6"6$%)operatorG%&arrowGF&9$F&F&6$%6_thismoduledefinitionGb6#%+th ismoduleGF&F&6+%;binary_splitting_thresholdG%.precision_iniG%-terms_factorG%,te rms_deltaG%8bound_ratpoly_tail_precG%9bound_ratpoly_max_expandG%4get_rid_of_pol y_thrG%:binomial_expand_thresholdG%*max_stepsGF&F&F&F&F&6#/%+modulenameGc)Setti ngs&:-155 M7R0 I&:-355t+6(%)transmatG%$iniG%-symbolic_iniG%$epsG%%precG%#~$G6'%$matG%(eps_iniG %+approx_iniG%$valG%.norm_transmatG6"F1C$>8(-_T%%5bound_frobenius_normG6#9$@%9& C$>8$-_T'%+ratorfloatG6$F:9(7$-_%.LinearAlgebraG%5MatrixMatrixMultiplyG6$F?9%F4 C'>8%-T+6%%"/G9'-T)6%%"*G""#F4>8&-T/6$FL-_T-%.precision_iniG6#,$-%'ilog10G6#FO! "">8'-_T1%2ndmatrix_multiplyG6$F:Fen>Fdo-FA6$Fdo-Fjn6#FE7$Fdo-F66#FdoF1F162%6_t hismoduledefinitionGb6#%+thismoduleGF1F167%-rectodiffrecG%0parametered_recG%7st ep_transition_matrixG%7path_transition_matrixG%*plot_pathG%6fail_if_singular_pa thG%/bit_burst_pathG%/subdivide_pathG%-rewrite_pathG%;absolute_precision_warnin gG%6diffeq_inicond_matrixG%-ext_norm_iniG%*apply_iniG%6analytic_continuationG%2 transition_matrixG%0local_monodromyG%*monodromyG%3rec_matrix_num_denG%0binsplit _matrixG%)binsplitG%4diffeq_to_local_recGF1F1F1F1F1%/numeric_boundsGc/numeric_b ounds&:-163%(nthtermGc(nthterm&:-160%%rnduGc%rndu&:-168%%rndzGc%rndz&:-169%)Set tingsGc)Settings&:-155%7ndmatrix_approximationGc7ndmatrix_approximation&:-180%) matricesGc)matrices&:-1596#""'6#/%+modulenameGc'ancont&:-161 M7R0 I&:-244f*6#%"uG6"F&F&-%'assignG6$-%*FromInertG6#-%#opG6$"""9$-F.6$""#F1F&F&6$%6 _thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read _diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG% %rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG %=evalf_complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for _derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordre cG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5di ffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG %)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbel owG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF&F&F&F&F&6$%*prote ctedG/%+modulenameGc*utilities&:-152 M7R0 I&:-372t+6%%$recG%%uofnG%#~$G6#%&kappaG6"F*C$>8$-T%6$9$9%@%5/F-""!/F-,$%)infini tyG!""6$F-F16$F--T'6%F1F2F-F*F*6(%6_thismoduledefinitionGb6#%+thismoduleGF*F*63 %9common_root_multiplicityG%2infroot_resultantG%(longgcdG%?normal_majorant_seri es_formulaG%5normal_coeff_formulaG%+tail_boundG%,normal_typeG%5rec_factorial_gr owthG%3normalize_rec_doitG%.normalize_recG%1normalize_diffeqG%/make_above_psiG% .find_constantG%7find_constant_from_recG%-get_rid_of_PG%2bound_diffeq_doitG%/bo und_rec_doitGF*F*6$%)CoeftaylG%/value/CoeftaylGF*F*FMc5rec_factorial_growth&:-3 70FNc3normalize_rec_doit&:-3716#""$6#/%+modulenameGc'bounds&:-162 M7R0 I&:-261f*6"F$F$F$-T%6$9""""F$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6&%1rn d_mode_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6 J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&above G%)rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_ap proximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_gene ratorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_dif feqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_d iffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2fa lling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4spri nt_small_approxGF$F$F$F$F$F1c,above_below&:-2866$%*protectedG/%+modulenameGc*ut ilities&:-152 M7R0 I&:-278f*6$'%$polG-%(polynomG6$%)anythingG%#_ZG'%'approxG-%(complexG6#%&floatG6 #%+candidatesG6"F4C$>8$-%'selectG6$f*6#%$facGF46$%)operatorG%&arrowGF4-T%6%T$&9 $6#"""F+F4F46&F-9%%4infsolvepoly/isrootGFB&-%(factorsG6#FF6#""#@%/-%%nopsG6#F7" "!C$-%(WARNINGG6#QJill-conditioned~polynomial~in~abs(RootOf)F4FF&&F7FGFGF4F46&% 6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3rea d_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG %%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_error G%=evalf_complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_fo r_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordr ecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5d iffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOf G%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbe lowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF4F4F4F4F4FKc4infs olvepoly/isroot%:-776$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-287f*6%%0format_functionG%#eqG%%fofxG6'%&coefsG%"rG%"fG%"xG%-inicond_eqnsG6 "F.C&>6$8&8'-T%6#9&>8$-9$6&7$9%F7F2F38(>8%-T'6#F96%F9FAF?F.F.6(%6_thismoduledef initionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_or_rec G%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG% &upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_comple x_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_derivativeG%( getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_co nstant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singulari tiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+r eset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Digits_pl usG%3bound_abs_intervalG%4sprint_small_approxGF.F.F.F.F.F]oc(getname&:-267F_oc( ordfrec&:-2696#/%+modulenameGc*utilities&:-152 M7R0 I&:-304G6#/%+modulenameGc)matrices&:-159 M7R0 I&:-321f*6#%"zG6"F&F&C$>%'DigitsG-T%6#!"#-%(convertG6%,&-%*NextAfterG6$-%#ReG6# 9$""!"""*&^#F:F:-F36$-%#ImGF7F9F:F:.%)rationalG.%&exactGF&F&6&%6_thismoduledefi nitionGb6#%+thismoduleGF&F&6-%(longgcdG%2infroot_resultantG%'sqrabsG%2irreducib le_solveG%2irreducible_checkG%+inffactorsG%'isrootG%%doitG%,ModuleApplyG%/domin ant_firstG%1ratbelow_complexGF&6#Qjpcompute~a~root~of~maximal~multiplicity~amon g~those~of~minimalmodulus~of~a~polynomial~in~Q(i)[z]F&F&F&F&%,Digits_plusGc,Dig its_plus&:-2046#/%+modulenameGc.dominant_root&:-149 M7R0 I&:-210f*6$%"lG%,inicondtypeG6%%"rG%$iniG%#eqG6"F+@%-%%typeG6$9$%$setGC)>8$-%-s electremoveG6%F.F09%>6$8%8&6$&F46#"""&F46#""#@$0-%%nopsG6#FF<-%#op GFH@$-F.6$F<.%"=G>F<,&-%$lhsGFHF@-%$rhsGFH!""@$/-%'indetsGFH<"OFJ%%trueGC$-%)us erinfoG6%""'.%%gfunGQ;typechecking~bare~equationF+FjnF+F+6$%6_thismoduledefinit ionGb6#%+thismoduleGF+F+6&%0typecheck_hr_eqG%,types_tableG%&setupG%(cleanupGF+F +F+F+F+6#/%+modulenameGc&types&:-137 M7R0 I&:-338G6#/%+modulenameGc-diffeqtoproc&:-141 M7R0 I&:-219t+6&%$deqG%%yofzG%%pathG%#~$G6&%&stepsG%"mG%#B1G%#B2G6#%&cacheG6"C$>8$,& -%%nopsG6#9&"""!""F9@'51F3""!3/F3F9/&F86#F9&F86#""#F9F@-T%6%9$9%-%#opGF7C&>8%-% %iquoG6$,&F3F9F9F9FF>8&-T'6%FJFK&F86#;F9FP>8'-FX6%FJFK&F86#;,&FPF9F9F9F:*&FVF9F hnF9F0F06(%6_thismoduledefinitionGb6#%+thismoduleGF0F06+%5bound_frobenius_normG %8$-T%6$9$9%>8%-_%&plo tsG%,complexplotG6$F7/%&styleG%&pointG>8&-F@6#9&>8'7#-%$seqG6$-_%*plottoolsG%'c ircleG6$7$-%#ReG6#&FK6#%"iG-%#ImGFZ-%$absG6#,&&FK6#,&Fgn"""FaoFaoFaoFen!""/Fgn; Fao,&-%%nopsGFJFaoFboFao>8(-%&evalfG6#7$-%#opG6#F7-F_pFJ>8),&-%$minG6#-F_p6#-%$ mapG6$FYFioFaoFboFao>8*,&-%$maxGFgpFaoFaoFao>8+,&-Ffp6#-F_p6#-F[q6$FinFioFaoFbo Fao>8,,&-FaqFfqFaoFaoFao>8--_FA%*coordplotG6&%*cartesianG/%%viewG7$;FcpF^q;FcqF \r/%*linestyleG.%$DOTG/%(scalingG.%,constrainedG7&F`rF>FH-F_p6#FMF4F46&%6_thism oduledefinitionGb6#%+thismoduleGF4F467%-rectodiffrecG%0parametered_recG%7step_t ransition_matrixG%7path_transition_matrixG%*plot_pathG%6fail_if_singular_pathG% /bit_burst_pathG%/subdivide_pathG%-rewrite_pathG%;absolute_precision_warningG%6 diffeq_inicond_matrixG%-ext_norm_iniG%*apply_iniG%6analytic_continuationG%2tran sition_matrixG%0local_monodromyG%*monodromyG%3rec_matrix_num_denG%0binsplit_mat rixG%)binsplitG%4diffeq_to_local_recGF4F4F4F4F4%5diffeq_singularitiesGc5diffeq_ singularities&:-1926#""%6#/%+modulenameGc'ancont&:-161 M7R0 I&:-236f*6$%$deqG%%yofzG6"6#%&cacheGF'-T%6$_%%gfunG%-formatdiffeqG9"F'F'6&%6_th ismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_di ffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rn dnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=e valf_complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_de rivativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG% >rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffe q_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)s et_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG %,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF'F'F'F'F'F9c3read_dif feq_or_rec&:-2876$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-364G6#/%+modulenameGc'bounds&:-162 M7R0 I&:-253f*6#%#ivG6&%"aG%"bG%"cG%"dG6"F+C%>6&8$8%8&8'-%#opG6#9$>%)RoundingG%)infi nityG-%%sqrtG6#-%$maxG6&,&*$F/""#"""*$F0FBFC,&*$F1FBFC*$F2FBFC,&FAFCFGFC,&FFFCF DFCF+F+6$%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_b elowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rn dzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_abso lute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG% 6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddif feqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_ lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simpl ify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)coline arG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF+F+F+F+ F+6$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-270f+6$%$deqG%%yofzG6"6#%&cacheGF',&-%%nopsG6#-T%6#7$9$9%"""!"#F4F'F'6&%6_t hismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_d iffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%r ndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%= evalf_complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_d erivativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG %>rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diff eq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%) set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelow G%,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF'F'F'F'F'%-formatdif feqGc-formatdiffeq%:-46%*nonnegintG6$%*protectedG/%+modulenameGc*utilities&:-15 2 M7R0 I&:-311t+6$%&polysG%#~$G6"6#%'inlineGF'-%&foldlG6$%$gcdG-%#opG6#9$F'F'F'6#""#6# /%+modulenameGc.dominant_root&:-149 M7R0 I&:-296G6#/%+modulenameGc4bound_normal_diffeq&:-158 M7R0 I&:-217t,6)%$deqG%%yofzG%1derivation_orderG%#z0G%$RadG%(epsilonG>%*canonicalG%% trueG6'%&boundG%'paramsG%*changevarG%#ntG%$radG6"F4C+-%)userinfoG6%""'.%%gfunGQ 'calledF4@%9*>6$8%8&-T%6%9$9%9'YQ9not~implemented~anymore!F4>8(-T'6#9(>8$-_T)%+ tail_boundG6(-%#opG6#FAFL%"nG/.%+derivativeG9&/.%3simplify_hypergeomG%&falseG/. %*transformGFB@$-%%typeG6$FR.%1SymbolicInfinityGYQ@no~finite~bound~for~series~t ailF4-F76%F9F:QNtail~bound~computation~done,~now~solving~ineqF4>8'-T+6%2FR9)Fen """-F76%F9F:Q%doneF4F]pF4F46,%6_thismoduledefinitionGb6#%+thismoduleGF4F46+%5bo und_frobenius_normG%'%/first_row_onlyG%(booleanG% &falseG68%&ordeqG%+diff_orderG%$recG%&dummyG%"uG%"nG%&deltaG%+rec_matrixG%'lamb daG%$radG%'ntermsG%%prodG%$denG%(pow_denG%)sums_rowG%+ordcoefrecG%$iniG%+ini_ma trixG%"iG%"jG%3canonical_sols_rowG%2transition_matrixG6"FGC7>8$-T%6$9$9%>8%-%#i fG6%9*"""FJ@$/9&9'O-%)ndmatrixG6$&-_%.LinearAlgebraG%/IdentityMatrixG6#FJ6#;FVF QFV>6'8&8'8(8)8*-T'FM>Fco-%%subsG6$/FdoFYFco>8+-T)6'Fco-Feo6#Ffo,&FZFVFY!""8,FQ >8--%$absG6#Ffp>8.-%$maxG6#-%$seqG6$-_T+%-needed_termsG6(FNFO86FYFjp*&9(FVFJFgp /F[r;""!,&FQFVFgpFV>F_q-%&floorG6#,&*&_T-%-terms_factorGFVF_qFVFV_Fir%,terms_de ltaGFV-%)userinfoG6%""#.%%gfunG-%(sprintfG6(QR%s~-->~%s~(%a~derivative[s]),~pre c|ir=%a,~#terms=%aFG-T/6#FY-Fhs6#FZFQ-&%&evalfG6#""&6#F]rF_q>%&OrderGFQ>8/-T16( F`pFfoFhp-%&tableGFGF`r,&F_qFVFVFV>6%808182-%#opG6#&Fet6#7%F`s""%F`t>84-%'remov eG6%%$hasGFcoFfo>83-T36$FcoFdp>85-%%evalG6#-%'MatrixG6#7#-Fdq6$7#-Fdq6$-F\p6$-F fv6$Fiu/Fgof*6#%"xGFGFGFG-FS6%/FNT#FVF`rFGFG6$FD87-Feo6#F[r/F^x;F`r,&FJFVFgpFV/ F[r;F`r,&F_vFVFgpFV>88-%$mapG6%%'seriesG-_F\o%5MatrixMatrixMultiplyG6$F`uFdvFhp >89-Fgn6$-Fiv6#7#-Fdq6$7#-Fjx6&%&coeffGFhxFhpF[rF^r*&F^uFVF_uFV>%'DigitsGF`t-F^ s6%"#5Fas-Fds6$Q6computed~matrix~|ir=~%aFG*&-F^t6#-Fbu6$FVFbyFV-F^t6#-Fbu6$F`sF byFgpFbyFGFG64%6_thismoduledefinitionGb6#%+thismoduleGFGFG67%-rectodiffrecG%0pa rametered_recG%7step_transition_matrixG%7path_transition_matrixG%*plot_pathG%6f ail_if_singular_pathG%/bit_burst_pathG%/subdivide_pathG%-rewrite_pathG%;absolut e_precision_warningG%6diffeq_inicond_matrixG%-ext_norm_iniG%*apply_iniG%6analyt ic_continuationGFF%0local_monodromyG%*monodromyG%3rec_matrix_num_denG%0binsplit _matrixG%)binsplitG%4diffeq_to_local_recGFGFGFGFGFG%*orddiffeqGc*orddiffeq&:-18 6Fi\lc4diffeq_to_local_rec&:-362Fg\lc0binsplit_matrix&:-360%/numeric_boundsGc/n umeric_bounds&:-163%)SettingsGc)Settings&:-155%4sprint_small_approxGc4sprint_sm all_approx&:-206Fh\lc)binsplit&:-361%'ordrecGc'ordrec&:-1876#""'6#/%+modulename Gc'ancont&:-161 M7R0 I&:-330f*6$%$numG%$denG6#%"qG6"F)@%/-%%iremG6%9$9%.8$""!F2*&F/"""F0!""F)F)6$%6_ thismoduledefinitionGb6#%+thismoduleGF)F)61%+frectopolyG%*recmatrixG%-frectomat rixG%3rec_inicond_vectorG%)binsplitG%5makeitfloat/mantissaG%,makeitfloatG%,extr actlineG%0binsplit_paramsG%+ratorfloatG%.nth_term_doitG%,choose_ringG%*fnth_ter mG%5nth_term_of_ndseriesG%&mydivGF)F)F)F)F)6#/%+modulenameGc(nthterm&:-160 M7R0 I&:-243f*6#%"xG6"F&F&-%*radnormalG6#-%(convertG6$-%&evalaG6#-%%evalG6#-%%subsG6 $/%$absGT%9$.%(radicalGF&F&6&%6_thismoduledefinitionGb6#%+thismoduleGF&F&6'%/bo und_rec_tailG%*bound_recG%2bound_diffeq_tailG%-bound_diffeqG%3simplify_algebrai cGF&F&6#%)CoeftaylGF&F&%0abs_with_RootOfGc0abs_with_RootOf&:-1486#/%+modulename Gc0symbolic_bounds&:-164 M7R0 I&:-371t+6&%$recG%%uofnG%&kappaG%#~$G6(%"uG%"nG%"pG%"qG%'psirecG%*normalrecG6"F 0C*-%)userinfoG6%""%.%%gfunGQ7starting~normalizationF0>6$8$8%-T%6#9%>6$8&8'6$-% &numerG6#9&-%&denomGFH>8(/*&),&FD"""F8)-T'6&9$FMFU/.%$i niG%&falseG@$-%%typeG6$FX%$setG>FX-%#opG6#-%'selectG6%%$hasGFXF<-F36%F5F6Q%done F0FXF0F06(%6_thismoduledefinitionGb6#%+thismoduleGF0F063%9common_root_multiplic ityG%2infroot_resultantG%(longgcdG%?normal_majorant_series_formulaG%5normal_coe ff_formulaG%+tail_boundG%,normal_typeG%5rec_factorial_growthG%3normalize_rec_do itG%.normalize_recG%1normalize_diffeqG%/make_above_psiG%.find_constantG%7find_c onstant_from_recG%-get_rid_of_PG%2bound_diffeq_doitG%/bound_rec_doitGF0F06$%)Co eftaylG%/value/CoeftaylGF0F0%(getnameGc(getname&:-183%(rec*recGc(rec*rec%:-296# F56#/%+modulenameGc'bounds&:-162 M7R0 I&:-228"""6#/%+modulenameGc)Settings&:-155 M7R0 I&:-356t,6*%(userdeqG'%%yofzG-%)functionG6#%%nameG'%(inipathG%%pathG>'%*precisi onG%'posintG%'DigitsG%#~$G>'%*forcepathG%(booleanG%&falseG>'%(symbiniGF8F9>'%,u sebitburstGF8%%trueG62%$deqG%$iniG%"PG%"QG%"LG%(epsilonG%(nbstepsG%)norm_iniG%' boundPG%%epsPG%%epsQGF.%-symbolic_iniG%+precisionXG%1result_precisionG%'resmatG 6"FQC1>8$-T%6$9$9%>8/-T'6'FTFY9&9+/.%*subdivideG49)>8%-T)6$FTFY>6$8+80-%#opG6#- T+6$Fao/.%3force_symbolic_iniG9*>8*,&-%%nopsG6#Fen"""!""Fip>8)-%&evalfG6#*()"#5 ,&9'FjpFjpFipFipFgoFjpFdpFjp>8,-_T-%8bound_transition_matrixG6%FTFY&Fen6#;Fip!" #>8.-F^q6#*&F\qFipFfqFjp>8'-T/6(FTFY&Fen6#F_r&Fen6#FjpFar.%/first_row_onlyG>8-- F^q6#*(,&FdpFipFjpFipFipF\qFip-_T1%.ndmatrix_normG6#FfrFjp>8&-T36&FTFYF\rFas>8( -_Fhs%2ndmatrix_multiplyG6$FfrF\t>83&-T56'FatFaoFhoF\qFdq6#Fip-T7FQ&Fgt6$FipFip FQFQ68%6_thismoduledefinitionGb6#%+thismoduleGFQFQ67%-rectodiffrecG%0parametere d_recG%7step_transition_matrixG%7path_transition_matrixG%*plot_pathG%6fail_if_s ingular_pathG%/bit_burst_pathG%/subdivide_pathG%-rewrite_pathG%;absolute_precis ion_warningG%6diffeq_inicond_matrixG%-ext_norm_iniG%*apply_iniG%6analytic_conti nuationG%2transition_matrixG%0local_monodromyG%*monodromyG%3rec_matrix_num_denG %0binsplit_matrixG%)binsplitG%4diffeq_to_local_recGFQFQFQFQFQ%2diffeqtohomdiffe qGc2diffeqtohomdiffeq$:-9F_vc-rewrite_path&:-351Favc6diffeq_inicond_matrix&:-35 3Fbvc-ext_norm_ini&:-354%/numeric_boundsGc/numeric_bounds&:-163Fiuc7step_transi tion_matrix&:-345%)matricesGc)matrices&:-159Fjuc7path_transition_matrix&:-346Fc vc*apply_ini&:-355F`vc;absolute_precision_warning&:-3526#""&%/complex_linearG6# /%+modulenameGc'ancont&:-161 M7R0 I&:-277t+6%%$recG%*n_or_uofnG%#~$G6"6#%'inlineGF(-%#ifG6%-%%typeG6$9$.%$setG-%# opG6#-%'selectG6%%$hasGF1-F56#9%F1F(F(F(6#""$6$%*protectedG/%+modulenameGc*util ities&:-152 M7R0 I&:-262f*6"F$F$F$-T%6$9"""#F$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6&%1rn d_mode_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6 J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&above G%)rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_ap proximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_gene ratorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_dif feqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_d iffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2fa lling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4spri nt_small_approxGF$F$F$F$F$F1c,above_below&:-2866$%*protectedG/%+modulenameGc*ut ilities&:-152 M7R0 I&:-303G6#/%+modulenameGc)matrices&:-159 M7R0 I&:-288f*6#%%PolyG6)%"zG%%polyG%)conjpolyG%&poly2G%"YG%'approxG%"jG6"F.C$>8$-%' RootOfG6#9"@'/-%'signumG6#F1"""F1-%%typeG6$9$.-%(polynomG6$-%(complexG6#%)ratio nalG%#_ZGC*>8)-%&evalfGF:>8%-T%6$F?FK>FO-%'expandG6#FO>8&-%$addG6$*&-%*conjugat eG6#-%&coeffG6%FOFH8*F;)FHF]oF;/F]o;""!-%'degreeGFV>8'-%*resultantG6%-%%subsG6$ /FH8(FO-FU6#*&)F]pFboF;-%%evalG6$FX/FH*&FHF;F]p!""F;F]p>FK-%$absG6#FK>Feo-FQ6$- Fjo6$/FH*$FH""#FeoFip-F36$FeoFK-.FjpF:F.F.6&%6_thismoduledefinitionGb6#%+thismo duleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6# %(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&be lowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7 ndmatrix_approximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fres h_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficients G%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsi ngG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%' argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_inte rvalG%4sprint_small_approxGF.F.F.F.F.Fbtc0simplify_RootOf&:-2786#/%+modulenameG c*utilities&:-152 M7R0 I&:-337t+6$%%pathG>%%precG%'DigitsG6(%%diskG%'centerG%$argG%$radG%*local_expG%$ resG6"F0C%@$319%T%-%%typeG6$9$-.%(complexG6#.%(numericGC$>8&-%(convertG6%F:.%)r ationalG.%&exactG?&8$T'%%trueGC$>6%8%8'8(-%#opG6#FL@$2-%'signumG6#,&-%$absG6#,& FC"""FR!""F\oFSF]o""!C%-%)userinfoG6%""%.%%gfunG-%(sprintfG6$Q?using~precompute d~series~at~%aF0FR>8)-%%evalG6$FT/T)FCO-_T+%,makeitfloatG6$F[pF5-Fao6%""#FdoQKu sing~multiprecision~analytic~continuationF0-_T1%6analytic_continuationG6&T--T/6 #F`pF:F5F0F062%6_thismoduledefinitionGb6#%+thismoduleG6'%1PRECOMPUTED_DATAG%4PR ECOMPUTATION_PRECG%$DEQG%"YG%"ZGF06)%.default_disksG%,ModuleApplyG%*trial_runG% 1basic_series_solG%5precompute_local_solG%5fundamental_solutionG%.proc_template GF0F0F0F0F0F[rc4PRECOMPUTATION_PREC&:-339Fjqc1PRECOMPUTED_DATA&:-338F^rc"Z&:-34 2%(nthtermGc(nthterm&:-160F\rc$DEQ&:-340F]rc"Y&:-341%'ancontGc'ancont&:-1616#Fi p6#/%+modulenameGc-diffeqtoproc&:-141 M7R0 I&:-322t+6%%%coefG%#SnG%#~$G6#%"iG6"F*-%$addG6$*&&9$6#,&8$"""""#F4F4)9%F3F4/F3; ""!-T%6#F0F*F*6&%6_thismoduledefinitionGb6#%+thismoduleGF*F*61%+frectopolyG%*re cmatrixG%-frectomatrixG%3rec_inicond_vectorG%)binsplitG%5makeitfloat/mantissaG% ,makeitfloatG%,extractlineG%0binsplit_paramsG%+ratorfloatG%.nth_term_doitG%,cho ose_ringG%*fnth_termG%5nth_term_of_ndseriesG%&mydivGF*F*F*F*F*%(ordfrecGc(ordfr ec&:-1856#""$6#/%+modulenameGc(nthterm&:-160 M7R0 I&:-235f*6"F$F$F$F$F$F$6$%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_a liasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf _rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)ratab oveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximat ionG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%( ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)re ad_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%) bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_fa ctorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small _approxGF$F$F$F$F$6$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-363t+6&%%polyG%$refG%"zG%#~$G6%%"pG%"gG%%multG6"F-C%>8$9$?(8&""!"""F-%%true GC%>8%-%$gcdG6$F09%@$/-%'degreeG6$F99&F4[>F0-%$quoG6%F0F9FCF3F-F-6$%6_thismodul edefinitionGb6#%+thismoduleGF-F-63%9common_root_multiplicityG%2infroot_resultan tG%(longgcdG%?normal_majorant_series_formulaG%5normal_coeff_formulaG%+tail_boun dG%,normal_typeG%5rec_factorial_growthG%3normalize_rec_doitG%.normalize_recG%1n ormalize_diffeqG%/make_above_psiG%.find_constantG%7find_constant_from_recG%-get _rid_of_PG%2bound_diffeq_doitG%/bound_rec_doitGF-F-6$%)CoeftaylG%/value/Coeftay lGF-F-6#""%6#/%+modulenameGc'bounds&:-162 M7R0 I&:-220c=bound_path_transition_matrix&:-2196#/%+modulenameGc/numeric_bounds&:-1 63 M7R0 I&:-348t+6'%$deqG%%yofzG%%PathG%#~$G>%2check_convergenceG%&falseG6'%%pathG%%sin gG%"tG%"jG%"sG6"F2C%>8$-%&evalfG6#9&>8%-T%6$9$9%?(8'"""FC,&-%%nopsG6#F5FC!""FC% %trueGC$?&8(F;FIC$>8&*&,&FLFC&F56#FBFHFC,&&F56#,&FBFCFCFCFCFRFHFH@$332-%#ImG6#F O-%&FloatG6$FC,&""#FC%'DigitsGFH1""!FO1FOFCY6%Qatunable~to~perform~analytic~con tinuation:~the~path~%1~passes~through~(or~very~close~to)~a~singularity~of~%2~(i n~the~later~case,~try~increasing~Digits).F2F9F??&FLF;FI@$39(1-%$absG6#FQ-F[p6#F TY6&Q[rstep~%1->%2~may~escape~from~the~disk~of~(guaranteed)~convergence~of~the~ series~expansions~of~the~solutions~of~%3F2FRFUF?F2F26&%6_thismoduledefinitionGb 6#%+thismoduleGF2F267%-rectodiffrecG%0parametered_recG%7step_transition_matrixG %7path_transition_matrixG%*plot_pathG%6fail_if_singular_pathG%/bit_burst_pathG% /subdivide_pathG%-rewrite_pathG%;absolute_precision_warningG%6diffeq_inicond_ma trixG%-ext_norm_iniG%*apply_iniG%6analytic_continuationG%2transition_matrixG%0l ocal_monodromyG%*monodromyG%3rec_matrix_num_denG%0binsplit_matrixG%)binsplitG%4 diffeq_to_local_recGF2F2F2F2F2%5diffeq_singularitiesGc5diffeq_singularities&:-1 926#""%6#/%+modulenameGc'ancont&:-161 M7R0 I&:-269f+6#%%frecG6"6#%'inlineGF&,&-%%nopsG6#9$"""!"#F.F&F&F&%*nonnegintG6$%*pr otectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-254f*6$%$recG%%uofnG6"6#%&cacheGF'-T%6$_%%gfunG%*formatrecG9"F'F'6&%6_thism oduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_diffe q_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG %%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=eval f_complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_deriv ativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>re c_has_constant_coefficientsG%,read_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_s ingularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG%0simplify_RootOfG%)set_ modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG%)colinearG%)ratbelowG%,D igits_plusG%3bound_abs_intervalG%4sprint_small_approxGF'F'F'F'F'F9c3read_diffeq _or_rec&:-2876$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-327=6"%&falseGE\[l$%(genericGt+6$%"MG%#~$GF$F$F$-_%.LinearAlgebraG%$RowG6$9 $"""F$F$6$%6_thismoduledefinitionGb6#%+thismoduleGF$F$61%+frectopolyG%*recmatri xG%-frectomatrixG%3rec_inicond_vectorG%)binsplitG%5makeitfloat/mantissaG%,makei tfloatG%,extractlineG%0binsplit_paramsG%+ratorfloatG%.nth_term_doitG%,choose_ri ngG%*fnth_termG%5nth_term_of_ndseriesG%&mydivGF$F$F$F$F$6#""#%)ndseriesGt+F)F$F $F$-%)ndmatrixG6$&F16$!"";F2!"#&F16$FQFQF$F$F36#FIFMt+F)F$F$F$-FM6$-F-6$-%#opG6 $F2F1F2-Fgn6$FIF1F$F$F36#FI6#/%+modulenameGc(nthterm&:-160 M7R0 I&:-216t,6&%%ineqG%"xG>%#n0G"""%#~$G6(%+expressionG%)evalexprG%(epsilonG%&dicho G%"nG%"sG6"F2C.-%'ASSERTG6#-%%typeG6$9$%"8$-%$lhsG6#F:@$ -%(hastypeG6$FD%"^G>FD-%(convertG6$FD.%$expG>8&-T%6#-%$rhsGFG-%)userinfoG6%""&. %%gfunG/.FT-%&evalfG6#FT>8'f*6$%"iG%"jG6#%"mGF2F2@%1,&F@F)F:!""""#F@C$>FD-%%iqu oG6$,&F:F)F@F)F[p@%2T#-F]o6#-%%subsG6$/T&FDT'-T)6$FDF@-F^q6$F:FDF2F26*F.FTF&F@F ,FDF/F`o>8(9&?(F2F)F)F22FT-F]o6#-%%evalG6$FD/F@,$FdqF[pC$>FdqF^r@$2"(w&[5FdqYQg punable~to~compute~a~suitable~truncation~order~for~the~Taylor~expansion~(precis ion~too~high?)F2>Fdq-F`o6$FdqF^r-Fen6%FgnFhnQ%doneF2Fdq6#QcoFinds~n~>=~n0~s.t.~ expr(n)~<~epsilon~(for~nonnegative~expr~tending~to~0)F2F26&%6_thismoduledefinit ionGb6#%+thismoduleGF2F26+%5bound_frobenius_normG%8$7#-%'fsolveG6%-%#opG6$"""9$ 9%.%(complexG>8%-%%sortG6$F.f*6$%"xG%"yGF+6$%)operatorG%&arrowGF+-%&evalbG6#2-% $absG6#F7-FL6#F8F+F+F+7%&F76#F6&F76#""#-F46#F8$,&9'"""9&!"">8%7#-%$seqG6$-%(convertG6%-&%&evalfG6#""#6#,&F6F5*&F2F5-%$expG6 #*(^##FE"#%'DigitsG"#5-T%6#9$F&F&6&%6_thismoduledefini tionGb6#%+thismoduleGF&F&6)%3parse_exppoly_termG%3ratabove_algebraicG%8ratabove _algebraic_doitG%+bound_termG%+bound_tailG%%doitG%,ModuleApplyGF&F&F&F&F&F9c8ra tabove_algebraic_doit&:-2476#/%+modulenameGc.bound_ratpoly&:-145 M7R0 I&:-374t+6$%&kappaG%#~$G6(%"pG%"qG%'psirecG%.above_psi_iniG%$psiG%"iG6"F.C&>6$8 $8%6$-%&numerG6#9$-%&denomGF7>8&/*&),&%"nG"""F3FBF2FB-8(6#F@FB-FD6#FA>8'<#-%$se qG6$/-FD6#8)-T%6#*&)-%&GAMMAG6#,&*&FQFBF3!""FBFBFB,$F2FfnFB)F3,$*(F2FBF3FfnFQFB FfnFB/FQ;""!,&F3FBFfnFB-T'6%-%&unionG6$<#F%+inffactorsG%&falseG6#%$resG6"F-C$@%/-%'degreeG6$- %(collectG6$9$9%F8""!>8$7%%)infinityG"""F7>F;-T%6$-%#opG6$""#-%(factorsG6#F7F8@ %49'&F;6#;F>FFF;F-F-6&%6_thismoduledefinitionGb6#%+thismoduleGF-F-6-%(longgcdG% 2infroot_resultantG%'sqrabsG%2irreducible_solveG%2irreducible_checkGF)%'isrootG %%doitG%,ModuleApplyG%/dominant_firstG%1ratbelow_complexGF-6#Qjpcompute~a~root~ of~maximal~multiplicity~among~those~of~minimalmodulus~of~a~polynomial~in~Q(i)[z ]F-F-F-F-Ffnc%doit&:-3186#""$6#/%+modulenameGc.dominant_root&:-149 M7R0 I&:-336f*6'%$deqG%%yofzG%%pathG%$IniG%$epsG6&%)norm_iniG%-eps_transmatG%)transm atG%6iniconds_are_symbolicG6"F/C&>6$8$8'-%#opG6#-_T%%-ext_norm_iniG6#9'>8%-T)6% %"/G9(-T'6%%"*G""#F3>8&-_F:%7path_transition_matrixG6&9$9%9&F?-_F:%*apply_iniG6 'FKF=F4FD%)infinityGF/F/6*%6_thismoduledefinitionGb6#%+thismoduleG6'%1PRECOMPUT ED_DATAG%4PRECOMPUTATION_PRECG%$DEQG%"YG%"ZGF/6)%.default_disksG%,ModuleApplyG% *trial_runG%1basic_series_solG%5precompute_local_solG%5fundamental_solutionG%.p roc_templateGF/F/F/F/F/%'ancontGc'ancont&:-161%%rnduGc%rndu&:-168%%rndzGc%rndz& :-1696#/%+modulenameGc-diffeqtoproc&:-141 M7R0 I&:-289t+6%%%frecG%)convnameG%#~$G6$%#SnG%"MG6"F+C%>8%-T)6&T%9%-T'6$9$8$F8-%)us erinfoG6%""'.%%gfunG-%'printfG6$Q8recurrence~matrix~=~%a|+F+F.F.6#QHRecurrence~ (formatrec~style)~-->~matrixF+F+6*%6_thismoduledefinitionGb6#%+thismoduleGF+F+6 1%+frectopolyG%*recmatrixG%-frectomatrixG%3rec_inicond_vectorG%)binsplitG%5make itfloat/mantissaG%,makeitfloatG%,extractlineG%0binsplit_paramsG%+ratorfloatG%.n th_term_doitG%,choose_ringG%*fnth_termG%5nth_term_of_ndseriesG%&mydivGF+F+F+F+F +FLc*recmatrix&:-323FKc+frectopoly&:-322%%callGc%call&:-1996#""$6#/%+modulename Gc(nthterm&:-160 M7R0 I&:-306G6#/%+modulenameGc)matrices&:-159 M7R0 I&:-251t+6%'%$RatG%(ratpolyG'%"zG%%nameG%#~$G6*%$ratG%&mult0G%(dompoleG%%multG% "MG%"PG%"iG%$majG6"F5C)>8$-%'normalG6#9$>8%-_T%%9common_root_multiplicityG6%-%& denomG6#F89%FG>F8-F:6#*&)FGF>"""F8FM>6$8&8'-%#opG6#-T'6$FDFG>6$8(8)-_T)%%doitG6 &F8FG*$FP!""FQ>8+,&*&FZFM),&FMFM*&FGFM-T+6#FPF\oF\oFQF\oFM-_%0PolynomialToolsG% 4FromCoefficientListG6$FenFGFM*&)FG,$F>F\oFMF^oFM6#Q_oCompute~a~majorant~of~the ~form~z^(-t)*M/(1-alpha|]w|bvz)^m+P(z)~for~rat.F5F56,%6_thismoduledefinitionGb6 #%+thismoduleGF5F56)%3parse_exppoly_termG%3ratabove_algebraicG%8ratabove_algebr aic_doitG%+bound_termG%+bound_tailGFin%,ModuleApplyGF5F5F5F5F5%'boundsGc'bounds &:-162%.dominant_rootGc.dominant_root&:-149%.bound_ratpolyGc.bound_ratpoly&:-14 5%0abs_with_RootOfGc0abs_with_RootOf&:-1486#""$6#/%+modulenameGFbq M7R0 I&:-379f*6$%$recG%%uofnG6*%&kappaG%*normalrecG%$deqG%'paramsG%)validityG%$cstG% "yG%"zG6"F0C)>6$8$8%-T%6$9$9%@%/F4,$%)infinityG!""C$>8'7'""!FD"""FE7">8(-T'F8C% >8&-T)6'F5F:-8*6#8+/.%$iniG%&falseG/.%,homogeneousG%%trueG>6$FBFH-T+6$FMFQ>FB7$ F4-%#opG6#FB>8)-T-6'FBFHF9F:Q[oIncomplete~initial~conditions:~result~valid~up~t o~some~constant.F0>FB7$F^oFbo>FB-T/6$FB-F_o6#%%yofzG-%)userinfoG6&""$.%%gfunGQ3 bound~parameters:~F0FBFBF0F060%6_thismoduledefinitionGb6#%+thismoduleGF0F063%9c ommon_root_multiplicityG%2infroot_resultantG%(longgcdG%?normal_majorant_series_ formulaG%5normal_coeff_formulaG%+tail_boundG%,normal_typeG%5rec_factorial_growt hG%3normalize_rec_doitG%.normalize_recG%1normalize_diffeqG%/make_above_psiG%.fi nd_constantG%7find_constant_from_recG%-get_rid_of_PG%2bound_diffeq_doitG%/bound _rec_doitGF0F06$%)CoeftaylG%/value/CoeftaylGF0F0Ffqc.normalize_rec&:-372%'ordre cGc'ordrec&:-187%,rectodiffeqGc,rectodiffeq%:-30%4bound_normal_diffeqGc4bound_n ormal_diffeq&:-158Fjqc7find_constant_from_rec&:-376F[rc-get_rid_of_P&:-3776#/%+ modulenameGc'bounds&:-162 M7R0 I&:-268f+6#%%baseG6#%(curnameG6"F(C$>8$""!f+F(F(F(F(C$>T#,&F0"""F2F2O-%$catG6$T &F0F(F(6&F'F+F%9$%%nameGF(F(6$%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_m ode_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%* evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%) rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_appro ximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generat orG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeq G%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diff eqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falli ng_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_ small_approxGF(F(F(F(F(%*procedureG6$%*protectedG/%+modulenameGc*utilities&:-15 2 M7R0 I&:-221f*6&%$deqG%%yofzG%'centerG%$radG6(%'paramsG%&ordeqG%#dzG%"BG%"kG%$majG6" F0C->8$-T%6%9$9%9&>8%-T'6$F7F8>8)-%&tableG6#7#-%$seqG6$/8(-_T)%+tail_boundG6&-% #opG6#F38&""!/.%+derivativeGFI/FI;FS,&F;"""!""FZ>F@-%%evalG6#-%3simplify/piecew iseG6#F@>8'-%%sqrtG6#*&F;FZ-%$addG6$*&-%*factorialG6#FI!"#,&-%%subsG6$/FR9'&F@F ioFZ-F]p6$/FRFSFapFen""#FWFZ>F^o-Fhn6#-F[o6#F^o>%'DigitsG,&-%$maxG6$FS,$-%'ilog 10G6#F`pFenFZ"#5FZ>F^o-%'evalrCGFjp>F^o-T+Fjp-%)userinfoG6%""&.%%gfunG-%(sprint fG6&Q:|grz0-%a|gr~<~%a,~bound~|ir=~%aF0F9-&%&evalfG6#FepFdq-FgrFjpF^oF0F06,%6_t hismoduledefinitionGb6#%+thismoduleGF0F06+%5bound_frobenius_normG%8$""">6$8%8&-%#opG6#-%(convertG6%9$.%)r ationalG.%&exactG>8',&FAF=F@!""@$1-%'lengthG6#-%&denomG6#FA,&F8(*&FNF=F[oFP>8)-FF6$-T%6$FAFYFIO7$F@-F C6#-T'6#7$FfoFA>8*FA>6$8+8,6$-%&numerGF]o-FWF]o>8--%$maxG6$-FW6#F@""#?(F9F=F=F9 30Fhp""!2*$F_qFeqFipC&>8.Fip>Fip-%&isqrtG6#Fip>Fhp-%&truncG6#*(FhpF=FipF=F^rFP> Fep6$,&F@F=*&FhpF=FipFPF=Fep-%)userinfoG6%""%.%%gfunG/Q/bit-burst~pathF97#FepFd sF9F96(%6_thismoduledefinitionGb6#%+thismoduleGF9F967%-rectodiffrecG%0parameter ed_recG%7step_transition_matrixG%7path_transition_matrixG%*plot_pathG%6fail_if_ singular_pathG%/bit_burst_pathG%/subdivide_pathG%-rewrite_pathG%;absolute_preci sion_warningG%6diffeq_inicond_matrixG%-ext_norm_iniG%*apply_iniG%6analytic_cont inuationG%2transition_matrixG%0local_monodromyG%*monodromyG%3rec_matrix_num_den G%0binsplit_matrixG%)binsplitG%4diffeq_to_local_recGF9F9F9F9F9%=evalf_complex_a bsolute_errorGc=evalf_complex_absolute_error&:-179Fatc/bit_burst_path&:-3496#Fe q-%%listG6#F(6#/%+modulenameGc'ancont&:-161 M7R0 I&:-238t+6)%$recG'%%uofnG-%)functionG6#%%nameG'%"NG%,nonnegativeG>'%%precG%'pos intG%'DigitsG%#~$G>'7$%)rationalG%$gcdG%(booleanG%&falseG>'%'seriesGF:F;6#%)rin gnameG6"FAC$>8$-T%6$9*9)-T+6&-T'6'9$9%""!9&FD-T)6$FPFQ9'FD6#Q`oComputes~a~float ing-point~approximation~of~u(N)~where~u~satisfies~recFAFA6,%6_thismoduledefinit ionGb6#%+thismoduleGFAFA61%+frectopolyG%*recmatrixG%-frectomatrixG%3rec_inicond _vectorG%)binsplitG%5makeitfloat/mantissaG%,makeitfloatG%,extractlineG%0binspli t_paramsG%+ratorfloatG%.nth_term_doitG%,choose_ringG%*fnth_termG%5nth_term_of_n dseriesG%&mydivGFAFAFAFAFAFeoc,choose_ring&:-207Fboc0binsplit_params&:-136F]oc3 rec_inicond_vector&:-208Fdoc.nth_term_doit&:-2096#""&6#/%+modulenameGc(nthterm& :-160 M7R0 I&:-366t+6(%"TG%&alphaG%"KG%"PG%"zG%#~$G6#%'exppolG6"F-C$>8$-%$expG6#-%$intG6$- _%0PolynomialToolsG%4FromCoefficientListG6$9'9(F=@'/9%""!F0/9$FA*&),&"""FG*&F@F GF=FG!""9&FIF0FG*&-F26#*(FJFGFCFI)FFFCFIFGF0FGF-F-6$%6_thismoduledefinitionGb6# %+thismoduleGF-F-63%9common_root_multiplicityG%2infroot_resultantG%(longgcdG%?n ormal_majorant_series_formulaG%5normal_coeff_formulaG%+tail_boundG%,normal_type G%5rec_factorial_growthG%3normalize_rec_doitG%.normalize_recG%1normalize_diffeq G%/make_above_psiG%.find_constantG%7find_constant_from_recG%-get_rid_of_PG%2bou nd_diffeq_doitG%/bound_rec_doitGF-F-6$%)CoeftaylG%/value/CoeftaylGF-F-6#""'6#/% +modulenameGc'bounds&:-162 M7R0 I&:-215t+6'%$deqG%%yofzG%#z0G>%,approx_sizeG%'DigitsG%#~$G6)%'centerG%'paramsG% &deltaG%.invtransboundG%$cstG%$resG%"KG6"F4C%@%2-%'lengthG6#-%&denomG6#9&9'>8)7 $-T%6%9$9%F>f*6#%"zGF46$%)operatorG%&arrowGF4FFF4F4F4C->8$-%(convertG6%-T'6$F>/ %%precGF?.%)rationalG.%&exactG-%)userinfoG6&""&.%%gfunG/Q#z0F4F>/Q'centerF4FP>8 %-FD6%FFFGFP>8&,&F>"""FP!"">Ffo-FR6%-T)6#-%$absG6#FfoFYFen>8'-T+6&FFFGFPFfo@$2# Fho""#FdpC%>8*&Fbo6#""%-Fhn6(FjnF[oQ6bad~approx,~recursingF4/Q%sizeF4F?/Q"KF4F^ q/Q0bound~on~M^(-1)F4-&%&evalfG6#F[q6#FdpO-T-6&FFFGF>,&F?Fho-%$maxG6$F^qF*Fho>8 (-F^p6#*&-T/6$FFFGFho-FU6#,&FhoFhoFdpFioFio>Fir-FR6%FirFYFen>Fbo-%'subsopG6$/Fi o*&&Fbo6#FioFhoFirFhoFbo>FA7$Fbof*FIF4FKF4,&T#FhoFFFhoF4F46$F/Ffo-Fhn6%""'F[oQ% doneF4-%#opG6#FAF4F460%6_thismoduledefinitionGb6#%+thismoduleGF4F46+%5bound_fro benius_normG%%(numericGT%6$%%singG%"nG6#%&cacheG6"@%9&C$>8$-T'6$9$9 %@%/F47"%)infinityG&F46#-T)6$-%$absG6#&F46#8%/FH;"""-%%nopsG6#F4&-T-6$-T+F7-%#o pG6#F96#FKF/F/6.%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%, above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rn duG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5eva lf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximationG%)the tadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfrecG% *orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_recG%. diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_recG %0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factorialG% )colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_approxGF /F/F/F/F/%-numeric_modeGc-numeric_mode&:-156Fipc5diffeq_singularities&:-274Faqc 'argmax&:-280Fhpc.diffeq_lcoeff&:-273%.dominant_rootGc.dominant_root&:-1496#""# 6$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-260f*6#%"iG6"6#%'inlineGF&-%#opG6$7$""#"""9$F&F&F&6$%*protectedG/%+modulena meGc*utilities&:-152 M7R0 I&:-245t,6%%%TermG%"nG%#~$G6(%"tG%"cG%"pG%"eG%"dG%"aG6"F/C+@%-%%typeG6$9$%"*G>8 $7#-%#opG6#F5>F87#F5>6$8%F8-%-selectremoveG6%F3F8.%)constantG>6$8&F8-FC6%F3F8-. %'linearG6#9%>6$8'F8-FC6%F3F8-.%'specopG6$.%)anythingG%"^G@$550F87"2"""-%%nopsG 6#FS3/F^oF]o0-F;6$""#-F;F`o,$FP!""Y6$Q3unable~to~parse~%1F/F5>8(-F_o6#FI>8)-F66 #-F;6#-&%$mapG6#Ffo6%F;F]oFS-%'ASSERTG6#/-F66#-F;6#-%%subsG6$/FP""!FI-%*factori alG6#F^p7%-F66#-F;6#FAF^pFbpF/F/6$%6_thismoduledefinitionGb6#%+thismoduleGF/F/6 )%3parse_exppoly_termG%3ratabove_algebraicG%8ratabove_algebraic_doitG%+bound_te rmG%+bound_tailG%%doitG%,ModuleApplyGF/F/F/F/F/6#""$7%%,complexconsG%*nonnegint GFen6#/%+modulenameGc.bound_ratpoly&:-145 M7R0 I&:-373t+6%%$deqG%%yofzG%#~$G6(%$recG%"uG%"nG%&kappaG%*normalrecG%*normaldeqG6# %&cacheG6"C'>8$-T%6%9$9%-8%6#8&@$-T'6$F4F:O6$""!-T)6$F8F9>6$8'8(-T+FA>8)-T-6'FK F:F9/.%$iniG%&falseG/.%,homogeneousG%%trueG6$FJFOF1F16.%6_thismoduledefinitionG b6#%+thismoduleGF1F163%9common_root_multiplicityG%2infroot_resultantG%(longgcdG %?normal_majorant_series_formulaG%5normal_coeff_formulaG%+tail_boundG%,normal_t ypeG%5rec_factorial_growthG%3normalize_rec_doitG%.normalize_recG%1normalize_dif feqG%/make_above_psiG%.find_constantG%7find_constant_from_recG%-get_rid_of_PG%2 bound_diffeq_doitG%/bound_rec_doitGF1F16$%)CoeftaylG%/value/CoeftaylGF1F1%,diff eqtorecGc,diffeqtorec%:-10Fboc,normal_type&:-369%,bare_diffeqGc,bare_diffeq&:-1 94Feoc.normalize_rec&:-372%,rectodiffeqGc,rectodiffeq%:-306#""$6#/%+modulenameG c'bounds&:-162 M7R0 I&:-230$"#6!""6#/%+modulenameGc)Settings&:-155 M7R0 I&:-358f*6"F$F$F$YQ5Not~implemented~yet.F$F$F$6$%6_thismoduledefinitionGb6#%+th ismoduleGF$F$67%-rectodiffrecG%0parametered_recG%7step_transition_matrixG%7path _transition_matrixG%*plot_pathG%6fail_if_singular_pathG%/bit_burst_pathG%/subdi vide_pathG%-rewrite_pathG%;absolute_precision_warningG%6diffeq_inicond_matrixG% -ext_norm_iniG%*apply_iniG%6analytic_continuationG%2transition_matrixG%0local_m onodromyG%*monodromyG%3rec_matrix_num_denG%0binsplit_matrixG%)binsplitG%4diffeq _to_local_recGF$F$F$F$F$6#/%+modulenameGc'ancont&:-161 M7R0 I&:-335f*6&%$deqG%%yofzG%%diskG%$epsG62%&ordeqG%'my_epsG%%pathG%$radG%#ptG%.bou nd_on_diskG%.eps_local_iniG%*local_iniG%/norm_local_iniG%+eps_seriesG%#ntG%1com plete_formulaG%+diff_orderG%(sol_idxG%'paramsG%*changevarG6"F:C3>8$-T%6$9$9%>8% -T'6%%"/G9',$F=""#>6$8&8'-%#opG6#9&>FN-_T)%-rewrite_pathG6&FAFBFN%%trueG>FO-%(c onvertG6%FO%)rationalG.%&exactG>8(&FN6#!"">6$8283-_T+%8)-%$maxG6#-%$seqG6$-_T-%+tail_boundG6'-FQ6#FcoFO""!/.%+derivativ eG80/.%*transformGFdo/F]q;Fip,&F="""F`oFdq>8*-FF6%FHFDF[p>6$8+8,-FQ6#-T/6'FAFBF N-_FW%6diffeq_inicond_matrixGF@Ffq>8--FF6%FHFDF\r>8.-_Fgo%-needed_termsG6(FAFBF ipF]oFOFfr@$2"$+&FjrY6$QKprecomputation~failed~(would~use~%1~terms)F:Fjr-%)user infoG6'FK.%%gfunG/Q&pointF:F]o/Q'radiusF:FO/Q'#termsF:Fjr>8/-%$addG6$*&&F[r6$,& 81FdqFdqFdqFdqFdq-T16'FAFBF]oFitFjrFdq/FitFbq-Ffs6%""&Fhs/Q'approxF:Fat7%F]oFOF atF:F:62%6_thismoduledefinitionGb6#%+thismoduleG6'%1PRECOMPUTED_DATAG%4PRECOMPU TATION_PRECG%$DEQG%"YG%"ZGF:6)%.default_disksG%,ModuleApplyG%*trial_runG%1basic _series_solG%5precompute_local_solG%5fundamental_solutionG%.proc_templateGF:F:F :F:F:%*orddiffeqGc*orddiffeq&:-186%%rndzGc%rndz&:-169%'ancontGc'ancont&:-161%/n umeric_boundsGc/numeric_bounds&:-163%'boundsGc'bounds&:-162Fevc5fundamental_sol ution&:-336Fcvc1basic_series_sol&:-3346#/%+modulenameGc-diffeqtoproc&:-141 M7R0 I&:-320f*6$%"xG%"yG6"F'F'-%&evalbG6#52,&-%$absG6#-%#opG6$""$9$"""-%&FloatG6$F6, &""#F6%'DigitsG!""F6-F/6#-F26$F49%32-F/6#,&F.F6F>F=F72-F26$F;FB-F26$F;F5F'F'6$% 6_thismoduledefinitionGb6#%+thismoduleGF'F'6-%(longgcdG%2infroot_resultantG%'sq rabsG%2irreducible_solveG%2irreducible_checkG%+inffactorsG%'isrootG%%doitG%,Mod uleApplyG%/dominant_firstG%1ratbelow_complexGF'6#Qjpcompute~a~root~of~maximal~m ultiplicity~among~those~of~minimalmodulus~of~a~polynomial~in~Q(i)[z]F'F'F'F'6#/ %+modulenameGc.dominant_root&:-149 M7R0 I&:-305G6#/%+modulenameGc)matrices&:-159 M7R0 I&:-290t+6$%$deqG%#~$G6(%"pG%"kG%$ratG%"cG%"aG%&thetaG6"F.C&>8$-T)6$9$-T'6#T%?( 8%""!"""T+%%trueGC&>8&-%'normalG6#*&&F16#F;F=&F16#F>!""@$/-%%evalG6$-%&denomG6# FB/F9F&8'FH-FO 6$FBFT>&8(FH-FD6#*&,&FBF=FXFKF=F9FK-%)userinfoG6%""&.%%gfunG-%(sprintfG6%QSdiff erential~equation~rewritten~as~(%a)y~=~z*(%a)yF.-%%sortG6$-%$addG6$*&FXF=)8)F;F =/F;;FF_p-F[p6$-%".G6$FgnF^p/F;;F<,&F>F=FKF=6$FhnFYF.F.6,%6_thismoduledefini tionGb6#%+thismoduleG6&%"nG%"yG%"zG%&ordeqGF.6(%/rewrite_diffeqG%3bound_coeffic ientsG%-reduce_orderG%3fit_initial_valuesG%%doitG%,ModuleApplyGF.F.F.F.F.Fcqc"z &:-298Fbqc"y&:-297%)thetadeqGc)thetadeq&:-181Fdqc&ordeq&:-2996#""#6#/%+modulena meGc4bound_normal_diffeq&:-158 M7R0 I&:-267f*6#%%fofxG6"6#%'inlineGF&6$-%#opG6$""!9$-F+6$"""F.F&F&F&6$%*protectedG/ %+modulenameGc*utilities&:-152 M7R0 I&:-252f*6"F$F$F$-T%6$Q%rndnF$9"F$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6 &%1rnd_mode_aliasesG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(pack ageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%& aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatr ix_approximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name _generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,rea d_diffeqG%)read_recG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,b are_diffeqG%)bare_recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmax G%2falling_factorialG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG% 4sprint_small_approxGF$F$F$F$F$F7c*evalf_rnd&:-2556$%*protectedG/%+modulenameGc *utilities&:-152 M7R0 I&:-237f*6#%"xG6"F&F&@%2-%'lengthG6#9$"#I-%(sprintfG6$Q#%aF&F,-F/6$Q$|ir%aF&-&% &evalfG6#"#5F+F&F&6$%6_thismoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliase sG%,above_belowG%3read_diffeq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG %%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG% 5evalf_absolute_errorG%=evalf_complex_absolute_errorG%7ndmatrix_approximationG% )thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_generatorG%(ordfr ecG%*orddiffeqG%'ordrecG%>rec_has_constant_coefficientsG%,read_diffeqG%)read_re cG%.diffeq_lcoeffG%5diffeq_singularitiesG%/diffeq_infsingG%,bare_diffeqG%)bare_ recG%0simplify_RootOfG%)set_modeG%+reset_modeG%%callG%'argmaxG%2falling_factori alG%)colinearG%)ratbelowG%,Digits_plusG%3bound_abs_intervalG%4sprint_small_appr oxGF&F&F&F&F&6$%*protectedG/%+modulenameGc*utilities&:-152 M7R0 I&:-365G6#/%+modulenameGc'bounds&:-162 M7R0 I&:-222f*6%%$deqG%%yofzG%#z0G61%"yG%"zG%&ordeqG%&kappaG%)localdeqG%/localnormal deqG%+saved_modeG%-bound_paramsG%$thrG%(headrecG%-generic_headG%"kG%%headG%$cst G%$iniG6#%&cacheG6"C6-%)userinfoG6&""%.%%gfunGQBenter~bound_fundamental_solutio nsF:/Q&pointF:9&8+>6$8$8%-T%6#9%>8&-T'6$9$FN>8(-T)6%FT/FI,&FE"""FJFfnFN>6$8'8)- _T+%1normalize_diffeqG6$FVFN@$/Fin,$%)infinityG!""O7(""!FgoFfnFfn7"Ffn>8*-T/6#T ->6$FF8,-T16$FjnFN-T36#Fjo>FV-FX6%-T56$FTFJFZFN>8--T76%<$-%$seqG6$/---%#@@G6$%" DG8/6#FI6#Fgo*&&826#F^rFfn-%*factorialGFdrFdo/F^r;Fgo,&FPFfnFdoFfnFVFN-%"uG6#%" nG>8.-T96&F_qFjr.%)rememberG/.%'paramsG7#-Feq6$FbrFgr>80f*F\s6#%"jGF:F:-%$maxG6 #-Feq6$-%$absG6#-FL6&FT-%"$G6$FgoFIFfn-F[u6$Fgo,(T#FfnFdoFfnFIFdo/FI;Fgo,&F`uFf nFdoFfnF:F:6&F+FPF3F_s>FF7$Fin-%#opG6#FF>81-_F]o%.find_constantG6%FFFapF\t>FF7$ FguF[v>FF-_F]o%-get_rid_of_PG6$FF-FhuFM-F=6'""$F@Q@bound~on~fundamental~solutio ns:F:FC/Q+parametersF:FFFFF:F:6:%6_thismoduledefinitionGb6#%+thismoduleGF:F:6+% 5bound_frobenius_normG%%&startG"""6(%$radG%&pointG%"sG%*directionG%'di gitsG%*split_thrG6"F2C$>8)$""(!""@)2-%%nopsG6#9&9'YQ-invalid~pathF22_T%%*max_st epsGF;Y6$Qgqemergency~stop:~too~many~(%1)~analytic~continuation~steps~(increase ~NumGfun:-Settings:-max_steps~to~proceed)F2FC/F?F;F>C$>8$-%$minG6#-%$seqG6$-%$a bsG6#,&&F>6#F?F*8&F8-%#inG6$FY-T'6$9$9%@%2-FT6#-%&evalfG6#,&&F>6#,&F?F*F*F*F*FW F8*&F5F*FLF*-T)6&FjnF[oF>FfoC'>8'-Fao6#*&FcoF*-FTFboF8>8%,&FWF**($""&F8F*FLF*F] pF*F*>8(,&-%$maxG6$F*,$-%'ilog10G6#FgoF8F*F*F*>Fcp-%(convertG6%-&Fao6#Fip6#Fcp. %)rationalG.%&exactG-Fio6&FjnF[o7%-%#opG6#&F>6#;F*F?Fcp-Fbr6#&F>6#;FfoF8FfoF2F2 6*%6_thismoduledefinitionGb6#%+thismoduleGF2F267%-rectodiffrecG%0parametered_re cG%7step_transition_matrixG%7path_transition_matrixG%*plot_pathG%6fail_if_singu lar_pathG%/bit_burst_pathG%/subdivide_pathG%-rewrite_pathG%;absolute_precision_ warningG%6diffeq_inicond_matrixG%-ext_norm_iniG%*apply_iniG%6analytic_continuat ionG%2transition_matrixG%0local_monodromyG%*monodromyG%3rec_matrix_num_denG%0bi nsplit_matrixG%)binsplitG%4diffeq_to_local_recGF2F2F2F2F2%)SettingsGc)Settings& :-155%5diffeq_singularitiesGc5diffeq_singularities&:-192Fisc/subdivide_path&:-3 506#""%6#/%+modulenameGc'ancont&:-161 M7R0 I&:-383c+tail_bound&:-3826#/%+modulenameGc+tail_bound&:-368 M7R0 I&:-381f*6$%&kappaG%"nG6$%"pG%"qG6"F*C$>6$8$8%6$-%&numerG6#9$-%&denomGF3*&)F/,$ *&F."""F/!""F%+derivativeG""!>%3sim plify_hypergeomG%%trueG>%*transformGf*6#%"zG6"6$%)operatorG%&arrowGF99$F9F9F962 %"pG%"qG%'saddleG%"xG%"hG%$majGF8%.default_boundG%,default_valG%&boundG%"kG%"uG %"tG%"sG%"BG%2bound_for_small_nGF9F9C+>8$-%&numerG6#F=>8%-%&denomGFS>8&*&9&!"", &"""Fhn)*&9'Fhn,(9+Fhn*&)""#,&9%FhnFhnFhnFhnF[oFhnFhnFhnFhnFfn*$FaoFfnFfnFhn>8' *&9*FhnFYFfn>8(*&,&FhnFhn*&)FeoFUFhn),&F]oFhnFUFhn,$FPFfnFfnFfnFfn-%$addG6$)Feo 8//Fep;F0,&FUFhnFfnFhnFhn>8)-%%diffG6$*&9)Fhn-T%6'FboFenF[o9(8*Fhn7#-%"$G6$Fdq9 ->Fjp-%%subsG6$/Fdq-9/6#FdqFjp>8+**-T'6$F=F]oFfn-%%evalG6$Fjp/FdqFYFhn)FeoF]oFh nFioFhn@)2F0F=@%5/FgoF0/F_qF0>8-F_q>Fds%)infinityG/F=,$FfsFfn-%*piecewiseG6%1-T )6#,&F[oFhnFhnFhnF]oF0Ffs/F=F0C$@$3-%%typeG6$Fgo.%)realconsG2-%&evalfG6#,&*$Fen FfnFhnFgoFfn,$-%&FloatG6$Fhn,&F`oFhn%'DigitsGFfnFfnY6%QAdivergent~sum~(1/alpha= %1,~r=%2)F9F_uFgo@%3/FboF0/Fcq7"C%>Fds**F_qFhn-%)binomialG6$,(F]oFhnF[oFhnFfnFh n,&F[oFhnFfnFhnFhn)*&FenFhnFdqFhnF]oFhn-%*hypergeomG6%7$Fhn,&F]oFhnF[oFhn7#,&F] oFhnFhnFhnFgvFhn@$9.>Fds-%'normalG6#-%'expandG6#-%)simplifyG6#Fds-Fir6$Fds/FdqF goC$>8,-F^t6#*&F[oFhn),&FhnFhn*&FenFhnFgoFhnFfnFaoFfn-Fjs6%1F`xF]oFcr-Fir6$FjpF ]xC%>F`x)*(FenFhnFgoFhn-F\r6$/F]o)Ffx,$*&FPFfnFUFhnFfnFYFfnFdy@%3F[v/F`rf*F7F9F :F9F=F9F9F9C&>81-%%ceilG6#,$*&FevFhnFPFfnFfn>82*&)*&,&FUFhnFPFfnFhnF\zFhn,$*&FP FhnF\zFhnFfnFhn)-%*factorialG6#F\zF`pFfn>83,&-Fbp6$*(-Fbv6$,(FepFhnF[oFhnFfnFhn FevFhn)FdqFepFhn-T+6#-Ffr6$F=FepFfn/Fep;F0,&*&FUFhnF\zFhnFhnFfnFhnFhn*.)FdqF`\l FhnFczFhn-F\[l6#FevFfn)FUFhzFfn-Fbp6$Fg[lFfpFhn-%$expG6#,$*(FPFhnFUFfn)FdqFdyFh nFfnFhnFhn>F_[l-F\r6$/FdqFfxF_[lC$>80-%(convertG6%,$*$-F\u6#FenFfn#FhnF`o.%)rat ionalG.%&exactG>F_[l*(-Fir6$Fjp/FdqFd]lFhn-Fi\l6#,$*(FPFhnFUFfn)*&FgoFhnFd]lFfn FdyFhnFfnFhn-Fbp6$)F[_lFepFfpFhn@%5/F]oF0/-%'signumG6#,&F]oFhnF`xFfnFfnF_[l-Fjs 6%2F`xF]oFcrF_[lF9F96,%6_thismoduledefinitionGb6#%+thismoduleGF9F96&%2simplify_ validityG%$psiG%+tail_boundG%,ModuleApplyGF9F9F9F9F9%?normal_majorant_series_fo rmulaGc?normal_majorant_series_formula&:-366Fa`lc$psi&:-381F``lc2simplify_valid ity&:-380%)ratbelowGc)ratbelow&:-2036#""*6#/%+modulenameGc+tail_bound&:-368 M7R0 I&:-380f*6#%%exprG6"F&F&@%/-%'indetsG6#9$<"-%%ceilG6#,&-%&evalfGF+"""$""&!""F4F ,F&F&6$%6_thismoduledefinitionGb6#%+thismoduleGF&F&6&%2simplify_validityG%$psiG %+tail_boundG%,ModuleApplyGF&F&F&F&F&6#/%+modulenameGc+tail_bound&:-368 M7R0 I1convert/ndmatrixt,6$%"MG>%%modeGQ$lcm6"6%%'denomsG%$denG%"xGF)F)@%-%%typeG6$9 $%'MatrixGC%>8$-%$mapG6$-%"@G6$%&denomG%$rhsG-%-rtable_elemsG6#F2@'/9%F(>8%-%$l cmG6#-%#opG6#F65/FDQ$mulF)/FDQ)multiplyF)>FF-%$mulG6$8&-%#inG6$FVF6YQ2Unrecogni sed~modeF)O-%)ndmatrixG6$*&FF"""F2F[oFF-%(convertG6$-F]oF1Fhn6#Q_o(anything~con vertible~to)~Matrix~of~integers/polynomials~to~ndmatrixF)F)6$%6_thismoduledefin itionGb6#%+thismoduleGF)F)6,%'LAMainG%%ReImG%'bigintG%'mvMultG%/WaksmanInplaceG %(waksmanG%2ndmatrix_multiplyG%.ndmatrix_normG%+genmatringG%0waksman_productGF) F)6%%1type/matrix_ringG%.type/ndmatrixGF"F)F)6#""#FhnF) M7R0 I.type/ndmatrixf*6#%"xG6"F&F&-%%typeG6$9$-%)specfuncG6$-%#OrG6%%'MatrixG%'Vecto rG-%(polynomG6#%(integerG%)ndmatrixGF&F&6$%6_thismoduledefinitionGb6#%+thismodu leGF&F&6,%'LAMainG%%ReImG%'bigintG%'mvMultG%/WaksmanInplaceG%(waksmanG%2ndmatri x_multiplyG%.ndmatrix_normG%+genmatringG%0waksman_productGF&F&6%%1type/matrix_r ingGF"%1convert/ndmatrixGF&F&F& M7R0 I1type/matrix_ringf*6#%"xG6"F&F&-%%typeG6$9$-%)specfuncG6$%)anythingG%,matrix_r ingGF&F&6$%6_thismoduledefinitionGb6#%+thismoduleGF&F&6,%'LAMainG%%ReImG%'bigin tG%'mvMultG%/WaksmanInplaceG%(waksmanG%2ndmatrix_multiplyG%.ndmatrix_normG%+gen matringG%0waksman_productGF&F&6%F"%.type/ndmatrixG%1convert/ndmatrixGF&F&F& M7R0 I/value/Coeftaylf*6%%%exprG%$eqnG%"kG6"F(F(C$@&-%%typeG6$9&.%*nonnegintGO-%)coe ftaylG6#9"33-F,6$F..%%nameG-F,6$9$.%(ratpolyG/-%$rhsG6#9%""!O-T%6%F>-%$lhsGFDF. O-%)CoeftaylGF4F(F(6&%6_thismoduledefinitionGb6#%+thismoduleGF(F(63%9common_roo t_multiplicityG%2infroot_resultantG%(longgcdG%?normal_majorant_series_formulaG% 5normal_coeff_formulaG%+tail_boundG%,normal_typeG%5rec_factorial_growthG%3norma lize_rec_doitG%.normalize_recG%1normalize_diffeqG%/make_above_psiG%.find_consta ntG%7find_constant_from_recG%-get_rid_of_PG%2bound_diffeq_doitG%/bound_rec_doit GF(F(6$FOF"F(F(%/ratpolytocoeffGc/ratpolytocoeff%:-27F( M7R0 I%:-27f*6%%"fG%"xG%"nG6$%"gG%%polyG6#%\pCopyright~(c)~1992-2008~by~Algorithms~P roject,~INRIA~France.~All~rights~reserved.G6"C'>8$-%(convertG6&9$.%,fullparfrac G9%.%(sqrfreeG@%-%%typeG6$F0.%"+G>F07#-%#opG6#F0>F07#F0>6$8%F0-%-selectremoveG6 %FF0-F26$-%$mapG6&T%F0F79&F?@%/FI7"F0,&F0"""-T'6 %-F26$FIF?F7FYFhnF-F-6(%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDEN G%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyp rintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselim G%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandche ckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(ini condG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG %(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*n binicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*p owrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG% 4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG% 1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/poly G%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@ @DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequati ongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG% *do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interp vectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(i nitmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFeo/%'u nloadGFfo6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&b orelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diff eqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(L aplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratp olyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoef fG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG% /seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriesto recG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtabl eG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodi nitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG% *mindegeqnG%,minordereqnG%*optionsgfG%(versionGF-F-6(%/type/gfun/freeG%7type/gf un/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/inite qG%6gfun/rectoproc/symbolGF-F-Fcrc4ratpolytocoeff/elmt&:-106Fdrc4ratpolytocoeff /poly&:-1076$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-106f*6%%"gG%"xG%"nG6&%"kG%"aG%"cG%"iG6#%\pCopyright~(c)~1992-2008~by~Algori thms~Project,~INRIA~France.~All~rights~reserved.G6"@'-%%typeG6$9$.%)functionG-- %#opG6$""!F46$-T%6%-F96$"""F49%9&-F96$;""#-%%nopsG6#F4F4-F26$F4-.%(polynomG6$.% )anythingGFCF;C)>8$-%'selectG6%%$hasG-%'indetsG6$F4%"^GFC@$0-FJ6#FVFBY6&QGrepor t~this~as~a~bug:~g=%1,~x=%2,~n=%3F/F4FCFD>FV-F9F\o>8%,&FCFB-F96$FBFV!"">8&*&F4F BFVFgo>FV,$-F96$FHFVFgo*,FioFB),$FcoFgoFVFgo)Fco,$FDFgoFB-%$mulG6$,&FDFB8'FB/Fh p;FB,&FVFBFgoFBFB-%*factorialG6#F[qFgoF/F/6&%6_thismoduledefinitionGb6#%+thismo duleG6io%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%: algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvb orelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%( getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infs olvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpart G%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(m ygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpl edoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doit G%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc /binsplitparametersG%1gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG %4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*type checkG%*CheckNameG%$@@DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-find equationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequatio ngivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvect G%*interpmatG%+interpvectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matint erpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(pa ckageG/%%loadGFfq/%'unloadGFgq6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffe qG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2dif feqtohomdiffeqG%,diffeqtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprto diffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+li sttolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)pol torecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectop rocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0serie storatpolyG%,seriestorecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_ pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinit values/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxd egeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF/F/6(%/typ e/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/ident ityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF/F/Fdtc4ratpolytocoeff/elmt&:-1 066#/%+modulenameG%%gfunG M7R0 I&:-107f*6%%$polG%"xG%"nG6%%%cofsG%%monsG%"iG6"F,C$>8$7#-%'coeffsG6%-%(collectG 6$9$9%F88%-%*piecewiseG6$-%$seqG6$-%#opG6#7$/9&-%'degreeG6$&F96#8&F8&F/FJ/FK;"" "-%%nopsG6#F/""!F,F,6$%6_thismoduledefinitionGb6#%+thismoduleG6io%,GFUN_HIDDENG %.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettypr intG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG %*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandchec kG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inic ondG%.inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG% (l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nb inicondG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*po wrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4 rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%1 gfun_pade2/exminG%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG %/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@ DG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequatio ngivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%* do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpv ectG%,matmultmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(in itmatG%)tryearlyG%2checkresultnormalG%,checkresultG6%%(packageG/%%loadGFen/%'un loadGFfn6fn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&bo relG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffe qtorecG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(La placeG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpo lyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeff G%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/ seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestor ecG%/seriestoseriesG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtable G%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodin itvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%* mindegeqnG%,minordereqnG%*optionsgfG%(versionGF,F,6(%/type/gfun/freeG%7type/gfu n/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeq G%6gfun/rectoproc/symbolGF,F,6#/%+modulenameG%%gfunG M7R0 I,MultiSeries`60c*_pexports&:-384c%init&:-385c,multiseries&:-386c&limit&:-387c' asympt&:-388c'series&:-389c'taylor&:-390c,LeadingTerm&:-391c,AddFunction&:-392c 2FunctionSupported&:-393c,GetFunction&:-394c/RemoveFunction&:-395c+SeriesInfo&: -396c*oldseries&:-397b6#%+thismoduleG6dp%5multiseries/2polynomG%4multiseries/Ad dBigOG%4multiseries/AddDoitG%6multiseries/AddSeriesG%multiseries/newseries/recurseG%0multiseries/powG%2multi series/powerG%8multiseries/run/cleanupG%0multiseries/runG%1multiseries/signG%=m ultiseries/splitmultiseriesG%5multiseries/truncateG%'jsc_94G%+lncoeffdomG%,minw ithcompG%'newvarG%.series2SERIESG%+subsorevalG%+TypeForestG%2multiseries/addMSG %2multiseries/mulMSG%)newscaleG6%%(packageG%YCopyright~(c)~2002-2004~by~the~Alg orithms~Project,~INRIAG%jnCopyright~(c)~Maplesoft,~a~division~of~Waterloo~Maple ~Inc.~2005G60%*_pexportsG%%initG%,multiseriesG%&limitG%'asymptG%'seriesG%'taylo rG%,LeadingTermG%,AddFunctionG%2FunctionSupportedG%,GetFunctionG%/RemoveFunctio nG%+SeriesInfoG%*oldseriesG6"6#QRa~package~for~manipulating~multiseries~expansi onsF\s6.%'SERIESG%)t_SERIESG%,diff/SERIESG%-print/SERIESG%+print/_varG%+type/SC ALEG%,type/SERIESG%.type/ScaleVarG%9type/MultiSeries:-taylorG%9type/MultiSeries :-seriesG%.type/t_SERIESG%%_varGF\s%-_m4357985000G6dpc5multiseries/2polynom&:-3 98c4multiseries/AddBigO&:-399c4multiseries/AddDoit&:-400c6multiseries/AddSeries &:-401cmultiser ies/newseries/recurse&:-468c0multiseries/pow&:-469c2multiseries/power&:-470c8mu ltiseries/run/cleanup&:-471c0multiseries/run&:-472c1multiseries/sign&:-473c=mul tiseries/splitmultiseries&:-474c5multiseries/truncate&:-475c'jsc_94&:-476c+lnco effdom&:-477c,minwithcomp&:-478c'newvar&:-479c.series2SERIES&:-480c+subsoreval& :-481c+TypeForest&:-482c2multiseries/addMS&:-483c2multiseries/mulMS&:-484c)news cale&:-485%(_syslibG M7R0 I'SERIESf+6+'%&scaleG%&SCALEG'%(lcoeffsG%%listG'%'coeffOG%*algebraicG'%*typeCoe ffG%%typeG'%(lexponsGF*'%'exponOGF-'%*typeExponGF0'%)expanVarGF-'%,expr4SERIESG F-6+%"iG%'exponsG%'coeffsG%*typecoeffG%%fastG%$serG%&constG%&fastOG%$indG6#%YCo pyright~(c)~2002-2004~by~the~Algorithms~Project,~INRIAG6"C%@%5-%'memberG6$""!9% -FL6$$FNFNFOC(?(8$"""FV-%%nopsG6#FO%%trueG>&8,6#FU%%NULLG@$FK?(FUFVFVFWFZ@$/&FO FhnFN>Ffn/FUFin@$FP?(FUFVFVFWFZ@$/F^oFR>FfnF`o>Fgn-%$seqG6$Ffn/FU;FVFW>8%-%'sub sopG6$Fgn9(>8&-F_p6$FgnFOC$>FcpFO>F]pFap@%30Fcp7"/9'.%)t_SERIESGC&@%-F06$9&.F"> 8+-%#opG6$"")Feq>FhqFin>6$8)8*-%-selectremoveG6%F0FcpFfq>8(-%%map2G6%FjqF\r<#-F jq6#F`r@%3/Ffr<"/FhqFin>8'-T'6#-%$mapG6$T%<#-Fjq6#FarC$>FcsF_q@$550-FX6#FfrFV0F hq-FjqFet0FarF\qC$>Ffr-T)6$7$FgtFhq9$>Fcp-Fhs6'T+FcpF_u7#Ffr%&falseG>FcsF^q@%3/ FcpF\q53/FeqFN/9)%)infinityG/9,FNFN-Ffq6+F_uFcpFeqFcsF]pF^v9*9+FavFGFG6,%6_this moduledefinitionGb6#%+thismoduleG6dp%5multiseries/2polynomG%4multiseries/AddBig OG%4multiseries/AddDoitG%6multiseries/AddSeriesG%multiseries/newseries/recurseG%0multiseries/powG%2multiseri es/powerG%8multiseries/run/cleanupG%0multiseries/runG%1multiseries/signG%=multi series/splitmultiseriesG%5multiseries/truncateG%'jsc_94G%+lncoeffdomG%,minwithc ompG%'newvarG%.series2SERIESG%+subsorevalG%+TypeForestG%2multiseries/addMSG%2mu ltiseries/mulMSG%)newscaleG6%%(packageGFF%jnCopyright~(c)~Maplesoft,~a~division ~of~Waterloo~Maple~Inc.~2005G60%*_pexportsG%%initG%,multiseriesG%&limitG%'asymp tG%'seriesG%'taylorG%,LeadingTermG%,AddFunctionG%2FunctionSupportedG%,GetFuncti onG%/RemoveFunctionG%+SeriesInfoG%*oldseriesGFG6#QRa~package~for~manipulating~m ultiseries~expansionsFG6.F"F`q%,diff/SERIESG%-print/SERIESG%+print/_varG%+type/ SCALEG%,type/SERIESG%.type/ScaleVarG%9type/MultiSeries:-taylorG%9type/MultiSeri es:-seriesG%.type/t_SERIESG%%_varGFGFGF^yc5multiseries/WhatType&:-432Fcwc7multi series/CommonType&:-405F[zc4multiseries/fastest&:-445Fgwc;multiseries/Convert2S ERIES&:-409<$F"-%*identicalG6#FN%(_syslibG M7R0 I)t_SERIES=6"%&falseGE\[l$%"+Gc4multiseries/AddDoit&:-400%"*Gc4multiseries/MulD oit&:-421%"^Gc2multiseries/power&:-470%(_syslibG M7R0 I,diff/SERIESf*6,%&scaleG%(lcoeffsG%'coeffOG%*typecoeffG%(lexponsG%'exponOG%*ty peexponG%)expanvarG%,expr4seriesG%$varG6,%*diffcoeffG%"iG%)nbcoeffsG%$powG%$res G%&diffOG%+reslcoeffsG%%exprG%)llexponsG%)llcoeffsG6#%YCopyright~(c)~2002-2004~ by~the~Algorithms~Project,~INRIAG6"@%09--%%evalG6$&9$6#.%(varnameG"""@%4-%$hasG 6$9,F?""!-%'SERIESG6+FD-%$mapG6%%%diffG9%F?9&9'9(9)9*9+-FVFMC/>8&-%%nopsG6#FW>8 ,FZ>8-FW@$-%'memberG6%FOFZ.8%C%>F`o-%'subsopG6$/Fho%%NULLGF`o>Fbo-F\p6$F^pFbo>F [o,&F[oFH!""FH@%0FY.%)t_SERIESG>8*7#-%$seqG6$*&&Fbo6#FhoFH&F`oFbqFH/Fho;FHF[o>F [q7#-F^q6$-T%6%FaqFcqFfnFdq>8(-FQ6+FDF[qFXFY7#-F^q6$,&FcqFHFepFHFdq,&FenFHFepFH FfnFgnFN@$/F^rFOOFO@$34-%%typeG6$Fen%(numericG0Fen%)infinityG@%0-%#opG6$""%F^rF hp>F^r-F\p6$/""$*&FenFH-Fes6$F\tF^rFHF^r>F^r-%(applyopG6'F[rF\tF^rFenFfn>F^r-T) 6$F^r-T'6&FgnFDF?F[o@%3Fgp-FL6$FW-FA6$&FD6#.%%listGFH>8$-FT6'FitFWFDF?F[o>FfuFS @$-FL6$FXF_uC$@%Fgp>8)-T+6$-Fit6&FXFDF?F[oFD>F`v-Fbv6$-FV6$FXF?FD>F^r-T-6$F^r-F ft6$F`v-.FQ6+FD7"FH%(integerGFdwFenFfnFgn)FgnFen?(FhoFHFHF[o%%trueG@$0&FfuFbqFO C$>8'-Fbw6+FD7#FHFOFew7#&FZFbqFasFfnFgn)FgnFcx@%-F]s6$F[xFbw>F^r-F]w6$F^r-Fft6$ F[xF^x>F^r-F]w6$F^r-F[r6%F^xF[x-T/6#F[x@%33/-Fes6$""&F^rFdw/F^tFO/-Fes6$""'F^rF asFOC%>8+-T16$FNFD@$33-F]s6$Fcz-%)specfuncG6$%)anythingGFA-F]s6$-Fes6$""#Fcz%$s etG/-Fes6$7%Fd[lFHFHFcz-Fes6$7%Fd[lFHFd[lFcz>Fcz-Fes6$FHFcz-F\p6$/""*-FA6$-FV6$ FczF@/F@-FA6$&FD6#.%)variableGFHF^rFmultiseries /newseries/recurseG%0multiseries/powG%2multiseries/powerG%8multiseries/run/clea nupG%0multiseries/runG%1multiseries/signG%=multiseries/splitmultiseriesG%5multi series/truncateG%'jsc_94G%+lncoeffdomG%,minwithcompG%'newvarG%.series2SERIESG%+ subsorevalG%+TypeForestG%2multiseries/addMSG%2multiseries/mulMSG%)newscaleG6%%( packageGF;%jnCopyright~(c)~Maplesoft,~a~division~of~Waterloo~Maple~Inc.~2005G60 %*_pexportsG%%initG%,multiseriesG%&limitG%'asymptG%'seriesG%'taylorG%,LeadingTe rmG%,AddFunctionG%2FunctionSupportedG%,GetFunctionG%/RemoveFunctionG%+SeriesInf oG%*oldseriesGF<6#QRa~package~for~manipulating~multiseries~expansionsF<6.FQFipF "%-print/SERIESG%+print/_varG%+type/SCALEG%,type/SERIESG%.type/ScaleVarG%9type/ MultiSeries:-taylorG%9type/MultiSeries:-seriesG%.type/t_SERIESG%%_varGF8'-%#opG6#9+>8 %-%$addG6$*&&9%6#8$""")F:&9(FGFI/FH;FI-%%nopsG6#FF@$509)%)infinityG09&""!@%09'. %)t_SERIESG>F@,&F@FI-%"OG6#*&FXFI)F:FUFIFI>F@,&F@FIF^oFI@%-%$hasG6$F@%%_varGC$> 8&-%'indetsG6$F@-%*specindexG6$%)anythingGFfo-%%subsG6$7#-%$seqG6$/FH-Fmultiseries/newseries/recurseG%0multiseri es/powG%2multiseries/powerG%8multiseries/run/cleanupG%0multiseries/runG%1multis eries/signG%=multiseries/splitmultiseriesG%5multiseries/truncateG%'jsc_94G%+lnc oeffdomG%,minwithcompG%'newvarG%.series2SERIESG%+subsorevalG%+TypeForestG%2mult iseries/addMSG%2multiseries/mulMSG%)newscaleG6%%(packageGF6%jnCopyright~(c)~Map lesoft,~a~division~of~Waterloo~Maple~Inc.~2005G60%*_pexportsG%%initG%,multiseri esG%&limitG%'asymptG%'seriesG%'taylorG%,LeadingTermG%,AddFunctionG%2FunctionSup portedG%,GetFunctionG%/RemoveFunctionG%+SeriesInfoG%*oldseriesGF76#QRa~package~ for~manipulating~multiseries~expansionsF76.%'SERIESGFhn%,diff/SERIESGF"%+print/ _varG%+type/SCALEG%,type/SERIESG%.type/ScaleVarG%9type/MultiSeries:-taylorG%9ty pe/MultiSeries:-seriesG%.type/t_SERIESGFfoF7F7%(_syslibG M7R0 I+print/_varf*6%%$varG%#ptG%'translG6"6#%YCopyright~(c)~2002-2004~by~the~Algori thms~Project,~INRIAGF(9&F(F(6$%6_thismoduledefinitionGb6#%+thismoduleG6dp%5mult iseries/2polynomG%4multiseries/AddBigOG%4multiseries/AddDoitG%6multiseries/AddS eriesG%multiseries/newseries/ recurseG%0multiseries/powG%2multiseries/powerG%8multiseries/run/cleanupG%0multi series/runG%1multiseries/signG%=multiseries/splitmultiseriesG%5multiseries/trun cateG%'jsc_94G%+lncoeffdomG%,minwithcompG%'newvarG%.series2SERIESG%+subsorevalG %+TypeForestG%2multiseries/addMSG%2multiseries/mulMSG%)newscaleG6%%(packageGF*% jnCopyright~(c)~Maplesoft,~a~division~of~Waterloo~Maple~Inc.~2005G60%*_pexports G%%initG%,multiseriesG%&limitG%'asymptG%'seriesG%'taylorG%,LeadingTermG%,AddFun ctionG%2FunctionSupportedG%,GetFunctionG%/RemoveFunctionG%+SeriesInfoG%*oldseri esGF(6#QRa~package~for~manipulating~multiseries~expansionsF(6.%'SERIESG%)t_SERI ESG%,diff/SERIESG%-print/SERIESGF"%+type/SCALEG%,type/SERIESG%.type/ScaleVarG%9 type/MultiSeries:-taylorG%9type/MultiSeries:-seriesG%.type/t_SERIESG%%_varGF(F( %(_syslibG M7R0 I+type/SCALEf+6#%%exprG6"6#%YCopyright~(c)~2002-2004~by~the~Algorithms~Project, ~INRIAGF&3-%%typeG6$9$%&tableG/<#-%(indicesG6#F-<(7#.%%backG7#.%%listG7#.%$logG 7#.%&pointG7#.%(varnameG7#.%)variableGF&F&6$%6_thismoduledefinitionGb6#%+thismo duleG6dp%5multiseries/2polynomG%4multiseries/AddBigOG%4multiseries/AddDoitG%6mu ltiseries/AddSeriesG%multiser ies/newseries/recurseG%0multiseries/powG%2multiseries/powerG%8multiseries/run/c leanupG%0multiseries/runG%1multiseries/signG%=multiseries/splitmultiseriesG%5mu ltiseries/truncateG%'jsc_94G%+lncoeffdomG%,minwithcompG%'newvarG%.series2SERIES G%+subsorevalG%+TypeForestG%2multiseries/addMSG%2multiseries/mulMSG%)newscaleG6 %%(packageGF(%jnCopyright~(c)~Maplesoft,~a~division~of~Waterloo~Maple~Inc.~2005 G60%*_pexportsG%%initG%,multiseriesG%&limitG%'asymptG%'seriesG%'taylorG%,Leadin gTermG%,AddFunctionG%2FunctionSupportedG%,GetFunctionG%/RemoveFunctionG%+Series InfoG%*oldseriesGF&6#QRa~package~for~manipulating~multiseries~expansionsF&6.%'S ERIESG%)t_SERIESG%,diff/SERIESG%-print/SERIESG%+print/_varGF"%,type/SERIESG%.ty pe/ScaleVarG%9type/MultiSeries:-taylorG%9type/MultiSeries:-seriesG%.type/t_SERI ESG%%_varGF&F&%(booleanG%(_syslibG M7R0 I,type/SERIES-%)specfuncG6$%)anythingG%'SERIESG%(_syslibG M7R0 I.type/ScaleVar%(indexedG%(_syslibG M7R0 I9type/MultiSeries:-taylorf*6#%"sG6"6#%fnCopyright~(c)~1995~Waterloo~Maple~Inc. ~All~rights~reserved.GF&-%&evalbG6#33-%%typeG6$9$.%'seriesG-F/6$-%(convertG6$F1 .%(polynomG-F:6$.%)anythingG-%#opG6$""!F14-%$hasG6$-%&minusG6$-%'indetsG6#F1-FK 6#F?&FM6#"""F&F&F&%(_syslibG M7R0 I9type/MultiSeries:-seriesf*6#%"eG6"F&F&-%%typeG6$9$._F&%'seriesGF&F&6$%6_thism oduledefinitionGb6#%+thismoduleG6dp%5multiseries/2polynomG%4multiseries/AddBigO G%4multiseries/AddDoitG%6multiseries/AddSeriesG%multiseries/newseries/recurseG%0multiseries/powG%2multiserie s/powerG%8multiseries/run/cleanupG%0multiseries/runG%1multiseries/signG%=multis eries/splitmultiseriesG%5multiseries/truncateG%'jsc_94G%+lncoeffdomG%,minwithco mpG%'newvarG%.series2SERIESG%+subsorevalG%+TypeForestG%2multiseries/addMSG%2mul tiseries/mulMSG%)newscaleG6%%(packageG%YCopyright~(c)~2002-2004~by~the~Algorith ms~Project,~INRIAG%jnCopyright~(c)~Maplesoft,~a~division~of~Waterloo~Maple~Inc. ~2005G60%*_pexportsG%%initG%,multiseriesG%&limitG%'asymptGF-%'taylorG%,LeadingT ermG%,AddFunctionG%2FunctionSupportedG%,GetFunctionG%/RemoveFunctionG%+SeriesIn foG%*oldseriesGF&6#QRa~package~for~manipulating~multiseries~expansionsF&6.%'SER IESG%)t_SERIESG%,diff/SERIESG%-print/SERIESG%+print/_varG%+type/SCALEG%,type/SE RIESG%.type/ScaleVarG%9type/MultiSeries:-taylorGF"%.type/t_SERIESG%%_varGF&F&%( _syslibG M7R0 I.type/t_SERIES6$%)anythingG%'SERIESG%(_syslibG M7R0 I%_varG%(_syslibG M7R0 I&:-427f*6$%$serG%&scaleG6#%$resG6#%YCopyright~(c)~2002-2004~by~the~Algorithms~ Project,~INRIAG6"C$@)4-%%typeG6$9$.%'SERIESG@%-%$hasG6$F2-%%evalG6$&9%6#.%%list G"""OF2OFA33/-%#opG6$""$F2""!/-FH6$""'F2%)infinityG/-FH6$""&F27#FKO-9!6$-FH6$7$ ""#FAF2F=/FR7">8$-%'subsopG6'/Fgn7#-FX6$FGF=/FT7#FM/FJFK/FOFPF2>F[o-F]o6%/Fgn7# FW/FT7#-FH6$7$FTFAF2F2@%4-F06$-FH6$FfnF[o-FH6$""%F[o>F[o-F]o6$/Fip-T%6#FepF[oF[ oF+F+6&%6_thismoduledefinitionGb6#%+thismoduleG6dp%5multiseries/2polynomG%4mult iseries/AddBigOG%4multiseries/AddDoitG%6multiseries/AddSeriesG%multiseries/newseries/recurseG%0multiseries/p owG%2multiseries/powerG%8multiseries/run/cleanupG%0multiseries/runG%1multiserie s/signG%=multiseries/splitmultiseriesG%5multiseries/truncateG%'jsc_94G%+lncoeff domG%,minwithcompG%'newvarG%.series2SERIESG%+subsorevalG%+TypeForestG%2multiser ies/addMSG%2multiseries/mulMSG%)newscaleG6%%(packageGF*%jnCopyright~(c)~Mapleso ft,~a~division~of~Waterloo~Maple~Inc.~2005G60%*_pexportsG%%initG%,multiseriesG% &limitG%'asymptG%'seriesG%'taylorG%,LeadingTermG%,AddFunctionG%2FunctionSupport edG%,GetFunctionG%/RemoveFunctionG%+SeriesInfoG%*oldseriesGF+6#QRa~package~for~ manipulating~multiseries~expansionsF+6.F4%)t_SERIESG%,diff/SERIESG%-print/SERIE SG%+print/_varG%+type/SCALEG%,type/SERIESG%.type/ScaleVarG%9type/MultiSeries:-t aylorG%9type/MultiSeries:-seriesG%.type/t_SERIESG%%_varGF+F+Fisc5multiseries/Wh atType&:-4326#/%+modulenameG%,MultiSeriesG M7R0 I&:-472f+6&%%exprG%&scaleG%$varG%$ordG6*%$resG%$fcnG%&largsG%(procfcnG%&vnameG% "iG%*difforderG%(newexprG6$%)rememberG%YCopyright~(c)~2002-2004~by~the~Algorith ms~Project,~INRIAG6"C%-%'ASSERTG6#33'9%.%&SCALEG'9&-%%listG6#.%)ScaleVarG'9'%*n onnegintG@7/9$""!OFM/FL-%%evalG6$&F=6#.%(varnameG""">8$-9!6$-FQ6$&F=6#.%%backGF W&9"6#;""#!""3-%%typeG6$FL%(indexedG-%'memberG6$FL-FQ6$&F=6#.FCFW>FY-T%6&-.%'SE RIESG6+F=7#FWFM.%(integerGFhp%)infinityGFipFLFLF=FA%%trueG33-Feo6$FL-%(ratpolyG 6#%)rationalG/FA7#-FQ6$&F=6#.%)variableGFW/-%&minusG6$-%'selectG6%%$hasG-%'inde tsG6#FL%%_varG<#Fgq<"C(Z%>FY-T'6%FL&FA6#Fbo-%$maxG6$FH""$Q8division~by~zero~ser iesF5O-Fen6&FLF=FA,$FcsFao@$/FYFMOFM@$/-%#opG6$FWFY-%"OG6#FWC$>%&OrderGFcs?(F5F WFW""&F\qC%>Fit,$FitFao>FY-F_s6$FLFas@$0FatFdt[@$F`tC%>8+-%'normalGFgr>FitFcs?( F5FWFWF5F`tC$>FitF^u>FY-F_s6$FhuFas>FY-T)6&FYF=FAFH@$0FYFM>FY-%'subsopG6$/""*FL FY-Feo6$FL%"+G>FY-T+6#-%$mapG6%Fen7#-FbtFgrF]o-Feo6$FL%"*G>FY-T-Fdw-Feo6$FL%"^G @'4-Fdr6$-Fbt6$FaoFL<$FPFgq>FY-T/6%-Fen6$-Fbt6$FWFLF]oFgxF]o4-Fdr6$F`yFix>FY-Fe n6$-.%$expG6#*&FgxFW-%#lnG6#F`yFWF]o>FY-Fen6$-Fiy6#*&FgxFW-.F^zF_zFWF]o-Feo6$FL ._F5%'seriesG>FY-Fdv6#F^o-Feo6$FL.%)functionG@-/-Fbt6$FMFLFetC%>8'&T16#.Fet>FY- Fj[l6$-Fen6&F`yF=FAFMF]o@$Fgv>FY-%(applyopG6%FetF]wFY4-Fdr6$FL<%FPFgq.%)leadter mG>FY-Fbp6&FLF=FAF\q3-Feo6$Ff[lFc[l-Fdr6$Ff[l%"DGC$@)/-Fbt6$7$FMFMFLFg]l>8*Fhp- Feo6$F[^lFgo>F_^l7#-Fbt6#F[^l3-Feo6$F[^lFc[l/-Fbt6$7%FMFMFMFL%#@@G@%-Feo6$-Fbt6 $7%FMFMFWFLFgo>F_^l7#-%"$G6$-Fbt6#Fa_l-Fbt6$7%FMFMFaoFL>F_^l7#-Fg_l6$FWF[`lYQ9u nable~to~compute~seriesF5>FY-T36&-Fbt6$7$FMFWFLF_^lFhwF]o-Feo6$FLFep>FYF`]l/Ff[ l.FQ>FY-T56$FiwF]oC%>8%Ff[l>Fj[l&F\\l6#Ffal@%34-Feo6$Fj[l.%*procedureG-Feo6$(%( series/GFfalF`blC->Fj[lFcbl>FitFcs>&%0property/objectG6#8(-%*RealRangeG6$-%%Ope nG6#FM#FW"`q++++++++++++++++++++++++++++++++++++++++++++++++++">8&-%%subsG6$/Fg qF\clFhw>FY-Fj[l6$-Fbt6#FfclF\cl-%)unassignG6#Fibl@$/FY%%FAILGZ%>FY-F_s6$-Ffal6 #F^dlF\clF5>FYFedl@&FddlYQ%FAILF55/7#-Fbt6$;FMFboFY7$FfalF^dl3-Feo6$FYFjz/-Fbt6 $7$FW;FMFWFYFfelYFc`l>FY-Fhcl6$/F\clFgqFY@$-Feo6$FY-%)specfuncG6$%)anythingG.%. PuiseuxSeriesG>FY-Fbt6#FY>FY-Fen6$FYF]oC%?(8)FWFW-%%nopsGFgrF\q@%-Feo6$-Fbt6$Fe glFL%*algebraicG>&Ffcl6#Fegl-Fen6$F[hlF]o>F_hlF[hl@%/FfglFW>Ffcl&FfclFft>Ffcl7# -%$seqG6$F_hl/Fegl;FWFfgl@%F]bl>FY-Fj[l6$FfclF]o>FY-T76%FfalFfclF]o-Feo6$FLF]hl >FYF`]lY6$Q-invalid~typeF5FL-T9FbglF56#Fjbl6:%6_thismoduledefinitionGb6#%+thism oduleG6dp%5multiseries/2polynomG%4multiseries/AddBigOG%4multiseries/AddDoitG%6m ultiseries/AddSeriesG%multise ries/newseries/recurseG%0multiseries/powG%2multiseries/powerG%8multiseries/run/ cleanupG%0multiseries/runG%1multiseries/signG%=multiseries/splitmultiseriesG%5m ultiseries/truncateG%'jsc_94G%+lncoeffdomG%,minwithcompG%'newvarG%.series2SERIE SG%+subsorevalG%+TypeForestG%2multiseries/addMSG%2multiseries/mulMSG%)newscaleG 6%%(packageGF4%jnCopyright~(c)~Maplesoft,~a~division~of~Waterloo~Maple~Inc.~200 5G60%*_pexportsG%%initG%,multiseriesG%&limitG%'asymptGF\[l%'taylorG%,LeadingTer mG%,AddFunctionG%2FunctionSupportedG%,GetFunctionG%/RemoveFunctionG%+SeriesInfo G%*oldseriesGF56#QRa~package~for~manipulating~multiseries~expansionsF56.Ffp%)t_ SERIESG%,diff/SERIESG%-print/SERIESG%+print/_varG%+type/SCALEG%,type/SERIESG%.t ype/ScaleVarG%9type/MultiSeries:-taylorG%9type/MultiSeries:-seriesG%.type/t_SER IESGFhrF5F5Fa[mc;multiseries/Convert2SERIES&:-409F^amc*oldseries&:-397Fh_mc.ser ies2SERIES&:-480Fi\mc0multiseries/add&:-433Fg^mc0multiseries/mul&:-463F]_mc0mul tiseries/pow&:-469Ff]mc5multiseries/function&:-446Fb[mc.multiseries/D&:-410Fd]m c1multiseries/eval&:-444Fj\mc5multiseries/analytic&:-434F__mc8multiseries/run/c leanup&:-471<$Ffp-%*identicalGFbcl6#/%+modulenameG%,MultiSeriesG M7R0 I&:-480f*6&%%exprG%&scaleG%$varG%$ordG6+%"iG%+listcoeffsG%+listexponsG%)coefbig oG%*exponbigoG%'maxindG%+typecoeffsG%+closedformG%'varresG6"F3@+5-%'memberG6$-% #opG6$""!9$-%%evalG6$&9%6#.%%listG"""/F9,&-F?6$&FB6#.%(varnameGFFFF-F?6$&FB6#.% &pointGFF!""C)@%/-F:6$!"#F=-%"OG6#FFC%>8'FF>8(-F:6$FUF=>8),&-%%iquoG6$-%%nopsG6 #F=""#FFFUFFC%>F[oF<>F]o%)infinityG>FaoFco>8+,&-%(convertG6$F=%(polynomGFF-%#if G6%0F]oF]p-Fgn6#)F9F]oF8%7#-%$seqG6$-F:6$,&8$FioFUFFF=/Ffq;FFFao@%/FaoF<>8* .%(integerG>F\r-T'6#-%$mapG6$T%<#-F:6#F^q>8&7#-Faq6$-F:6$,$FfqFioF=Fgq@%FGC&>8, -F?6$&FB6#.%)variableGFF>F`p-%%subsG6$/FI-F?6$&FB6#.%%backGFFF`p@$-%$hasG6$F^qF IO-T)6$F`p&9"6#;FioFU@$0FOF<>F^q7#-Faq6$*&&F^q6#FfqFF),$FOFU&F[sF[vFFFgqC$>FesF 9@$FhtC$>F^q-Fdr6'F]uF^qFB9&9'>F\r%)t_SERIESG-T+6&-.%'SERIESG6+FBF^qF[oF\rF[sF] oF]rFesF`pFBFfv%%trueG4-%%typeG6$F9%'linearG-9!6$-_%,MultiSeriesG%*oldseriesG6% F=/FIFOFgvF_u4-Fit6$F=<$FIFfs-F[w6&F=FBFfvFaw-Fit6$F=Ffs-F]u6$-%$addG6$*&FcqFF) F9F_sFF/Ffq;FFFcoF_u-F]u6$-F^t6$F`tFjxF_uF3F36,%6_thismoduledefinitionGb6#%+thi smoduleG6dp%5multiseries/2polynomG%4multiseries/AddBigOG%4multiseries/AddDoitG% 6multiseries/AddSeriesG%multi series/newseries/recurseG%0multiseries/powG%2multiseries/powerG%8multiseries/ru n/cleanupG%0multiseries/runG%1multiseries/signG%=multiseries/splitmultiseriesG% 5multiseries/truncateG%'jsc_94G%+lncoeffdomG%,minwithcompG%'newvarG%.series2SER IESG%+subsorevalG%+TypeForestG%2multiseries/addMSG%2multiseries/mulMSG%)newscal eG6%%(packageG%YCopyright~(c)~2002-2004~by~the~Algorithms~Project,~INRIAG%jnCop yright~(c)~Maplesoft,~a~division~of~Waterloo~Maple~Inc.~2005G60%*_pexportsG%%in itG%,multiseriesG%&limitG%'asymptG%'seriesG%'taylorG%,LeadingTermG%,AddFunction G%2FunctionSupportedG%,GetFunctionG%/RemoveFunctionG%+SeriesInfoGF]xF36#QRa~pac kage~for~manipulating~multiseries~expansionsF36.F_wFiv%,diff/SERIESG%-print/SER IESG%+print/_varG%+type/SCALEG%,type/SERIESG%.type/ScaleVarG%9type/MultiSeries: -taylorG%9type/MultiSeries:-seriesG%.type/t_SERIESG%%_varGF3F3F]\lc5multiseries /WhatType&:-432Fbzc7multiseries/CommonType&:-405Fe^lc0multiseries/run&:-472Ffzc ;multiseries/Convert2SERIES&:-4096#/%+modulenameGF\x M7R0 I&:-457f*6%%%exprG%&scaleG%$varG6$%&lexpsG%"iG6"F+@%0-%#opG6$""'9$%)infinityG%& falseGC%>8$-F/6$""&F2@%-%'memberG6$-F/6$""(F27%.%(integerG.%)rationalG.%&floatG ?(8%"""FK-%%nopsG6#F72&F76#FJ""!F+?(FJFKFKFL/-%'signumG6#FP!""F+-%&evalbG6#52FL FJ33/FJFL/FPFR530-F/6$""%F2.%)t_SERIESG4-%$hasG6$-F/6$7$""#FJF2-%%evalG6$&9%6#. %)variableGFK3/F_oFbo-9!6%FhoF`p9&F+F+6$%6_thismoduledefinitionGb6#%+thismodule G6dp%5multiseries/2polynomG%4multiseries/AddBigOG%4multiseries/AddDoitG%6multis eries/AddSeriesG%multiseries/ newseries/recurseG%0multiseries/powG%2multiseries/powerG%8multiseries/run/clean upG%0multiseries/runG%1multiseries/signG%=multiseries/splitmultiseriesG%5multis eries/truncateG%'jsc_94G%+lncoeffdomG%,minwithcompG%'newvarG%.series2SERIESG%+s ubsorevalG%+TypeForestG%2multiseries/addMSG%2multiseries/mulMSG%)newscaleG6%%(p ackageG%YCopyright~(c)~2002-2004~by~the~Algorithms~Project,~INRIAG%jnCopyright~ (c)~Maplesoft,~a~division~of~Waterloo~Maple~Inc.~2005G60%*_pexportsG%%initG%,mu ltiseriesG%&limitG%'asymptG%'seriesG%'taylorG%,LeadingTermG%,AddFunctionG%2Func tionSupportedG%,GetFunctionG%/RemoveFunctionG%+SeriesInfoG%*oldseriesGF+6#QRa~p ackage~for~manipulating~multiseries~expansionsF+6.%'SERIESGFco%,diff/SERIESG%-p rint/SERIESG%+print/_varG%+type/SCALEG%,type/SERIESG%.type/ScaleVarG%9type/Mult iSeries:-taylorG%9type/MultiSeries:-seriesG%.type/t_SERIESG%%_varGF+F+6#/%+modu lenameG%,MultiSeriesG M7R0 I&:-464f*6$%%exprG%"VG6.'%&scaleG%&SCALEG'%&lexprG%*algebraicG%&orderG%%flagG%( varlistG%$ordG%(oldsersG%%SERsG%"sG%&dummyG%"iG%%indsG6#%YCopyright~(c)~2002-20 04~by~the~Algorithms~Project,~INRIAG6"C*@$4-%)assignedG6#%._EnvBranchCutG>FA%%t rueG>8%9$@%-%%typeG6$9%.F*C)>8$FK>8(-%#opG6#-%'selectG6%FI7#9".%%listG@&/FQ%%NU LLG>FQ-%%evalG6$&FO6#FZ"""0-%'removeG6%%'memberGFQFjn7"Y6$Q1invalid~argumentF:F Q>8/-%'indetsG6$FE-%*specindexG6$%)anythingG%%_varG>FE-%%subsG6$7#-%$seqG6$/&Fj o6#8.&8-F]q/F^q;F_o-%%nopsG6#FjoFE>FE-Fep6$/-F[o6$&FO6#.%(varnameGF_o-F[o6$&FO6 #.%%backGF_oFE>FE-Fep6$7#-Fip6$/F_qF\qFaqFEC)>8*-F\p6$FF._F:%'seriesG>8+-F\p6$F F-%)specfuncG6$Fap%'SERIESG@$0F_s<">FE-Fep6$7#-Fip6$/8,-%'freezeG6#Fgt/FgtF_sFE @$0FfsF_t>FE-Fep6$7#-Fip6$Fft/FgtFfsFE@%-FI6$FK%%nameGC$>FO-T%6$FK""!>FE-Fep6$/ FKF`rFEC$>FO-F\v6#-FS6#FK>FE-Fep6$/-FS6$F_oFKF`rFE@$5F^tF]u>FE-%%thawG6#FE>FQ7# -F[o6$&FO6#.%)variableGF_o>8)-FV6%FI7#&FY6#;""$9#%*nonnegintG@'/F^xFeo>8&%&Orde rG/-Fdq6#F^xF_o>F[y-FSF_yY6$QCwrong~number~of~integer~arguments:F:F^x@$-Fdo6$%) infinityGFax@%Fix>F[yFhyY6%QAwrong~number~of~order~arguments:F:FayFhy@%-Fdo6$.% ,exact_orderGFX>8'Faz>FdzFhn-T'6'FEFOFQF[yFdzF:F:6(%6_thismoduledefinitionGb6#% +thismoduleG6dp%5multiseries/2polynomG%4multiseries/AddBigOG%4multiseries/AddDo itG%6multiseries/AddSeriesG%m ultiseries/newseries/recurseG%0multiseries/powG%2multiseries/powerG%8multiserie s/run/cleanupG%0multiseries/runG%1multiseries/signG%=multiseries/splitmultiseri esG%5multiseries/truncateG%'jsc_94G%+lncoeffdomG%,minwithcompG%'newvarG%.series 2SERIESG%+subsorevalG%+TypeForestG%2multiseries/addMSG%2multiseries/mulMSG%)new scaleG6%%(packageGF9%jnCopyright~(c)~Maplesoft,~a~division~of~Waterloo~Maple~In c.~2005G60%*_pexportsG%%initG%,multiseriesG%&limitG%'asymptGFds%'taylorG%,Leadi ngTermG%,AddFunctionG%2FunctionSupportedG%,GetFunctionG%/RemoveFunctionG%+Serie sInfoG%*oldseriesGF:6#QRa~package~for~manipulating~multiseries~expansionsF:6.F \t%)t_SERIESG%,diff/SERIESG%-print/SERIESG%+print/_varG%+type/SCALEG%,type/SERI ESG%.type/ScaleVarG%9type/MultiSeries:-taylorG%9type/MultiSeries:-seriesG%.type /t_SERIESGFbpF:F:Ff`lc)newscale&:-485F[^lc1multiseries/doit&:-4426#/%+modulenam eG%,MultiSeriesG M7R0 I&:-441f+6'%%ser1G%%ser2G%&scaleG%$varG%$ordG6.'%$resG<$%'SERIESG-%*identicalG6 #""!%%bigoG%'scale1G%&genptG%&actptG%$fcnG%(genser1G%"vG%%restG%&firstG%#v0G%$s c0G6#%YCopyright~(c)~2002-2004~by~the~Algorithms~Project,~INRIAG6"C'-%'ASSERTG6 #3333'9$<$F/.F.'9%FK'9&.%&SCALEG'9'-%%listG6#.%)ScaleVarG'9(%*nonnegintG@$/FJF2 OF2>8&-%#opG6$"""FJ@+/FNF2O-T'6&-T%6%FJF[oFTFPFT%%trueG33/-F]o6$""*FN-%%evalG6$ &FP6#.%)variableGF_o/-Fap6$FPF_o-Fap6$F[oF_o/7#-F]o6$"")FJFTOFJ30-F]o6$""&FN7"/ -F]o6$7$FfqF_oFNF2C+>8+F^q>8)-F]o6$F_pFJ>8(-F]o6$7$""#F_oFN@$4-%$hasG6$Fdr-Fap6 $&FP6#.%(varnameGF_oO-9!6%FJ-%'subsopG6%/Fhr-Fis6$/F_o%%NULLG-F]o6$FhrFN/Ffq-Fi s6$F^tFdqFN&9"6#;""$!""@$/-F]o6$""%FN.%)t_SERIESG>Fdr-F]o6$F_pFdr>8,-Fis6&/FgrF _t/F[rF_t/F_p,&F]pF_oFdrFjtFN@$33/-F]o6$FfqFfuFgq/-F]o6$FitFfuF2/-F]o6$""'Ffu%) infinityG>FfuF2@%F\u>8--Ffs6%FJFerFet>F^w-Fdo6&-Fap6$F`r/F^rFdrFPFT%&falseG@%/F fuF2>8$F^wC'>8/-T)6$8.F2>%._EnvBranchCutGFgw>8*-T+6&,&-%%subsG6$/F^r,&8'F_o&F^x FdpF_oF`rF_o-F\y6$/F^rF`yF`rFjtF^x7#-Fap6$FayF_oFen@$330FfxF20-F]o6$FfqFfxFgq/- F]o6$F[rFfxF2>Ffx-Fis6%FiuFjuFfx@%/FfxF2>F[xF^w>F[x-T-6$F^w-Ffs6%-Fap6$Ffx/F`yF drFfuFet3Fcq4--T/6#-F]o6$""(FN6$F2FiqOFesC$@%/-F]o6$FfqFJFgq>F[xF2>F[x-T16%FJFN Fet@$0-F]o6$FivFJFjvC$>8%-T36'FNFh\lFPFTF_o@%0F\]lF2C%@$0-F]o6$FitFJF2>F\]l-T56 $F\]lFe]l>F\]l-T76$F\]lFP>F[x-Fjz6$F[xF\]lOFco-Fis6$/F_p-F\y6$/F^qF]pFarF[xF@F@ 68%6_thismoduledefinitionGb6#%+thismoduleG6dp%5multiseries/2polynomG%4multiseri es/AddBigOG%4multiseries/AddDoitG%6multiseries/AddSeriesG%multiseries/newseries/recurseG%0multiseries/powG%2 multiseries/powerG%8multiseries/run/cleanupG%0multiseries/runG%1multiseries/sig nG%=multiseries/splitmultiseriesG%5multiseries/truncateG%'jsc_94G%+lncoeffdomG% ,minwithcompG%'newvarG%.series2SERIESG%+subsorevalG%+TypeForestG%2multiseries/a ddMSG%2multiseries/mulMSG%)newscaleG6%%(packageGF?%jnCopyright~(c)~Maplesoft,~a ~division~of~Waterloo~Maple~Inc.~2005G60%*_pexportsG%%initG%,multiseriesG%&limi tG%'asymptG%'seriesG%'taylorG%,LeadingTermG%,AddFunctionG%2FunctionSupportedG%, GetFunctionG%/RemoveFunctionG%+SeriesInfoG%*oldseriesGF@6#QRa~package~for~manip ulating~multiseries~expansionsF@6.F.Fau%,diff/SERIESG%-print/SERIESG%+print/_va rG%+type/SCALEG%,type/SERIESG%.type/ScaleVarG%9type/MultiSeries:-taylorG%9type/ MultiSeries:-seriesG%.type/t_SERIESG%%_varGF@F@F]clc2multiseries/limit&:-460Fj_ lc;multiseries/Convert2SERIES&:-409Ffdlc)newscale&:-485Ficlc0multiseries/run&:- 472Fa_lc4multiseries/AddDoit&:-400Fh_lc?multiseries/ComparisonFunction&:-407Fi_ lc=multiseries/ComposeClassical&:-408Ffclc0multiseries/pow&:-469Ff`lc4multiseri es/MulDoit&:-421Fialc=multiseries/compose/makebigo&:-440F-6#/%+modulenameG%,Mul tiSeriesG M7R0 I&:-449f*6&%%exprG%&scaleG%$varG%&orderG6'%$limG%%lim2G%*asymptdirG%'argseqG%$r esG6#%fqCopyright~(c)~2006~by~the~Algorithms~Project,~INRIA.~All~rights~reserve d.~-~generated~05/16/2006~@~11:15:54G6"C)@$/9$""!O-T%6&-%'AiryBiG6#F69%9&%&fals eG>8$-T'6%F5F>F?>8%FB@'/FB%*undefinedGYQ9unable~to~compute~seriesF1-%$hasG6$FB% )infinityGC$@'-FN6$FB%$expG>8&-%#opG6#-%'selectG6%%%typeGFB-%)specfuncG6$%)anyt hingGFU2"""-%%nopsG6#FB>FW-%)argumentG6#-%%subsG6$/FPF^oFB>FWF6>FBFP>FW-FdoFao@ %/FBFP>8'6&-T)6'F5!""F>F?9'F>F?Fgp>Fap6&-T+6$F5-F96&,$FBFfpF>F?F@F>F?Fgp@'/FBF6 >8(-&T-6$FFcq-&Ffq6%FF ?FgpYFL>Fcq-%%evalG6$-&Ffq6$F<%8_AnyFiniteOrdinaryPointGFhq/FatFB-%'subsopG6$/" "*-.F<6#-FY6$FgtF5FcqF1F16.%6_thismoduledefinitionGb6#%+thismoduleG6dp%5multise ries/2polynomG%4multiseries/AddBigOG%4multiseries/AddDoitG%6multiseries/AddSeri esG%multiseries/newseries/rec urseG%0multiseries/powG%2multiseries/powerG%8multiseries/run/cleanupG%0multiser ies/runG%1multiseries/signG%=multiseries/splitmultiseriesG%5multiseries/truncat eG%'jsc_94G%+lncoeffdomG%,minwithcompG%'newvarG%.series2SERIESG%+subsorevalG%+T ypeForestG%2multiseries/addMSG%2multiseries/mulMSG%)newscaleG6%%(packageG%YCopy right~(c)~2002-2004~by~the~Algorithms~Project,~INRIAG%jnCopyright~(c)~Maplesoft ,~a~div