lib/gfun.mla...................................................................................................................................................................................................................................................!T"O gfuntype/gfun/freetype/gfun/has2diffeqs2type/gfun/has2diffeqs3type/gfun/identitytype/gfun/initeqgfun/rectoproc/symbolconvert/ndmatrixtype/ndmatrixtype/matrix_ringvalue/Coeftayl........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................:-25.m O"T:-68.m _O"T:-7.m21 O"T:-10.m74 RO"T:-53.m&0O"T:-106.mٷ O"T:-81.mS ?O"T:-96.m O"T:-134.m 'O"T:-190.m ZEO"T:-213.m "BO"T:-149.m ),O"T:-177.m 6*O"T:-162.m 6NO"T:-320.m Z-O"T:-284.m *O"T:-256.m jO"T:-241.m OO"T:-307.m gO"T:-228.m jO"T:-335.m lO"T:-378.m o\O"T:-299.m O"T:-363.m 7`O"T:-391.m oO"T:-119.mk eO"T:-51.mO"T:-94.m O"T:-23.m( O"T:-132.mu O"T:-38.m9 O"T:-104.mpeO"T:-66.mO"T:-5.mԿ O"T:-160.mO"T:-175.m qO"T:-211.m 65O"T:-147.m 7 TO"T:-361.m FJO"T:-269.m G3O"T:-254.m O"T:-305.m 7*O"T:-226.m C~O"T:-333.m O"T:-376.m KO"T:-297.m $OO"T:-282.m sKO"T:-348.m O"T:-102.m'1 O"T:-130.m" O"T:-92.m7Z UO"T:-64.mBO"T:-21.ma O"T:-3.mO"T:-79.mM =O"T:-36.m O"T:-117.m< O"T:-145.mO"T:-188.m 6O"T:-173.m =O"T:-224.m JjrO"T:-303.m kO"T:-267.m .O"T:-295.m )O"T:-331.m &O"T:-374.m O"T:-318.m O"T:-239.m NO"T:-252.m pO"T:-280.m r6O"T:-346.m vO"T:-389.m ?O"Ttype/matrix_ring.m AO"Ttype/gfun/has2diffeqs3.mL O"T:-34.m O"T:-143.m6 GO"T:-100.m O"T:-77.mDpO"T:-62.mSO"T:-1.m| O"T:-115.mj :O"T:-90.m *O"T:-49.mO"T:-186.m6O"T:-209.m :9O"T:-158.m zPO"T:-171.m ,6O"T:-237.m O"T:-359.m O"T:-222.m wO"T:-301.m 1O"T:-387.m 37O"T:-293.m ^O"T:-372.m ,O"T:-344.m O"T:-316.m F>O"T:-250.m O"T:-265.m c.O"T:-128.m O"T:-75.mu GO"T:-60.m;7O"T:-32.m} cO"T:-113.m O"T:-47.m0} O"T:-19.m .O"T:-141.mnI O"T:-207.m9O"T:-199.m7O"T:-156.m HO"T:-184.m +r5O"T:-329.m bkO"T:-370.m dq,O"T:-385.m {7O"T:-220.m `jO"T:-278.m PO"T:-357.m JO"T:-263.m y.O"T:-342.m |O"T:-291.m WO"T:-314.m 2O"T:-235.m O"Ttype/gfun/initeq.m`> O"T:-111.mҜ O"T:-15.msQO"T:-71.m aO"T:-139.m0`O"T:-124.mА O"T:-58.mI$O"T:-43.mI5 O"T:-152.mTO"T:-195.m8O"T:-167.m O"T:-180.m 5O"T:-203.m >O"T:-218.m +.DO"T:-246.m J:0O"T:-274.m JcO"T:-353.m ^O"T:-310.m O"T:-231.m iO"T:-325.m xO"T:-381.m `O"T:-289.m O"T:-368.m ,O"Ttype/gfun/free.m8 O"T:-41.mU, O"T:-109.m  iO"T:-137.m# O"T:-122.m =O"T:-99.m- O"T:-84.m O"T:-56.m"0O"T:-28.m  UO"T:-13.m^O"T:-216.m` O"T:-35.m O"T:-20.m O"T:-187.m6O"T:-159.m sMO"T:-172.m qsO"T:-302.m ;O"T:-266.m Wq.O"T:-294.m WO"T:-238.m dO"T:-330.m O"T:-373.m oO"T:-223.m 5]O"T:-317.m |O"T:-251.m 0O"T:-345.m ?%6O"T:-388.m C7O"Tgfun.m$O"Ttype/gfun/has2diffeqs2.mB O"Ttype/gfun/identity.mVY O"T:-76.m O"T:-33.m'8O"T:-61.mgO"T:-129.m O"T:-114.m.O"T:-48.mFO"T:-142.m O"T:-208.m @O"T:-157.m vO"T:-185.m 46O"T:-170.m 4UwO"T:-300.m 2O"T:-386.m 7O"T:-292.m O"T:-358.m 8}O"T:-371.m ,O"T:-279.m ;wO"T:-343.m UfO"T:-221.m X#O"T:-315.m z3O"T:-236.m O"T:-264.m 92O"T:-127.m^ @O"T:-112.m ;O"T:-18.m O"T:-31.mX O"T:-89.mύ *O"T:-140.m RO"T:-46.mO"T:-74.mr BO"T:-206.m^findequationgivenorderratpolyG%?findequationg ivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG% *interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matint erpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,ch eckresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/St orjohannmodpG6%%(packageG/%%loadGF`o/%'unloadGFao6hn%.algfuntoalgeqG%.algebraic subsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%. diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+Stor johannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtore c/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG %(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,m inordereqnG%*optionsgfG%(versionG6"Ffx6(%/type/gfun/freeG%7type/gfun/has2diffeq s2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rect oproc/symbolGFfx%-_m4331366000G6`pc,GFUN_HIDDEN%:-61c.NUMGFUN_SETUP%:-62c0NUMGF UN_CLEANUP%:-63c3algeqtoseries/doit%:-64c:algeqtoseries/prettyprint%:-65c/algfu ntoalgeq2%:-66c7algfuntoalgeq/formpoly%:-67c.borelinvborel%:-68c/cheapgausselim %:-69c*expintalg%:-70c-firstnonzero%:-71c,formatpoleq%:-72c,funtodiffeq%:-73c(g etname%:-74c.guessandcheck%:-75c+indicialeq%:-76c-infsolvepoly%:-77c3infsolvepo ly/found%:-78c4infsolvepoly/isroot%:-79c(inicond%:-80c.inifromseries%:-81c,isho lonomic%:-82c'lindep%:-83c-listprimpart%:-84c2listtoseriestable%:-85c(l2r/l2r%: -86c(l2h/l2h%:-87c+makediffeq%:-88c)maxindex%:-89c)minindex%:-90c(mygcdex%:-91c )myisolve%:-92c*nbinicond%:-93c+powcompose%:-94c1powcomposesimple%:-95c5powcomp osesimpledoit%:-96c*powdivide%:-97c*powrevert%:-98c,powtruncate%:-99c/pprimekno wingp&:-100c1rectodiffeq/doit&:-101c1rectohomrec/doit&:-102c4rectoproc/checkcon d&:-103c8gfun/rectoproc/binsplit&:-104c=rectoproc/binsplitparameters&:-105c+gfu n_pade2&:-106c0gfun_pade2/doit&:-107c4ratpolytocoeff/elmt&:-108c4ratpolytocoeff /poly&:-109c/rectohomrecbis&:-110c(s2d/s2d&:-111c(s2a/s2a&:-112c,systomatrix&:- 113c*typecheck&:-114c*CheckName&:-115c$@@D&:-116c&mymap&:-117c+finddiffeq&:-118 c*findalgeq&:-119c6rationalinterpolation&:-120c-findequation&:-121c7findequatio ngivenorder&:-122c>findequationgivenorderratpoly&:-123c?findequationgivenorderr ational&:-124c*do_reduce&:-125c;findequationgivenordermodp&:-126c'degmat&:-127c (degvect&:-128c*interpmat&:-129c+interpvect&:-130c,matmultmodp&:-131c0matmultve ctmodp&:-132c-vectmultmodp&:-133c.matinterpmodp&:-134c8matinterpmodpearlyabort& :-135c(initmat&:-136c)tryearly&:-137c2checkresultnormal&:-138c,checkresult&:-13 9c0normalizeresult&:-140c%lift&:-141c.HighOrderComp&:-142c6Matrix_inverse_Newto n&:-143c/Storjohannmodp&:-144%(_syslibG M7R0 I/type/gfun/freef*6$%"xG%"yG6"F'F'4-%$hasG6$9$9%F'F'6$%6_thismoduledefinitionGb 6#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/e lmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%* typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpol ationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG% ?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degm atG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmul tmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkres ultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inver se_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF5/%'unloadGF66hn%.algfuntoalgeq G%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diff eq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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(F"%7type/gfun/has2diffeqs2G% 7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectopro c/symbolGF'F'%(_syslibG M7R0 I7type/gfun/has2diffeqs2f*6#%"xG6"F&F&-%'memberG6$9$<%.%'AiryAiG.%'AiryBiG.%%er fcGF&F&6$%6_thismoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0 gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%( s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddif feqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorder G%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG% ;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmu ltmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabo rtG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%l iftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loa dGF9/%'unloadGF:6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoser iesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeq G%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 F&F&6(%/type/gfun/freeGF"%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/g fun/initeqG%6gfun/rectoproc/symbolGF&F&%(_syslibG M7R0 I7type/gfun/has2diffeqs3f*6#%"xG6"F&F&-%'memberG6$9$<#.%*LegendrePGF&F&6$%6_thi smoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doit G%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s 2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeq G%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequation givenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgi venordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmul tvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%) tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrder CompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF5/%'unloadGF 66hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.c auchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG %*gfun_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexp ortsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalu es/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeq nG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF&F&6(%/type/gf un/freeG%7type/gfun/has2diffeqs2GF"%3type/gfun/identityG%1type/gfun/initeqG%6gf un/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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_p ade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2 dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%* findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>fin dequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;finde quationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodp G%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(i nitmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%. HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF=/% 'unloadGF>6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%& borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,dif feqtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_ter mG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goo dinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG% *maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF&F&6( %/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3GF"%1type/gfu n/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 oduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4rat polytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheck G%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-f indequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequa tiongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degv ectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.m atinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormal G%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_Newton G%/StorjohannmodpG6%%(packageG/%%loadGF\o/%'unloadGF]o6hn%.algfuntoalgeqG%.alge braicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diff eqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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% +StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffe qtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues /recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeq nG%,minordereqnG%*optionsgfG%(versionGF+F+6(%/type/gfun/freeG%7type/gfun/has2di ffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityGF"%6gfun/rectoproc/symbolG F+F+%(_syslibG M7R0 I6gfun/rectoproc/symbol=6"%&falseGE\[l'Q)arg_main6"%"nGQ*loc_extraF(%%xlocGQ(lo c_tmpF(%$tmpGQ,loc_genericF(%$locGQ*arg_paramF(%"bGQ)loc_loopF(%"iG%(_syslibG M7R0 I&:-119f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/d oitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2 a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findal geqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequat iongivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequatio ngivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0mat multvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmat G%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOr derCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFT/%'unloa dGFU6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG %.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtor ecG%*gfun_padeG%)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%+StorjohannG%+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+Fiqc-findequation&:-121/%+mod ulenameG%%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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolyto coeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systoma trixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationali nterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderra tpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodp G%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%- vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2c heckresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matri x_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFS/%'unloadGFT6hn%.algfun toalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproduct G%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG %)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%+StorjohannG%+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/Finc(getname%:-74F`uc,poltodiffeq%:-266$%*pr otectedG/%+modulenameG%%gfunG M7R0 I&:-136f*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#%+ thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG %4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*type checkG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolatio nG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?fin dequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG% (degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmod pG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultn ormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_N ewtonG%/StorjohannmodpG6%%(packageG/%%loadGFbs/%'unloadGFcs6hn%.algfuntoalgeqG% .algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq +diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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%(versionGF2F26(%/type/gfun/freeG%7type/gfun/h as2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6 gfun/rectoproc/symbolGF2F2/%+modulenameG%%gfunG M7R0 I%:-25f*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,&FSFVFMFVFjnFSFcpFSFioFcp@%/Faq%%FAILGF`r-Fjq6$/FS,&FSFVFMF` pFaqFBFB6&%6_thismoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G% 0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG% (s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddi ffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorde rG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG %;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matm ultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyab ortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%% liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%lo adGF\s/%'unloadGF]s6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqto seriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdif feqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 onGFBFB6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3t ype/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGFBFBFiuc0gfun_pade 2/doit&:-1076$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-42f*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@%5'-%$rhsGFI.%*nonnegintG3/Fgn%)infinityG/FCFTC'>8&7#-%(expor tsG6#FM>8'7#-Fdo6$FM.%)instanceG-FQ6%FCFao.8(-%'assignG6$&Fgo6#F`pFgnFKY6%Q9inv alid~value~for~%1:~%2F,FCFgn/FC._F,%*optionsgfG@%'Fgn-.%%listG6#<)-.%*identical G6#.%$egfG-Feq6#.%'lgdegfG-Feq6#.%'lgdogfG-Feq6#.%$ogfG-Feq6#.%'revegfG-Feq6#.% 'revogfG-Feq6#.T)C$>T+FgnFKYFgpYQ2can't~set~versionF,&FM6#-FEFIF,F,6,%6_thismod uledefinitionGb6#%+thismoduleG6`p%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANU PG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoa lgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,for matpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3 infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomi cG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG %)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcompos esimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimekn owingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/recto proc/binsplitG%=rectoproc/binsplitparametersG%+gfun_pade2G%0gfun_pade2/doitG%4r atpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG% ,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6r ationalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgive norderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgiveno rdermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvec tmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)trye arlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderComp G%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFbt/%'unloadGFct6 hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cau chyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%* gfun_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexpor tsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues /diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffGFV%*maxdegeqnG%,mindegcoef fG%*mindegeqnGFYF\q%(versionGF,F,6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7 type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc /symbolGF,F,Fgwc*CheckName&:-115F_t`6hnc.algfuntoalgeq$:-1c.algebraicsubs$:-2c. algeqtodiffeq$:-3c.algeqtoseries$:-4c&borel$:-5c.cauchyproduct$:-6c.diffeq+diff eq$:-7c.diffeq*diffeq$:-8c2diffeqtohomdiffeq$:-9c,diffeqtorec%:-10c*gfun_pade%: -11c)guesseqn%:-12c(guessgf%:-13c0hadamardproduct%:-14c0holexprtodiffeq%:-15c)i nvborel%:-16c(Laplace%:-17c,listtoalgeq%:-18c-listtodiffeq%:-19c0listtohypergeo m%:-20c+listtolist%:-21c.listtoratpoly%:-22c*listtorec%:-23c-listtoseries%:-24c &pade2%:-25c,poltodiffeq%:-26c)poltorec%:-27c/ratpolytocoeff%:-28c(rec+rec%:-29 c(rec*rec%:-30c,rectodiffeq%:-31c,rectohomrec%:-32c*rectoproc%:-33c.seriestoalg eq%:-34c/seriestodiffeq%:-35c2seriestohypergeom%:-36c-seriestolist%:-37c0series toratpoly%:-38c,seriestorec%:-39c/seriestoseries%:-40c+Storjohann%:-41c+Paramet ers%:-42c(NumGfun%:-43c)nth_term%:-44c*_pexports%:-45c,diffeqtable%:-46c1diffeq torec/doit%:-47c-formatdiffeq%:-48c*formatrec%:-49c6goodinitvalues/diffeq%:-50c 3goodinitvalues/rec%:-51c(makerec%:-52c,maxdegcoeff%:-53c,maxordereqn%:-54c*max degeqn%:-55c,mindegcoeff%:-56c*mindegeqn%:-57c,minordereqn%:-58c*optionsgf%:-59 c(version%:-60F]t6`pc,GFUN_HIDDEN%:-61c.NUMGFUN_SETUP%:-62c0NUMGFUN_CLEANUP%:-6 3c3algeqtoseries/doit%:-64c:algeqtoseries/prettyprint%:-65c/algfuntoalgeq2%:-66 c7algfuntoalgeq/formpoly%:-67c.borelinvborel%:-68c/cheapgausselim%:-69c*expinta lg%:-70c-firstnonzero%:-71c,formatpoleq%:-72c,funtodiffeq%:-73c(getname%:-74c.g uessandcheck%:-75c+indicialeq%:-76c-infsolvepoly%:-77c3infsolvepoly/found%:-78c 4infsolvepoly/isroot%:-79c(inicond%:-80c.inifromseries%:-81c,isholonomic%:-82c' lindep%:-83c-listprimpart%:-84c2listtoseriestable%:-85c(l2r/l2r%:-86c(l2h/l2h%: -87c+makediffeq%:-88c)maxindex%:-89c)minindex%:-90c(mygcdex%:-91c)myisolve%:-92 c*nbinicond%:-93c+powcompose%:-94c1powcomposesimple%:-95c5powcomposesimpledoit% :-96c*powdivide%:-97c*powrevert%:-98c,powtruncate%:-99c/pprimeknowingp&:-100c1r ectodiffeq/doit&:-101c1rectohomrec/doit&:-102c4rectoproc/checkcond&:-103c8gfun/ rectoproc/binsplit&:-104c=rectoproc/binsplitparameters&:-105c+gfun_pade2&:-106c 0gfun_pade2/doit&:-107c4ratpolytocoeff/elmt&:-108c4ratpolytocoeff/poly&:-109c/r ectohomrecbis&:-110c(s2d/s2d&:-111c(s2a/s2a&:-112c,systomatrix&:-113c*typecheck &:-114F\^lc$@@D&:-116c&mymap&:-117c+finddiffeq&:-118c*findalgeq&:-119c6rational interpolation&:-120c-findequation&:-121c7findequationgivenorder&:-122c>findequa tiongivenorderratpoly&:-123c?findequationgivenorderrational&:-124c*do_reduce&:- 125c;findequationgivenordermodp&:-126c'degmat&:-127c(degvect&:-128c*interpmat&: -129c+interpvect&:-130c,matmultmodp&:-131c0matmultvectmodp&:-132c-vectmultmodp& :-133c.matinterpmodp&:-134c8matinterpmodpearlyabort&:-135c(initmat&:-136c)tryea rly&:-137c2checkresultnormal&:-138c,checkresult&:-139c0normalizeresult&:-140c%l ift&:-141c.HighOrderComp&:-142c6Matrix_inverse_Newton&:-143c/Storjohannmodp&:-1 44F\[lF__lF\qFial6$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-597$%$ogfG%$egfG/%+modulenameG%%gfunG M7R0 I%:-76f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4 ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG %,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6 rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgiv enorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgiven ordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultve ctmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)try earlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCom pG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFhq/%'unloadGFiq 6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.ca uchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG% *gfun_padeG%)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%+StorjohannG%+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%(versionGF2F26(%/type/gfu n/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG% 1type/gfun/initeqG%6gfun/rectoproc/symbolGF2F2/%+modulenameG%%gfunG M7R0 I%:-93f*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%?finde quationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(d egvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG %.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnor malG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_New tonG%/StorjohannmodpG6%%(packageG/%%loadGFfn/%'unloadGFgn6hn%.algfuntoalgeqG%.a lgebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+d iffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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.Fdoc+indicialeq%:-76F_oc-firstnonzero%:-71/%+modulename G%%gfunG M7R0 I&:-110f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/pol yG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$ @@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7f indequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderr ationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmat G%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8 matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG %0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohannmo dpG6%%(packageG/%%loadGFgr/%'unloadGFhr6hn%.algfuntoalgeqG%.algebraicsubsG%.alg eqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*dif feqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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%(versionGF4F46(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/g fun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbo lGF4F4Fa[lc*formatrec%:-49Fc[lc3goodinitvalues/rec%:-51Fd[lc(makerec%:-52/%+mod ulenameG%%gfunG M7R0 I&:-111f*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 `p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytoc oeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Chec kNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequa tionG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgiv enorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*i nterpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinter pmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,chec kresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Stor johannmodpG6%%(packageG/%%loadGFM/%'unloadGFN6hn%.algfuntoalgeqG%.algebraicsubs G%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diff eq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+Storjoha nnG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/do itG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(ma kerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minor dereqnG%*optionsgfG%(versionGF+F+6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7 type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc /symbolGF+F+F_qc+finddiffeq&:-118/%+modulenameG%%gfunG M7R0 I&:-128f*6#%"AG6#%"iG6"F(,&-%$maxG6#-%$seqG6$-%%nopsG6#&9$6#8$/F6;"""-%#opG6$F9 F4F9!""F9F(F(6$%6_thismoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pa de2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrec bisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+f inddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgive norderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_re duceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG% ,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpea rlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresu ltG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG /%%loadGFE/%'unloadGFF6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.alge qtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohom diffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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(/%+modulena meG%%gfunG M7R0 I%:-17f*6"F$F$F$-T%6$%&falseG9"F$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6` p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytoco eff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Check NameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequat ionG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgive norderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*in terpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterp modpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,check resultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storj ohannmodpG6%%(packageG/%%loadGF1/%'unloadGF26hn%.algfuntoalgeqG%.algebraicsubsG %.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffe q*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+Storjohan nG%+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%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7t ype/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/ symbolGF$F$F7c.borelinvborel%:-686$%*protectedG/%+modulenameG%%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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/r ectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG% &mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findeq uationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderration alG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+in terpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matin terpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0nor malizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6% %(packageG/%%loadGFao/%'unloadGFbo6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtod iffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG% 2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+Parame tersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-format diffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,max degcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*op tionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/h as2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF$F $Ferc*typecheck&:-114F\wc.seriestoalgeq%:-34F_wc-seriestolist%:-37F\vc,listtoal geq%:-186$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-51f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytoc oeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomat rixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalin terpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderrat polyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG %'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-v ectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2ch eckresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix _inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFgjl/%'unloadGFhjl6hn%.alg funtoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyprod uctG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_pa deG%)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%+StorjohannG%+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%(versionGFAFA6(%/type/gfun/freeG% 7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gf un/initeqG%6gfun/rectoproc/symbolGFAFAF`[mc-firstnonzero%:-71Fdcmc(makerec%:-52 Fj]mc,systomatrix&:-1136$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-68f*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#%+thismoduleG6`p %,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoe ff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckN ameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequati onG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgiven orderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*int erpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpm odpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkr esultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjo hannmodpG6%%(packageG/%%loadGF^p/%'unloadGF_p6hn%.algfuntoalgeqG%.algebraicsubs G%.algeqtodiffeqG%.algeqtoseriesGF%%.cauchyproductG%.diffeq+diffeqG%.diffeq*dif feqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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/Fjpc(getname%:-74Fawc)poltorec%:-27F`vc,diffeqtorec%:-10Fewc,rectodiffeq% :-31/%+modulenameG%%gfunG M7R0 I%:-85=6"%&falseGE\[l)%'lgdegfGf*6$%"LG%"xG6$%"iG%#nlG6#%\pCopyright~(c)~1992-2 008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.GF$C$>8%-%%nopsG6# 9$-%'seriesG6%*&-%$addG6$*(&F76#8$""")9%,&FBFC!"#FCFC-%*factorialG6#FF!""/FB;"" #F3FC-F=6$*(F@FC)FE,&FBFCFKFCFC-FI6#FSFK/FB;FCF3FKFE,&F3FCFKFCF$F$6$%6_thismodu ledefinitionGb6#%+thismoduleG6`p%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUP G%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoal geq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,form atpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3i nfsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomic G%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG% )maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcompose simpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimekno wingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectop roc/binsplitG%=rectoproc/binsplitparametersG%+gfun_pade2G%0gfun_pade2/doitG%4ra tpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%, systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6ra tionalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgiven orderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenor dermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvect modpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryea rlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG %6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFjn/%'unloadGF[o6h n%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauc hyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*g fun_padeG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%( LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtorat polyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoe ffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG %/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriest orecG%/seriestoseriesG%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexport sG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/ 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/identityG%1t ype/gfun/initeqG%6gfun/rectoproc/symbolGF$F$%$egfGf*6$%"lGF+6#F-F/F$-F96%,&-F=6 $*(-%#opG6$FBF7FCFRFCFTFK/FB;FCF4FC-%"OG6#)FEF4FCFEF4F$F$6$FZFen%'revogfGf*F)F, F/F$C$>F3F4-T%6%-F96%,&-F=6$*&F@FCFRFCFVFC-Fhy6#)FEF3FCFEF3FEFXF$F$6&FZFenF^qc* powrevert%:-98%$ogfGf*FixF[yF/F$-F96%,&-F=6$*&FbyFCFRFCFeyFCFgyFCFEF4F$F$6$FZFe nc(Laplace%:-17f*FixF[yF/F$-F96%,&-F=6$*(FbyFCFRFCFTFCFeyFCFgyFCFEF4F$F$6$FZFen %'revegfGf*F)F,F/F$C$>F3F4-Faz6%-F96%,&-F=6$*(&F76#,&FBFCFCFCFC)FEFBFC-FIFAFK/F B;""!FXFCFizFCFEF3FEFXF$F$6&FZFenF^qF][l%'lgdogfGf*F)F,F/F$C$>F3F4-F96%*&-F=6$* (FBFCF\]lFCFRFC/FB;FCFXFCFfzFKFEFXF$F$6$FZFenFduFh[l/%+modulenameG%%gfunG M7R0 I&:-102f*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_redu ceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,m atmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearl yabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresult G%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/% %loadGFfo/%'unloadGFgo6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.alge qtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohom diffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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./%+modulena meG%%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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolyto coeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systoma trixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationali nterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderra tpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodp G%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%- vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2c heckresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matri x_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFS/%'unloadGFT6hn%.algfun toalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproduct G%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG %)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%+StorjohannG%+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/Finc(getname%:-74F`uc,poltodiffeq%:-266$%*pr otectedG/%+modulenameG%%gfunG M7R0 I&:-135f*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 eG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpoly tocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*C heckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-finde quationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequation givenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG %*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matin terpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,c heckresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/S torjohannmodpG6%%(packageG/%%loadGF`y/%'unloadGFay6hn%.algfuntoalgeqG%.algebrai csubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG% .diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guess gfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-lis ttodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtose riesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,re ctodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriesto hypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Sto rjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtor ec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/rec G%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%, minordereqnG%*optionsgfG%(versionGF;F;6(%/type/gfun/freeG%7type/gfun/has2diffeq s2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rect oproc/symbolGF;F;Fj]lc(initmat&:-136Fi]lc8matinterpmodpearlyabort&:-135F[^lc)tr yearly&:-137Fe]lc,matmultmodp&:-131/%+modulenameG%%gfunG M7R0 I&:-120f*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#%+thismoduleG6`p%, 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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff /polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNam eG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequation G%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenor derrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*inter pmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmod pG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkres ultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjoha nnmodpG6%%(packageG/%%loadGFE/%'unloadGFF6hn%.algfuntoalgeqG%.algebraicsubsG%.a lgeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*d iffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0hada mardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeq G%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pa de2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeq G%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeom G%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+StorjohannG% +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/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/sym bolGF)F)Fjpc-findequation&:-121/%+modulenameG%%gfunG M7R0 I%:-41f*6%%"MG%"vG%"xG6$%$resG%$dimG6"F+C%>8$-T%6%7$9$9%9&Q+StorjohannF+>8%-%#o pG6$"""F4-%'VectorG6#-%$mapG6$%'normalG7#-%$seqG6$*&&F.6#%"iGF<&F.6#,&F8FfindequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_r educeG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG %,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpe arlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeres ultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(package G/%%loadGFY/%'unloadGFZ6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.alg eqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtoho mdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 ersionGF+F+6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3 G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF+F+F^rc-finde quation&:-1216$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-26f*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 duleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratp olytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG %*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-fi ndequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequat iongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degve ctG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.ma tinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG %,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG %/StorjohannmodpG6%%(packageG/%%loadGFe_m/%'unloadGFf_m6hn%.algfuntoalgeqG%.alg ebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+dif feqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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 %+StorjohannG%+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%(versionGFPFP6(%/type/gfun/freeG%7type/gfun/has2d iffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun /rectoproc/symbolGFPFPFa`mc(getname%:-74F^hmc-formatdiffeq%:-48F`hmc6goodinitva lues/diffeq%:-50Fdamc*nbinicond%:-93Fh`mc.inifromseries%:-816$%*protectedG/%+mo dulenameGF^p M7R0 I%:-75f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_ pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s 2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG% *findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>fi ndequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;find equationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmod pG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%( initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG% .HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF`t /%'unloadGFat6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseries G%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%, diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_ termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6 goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereq nG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF2F 26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gf un/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF2F2Fb[lc&pade2%:-25/%+m odulenameG%%gfunG M7R0 I%:-60$"$i$!"#6$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-109f*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#%+thismoduleG6`p%,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%+ gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rect ohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&my mapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequat iongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG %*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+inter pvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinter pmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normal izeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(p ackageG/%%loadGFen/%'unloadGFfn6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiff eqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2di ffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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%(versionGF,F,6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2 diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF,F,/% +modulenameG%%gfunG M7R0 I%:-94f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0g fun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s 2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiff eqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG %>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%; findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmul tmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabor tG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%li ftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%load GFis/%'unloadGFjs6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtose riesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffe qG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 GF5F56(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3typ e/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF5F5F^vc,powtruncate %:-99Fjuc1powcomposesimple%:-95F_vc/pprimeknowingp&:-100/%+modulenameG%%gfunG M7R0 I&:-127f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpoly tocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systo matrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationa linterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorder ratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermo dpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG %-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG% 2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Mat rix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFR/%'unloadGFS6hn%.algf untoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyprodu ctG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_pad eG%)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%+StorjohannG%+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+/%+modulenameG%%gfunG M7R0 I&:-112f*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 `p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytoc oeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Chec kNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequa tionG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgiv enorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*i nterpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinter pmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,chec kresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Stor johannmodpG6%%(packageG/%%loadGFM/%'unloadGFN6hn%.algfuntoalgeqG%.algebraicsubs G%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diff eq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+Storjoha nnG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/do itG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(ma kerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minor dereqnG%*optionsgfG%(versionGF+F+6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7 type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc /symbolGF+F+F`qc*findalgeq&:-119/%+modulenameG%%gfunG M7R0 I%:-33f*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 hismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG% 4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typec heckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolation G%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?find equationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%( degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodp G%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultno rmalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_Ne wtonG%/StorjohannmodpG6%%(packageG/%%loadGFe]p/%'unloadGFf]p6hn%.algfuntoalgeqG %.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffe q+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG% 1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinit values/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mi ndegeqnG%,minordereqnG%*optionsgfG%(versionGFjoFjo6(%/type/gfun/freeG%7type/gfu n/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeq GFjpFjoFjoF_fpc*formatrec%:-49Fafpc3goodinitvalues/rec%:-51F^`pc4rectoproc/chec kcond&:-103F[_pc-listprimpart%:-84Fe`pc/rectohomrecbis&:-110F^epc,rectohomrec%: -32F``pc=rectoproc/binsplitparameters&:-105F_`pc8gfun/rectoproc/binsplit&:-1046 $%*protectedG/%+modulenameG%%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$FipFgnF_qF$F$6,%6_thismoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/ polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckName G%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG %7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenord errationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interp matG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodp G%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresu ltG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohan nmodpG6%%(packageG/%%loadGF`r/%'unloadGFar6hn%.algfuntoalgeqG%.algebraicsubsG%. algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq* diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0had amardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffe qG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&p ade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffe qG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeo mG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+StorjohannG %+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$Fduc*typecheck&:-114F[yc,listtoalgeq%:-18Fayc-listtoseries%:-24Fbuc(s2 a/s2a&:-1126$%*protectedG/%+modulenameGFfp M7R0 I%:-67f*6$%"tG%#YiG6"F'F'@%-%%typeG6$9$.%'RootOfG-%)frontendG6%%%subsG7$/.%#_ZG 9%-%#opG6#F,7$<$%"*G%"+G<#F4,&)F7-F96$""#-F96$FDF,""")-F96$FGF,-F96$FGFE!""F'F' 6$%6_thismoduledefinitionGb6#%+thismoduleG6`p%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NU MGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2 G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstn onzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-inf solvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG %,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG% +makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcompose G%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncat eG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG %8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%+gfun_pade2G%0gfun_pa de2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2d G%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*f indalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>find equationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findeq uationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG %0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(in itmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.H ighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFU/%' unloadGFV6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&b orelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diff eqtorecG%*gfun_padeG%)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%+StorjohannG%+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'/%+modulenameG%%gfunG M7R0 I%:-52f*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% *do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interp vectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterp modpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normali zeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(pa ckageG/%%loadGFjn/%'unloadGF[o6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffe qG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2dif feqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+Parameters G%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiff eqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegc oeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*option sgfG%(versionGF.F.6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2d iffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF.F.6$% *protectedG/%+modulenameG%%gfunG M7R0 I&:-101f*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%'is zeroG6#%\pCopyright~(c)~1992-2008~by~Algorithms~Project,~INRIA~France.~All~righ ts~reserved.G6"C1>8$-%$maxG6#-%#opG6#-%$mapG6%%'degreeG9$9&>8+-%&evalbG6#/9#""( >8%-%&ArrayG6$;!""FD/.%(storageG.%'sparseG>8.,&-%%nopsG6#FO"""!"#Feo>-%"DG6#9'. Fho?(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^ pFinFeoFeo>&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$FjqFi pFeoFjqFin>Fcp-FI6$FeoFO?(FipF_pFeoFjpF`pC$>&8*Ffq-%%subsG6$/FP,&FipFinFinFeoFc p>Fcp-F_q6%,&FcpFeoF`tFin*&,(FPFeoFipFeoFeoFeoFeo,&FipFeoFeoFeoFinFP>FZ7$,&*&F] rFeo),&FeoFeoFjqFinFipFeoFeo*&)FjqF`oFeo-Fhr6$*&&Fat6#F^pFeo)Fcu,(FipFeoF^pFinF inFeoFeo/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,$%)in finityGFin1FDFjv>FZ-%'subsopG6$/Feo,&-Far6$&FZ6#FeoFjqFeo-%(convertG6$-%'series G6%-%%evalG6#-Fct6%/-F[p6#Fjq,&-Fhr6$Fjr/F^s;F_pFjvFeo*&-%"OGF^zFeo)Fjq,&FjvFeo FeoFeoFeoFeoFgw-T'6%FZF[pFjqFjqFcy%(polynomGFinFZ@$5-%$hasG6$F]zF[p9)C+>81-%'se lectG6%F^\l-F^w6$F]z.%)functionGF[p@$30Fc\l<"4-%%typeG6$F]z-.%'linearG6#Fc\lYQ; invalid~inhomogeneous~partFA>FZ-Fct6$<#-Fav6$/&Fc\lFbs&83Fbs/F^s;Feo-FcoFf]lFZ> Fc\l7#-Fav6$Fa^lFc^l>FZ-Fgy6$/Feo-Far6$F]zFc\lFZ?&F^sFc\lF`p@$-F^\l6$F]zF^sC%>8 2-%&coeffG6%F]zF^sFeo>80,$-Fer6$Ff_lFjqFin>FZ7&-Far6%,&*&F[`lFeoF]zFeoFeo*&Ff_l Feo-FerF\zFeoFeoFc\l%'normalG,&*&F[`lFeo&FZ6#FgpFeoFeo*&Ff_lFeo-Fer6$Fj`lFjqFeo Feo-Fav6$,(*&F[`lFeo&FZ6#84FeoFeo*&Ff_lFeo-Fer6$FcalFjqFeoFeo*&Ff_lFeo&FZ6#,&Fe alFeoFinFeoFeoFeo/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-FL 6%FarFZFjq>FZ-T)6$FZFjq@%FRC$>6$Fgw85-T+6&FZF[pFjqFgw@$F]dlOF[[l>FgwF^]l>F[`l-F h[l6%FhxF[pFjq@%0FgwF^]l<$-FI6#FgwF[`lF[`lFAFA6,%6_thismoduledefinitionGb6#%+th ismoduleG6`p%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doi tG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borel invborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,formatpoleqG%,funtodiffe qG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4 infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomicG%'lindepG%-listprim partG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindex G%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcomposesimpleG%5powcomposes impledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/ doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/rectoproc/binsplitG%=recto proc/binsplitparametersG%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4 ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typech eckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG %-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?finde quationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(d egvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG %.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnor malG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_New tonG%/StorjohannmodpG6%%(packageG/%%loadGFcel/%'unloadGFdel6hn%.algfuntoalgeqG% .algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq +diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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%(versionGFAFA6(%/type/gfun/freeG%7type/gfun/h as2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6 gfun/rectoproc/symbolGFAFAFihlc$@@D&:-116F]glc+makediffeq%:-88Fiflc-listprimpar t%:-84F^^mc6goodinitvalues/diffeq%:-50/%+modulenameG%%gfunG M7R0 I%:-86f*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#%+thismoduleG6`p%,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%+gfun_pade2G %0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG %(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+findd iffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenord erG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduce G%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,mat multmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlya bortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG% %liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%l oadGFhp/%'unloadGFip6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqt oseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdi ffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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-Fctc-findequa tion&:-121Fgrc*nbinicond%:-93Faqc-firstnonzero%:-71/%+modulenameG%%gfunG M7R0 I%:-23f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0 gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%( s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddif feqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorder G%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG% ;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmu ltmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabo rtG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%l iftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loa dGF]r/%'unloadGF^r6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtos eriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiff eqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 nGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3ty pe/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF$F$Fauc*typecheck& :-114F]yc*listtorec%:-23F[yc+listtolist%:-21Fesc(l2r/l2r%:-866$%*protectedG/%+m odulenameGFcp M7R0 I%:-40f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/pol yG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$ @@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7f indequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderr ationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmat G%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8 matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG %0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohannmo dpG6%%(packageG/%%loadGFM/%'unloadGFN6hn%.algfuntoalgeqG%.algebraicsubsG%.algeq todiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffe qG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+Par ametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-for matdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%, maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG% *optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfu n/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolG F$F$F[qc*typecheck&:-114Fhuc/seriestoseries%:-40Feuc-seriestolist%:-37Fhtc-list toseries%:-246$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-121f*6&'%"LG%%listG'%"nG%%nameG'%'optypeG<)-%*identicalG6#Q%pade6"-F/6#Q+St orjohannF2-F/6#Q*algebraicF2-F/6#Q-differentialF2-F/6#Q,hermitepadeF2-F/6#Q+rec urrenceF2-F/6#Q6rationalinterpolationF2'%%degsG-F'6#%(integerG6$%$resG%$ordGF2F 2C%@'55/9&FD/FRF1/FRF5>8$-T%6'9$"""9%FR7#-%"$G6$""!""#/FRF>>FV-FX6'FZ,&-%%nopsG 6#FZFen!""FenFfnFR9'?(8%-%$maxG6$Fen-T)6#.T'Fen-Fjo6$F\p-%$minG6$,&FboFen!"#Fen -F]p6#.T+%%trueGC%-%)userinfoG6&Fen.%%gfunGQ>looking~for~equation~of~orderF2Fho >FV-FX6'FZFhoFfnFR7#-Fin6$F[o,&FhoFenFenFen@$0FV%%FAILG[>T--%'subsopG6$/""%%%NU LLG-%#opG6#F`r@%F\r-T/6#FVFVF2F260%6_thismoduledefinitionGb6#%+thismoduleG6`p%, 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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff /polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNam eG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequation G%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenor derrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*inter pmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmod pG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkres ultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjoha nnmodpG6%%(packageG/%%loadGFes/%'unloadGFfs6hn%.algfuntoalgeqG%.algebraicsubsG% .algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq *diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0ha damardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiff eqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%& pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiff eqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohyperge omG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Storjohann G%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doit G%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(make recG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minorde reqnG%*optionsgfG%(versionGF2F26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7ty pe/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/s ymbolGF2F2Fawc7findequationgivenorder&:-122Fh\lc,minordereqn%:-58Fh[lc+Paramete rs%:-42Fd\lc,maxordereqn%:-54Fdwc*do_reduce&:-125Fcxc0normalizeresult&:-140/%+m odulenameGFbq 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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff /elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG %*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterp olationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpoly G%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'de gmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectm ultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkr esultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inv erse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFgr/%'unloadGFhr6hn%.algfuntoa lgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%. diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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%(versionGFDFD6(%/type/gfun/freeG%7type/ gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/ini teqG%6gfun/rectoproc/symbolGFDFDFcsc(getname%:-74F`[lc-formatdiffeq%:-48F_[lc1d iffeqtorec/doit%:-47Fc[lc3goodinitvalues/rec%:-51Fd[lc(makerec%:-526#""$6$%*pro tectedG/%+modulenameG%%gfunG M7R0 I&:-138f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoef f/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrix G%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinter polationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpol yG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'d egmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vect multmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2check resultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_in verse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFap/%'unloadGFbp6hn%.algfunto algeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG% .diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%) 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%+StorjohannG%+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/symbolGF1F1F^uc,checkresult&:-139/%+modulenameG%%gfunG M7R0 I%:-91f*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#%+thismoduleG6`p%,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% +gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rec tohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&m ymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequa tiongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrational G%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+inte rpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinte rpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0norma lizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%( packageG/%%loadGFgw/%'unloadGFhw6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodif feqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2d iffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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%(versionGF8F86(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has 2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF8F8/ %+modulenameGF_q M7R0 I&:-108f*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 duleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratp olytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG %*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-fi ndequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequat iongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degve ctG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.ma tinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG %,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG %/StorjohannmodpG6%%(packageG/%%loadGFfq/%'unloadGFgq6hn%.algfuntoalgeqG%.algeb raicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffe qG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+ StorjohannG%+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/Fdtc4ratpolytocoeff/elmt&:-108/%+modulenameG%%gfunG M7R0 I%:-61<.%(makerecG%(versionG%*_pexportsG%,diffeqtableG%-formatdiffeqG%*formatre cG%,maxordereqnG%,minordereqnG%*optionsgfG%1diffeqtorec/doitG%6goodinitvalues/d iffeqG%3goodinitvalues/recG/%+modulenameG%%gfunG M7R0 I%:-78f*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&Ffindequa tiongivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequati ongivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0ma tmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initma tG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighO rderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFdo/%'unl oadGFeo6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&bor elG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeq torecG%*gfun_padeG%)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%+StorjohannG%+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,/%+modulenameG%%gfunG M7R0 I%:-15f*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"C9-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]p6%FE-F`p6$Ffo))-.%( polynomG6$FfpFBFgpFgpFB>Ffo-Fds6$7#-Fau6$/Fjp)-Ffq6$7$FWFWFjp*&-Ffq6$7$FWFiuFjp FWFguFW/FjpF^[lFfo>F^[l-F\s6%Fer-F]p6%FE-F`p6$Ffo)Fe[l-%*gfun/freeGFbrFB)FfpFjt ?(FjpFWFW-F`x6#F^[lFaxC'>FhoF_q>81-Fds6$/FBFio-Ffq6$FW&F^[lF\y>82,&*&F^^lFWFgsF WFW*(-Ffq6$FiuF`^lFW-Fhs6$F^^lFBFWFjsFWFX@%/Fj]lFio>F`sFb^l>F`s<$/-F[t6#Fio)Fj] lFf^lFb^l>Ffo-Fds6$/F`^lFjsFfo>F[p-F\s6%Fer-F`p6$Ffo<$-F\wFh[l-F^wFh[l-.%(ratpo lyGFh[l?(FjpFWFWF;F[qC(>FhoF_q>F[pFaq>Fiq-T+6&F_rFar.8..%*algebraicG>F`s-Fds6$F gx-T-6%FiqFarF[al>FfoF]t>F[p-F\s6%FerFj_lFe[l-T/6&Ffo7#-Fau6$&Fas6#8+/F`blFgz7# -Fau6$-&FAF_blFbrFablFarF;F;60%6_thismoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/pol yG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$ @@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7f indequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderr ationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmat G%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8 matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG %0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohannmo dpG6%%(packageG/%%loadGF^cl/%'unloadGF_cl6hn%.algfuntoalgeqG%.algebraicsubsG%.a lgeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*d iffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0hada mardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeq G%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pa de2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeq G%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeom G%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+StorjohannG% +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/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/sym bolGF;F;Fjclc(getname%:-74Fbdlc,isholonomic%:-82Ficlc,funtodiffeq%:-73Fhhlc.alg funtoalgeq$:-1Fjhlc.algeqtodiffeq$:-3Fajlc,poltodiffeq%:-266$%*protectedG/%+mod ulenameG%%gfunG M7R0 I&:-143f*6'%"MG%"tG%"xG%"pG%$dimG6(%$degG%"iG%"jG%$tmpG%$resG%)truncateG6"F1@%/ 9%""!-%$mapG6$f*6#%"uGF1F1F1-%&modp1G6$-%*ConvertInG6$9$T$T&F1F16&F'9&F(9'-__%. LinearAlgebraG%(ModularG%(InverseG6$FG-_FJ%$ModG6&FGFB/FFF5&%(integerGF1C.>8'-% 'rtableG6&;"""9(FfnF5/.%(subtypeG.%'MatrixG>8$-%%iquoG6$F4""#>8(-9!6'FBF_oFFFGF hn>8)-F=6$-%)MonomialG6$,&F4FgnFgnFgnFFFG-T'6'FG-T%6%F=-_FK%%Map2G6%%)MultiplyG -%)ConstantG6$!""FF-Fep6%F=-F76%%$RemGFBFjoFGFGFeoFXFF>FX-Fep6%F=-Fep6%FdqFXFjo FG?(8%FgnFgnFhn%%trueG>&FX6$F[rF[r-F=6$-%$AddG6$-%$OneG6#FFF^rFG-Fbp6'FGFeoFXFX FFFhq-_FK%$ZipG6&FcrFeoFX/%(inplaceGF\r-Fep6%F=FeoFGFeoF1F16(%6_thismoduledefin itionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolyto coeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systoma trixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationali nterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderra tpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodp G%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%- vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2c heckresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matri x_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFis/%'unloadGFjs6hn%.algf untoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyprodu ctG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_pad eG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,dif feqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG %3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindeg coeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF1F16(%/type/gfun/freeG%7 type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfu n/initeqG%6gfun/rectoproc/symbolGF1F1F`wc&mymap&:-117F^xc,matmultmodp&:-131/%+m odulenameG%%gfunG M7R0 I%:-32f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpoly tocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systo matrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationa linterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorder ratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermo dpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG %-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG% 2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Mat rix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFeo/%'unloadGFfo6hn%.al gfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchypro ductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_p adeG%)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%+StorjohannG%+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/F_xc*formatrec%:-49F^pc-firstnonzero%:-7 1Faxc3goodinitvalues/rec%:-51F]rc1rectohomrec/doit&:-102Fbxc(makerec%:-526$%*pr otectedG/%+modulenameG%%gfunG M7R0 I&:-113f*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_ reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvect G%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodp earlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizere sultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packag eG/%%loadGFfs/%'unloadGFgs6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%. algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqt ohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%(N umGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG% *formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeff G%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG %(versionGF2F26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffe qs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF2F2/%+modu lenameG%%gfunG 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 leG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpol ytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%* CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-find equationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequatio ngivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvect G%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.mati nterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%, checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/ StorjohannmodpG6%%(packageG/%%loadGFcdm/%'unloadGFddm6hn%.algfuntoalgeqG%.algeb raicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffe qG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+ StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeq torec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/ recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqn G%,minordereqnG%*optionsgfG%(versionGFMFM6(%/type/gfun/freeG%7type/gfun/has2dif feqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/r ectoproc/symbolGFMFMF]emc,formatpoleq%:-72F\]nc-formatdiffeq%:-48F]fmc+makediff eq%:-88F`fmc(mygcdex%:-91F^jmc.algebraicsubs$:-2Fhemc'lindep%:-83Faemc+indicial eq%:-76F\emc-firstnonzero%:-71Figmc$@@D&:-116F`jmc.algeqtoseries$:-4F^]nc6goodi nitvalues/diffeq%:-506$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-130f*6'%"pG%)listvectG%$dimG%$varG%$dirG6&%"iG%%lptsG%'resultG%%vectG6"F/C% >8%7#-%"$G6#;""!,&-%%nopsG6#9%"""!""F>?(8$F>F>9&%%trueG>&8&6#FA-%&modp1G6$-%'In terpG6%F27#-%$seqG6$&8'FG/FSF=9'9$-&%'VectorG6#9(6#7#-FP6$FE/FA;F>FBF/F/6$%6_th ismoduledefinitionGb6#%+thismoduleG6`p%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_C LEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algf untoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG %,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepo lyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,ishol onomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makedi ffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powc omposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/ppr imeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/ rectoproc/binsplitG%=rectoproc/binsplitparametersG%+gfun_pade2G%0gfun_pade2/doi tG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/ s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalge qG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequatio ngivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationg ivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmu ltvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG% )tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrde rCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFco/%'unload GFdo6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG %.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtor ecG%*gfun_padeG%)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%+StorjohannG%+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//%+modulenameG%%gfunG M7R0 I%:-83f*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 eG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpoly tocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*C heckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-finde quationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequation givenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG %*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matin terpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,c heckresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/S torjohannmodpG6%%(packageG/%%loadGFhs/%'unloadGFis6hn%.algfuntoalgeqG%.algebrai csubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG% .diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guess gfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-lis ttodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtose riesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,re ctodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriesto hypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Sto rjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtor ec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/rec G%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%, minordereqnG%*optionsgfG%(versionGF0F06(%/type/gfun/freeG%7type/gfun/has2diffeq s2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rect oproc/symbolGF0F0/%+modulenameGF]q M7R0 I&:-100f*6&%%poffG%"fG%"xG%"nG6"F)F)-T%6&-%%diffG6$9$9&-F.6$9%F1F19'F)F)6&%6_th ismoduledefinitionGb6#%+thismoduleG6`p%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_C LEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algf untoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG %,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepo lyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,ishol onomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makedi ffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powc omposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/ppr imeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/ rectoproc/binsplitG%=rectoproc/binsplitparametersG%+gfun_pade2G%0gfun_pade2/doi tG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/ s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalge qG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequatio ngivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationg ivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmu ltvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG% )tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrde rCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF=/%'unloadG F>6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%. cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorec G%*gfun_padeG%)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%+StorjohannG%+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)Fjnc*powdivide%:-97/%+modulenam eG%%gfunG M7R0 I%:-53G6$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-70f*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#%+thismoduleG6`p%,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%+gf un_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectoh omrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&myma pG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequatio ngivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%* do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpv ectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpm odpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normaliz eresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(pac kageG/%%loadGFbal/%'unloadGFcal6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiff eqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2di ffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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%(versionGFAFA6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2 diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGFAFAF \blc,formatpoleq%:-72F_clc(mygcdex%:-91Fgblc'lindep%:-83F[jlc-formatdiffeq%:-48 F`blc+indicialeq%:-76F[blc-firstnonzero%:-71Fhdlc$@@D&:-116F_glc.algeqtoseries$ :-4/%+modulenameG%%gfunG M7R0 I%:-39f*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#""%-FF6#/FHFDF$C$FcpYF$FioF$F$62%6_thismoduledefinitionGb6#%+thismoduleG6`p% ,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoef f/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNa meG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequatio nG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgiveno rderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*inte rpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmo dpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkre sultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjoh annmodpG6%%(packageG/%%loadGF_q/%'unloadGF`q6hn%.algfuntoalgeqG%.algebraicsubsG %.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffe q*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+Storjohan nG%+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%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7t ype/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/ symbolGF$F$Fctc*typecheck&:-114F_yc,seriestorec%:-39F]yc-seriestolist%:-37F^zc, maxordereqn%:-54Fbyc+Parameters%:-42Fbzc,minordereqn%:-58F_xc*listtorec%:-236$% *protectedG/%+modulenameG%%gfunG M7R0 I%:-24f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/poly G%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@ @DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7fi ndequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderra tionalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG %+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8m atinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG% 0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohannmod pG6%%(packageG/%%loadGFL/%'unloadGFM6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqt odiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeq G%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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$Fjpc*typecheck&:-114Fgtc-listtoseries%:-24F]oc2listtoseriestable%:-856$%*pro tectedG/%+modulenameG%%gfunG 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#%+thismoduleG6`p%,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%+gfun_pade 2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbi sG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+fin ddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgiveno rderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_redu ceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,m atmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearl yabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresult G%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/% %loadGF\r/%'unloadGF]r6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.alge qtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohom diffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 rsionGF3F36(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G %3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF3F3Fezc-format diffeq%:-48Fgzc6goodinitvalues/diffeq%:-50Ffsc+makediffeq%:-886$%*protectedG/%+ modulenameG%%gfunG M7R0 I&:-137f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratp olytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,sy stomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rati onalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenor derratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenorde rmodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmo dpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearl yG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6 Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFfr/%'unloadGFgr6hn% .algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchy productG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfu n_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG %,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/di ffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,m indegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF2F26(%/type/gfun/fr eeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1typ e/gfun/initeqG%6gfun/rectoproc/symbolGF2F2Fawc)tryearly&:-137F]wc-vectmultmodp& :-133/%+modulenameG%%gfunG M7R0 I&:-122f*6'%"LG%$ordG%"nG%'optypeG%%degsG6$%%indsG%'newvarG6"F-@'55-%%typeG6$9$ -%%listG6#%)rationalG3/9'Q,hermitepadeF--F26$F4-F66#F5/F;Q+StorjohannF--T%6'F49 %9&F;9(5-F26$F4-F66#-%(ratpolyGF73F:-F26$F4-F66#FL-%$mapG6$%'normalG-T'FEC%>8$- %'indetsG6$F4%)functionG@$/Fgn<"C$>Fgn-%*intersectG6$-Fin6$F4%%nameG<#%*constan tsG@$F]oC$>Fgn-%'removeG6%F2-Fin6#F4Ffo@$F]oC$>Fgn-F]p6%F2-Fin6$F4%)constantGF8 @$F]oY6$QMnot~a~list~of~ratpoly~over~the~rationals:~%1F-F4-%%subsG6$7#-%$seqG6$ /&8%6#%"iG&FgnFgq/Fhq;"""-%%nopsG6#Fgn-9!6$-F^q6$7#-Fbq6$/FiqFeqFjqF4&9"6#;""#! ""F-F-6(%6_thismoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0g fun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s 2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiff eqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG %>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%; findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmul tmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabor tG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%li ftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%load GFfs/%'unloadGFgs6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtose riesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffe qG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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-Fdwc?findequatio ngivenorderrational&:-124Fcwc>findequationgivenorderratpoly&:-123/%+modulenameG %%gfunG M7R0 I&:-107f*6&%#llG%"xG%%degsG%'nbiterG6"F)F)-T%6%-%$mapG6$_%%gfunG%-seriestolistG -F.6&%'seriesG,&9$"""7#-%"$G6$-%"OG6#)9%9'-%%nopsG6#F7F8FAFBFA9&F)F)6&%6_thismo duledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4 ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG %,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6 rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgiv enorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgiven ordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultve ctmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)try earlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCom pG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFN/%'unloadGFO6h n%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauc hyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*g fun_padeG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%( LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtorat polyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoe ffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG %/seriestodiffeqG%2seriestohypergeomGF2%0seriestoratpolyG%,seriestorecG%/series toseriesG%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtab leG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3good initvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG %*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF)F)6(%/type/gfun/freeG%7type/g fun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/init eqG%6gfun/rectoproc/symbolGF)F)Fdpc+gfun_pade2&:-106/%+modulenameGF1 M7R0 I%:-92f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/p olyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG %$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG% 7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorde rrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpm atG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG %8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresul tG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohann modpG6%%(packageG/%%loadGFgw/%'unloadGFhw6hn%.algfuntoalgeqG%.algebraicsubsG%.a lgeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*d iffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0hada mardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeq G%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pa de2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeq G%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeom G%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+StorjohannG% +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/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/sym bolGF/F/Feyc)myisolve%:-92/%+modulenameG%%gfunG M7R0 I%:-77f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/po lyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG% $@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7 findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorder rationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpma tG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG% 8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresult G%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohannm odpG6%%(packageG/%%loadGF_\l/%'unloadGF`\l6hn%.algfuntoalgeqG%.algebraicsubsG%. algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq* diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0had amardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffe qG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&p ade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffe qG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeo mG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+StorjohannG %+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG %-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(maker ecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minorder eqnG%*optionsgfG%(versionGF7F76(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7typ e/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/sy mbolGF7F7F_]lc3infsolvepoly/found%:-78F`]lc4infsolvepoly/isroot%:-79/%+modulena meG%%gfunG M7R0 I%:-62t+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&:-1456#"""/%+modulenameG%%gfunG M7R0 I%:-31t+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%?findequationgivenord errationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interp matG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodp G%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresu ltG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohan nmodpG6%%(packageG/%%loadGFip/%'unloadGFjp6hn%.algfuntoalgeqG%.algebraicsubsG%. algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq* diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0had amardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffe qG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&p ade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffe qG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeo mG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+StorjohannG %+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG %-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(maker ecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minorder eqnG%*optionsgfG%(versionGFfindequationgivenorderratpolyG%?findequationgive norderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*in terpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterp modpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,check resultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storj ohannmodpG6%%(packageG/%%loadGF1/%'unloadGF26hn%.algfuntoalgeqG%.algebraicsubsG %.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffe q*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+Storjohan nG%+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%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7t ype/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/ symbolGF$F$F7c.borelinvborel%:-686$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-144f*6&%"MG%"vG%"xG%"pG62%$dimG%#MMG%#vvG%"dG%"EG%"AG%"BG%"iG%&ordreG%"XG%" SG%$denG%"VG%'minusMG%$defG%'invlcoG6"F:C8>8$-%#opG6$7$"""FB9$>8%-%$mapG6%%*Con vertInGFC9&>FE-T%6%%&modp1GFE9'>8&-FG6%FI9%FJ>FR-FM6%FOFRFP>8'-%$maxG6$-T'6#FE, &-T)6#FRFBFBFB>8,,&-%&ilog2G6#F=FB""#FB>8--FO6$-%)MonomialG6$FZFJFP>8(-T+6(FEF` oFZFgoFJFP>8)-T-6&FP&F^p6#FBFRFJ>Fcp-FM6%FO-%$<|gr>G6$-FG6%%$RemGFcpFgo-FG6%Faq -FG6%%$QuoGFcpFgoFgoFP>81-FM6%FO-FG6%%)MultiplyGFE-%)ConstantG6$!""FJFP?(8+FBFB F`o%%trueG>Fcp-F]q6$-%%copyG6#Fcp-T/6(FcpFhq&F^p6#FcrFJFgoFP>Fcp-FM6$f*6#%"uGF: F:F:6$-F?6#FC-%"$G6$""!,&T#FB-%%nopsGFhsFarF:F:6$F-FZ-FM6%FO-FM6$%+ConvertOutGF cpFP>Fcp-%'VectorG6$F=7#-%$seqG6$-FO6$-FI6$7#-F]u6$&Fcp6$Fcr%"jG/Fhu;FB,&F=FeoF BFBFJFP/Fcr;FBF=>80-FG6%F_r-__%.LinearAlgebraG%(ModularG%'RandomG6&FPF=F\t&%(in tegerGF:FJ>8.-FO6$-%$AddG6#-F]u6$-F]r6$&F_vF_s&FcpF_sF\vFP>6$8/82-T16*7$-FO6$-% $OneG6#FJFPF\wF\t,$*&F=FBFZFBFeoFeo7$F\tF\tFJFPQ-differentialF:@%0F[xFdrC$-%'me mberG6%-Ffn6#-F?6#F[xF[x.Fcr>Fjw&Fjw6$FcrFeo>Fjw&Fjw6#Feo>83-F_r6$-%%modpG6$*$- FO6$-%'LcoeffG6#FjwFPFarFPFJ>Fjw-FO6$-F]r6$FjwF[zFP6$-FM6%FO-FM6%Faq-FM6%F]rFcp Fjw-F[p6$FfxFJFPFjwF:F:62%6_thismoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/r ectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG% &mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findeq uationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderration alG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+in terpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matin terpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0nor malizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6% %(packageG/%%loadGF\\l/%'unloadGF]\l6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqt odiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeq G%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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:Fc_lc&mymap&:-117F]`lc'degmat&:-127F^`lc(degvect&:-128F\alc.HighOrderComp&:- 142Fb`lc0matmultvectmodp&:-132F[alc%lift&:-141Fd`lc.matinterpmodp&:-134/%+modul enameG%%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#%+thismoduleG6`p%,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%+gfun_pade2G%0gf un_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2 d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffe qG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG% >findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;f indequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmult modpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabort G%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%lif tG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadG Feq/%'unloadGFfq6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoser iesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeq G%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 F2F26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type /gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF2F2Farc(getname%:-74 Fiqc/algfuntoalgeq2%:-66Fhrc.inifromseries%:-816$%*protectedG/%+modulenameG%%gf unG M7R0 I&:-129f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolyt ocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systom atrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rational interpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderr atpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermod pG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG% -vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2 checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matr ix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF\o/%'unloadGF]o6hn%.alg funtoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyprod uctG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_pa deG%)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%+StorjohannG%+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%(versionGF0F06(%/type/gfun/freeG% 7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gf un/initeqG%6gfun/rectoproc/symbolGF0F0/%+modulenameG%%gfunG M7R0 I&:-114f*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%?findequationgivenorderratio nalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+i nterpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8mati nterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0no rmalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6 %%(packageG/%%loadGF`\l/%'unloadGFa\l6hn%.algfuntoalgeqG%.algebraicsubsG%.algeq todiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffe qG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+Par ametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-for matdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%, maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG% *optionsgfG%(versionGF*F*6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfu n/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolG F*F*Fdelc*optionsgf%:-59Fg]lc2listtoseriestable%:-85/%+modulenameG%%gfunG M7R0 I%:-99f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/ elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG% *typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpo lationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG %?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'deg matG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmu ltmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkre sultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inve rse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFL/%'unloadGFM6hn%.algfuntoalge qG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.dif feq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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,/%+modulenameG%%gfunG M7R0 I%:-84f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfu n_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d /s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeq G%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%> findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;fi ndequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultm odpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG %(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%lift G%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF eo/%'unloadGFfo6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseri esG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG %,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 0F06(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/ gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF0F0/%+modulenameG%%gf unG M7R0 I%:-69f*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 moduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ra tpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typechec kG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%- findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequ ationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(deg vectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%. matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnorma lG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_Newto nG%/StorjohannmodpG6%%(packageG/%%loadGF\r/%'unloadGF]r6hn%.algfuntoalgeqG%.alg ebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+dif feqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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 %+StorjohannG%+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%(versionGF2F26(%/type/gfun/freeG%7type/gfun/has2d iffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun /rectoproc/symbolGF2F2/%+modulenameGF[p M7R0 I%:-54%)infinityG/%+modulenameG%%gfunG M7R0 I%:-55G6$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-72f*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#%+thismoduleG6`p%, 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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff /polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNam eG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequation G%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenor derrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*inter pmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmod pG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkres ultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjoha nnmodpG6%%(packageG/%%loadGFar/%'unloadGFbr6hn%.algfuntoalgeqG%.algebraicsubsG% .algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq *diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0ha damardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiff eqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%& pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiff eqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohyperge omG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Storjohann G%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doit G%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(make recG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minorde reqnG%*optionsgfG%(versionGF/F/6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7ty pe/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/s ymbolGF/F/F]sc(getname%:-74/%+modulenameG%%gfunG M7R0 I%:-89f*6%%$recG%"uG%"nG6"F(F(,&-%$maxG6#-%#opG6#-%$mapG6$F.-%'indetsG6$9$-.%)s pecfuncG6$-.%'linearG6#9&9%"""F?!""F(F(6$%6_thismoduledefinitionGb6#%+thismodul eG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpoly tocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*C heckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-finde quationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequation givenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG %*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matin terpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,c heckresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/S torjohannmodpG6%%(packageG/%%loadGFJ/%'unloadGFK6hn%.algfuntoalgeqG%.algebraics ubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.d iffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+Storj ohannG%+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(/%+modulenameG%%gfunG M7R0 I&:-106f*6%%"LG%"xG%%degsG6"F(F(-T%6&9$9%Q,hermitepadeF(,$9&!""F(F(6&%6_thismod uledefinitionGb6#%+thismoduleG6`p%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NUMGFUN_CLEANU PG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2G%7algfuntoa lgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstnonzeroG%,for matpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-infsolvepolyG%3 infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG%,isholonomi cG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG%+makediffeqG %)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcomposeG%1powcompos esimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncateG%/pprimekn owingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG%8gfun/recto proc/binsplitG%=rectoproc/binsplitparametersG%+gfun_pade2G%0gfun_pade2/doitG%4r atpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG% ,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6r ationalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgive norderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgiveno rdermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvec tmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)trye arlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderComp G%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF9/%'unloadGF:6hn %.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauch yproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gf un_padeG%)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%+StorjohannG%+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^pc-findequation&:-121/%+modulename G%%gfunG M7R0 I&:-123f*6'%"LG%$ordG%"nG%'optypeG%%degsG65%%indsG%$varG%$valG%$resG%(recurseG% )firstvalG%(lastvalG%&roundG%'resultG%$iniG%"kG%)tointerpG%$tmpG%$lcoG%&lmonsG% #ppG%%cofsG%%densG%(tocheckG6"F>C(>8$-%'indetsG6#9$>8%&FA6#"""@%/-%%nopsG6#FAFJ >8(T%>FQT'>8--%*nextprimeG6#*&)""#FMFJ-FNFDFJ>8*""!?(8+FjnFJF>%%trueGC'>8),&Fin FJFJFJ>Fin,&F`oFfn!""FJ?(8&F`oFJFinF]oC&-%)userinfoG6(""%.%%gfunGQ*trying~atF>F GQ"=F>,&FVFJFfoFJ>&8'6#Ffo-FQ6'-%%evalG6$FE/FGF`p9%9&9'9(@$/Fbp%%FAILGOFaq-Fio6 &F[pF\pQ'found:F>Fbp@%/F\oFjnC$>8,&FcpFI>86FjqC%>8/-%$mapG6$%'expandG7#-%$seqG6 $-%$addG6$*&&Fbp6#8.FJ)80FfoFJ/Ffo;FJFin/F_s;FJ,&F[qFJFJFJ-Fio6&""&F\pQ.interpo latingF>F`r@%-%%typeG6$F`r-%%listG6#-%(polynomG6$%)anythingG-%&unionG6$FA<$FasF \qC&?(83FJFJFfsF]oC'>817#-%'coeffsG6%&F`r6#F\u-Fgt6$FA<#F\q.82@$/-FN6#F_uFJ>Fju 7#Fju?(F_sFJFJF]vF]oC$>&84F^s-T)6$7#-Fgr6$-%&coeffG6%&F_uF^sFasFfoFbsFG@$/FdvFa q[@$FawFbw>&FjqFeu-Fjr6$*&FdvFJ&FjuF^sFJ/F_s;FJF]v@$Faw\>Fjq-Fdr6#-%%subsG6$/FG ,(FGFJFVFdoFdoFJ7#-Fgr6$Few/F\uFes>F]rFjqC%-Fio6%FisF\pQJusing~CurveFitting:-Ra tionalInterpolationF>>Fjq7#-Fgr6$-_%-CurveFittingG%6RationalInterpolationG6$7#- Fgr6$7$F`pF]sFbsFGFds>F]r-T+6#Fjq@$-T-6'F]rFEF[qF\qF]qOFjqF>F>6.%6_thismodulede finitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpol ytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,syst omatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6ration alinterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorde rratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenorderm odpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodp G%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG %2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Ma trix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF\[l/%'unloadGF][l6hn% .algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchy productG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfu n_padeG%)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%+StorjohannG%+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>Fj^lc?findequationgivenorderrational& :-124Fi^lc>findequationgivenorderratpoly&:-123Ff^lc6rationalinterpolation&:-120 Fj_lc0normalizeresult&:-140Fh_lc2checkresultnormal&:-138/%+modulenameGF]p M7R0 I%:-12f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2 /doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%( s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*find algeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequ ationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequat iongivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0m atmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initm atG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.High OrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFjs/%'un loadGF[t6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&bo relG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffe qtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG %*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodi nitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*m axdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/ type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/id entityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF$F$F^wc*typecheck&:-114F_zc) guesseqn%:-12Fhzc+listtolist%:-21Fizc.listtoratpoly%:-22Fezc,listtoalgeq%:-18Ff zc-listtodiffeq%:-196$%*protectedG/%+modulenameGFZ M7R0 I&:-140f*6#%$resG6&%$tmpG%"kG%$ordG%$polG6"F+C%>8&-%%nopsG6#9$>8'-%&numerG6#-%' normalG6#-%$addG6$*&&F26#8%""")8$FAFB/FA;FBF.7#-%$seqG6$-%&coeffG6%F4FDFAFEF+F+ 6$%6_thismoduledefinitionGb6#%+thismoduleG6`p%,GFUN_HIDDENG%.NUMGFUN_SETUPG%0NU MGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/algfuntoalgeq2 G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expintalgG%-firstn onzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+indicialeqG%-inf solvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%.inifromseriesG %,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l2rG%(l2h/l2hG% +makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicondG%+powcompose G%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrevertG%,powtruncat eG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectoproc/checkcondG %8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%+gfun_pade2G%0gfun_pa de2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2d G%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*f indalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>find equationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findeq uationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG %0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(in itmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.H ighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFU/%' unloadGFV6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&b orelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diff eqtorecG%*gfun_padeG%)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%+StorjohannG%+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+/%+modulenameG%%gfunG M7R0 I%:-29f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolyt ocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systom atrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rational interpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderr atpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermod pG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG% -vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2 checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matr ix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFS/%'unloadGFT6hn%.algfu ntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproduc tG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_pade 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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diff eqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG% 3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegc oeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF/F/6(%/type/gfun/freeG%7t ype/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun /initeqG%6gfun/rectoproc/symbolGF/F/Finc(getname%:-74Fauc)poltorec%:-276$%*prot ectedG/%+modulenameG%%gfunG M7R0 I%:-46=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_re duceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG% ,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpea rlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresu ltG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG /%%loadGFO/%'unloadGFP6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.alge qtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohom diffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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$%#EiGf*F)F$ F,F$7%,&*&,&F8&*&F4FFhel* &F4F<-F76$FhelF4F<>Fhel-%'normalG6#*&F_flFFahl-Fhgl6&-F76$F97#-Fh[l6$F4Fcy7#,&F]xF<*&F4FFahl-%#opG6#-%'selectG6%%$hasGFahlF97%FahlFCF`xF$F$6&FIFJF\uc,poltodiff eq%:-26%#SiGf*F)F$F,F$7%F]dlFCFEF$F$6$FIFJ%(StruveHGf*6%F*F+'F[yFe^lF$F,F$7%/Ff `l,$*(),$F4#FFhel-Fhgl6%<$,&*(-8(FbhlF8'F_x/Fi_mFe_m>F\`m<$FF\`mFC7%FhelF\`mFEF$F$6&FIFJF auF]il%%erfcGf*F)F$F,F$F^`lF$F$6$FIFJ%'arccotGf*F)F$F,F$7%,&*&FcilFFahlFbjl@$F^[m>FahlFc[mFj[mF$F$6&FIFJF\uF\\m%(arctanhGf* F)F$F,F$FdbmF$F$6$FIFJ%$ChiGf*F)F$F,F$7%,(F@F8$<#-%$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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpoly tocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systo matrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationa linterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorder ratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermo dpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG %-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG% 2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Mat rix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFidl/%'unloadGFjdl6hn%. algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyp roductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun _padeG%)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%+StorjohannG%+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_hlc$@@D&:-116F_flc-listprimpart%:-84 Fgflc)myisolve%:-926$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-64f*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#%+thismoduleG6`p%,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%+gfun_pade 2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbi sG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+fin ddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgiveno rderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_redu ceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,m atmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearl yabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresult G%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/% %loadGFeal/%'unloadGFfal6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.al geqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtoh omdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%(Num GfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*f ormatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG% ,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%( versionGFEFE6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs 3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGFEFEFgalc3alg eqtoseries/doit%:-64/%+modulenameG%%gfunG M7R0 I%:-81f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolyt ocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systom atrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rational interpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderr atpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermod pG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG% -vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2 checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matr ix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFfq/%'unloadGFgq6hn%.alg funtoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyprod uctG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_pa deG%)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%+StorjohannG%+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%(versionGF0F06(%/type/gfun/freeG% 7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gf un/initeqG%6gfun/rectoproc/symbolGF0F0F\uc$@@D&:-116/%+modulenameG%%gfunG M7R0 I%:-98f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_ pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s 2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG% *findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>fi ndequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;find equationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmod pG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%( initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG% .HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFjp /%'unloadGF[q6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseries G%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%, diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_ termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6 goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereq nG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF2F 26(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gf un/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF2F2Fjrc+powcompose%:-94 F`sc/pprimeknowingp&:-100F]sc*powdivide%:-97/%+modulenameG%%gfunG M7R0 I&:-115f*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#%+thismoduleG6`p%,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%+gf un_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectoh omrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&myma pG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequatio ngivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%* do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpv ectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpm odpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normaliz eresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(pac kageG/%%loadGFN/%'unloadGFO6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG% .algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeq tohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%( NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG %*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoef fGF=%*maxdegeqnG%,mindegcoeffG%*mindegeqnGF@FCF:F(F(6(%/type/gfun/freeG%7type/g fun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/init eqG%6gfun/rectoproc/symbolGF(F(/%+modulenameG%%gfunG 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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpol ytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,syst omatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6ration alinterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorde rratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenorderm odpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodp G%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG %2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Ma trix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFF/%'unloadGFG6hn%.alg funtoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyprod uctG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_pa deG%)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%+StorjohannG%+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%(versionGF5F56(%/type/gfun/freeG% 7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gf un/initeqG%6gfun/rectoproc/symbolGF5F5FIc:algeqtoseries/prettyprint%:-65FHc3alg eqtoseries/doit%:-646$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-132f*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 JF:/9'F<&%(integerGF--FL6&FJF5FOFQ-T)6'FJ7#-%$seqG6$F@/F<;F=F0-%#opG6$7$F6""#F: FP%'columnGF-F-6*%6_thismoduledefinitionGb6#%+thismoduleG6`p%,GFUN_HIDDENG%.NUM GFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG% /algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*exp intalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+i ndicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG% .inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/ l2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinico ndG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powreve rtG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4recto proc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%+gfun_ pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomr ecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG% +finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgi venorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_ reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvect G%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodp earlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizere sultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packag eG/%%loadGFeo/%'unloadGFfo6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%. algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqt ohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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-Fgsc(de gvect&:-128Ffsc'degmat&:-127Fisc+interpvect&:-130/%+modulenameG%%gfunG M7R0 I%:-21f*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%?findequationgiven orderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*int erpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpm odpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkr esultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjo hannmodpG6%%(packageG/%%loadGFO/%'unloadGFP6hn%.algfuntoalgeqG%.algebraicsubsG% .algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq *diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0ha damardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiff eqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%& pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiff eqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohyperge omG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+Storjohann G%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doit G%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(make recG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minorde reqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7ty pe/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/s ymbolGF$F$F]qc*typecheck&:-114Fgtc+listtolist%:-21Fjtc-listtoseries%:-24Fguc-se riestolist%:-376$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-38f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/pol yG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$ @@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7f indequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderr ationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmat G%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8 matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG %0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohannmo dpG6%%(packageG/%%loadGFM/%'unloadGFN6hn%.algfuntoalgeqG%.algebraicsubsG%.algeq todiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffe qG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+Par ametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-for matdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%, maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG% *optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfu n/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolG F$F$F[qc*typecheck&:-114Ffuc0seriestoratpoly%:-38Feuc-seriestolist%:-37Fftc.lis ttoratpoly%:-226$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-71f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/ doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s 2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*finda lgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>findequa tiongivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequati ongivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0ma tmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initma tG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighO rderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFU/%'unlo adGFV6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borel G%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqto recG%*gfun_padeG%)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%+StorjohannG%+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*F]pc)myisolve%:-92/%+modulen ameG%%gfunG M7R0 I%:-56G6$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-105t+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&:-1466#""'/%+modulenameG%%gfunG M7R0 I%:-90f*6%%$recG%"uG%"nG6"F(F(,&-%$minG6#-%#opG6#-%$mapG6$F.-%'indetsG6$9$-.%)s pecfuncG6$-.%'linearG6#9&9%"""F?!""F(F(6$%6_thismoduledefinitionGb6#%+thismodul eG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpoly tocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*C heckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-finde quationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequation givenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG %*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matin terpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,c heckresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/S torjohannmodpG6%%(packageG/%%loadGFJ/%'unloadGFK6hn%.algfuntoalgeqG%.algebraics ubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.d iffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+Storj ohannG%+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(/%+modulenameG%%gfunG M7R0 I%:-11f*6$%"LG%"xG6#%$resG6"F)C$>8$-T%6%9$9%Q%padeF)@%/F,%%FAILGF5*&&F,6#"""F9& F,6#""#!""F)F)6&%6_thismoduledefinitionGb6#%+thismoduleG6`p%,GFUN_HIDDENG%.NUMG FUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprintG%/ algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%*expi ntalgG%-firstnonzeroG%,formatpoleqG%,funtodiffeqG%(getnameG%.guessandcheckG%+in dicialeqG%-infsolvepolyG%3infsolvepoly/foundG%4infsolvepoly/isrootG%(inicondG%. inifromseriesG%,isholonomicG%'lindepG%-listprimpartG%2listtoseriestableG%(l2r/l 2rG%(l2h/l2hG%+makediffeqG%)maxindexG%)minindexG%(mygcdexG%)myisolveG%*nbinicon dG%+powcomposeG%1powcomposesimpleG%5powcomposesimpledoitG%*powdivideG%*powrever tG%,powtruncateG%/pprimeknowingpG%1rectodiffeq/doitG%1rectohomrec/doitG%4rectop roc/checkcondG%8gfun/rectoproc/binsplitG%=rectoproc/binsplitparametersG%+gfun_p ade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomre cbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+ finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgiv enorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_r educeG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG %,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpe arlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeres ultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(package G/%%loadGFE/%'unloadGFF6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.alg eqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtoho mdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 ersionGF)F)6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3 G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF)F)Fjpc-finde quation&:-1216$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-139f*6(%&recopG%(listvalG%"pG%$ordG%"nG%'optypeG6*%"iG%)listcofsG%"UG%$resG %%bigOG%%cofsG%$dimG%%res2G6"F4C$>8%-%%modpG6$9$9&@//9)Q6rationalinterpolationF 4C%>8&-F96$9%F8)-F96$-%%evalG6$F7/9(F HF<@$0-F96$,&*&&FS6#""#FJ&FF6#,&FHFJFJFJFJFJ&FS6#FJFOFF7-&%'VectorG6#%$rowG6#F7>FC-__%.LinearAlgebraG%(ModularG%$ModG6%FF7Fio>FC-%&modp1G6$-%*ConvertInG6 $FDFZF<>8(-F_r6$-Fbr6$7$-%"$G6$FI,&FLFJF[qFOFJFZF<>8'-F_r6$-Fbr6$&F76#,&F[qFJFJ FJFZFF`s-F_r6$-%$RemG6$-%$AddG6$-Fbr6$&F76#FHFZ-F`q6$FCF`sFerF<- F_r6$-%'IsZeroG6#F`sFFCF^r>Fer-F_r6$-Fbr6$7$-F\s6$FIFLFJFZF<>F`s -F_r6$-F]t6$-F`t6$-Fbr6$,$&F7FboFOFZ-F`q6$-Fbr6$&F7F\oFZFCFerFFC-%$mapG6%F_r-F^w6%Fbr-F^w6%F9FFFFerFbu>F`s-F_r6$-F]t6$-F`t6#-%$ seqG6$-F`q6$Fbt&FCFet/FH;FJFLFerFFC-F^w6%Fbr&FFFboFZ>FC -_Fcp%$MapG6%F_rFCF<>8*-%#opG6$FJ&FFF\o>F`s-T%6&F8+-F]y6%F`q-F]y6%F_r-F^w6%FbrFeyFZF<-F_r6$-Fbr6$-F9 6$&F;6#FOFFiz-F]y6%F_rFizFF7Fio>F CF^r>FerFfr>F`s-F_r6$-F]t6$-F`q6$-Fbr6$FcvFZFCFerFFC-%%DiffG6# FC>F`s-F_r6$-F`t6$F`s-F]t6$-F`q6$-Fbr6$&F7F_oFZFCFerFfindequationgivenorder ratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermo dpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG %-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG% 2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Mat rix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFg^l/%'unloadGFh^l6hn%. algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyp roductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun _padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG% ,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/dif feqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mi ndegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF4F46(%/type/gfun/fre eG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type /gfun/initeqG%6gfun/rectoproc/symbolGF4F4F]clc0matmultvectmodp&:-132/%+modulena meG%%gfunG M7R0 I&:-124f*6'%"LG%$ordG%"nG%'optypeG%%degsG6/%"pG%&roundG%)nbprimesG%(resmodpG%$r esG%'resultG%(modulusG%'moduliG%"iG%*ratresultG%#LLG%(partialG%$denG6"F8C&>8$-% &modp1G6#-%&PrimeG6#""">%$modG%%modsG?(8%""!FB""'%%trueGC'?(8&FBFB)""#FGFJC(?(F 8FBFBF8FJC$Z%>8.-T%6$9$F;QCthe~modular~inverse~does~not~existF8C%-%)userinfoG6% ""$.%%gfunGQ*bad~primeF8>F;-F=6#-F@6#F;\[@%09'Q+StorjohannF8>8'-T'6)FU9%9&8/F;F fo9(C$>6$Fio80-T)6%-%#opG6#FUF^pF;>Fio7$-%$seqG6$-F=6$-%+ConvertOutG6$&Fio6#8,F ^pF;/Fgq;FB-Fip6$FB&FU6#FO-F=6$-Fcq6$FdpF^pF;@$/Fio%%FAILGOFdr>&8(6#FMFio>&8*Fi rF;>F;F^o@%/FGFHC$>8+&F\sFA>8)FioC$>Fbs7$-F^q6$&F\sFfq/Fgq;FBFNFbs>Fes-%&chremG 6$7$-F^q6$&FhrFfqF\tFesFbs>Fbs-%(convertG6$Fbs%"*G>8--%*iratreconG6$FesFbs@$0F \uFdr@%/FfoFgo@$-T+6(F\uFYF;F]pF^pFfoOF\uC$>F\u7#-F^q6$-%&coeffG6%F\uF_pFgq/Fgq ;FHF]p@$Feu@%52-%'lengthG6#F\u-Fhv6#FY2-Fht6$-%$mapG6$%%nopsGF\u%"+G*&-Fht6$-F` w6$Fbw-%%subsG6$/FH%%NULLGFYFcwFB$"")!""FBOF\uOFdrFdrF8F86,%6_thismoduledefinit ionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytoco eff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatr ixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalint erpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratp olyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG% 'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-ve ctmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2che ckresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_ inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFjx/%'unloadGF[y6hn%.algfun toalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproduct G%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG %)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%+StorjohannG%+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%(versionGF8F86(%/type/gfun/freeG%7ty pe/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/ initeqG%6gfun/rectoproc/symbolGF8F8Fi\lc*do_reduce&:-125Fj\lc;findequationgiven ordermodp&:-126F\^lc/Storjohannmodp&:-144Fg]lc,checkresult&:-139/%+modulenameGF [o M7R0 I%:-45f*6"F$F$F$7#-%#opG6#-%&minusG6$<#-%(exportsG6#%%gfunGT%F$F$6&%6_thismodul edefinitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4rat polytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,s ystomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rat ionalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgiveno rderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenord ermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectm odpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryear lyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG% 6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF9/%'unloadGF:6hn%. algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyp roductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun _padeG%)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%+StorjohannG%+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$F8c,GFUN_HIDDEN%:-616$%*protectedG/%+m odulenameGF0 M7R0 I%:-30t+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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/r ectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG% &mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findeq uationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderration alG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+in terpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matin terpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0nor malizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6% %(packageG/%%loadGFfn/%'unloadGFgn6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtod iffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG% 2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+Parame tersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-format diffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,max degcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*op tionsgfG%(versionGF4F46(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/h as2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF4F 4Fboc(getname%:-74Fjuc)poltorec%:-276#""$6$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-63t+6#%#~$G6"F&F&-_T%%(cleanupGF&F&F&6&%6_thismoduledefinitionGb6#%+thismod uleG6V%-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_app roximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:make_fresh_name_gener atorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_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&:-1456#"""/%+modulenameG%%gfunG M7R0 I%:-48f*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#%+thismoduleG6`p%,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%+gfun_pade2G% 0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG% (s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddi ffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorde rG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG %;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matm ultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyab ortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%% liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%lo adGF\\l/%'unloadGF]\l6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeq toseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomd iffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 sionGF7F76(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G% 3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF7F7Fh\lc(getnam e%:-74Fb]lc-listprimpart%:-846$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-97f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/p olyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG %$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG% 7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorde rrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpm atG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG %8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresul tG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohann modpG6%%(packageG/%%loadGFio/%'unloadGFjo6hn%.algfuntoalgeqG%.algebraicsubsG%.a lgeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*d iffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0hada mardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeq G%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pa de2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeq G%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeom G%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+StorjohannG% +ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG% -formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makere cG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordere qnG%*optionsgfG%(versionGF0F06(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type /gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/sym bolGF0F0/%+modulenameG%%gfunG M7R0 I%:-82f*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.%"^G5553-F56$F[o-.%(polynomGFL4-F/6$FenF 23-F56$Fen.%'posintGFhn3-F56$Fen.%)rationalG-F56$F[o-.FV6$FHF@333-F56$F[oFar-F5 6$-F<6$7$F]oF]oF1FhrF[s4-F/6$-F<6$7$F]oFgnF1F2%&falseGF+F+6&%6_thismoduledefini tionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytoc oeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomat rixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalin terpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderrat polyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG %'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-v ectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2ch eckresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix _inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFeu/%'unloadGFfu6hn%.algfu ntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproduc tG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_pade 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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diff eqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG% 3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegc oeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF+F+6(%/type/gfun/freeG%7t ype/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun /initeqG%6gfun/rectoproc/symbolGF+F+F\^lc,diffeqtable%:-46/%+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 G6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolyt ocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*Ch eckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findeq uationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationg ivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG% *interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matint erpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,ch eckresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/St orjohannmodpG6%%(packageG/%%loadGF_el/%'unloadGF`el6hn%.algfuntoalgeqG%.algebra icsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG %.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+St orjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqto rec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/re cG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG% ,minordereqnG%*optionsgfG%(versionGFinFin6(%/type/gfun/freeG%7type/gfun/has2dif feqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/r ectoproc/symbolGFinFinF[[mc.algeqtodiffeq$:-3Fdflc'lindep%:-83Fehlc$@@D&:-116Fh ]mc-formatdiffeq%:-48Fj]mc6goodinitvalues/diffeq%:-506(FetFcpF`pFetFb\lF^]l6$%* protectedG/%+modulenameG%%gfunG M7R0 I&:-131f*6'%"pG%"AG%"BG%"CG%"nG6+%$degG%"iG%$resG%$dimG%"jG%"kG%(rowdimAG%(cold imAG%(coldimBG6"F4C&>8$,&-T%6#9%"""-F:6#9&F=>6$8*8+-%#opG6$F=F<>8,-FF6$7$F=""#F @@%2-%$maxG6%FCFDFI,&F7F=""$F=C&@$309'F<0FYF@>8&FY?(8%F=F=FC%%trueG?(8(F=F=FIFi n>&Ffn6$FhnF[o-%&modp1G6$-%$AddG6#-%$seqG6$-%)MultiplyG6$&F<6$Fhn8)&F@6$F]pF[o/ F]p;F=FD9$@$5/FYF&FYF^oF]oFYC$?(Fhn""!F=F7Fi n>&Ffn6#Fhn-__%.LinearAlgebraG%(ModularGFio6%Fbp-_Fcq%$ModG6&FbpFfindequ ationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequat iongivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0m atmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initm atG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.High OrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFcs/%'un loadGFds6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&bo relG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffe qtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG %*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodi nitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*m axdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF4F46(%/ type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/id entityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF4F4Fdwc'degmat&:-127Ffwc*int erpmat&:-129/%+modulenameG%%gfunG M7R0 I&:-116f*6%%"iG%"yG%"xG6"F(F(@'/9$""!.-9%6#9&/F+""".--%"DG6#F/F0.---%#@@G6$F7F+ F8F0F(F(6$%6_thismoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G% 0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG% (s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddi ffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorde rG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG %;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matm ultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyab ortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%% liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%lo adGFF/%'unloadGFG6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtose riesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffe qG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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(/%+modulenameG%% gfunG M7R0 I%:-37f*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 moduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ra tpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typechec kG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%- findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequ ationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(deg vectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%. matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnorma lG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_Newto nG%/StorjohannmodpG6%%(packageG/%%loadGFhp/%'unloadGFip6hn%.algfuntoalgeqG%.alg ebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+dif feqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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 %+StorjohannG%+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%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2d iffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun /rectoproc/symbolGF$F$F\tc*typecheck&:-114Ffxc-seriestolist%:-37Fiwc-listtoseri es%:-246$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-22f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG %/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@ DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7fin dequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrat ionalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG% +interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8ma tinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0 normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohannmodp G6%%(packageG/%%loadGF`u/%'unloadGFau6hn%.algfuntoalgeqG%.algebraicsubsG%.algeq todiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffe qG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+Par ametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-for matdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%, maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG% *optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfu n/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolG F$F$Fdxc*typecheck&:-114F_\lc.listtoratpoly%:-22Fa\lc-listtoseries%:-24F]vc.gue ssandcheck%:-756$%*protectedG/%+modulenameGFiq M7R0 I%:-87f*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%'deg matG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmu ltmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkre sultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inve rse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFay/%'unloadGFby6hn%.algfuntoal geqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.d iffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtab leG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3good initvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG %*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF5F56(%/type/gfun/freeG%7type/g fun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/init eqG%6gfun/rectoproc/symbolGF5F5/%+modulenameGF^v M7R0 I&:-104t+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&:-1476#""$/%+modulenameG %%gfunG M7R0 I%:-57G6$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-74f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpo lytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,sys tomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6ratio nalinterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenord erratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenorder modpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmod pG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearly G%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6M atrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFJ/%'unloadGFK6hn%.al gfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchypro ductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_p adeG%)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%+StorjohannG%+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-/%+modulenameG%%gfunG M7R0 I%:-27t+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#%+thismoduleG6`p%,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%+g fun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/recto homrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mym apG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequati ongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG% *do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interp vectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterp modpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normali zeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(pa ckageG/%%loadGFj]m/%'unloadGF[^m6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodif feqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2d iffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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%(versionGFQFQ6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has 2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGFQFQF f^mc(getname%:-74Fdfmc*formatrec%:-49Fe_mc)maxindex%:-89Fc^mc-firstnonzero%:-71 Fffmc3goodinitvalues/rec%:-516#Fgo6$%*protectedG/%+modulenameGF_p M7R0 I%:-44t+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~recFfindequationgivenorderratpoly G%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'de gmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectm ultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkr esultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inv erse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF6/%'unloadGF76hn%.algfuntoalg eqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.di ffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)gue sseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,list toalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtor ecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG% (rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiff eqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriest oseriesG%+StorjohannG%+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'/%+modulenameG%%gfunG M7R0 I%:-14f*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%?findequatio ngivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvect G%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.mati nterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%, checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/ StorjohannmodpG6%%(packageG/%%loadGFiq/%'unloadGFjq6hn%.algfuntoalgeqG%.algebra icsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG %.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+St orjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqto rec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/re cG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG% ,minordereqnG%*optionsgfG%(versionGF4F46(%/type/gfun/freeG%7type/gfun/has2diffe qs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rec toproc/symbolGF4F4F\xc,diffeqtorec%:-10F]yc)poltorec%:-27Fayc,rectodiffeq%:-316 $%*protectedG/%+modulenameG%%gfunG M7R0 I&:-142f*6(%"MG%"kG%"dG%"XG%"xG%"pG6)%"LG%"HG%"EG%$resG%"iG%$dimG%'minusMG6"F3C *>8)-%#opG6$7$"""F;9$>8&-T%6'F<,&9&""#!""F;9(9)F6>&8'6#F;-%%copyG6#F>>8$-T'6%%& modp1G-%$mapG6%%$RemGF>9'FG>8%-FR6%FT-FV6%%$QuoGF>FYFG>8*-FR6%FT-FV6%%)Multiply GF<-%)ConstantG6$FEFFFG?(8(FDF;9%%%trueGC)-T)6(FPF\oF>FFFYFG-F[p6(FenF\oF>FFFYF G>F>-FM6#Fen-FR6%FaoF>FY-_%.LinearAlgebraG%$ZipG6&%$AddGF>FP/%(inplaceGFho-FR6% FTF>FG>&FJ6#FfoF>7#-%$seqG6$F_q/Ffo;F;FgoF3F36*%6_thismoduledefinitionGb6#%+thi smoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4r atpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typeche ckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG% -findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findeq uationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(de gvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG% .matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnorm alG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_Newt onG%/StorjohannmodpG6%%(packageG/%%loadGF^r/%'unloadGF_r6hn%.algfuntoalgeqG%.al gebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+di ffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG% (guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeq G%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-li sttoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*re cG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2se riestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseries G%+StorjohannG%+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%(versionGF3F36(%/type/gfun/freeG%7type/gfun/has2 diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfu n/rectoproc/symbolGF3F3F_wc6Matrix_inverse_Newton&:-143Feuc&mymap&:-117F]wc%lif t&:-141/%+modulenameG%%gfunG M7R0 I%:-79f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytoc oeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomat rixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalin terpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderrat polyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG %'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-v ectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2ch eckresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix _inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFM/%'unloadGFN6hn%.algfunt oalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG %.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG% )guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%, listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*lis ttorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+r ecG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriesto diffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/ser iestoseriesG%+StorjohannG%+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(/%+modulenameG%%gfunG M7R0 I%:-96f*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 uleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpo lytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG% *CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-fin dequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequati ongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvec tG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.mat interpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG% ,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG% /StorjohannmodpG6%%(packageG/%%loadGF`s/%'unloadGFas6hn%.algfuntoalgeqG%.algebr aicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeq G%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+S torjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqt orec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/r ecG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG %,minordereqnG%*optionsgfG%(versionGF/F/6(%/type/gfun/freeG%7type/gfun/has2diff eqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/re ctoproc/symbolGF/F/Feuc,powtruncate%:-99Fbuc5powcomposesimpledoit%:-96/%+module nameG%%gfunG M7R0 I%:-49f*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 #%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/el mtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*t ypecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpola tionG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%? findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degma tG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmult modpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresu ltnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_invers e_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF_\l/%'unloadGF`\l6hn%.algfuntoal geqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.d iffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtab leG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3good initvalues/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG %*mindegeqnG%,minordereqnG%*optionsgfG%(versionGF6F66(%/type/gfun/freeG%7type/g fun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/init eqG%6gfun/rectoproc/symbolGF6F6F[]lc(getname%:-74F[^lc)minindex%:-90Fj]lc)maxin dex%:-896$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-66f*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#%+thismoduleG6`p%,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%+gfun_pa de2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrec bisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+f inddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgive norderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_re duceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG% ,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpea rlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresu ltG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG /%%loadGFa^l/%'unloadGFb^l6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%. algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqt ohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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>Ff^lc7a lgfuntoalgeq/formpoly%:-67/%+modulenameG%%gfunG M7R0 I%:-19f*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 oduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4rat polytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheck G%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-f indequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequa tiongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degv ectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.m atinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormal G%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_Newton G%/StorjohannmodpG6%%(packageG/%%loadGFcr/%'unloadGFdr6hn%.algfuntoalgeqG%.alge braicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diff eqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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% +StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffe qtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues /recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeq nG%,minordereqnG%*optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2di ffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/ rectoproc/symbolGF$F$Fguc*typecheck&:-114F_yc-listtodiffeq%:-19Fdyc-listtoserie s%:-24Fduc(s2d/s2d&:-111Fesc(inicond%:-806$%*protectedG/%+modulenameGFfp M7R0 I%:-36f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/pol yG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$ @@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7f indequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderr ationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmat G%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8 matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG %0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohannmo dpG6%%(packageG/%%loadGFM/%'unloadGFN6hn%.algfuntoalgeqG%.algebraicsubsG%.algeq todiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffe qG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+Par ametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-for matdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%, maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG% *optionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfu n/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolG F$F$F[qc*typecheck&:-114Fduc2seriestohypergeom%:-36Feuc-seriestolist%:-37Fdtc0l isttohypergeom%:-206$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-117f*6%%*procedureG%$matG%&extraG6'%'rowdimG%'coldimG%"iG%"jG%%restG6"F.C%@ %/9#""$>8(9&>F5%%NULLG@%/-%%nopsG6#7#-%#opG6$"""9%""#C%>8$-F@6$7$FBFBFC>8%-F@6$ 7$FBFDFC?(8&FBFBFG%%trueG?(8'FBFBFLFR>&FC6$FQFT-9$6$FVF5?(FQFBFBF?FR>&FC6#FQ-FY 6$FgnF5FCF.F.6$%6_thismoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pa de2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrec bisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+f inddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgive norderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_re duceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG% ,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpea rlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresu ltG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG /%%loadGFbo/%'unloadGFco6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.al geqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtoh omdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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./%+module nameG%%gfunG 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%?findequat iongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degve ctG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.ma tinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG %,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG %/StorjohannmodpG6%%(packageG/%%loadGFiq/%'unloadGFjq6hn%.algfuntoalgeqG%.algeb raicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffe qG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+ StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeq torec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/ recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqn G%,minordereqnG%*optionsgfG%(versionGF4F46(%/type/gfun/freeG%7type/gfun/has2dif feqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/r ectoproc/symbolGF4F4Fayc,rectodiffeq%:-31F\yc,poltodiffeq%:-26F\xc,diffeqtorec% :-106$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-134f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_ pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s 2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG% *findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG%>fi ndequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;find equationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmod pG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%( initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG% .HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF@/ %'unloadGFA6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG% &borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,di ffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG %)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolis tG%.listtoratpolyG%*listtorecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG% /ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.s eriestoalgeqG%/seriestodiffeqG%2seriestohypergeomG%-seriestolistG%0seriestoratp olyG%,seriestorecG%/seriestoseriesG%+StorjohannG%+ParametersG%(NumGfunG%)nth_te rmG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6go odinitvalues/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 /identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF-F-Fcqc8matinterpmodpearl yabort&:-135/%+modulenameG%%gfunG M7R0 I&:-103f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/ rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG %&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7finde quationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderratio nalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+i nterpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8mati nterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0no rmalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6 %%(packageG/%%loadGF_q/%'unloadGF`q6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqto diffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG %2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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%(versionGF1F16(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/ has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF1 F1/%+modulenameG%%gfunG M7R0 I%:-88f*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%?findequationgiven orderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*int erpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpm odpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkr esultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjo hannmodpG6%%(packageG/%%loadGF`o/%'unloadGFao6hn%.algfuntoalgeqG%.algebraicsubs G%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diff eq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+Storjoha nnG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/do itG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(ma kerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minor dereqnG%*optionsgfG%(versionGF.F.6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7 type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc /symbolGF.F./%+modulenameG%%gfunG M7R0 I%:-73f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/poly G%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@ @DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7fi ndequationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderra tionalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG %+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8m atinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG% 0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjohannmod pG6%%(packageG/%%loadGFd^l/%'unloadGFe^l6hn%.algfuntoalgeqG%.algebraicsubsG%.al geqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*di ffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+ 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=F`_lc(getname%:-74F^dlc.algfuntoalgeq$:-1F\_lc*expintalg%:-70F[glc,diffe qtable%:-46F_dlc.algebraicsubs$:-2F]glc-formatdiffeq%:-48Fg_lc.inifromseries%:- 81Fjalc$@@D&:-116/%+modulenameG%%gfunG M7R0 I%:-58"""/%+modulenameG%%gfunG M7R0 I%:-43`64c*fnth_term&:-150c6analytic_continuation&:-151c+evaldiffeq&:-152c-diff eqtoproc&:-153c2transition_matrix&:-154c-bound_diffeq&:-155c*bound_rec&:-156c.b ound_ratpoly&:-157c2bound_diffeq_tail&:-158c/bound_rec_tail&:-159c0abs_with_Roo tOf&:-160c.dominant_root&:-161c2make_waksman_proc&:-162c-needed_terms&:-163c*ut ilities&:-164c*_pexports&:-165c(version&:-166c)Settings&:-167b6#%+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%-_m4331372688G6Vc-numeric_mode&:-168c/NUMGFUN_HIDDEN&:-169c4bound_normal _diffeq&:-170c&types&:-145c)matrices&:-171c(nthterm&:-172c'ancont&:-173c'bounds &:-174c/numeric_bounds&:-175c0symbolic_bounds&:-176c&hrdeq&:-177c&hrrec&:-178c* evalf_rnd&:-179c%rndu&:-180c%rndz&:-181c%rndd&:-182c%rndn&:-183c%rndi&:-184c&up per&:-185c&lower&:-186c&below&:-187c&above&:-188c)ratabove&:-189c5evalf_absolut e_error&:-190c=evalf_complex_absolute_error&:-191c7ndmatrix_approximation&:-192 c)thetadeq&:-193c6diffeq_for_derivative&:-194c(getname&:-195c:make_fresh_name_g enerator&:-196c(ordfrec&:-197c*orddiffeq&:-198c'ordrec&:-199c>rec_has_constant_ coefficients&:-200c,read_diffeq&:-201c)read_rec&:-202c.diffeq_lcoeff&:-203c5dif feq_singularities&:-204c/diffeq_infsing&:-205c,bare_diffeq&:-206c)bare_rec&:-20 7c0simplify_RootOf&:-208c)set_mode&:-209c+reset_mode&:-210c%call&:-211c'argmax& :-212c2falling_factorial&:-213c)colinear&:-214c)ratbelow&:-215c,Digits_plus&:-2 16c3bound_abs_interval&:-217c4sprint_small_approx&:-2186$%*protectedG/%+modulen ameG%%gfunG M7R0 I%:-28f*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#%+thismoduleG6`p%,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% +gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rec tohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&m ymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequa tiongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrational G%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+inte rpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinte rpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0norma lizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%( packageG/%%loadGFeo/%'unloadGFfo6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodif feqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2d iffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 crc4ratpolytocoeff/elmt&:-108Fdrc4ratpolytocoeff/poly&:-1096$%*protectedG/%+mod ulenameG%%gfunG M7R0 I%:-13f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytoco eff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatr ixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalint erpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratp olyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG% 'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-ve ctmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2che ckresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_ inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFa[l/%'unloadGFb[l6hn%.algf untoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyprodu ctG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_pad eG%)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%+StorjohannG%+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$Fe^lc*typecheck&:-114Fgalc(guessgf%:-13F_b lc+listtolist%:-21F`blc.listtoratpoly%:-22F^blc0listtohypergeom%:-20F\blc,listt oalgeq%:-18Fbblc-listtoseries%:-24F]blc-listtodiffeq%:-196$%*protectedG/%+modul enameGFX M7R0 I&:-141f*6(%"AG%"MG%"EG%"xG%"XG%"pG6#%$tmpG6"F-C)>8$-%%copyG6#9$-T%6'9)9%F4F09' -T'6%%&modp1G-F<6%%$QuoGF09(F8-F66'F89&F0F4F:-F<6%FAF4FB-F<6%%$RemGF4FB-F<6%F>F 4F8F-F-6(%6_thismoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pade2G%0 gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%( s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddif feqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorder G%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG% ;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmu ltmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabo rtG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%l iftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loa dGFT/%'unloadGFU6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoser iesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeq G%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 F-F-6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3type /gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF-F-Fcrc,matmultmodp& :-131Feqc&mymap&:-117/%+modulenameG%%gfunG M7R0 I&:-126f*6)%"LG%$ordG%"nG%(partialG%'moduloG%'optypeG%%degsG66%"NG%"iG%"jG%"UG% $resG%$defG%$lcoG%(typeoptG%)truncateG%&nbeqsG%)nbcoeffsG%*dimensionG%#LLG%'per iodG%-firstnonzeroG%,lastnonzeroG%%precG%)testzeroG%%bigOG%(trueordG6"FAC0>80-% $modG6$9$9(@$/-%%subsG6$/""!%%NULLGFD7"O9'>8$,&-%%nopsG6#FH"""!""Fen@-/9)Q+recu rrenceFAC%>8'7#-%$seqG6$-__%.LinearAlgebraG%(ModularG%$ModG6%FI-%'VectorG6#7#-F `o6$&FD6#,&8&Fen8%Fen/Fbp;FP9%&%(integerGFA/Fcp;Fen,(FVFenFenFenFfpFfn>84,&FVFe nFfpFfn>8+Fin/FinQ6rationalinterpolationFAC%>F]o7#-F`o6$-Fco6%FI-Fjo6#7$Ffn&FD6 #FcpFgp/Fcp;Fen,&FVFenFenFen>F]qF^q>F`qFjn/FinQ*algebraicFAC(>F`qQ-differential FA>&F]o6#FP-%&modp1G6$-%*ConvertInG6$FD9&FI>8,-F]s6$-F`s6$)FbsFarFbsFI?(FcpFenF enFfp%%trueG>&F]oF^r-F]s6$-%$RemG6$-%)MultiplyG6$&F]o6#,&FcpFenFfnFenFjrFdsFI>F ]qFV>F]o7#-F`o6$F]t/FcpFep/FinQ%padeFAC%>F`qFhr>F]qFV>F]o7$-F]s6$-F`s6$7#FfnFbs FIF\s/FinQ,hermitepadeFAC%>F`qFhr>F]q,&-%$minG6#-%#opG6#-%$mapG6$FYFHFenFfnFen> F]o-Fhv6%F]s-Fhv6%F`sFDFbsFIC'>F`qFin>FjrF\s?(FcpFenFenFfpF[t>F]t-F]s6$-%%DiffG 6#FftFI>F]q-%$maxG6$FPF^q>F]oF[u>6$8(8)-T%6*F]oFPF]q,&FfpFenFenFen9*FbsFIF`q@$0 FaxF[tC$-%'memberG6%-F[x6#-Fev6#FaxFax.Fcp>F`x&F`x6$Fcp;FenFfn?(FcpFenFenFA-F]s 6$-%'IsZeroG6#&F`x6#,$FcpFfnFIFA>87,(FfpFenFcpFfnFenFen>F`x7#-F`o6$-F]s6$-%+Con vertOutG6$&F`x6#FbpFbsFI/Fbp;Fen,&F`zFenFenFen@$30FinF`u0FinF\vC*@$32F`zFfp4-T' 6(F`xFDFIF`zFbsF`qO%%FAILG@$33/F`qFjn/-FY6#-FM6$FOF`xFen0-FY6#-FM6$FOFHFenOF]\l ?(82FenFenFA/&FH6#F^]lFPFA@'5/F`qFer/F`qFhr@%0<#-Fev6#-Fhv6&%&coeffGF`xFbsFen<# FP>81FP>F`^l-%%igcdG6#-Fev6#-%%map2G6%Fev""#-%'selectG6%%$hasG-%'indetsG6$F`x%" ^GFbs/Fc\l-FY6#F`x>F`^lFenC%>F`^lFP?(83FenFenFA/&F`x6#Fj_lFPFA?(FAFenFenFA2Fj_l Fd_lC$?(Fcp,&Fj_lFenFenFenFenFd_l/&F`xF^rFPFA@%1FcpFd_lC$>F`^l-Fc^l6$F`^l,&FcpF enFj_lFfn>Fj_lFcp[@'Fa\l>8-,&-FY6#F]oFen-F[x6$,(F^]lFenFfnFenFfpFfnFPFfnFdr>F`a l,(FVFenFj^lFenF^]lFfn>F`al,*FVFenFenFenFfpFfnFdalFfn@$2FenF`^l>F`al-%%ceilG6#* &F`alFenF`^lFfn>8.-FY6#-Fhv6%%'coeffsGF`xFbs>8/,&-%(convertG6$-FM6$/,$%)infinit yGFfnFfn-Fhv6%%'degreeGF`xFbs%"+GFenFd_lFen@$333Fa[l1F`alFjbl2*&$""&FfnFen-%'le ngthG6#FLFen-FbdlFe_l2F`al,&FcblFenFXFenOF]\l>F`x-%$addG6$*&F[[lFen)FT,&FbpFenF fnFenFenF][l>8*-%%modpG6$*$-%'lcoeffG6$F`x7$FTFbsFfnFI-%%modsG6$-%'expandG6#*&F `xFenF`elFenFIFAFA6(%6_thismoduledefinitionGb6#%+thismoduleG6`p%,GFUN_HIDDENG%. NUMGFUN_SETUPG%0NUMGFUN_CLEANUPG%3algeqtoseries/doitG%:algeqtoseries/prettyprin tG%/algfuntoalgeq2G%7algfuntoalgeq/formpolyG%.borelinvborelG%/cheapgausselimG%* expintalgGF;%,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%+gfun_pade2G%0gf un_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2 d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffe qG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgivenorderG% >findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_reduceG%;f indequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmult modpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabort G%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresultG%%lif tG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadG Fgfl/%'unloadGFhfl6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtos eriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiff eqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 nGFAFA6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3G%3ty pe/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGFAFAF^[mc.matinterp modp&:-134Fc[mc,checkresult&:-139/%+modulenameG%%gfunG M7R0 I%:-95f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpoly tocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systo matrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationa linterpolationG%-findequationG%7findequationgivenorderG%>findequationgivenorder ratpolyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermo dpG%'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG %-vectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG% 2checkresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Mat rix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF`o/%'unloadGFao6hn%.al gfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchypro ductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_p adeG%)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%+StorjohannG%+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/symbolGF0F0Feqc,powtruncate%:-99Fbqc5powcomposesimp ledoit%:-96/%+modulenameG%%gfunG M7R0 I%:-80f*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#% +thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmt G%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typ echeckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolati onG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?fi ndequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG %(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmo dpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresult normalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_ NewtonG%/StorjohannmodpG6%%(packageG/%%loadGF]p/%'unloadGF^p6hn%.algfuntoalgeqG %.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffe q+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG% 1diffeqtorec/doitG%-formatdiffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinit values/recG%(makerecG%,maxdegcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mi ndegeqnG%,minordereqnG%*optionsgfG%(versionGF/F/6(%/type/gfun/freeG%7type/gfun/ has2diffeqs2G%7type/gfun/has2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG% 6gfun/rectoproc/symbolGF/F/Fcsc$@@D&:-116/%+modulenameG%%gfunG M7R0 I%:-65f*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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff /elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG %*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterp olationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpoly G%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'de gmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectm ultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkr esultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inv erse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFR/%'unloadGFS6hn%.algfuntoalg eqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.di ffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)gue sseqnG%(guessgfG%0hadamardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,list toalgeqG%-listtodiffeqG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtor ecG%-listtoseriesG%&pade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG% (rec*recG%,rectodiffeqG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiff eqG%2seriestohypergeomG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriest oseriesG%+StorjohannG%+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+/%+modulenameG%%gfunG M7R0 I%:-50f*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<#FVFfindequationgivenorderrat polyG%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG %'degmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-v ectmultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2ch eckresultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix _inverse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFjfl/%'unloadGF[gl6hn%.alg funtoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyprod uctG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_pa deG%)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%+StorjohannG%+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%(versionGF8$-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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/r ectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG% &mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findeq uationgivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderration alG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+in terpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matin terpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0nor malizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6% %(packageG/%%loadGFao/%'unloadGFbo6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtod iffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG% 2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+Parame tersG%(NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-format diffeqG%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,max degcoeffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*op tionsgfG%(versionGF$F$6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/h as2diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF$F $Ferc*typecheck&:-114F]wc/seriestodiffeq%:-35F_wc-seriestolist%:-37F]vc-listtod iffeq%:-196$%*protectedG/%+modulenameG%%gfunG M7R0 I%:-20f*6"6(%'resultG%(methodsG%'methodG%"sG%%unknG%%exprG6#%\pCopyright~(c)~19 92-2008~by~Algorithms~Project,~INRIA~France.~All~rights~reserved.GF$C(@$0&9"6#" "".%(stampedGO-T'6#-T%6$""$F2>8)&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#%+thismoduleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff /elmtG%4ratpolytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG %*typecheckG%*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterp olationG%-findequationG%7findequationgivenorderG%>findequationgivenorderratpoly G%?findequationgivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'de gmatG%(degvectG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectm ultmodpG%.matinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkr esultnormalG%,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inv erse_NewtonG%/StorjohannmodpG6%%(packageG/%%loadGFcq/%'unloadGFdq6hn%.algfuntoa lgeqG%.algebraicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%. diffeq+diffeqG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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$Fgtc*typecheck&:-114F`xc0listtohypergeom%:-20Fa xc+listtolist%:-21F\sc(l2h/l2h%:-876$%*protectedG/%+modulenameGFio M7R0 I$:-5f*6"F$F$F$-T%6$%%trueG9"F$F$6&%6_thismoduledefinitionGb6#%+thismoduleG6`p% ,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoef f/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNa meG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequatio nG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequationgiveno rderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*inte rpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmo dpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkre sultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/Storjoh annmodpG6%%(packageG/%%loadGF1/%'unloadGF26hn%.algfuntoalgeqG%.algebraicsubsG%. algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq* diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)guesseqnG%(guessgfG%0had amardproductG%0holexprtodiffeqG%)invborelG%(LaplaceG%,listtoalgeqG%-listtodiffe qG%0listtohypergeomG%+listtolistG%.listtoratpolyG%*listtorecG%-listtoseriesG%&p ade2G%,poltodiffeqG%)poltorecG%/ratpolytocoeffG%(rec+recG%(rec*recG%,rectodiffe qG%,rectohomrecG%*rectoprocG%.seriestoalgeqG%/seriestodiffeqG%2seriestohypergeo mG%-seriestolistG%0seriestoratpolyG%,seriestorecG%/seriestoseriesG%+StorjohannG %+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$F7c.borelinvborel%:-686$%*protectedG/%+modulenameG%%gfunG M7R0 I&:-133f*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: FP%$rowGF-F-6*%6_thismoduledefinitionGb6#%+thismoduleG6`p%,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%+gfun_pad e2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectohomrecb isG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&mymapG%+fi nddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequationgiven orderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%*do_red uceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpvectG%, matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpmodpear lyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normalizeresul tG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(packageG/ %%loadGFeo/%'unloadGFfo6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG%.alg eqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffeqtoho mdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 ersionGF-F-6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2diffeqs3 G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF-F-Fgsc(degve ct&:-128Ffsc'degmat&:-127Fisc+interpvect&:-130/%+modulenameG%%gfunG M7R0 I&:-118f*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#%+thismoduleG6`p%,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%+gf un_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rectoh omrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&myma pG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequatio ngivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG%* do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+interpv ectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinterpm odpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normaliz eresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(pac kageG/%%loadGFZ/%'unloadGFen6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiffeqG %.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2diffe qtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+ParametersG% (NumGfunG%)nth_termG%*_pexportsG%,diffeqtableG%1diffeqtorec/doitG%-formatdiffeq G%*formatrecG%6goodinitvalues/diffeqG%3goodinitvalues/recG%(makerecG%,maxdegcoe ffG%,maxordereqnG%*maxdegeqnG%,mindegcoeffG%*mindegeqnG%,minordereqnG%*optionsg fG%(versionGF+F+6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2dif feqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF+F+F_rc- findequation&:-121/%+modulenameG%%gfunG M7R0 I&:-152c6analytic_continuation&:-2196$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-169<&%(versionG%)SettingsG%*_pexportsG%*utilitiesG/%+modulenameGc(NumGfun%: -43 M7R0 I&:-186c&lower&:-220/%+modulenameGc(NumGfun%:-43 M7R0 I&:-207c)bare_rec&:-221/%+modulenameGc(NumGfun%:-43 M7R0 I&:-161`6-c(longgcd&:-222c2infroot_resultant&:-223c'sqrabs&:-224c2irreducible_s olve&:-225c2irreducible_check&:-226c+inffactors&:-227c'isroot&:-228c%doit&:-229 c,ModuleApply&:-230c/dominant_first&:-231c1ratbelow_complex&:-232b6#%+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%-_m4331374736G6"6$%*protectedG/%+modulena meGc(NumGfun%:-43 M7R0 I&:-178G/%+modulenameGc(NumGfun%:-43 M7R0 I&:-195c(getname&:-233/%+modulenameGc(NumGfun%:-43 M7R0 I&:-216c,Digits_plus&:-234/%+modulenameGc(NumGfun%:-43 M7R0 I&:-168%&falseG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-153`6)c.default_disks&:-235c,ModuleApply&:-236c*trial_run&:-237c1basic_seri es_sol&:-238c5precompute_local_sol&:-239c5fundamental_solution&:-240c.proc_temp late&:-241b6#%+thismoduleG6'%1PRECOMPUTED_DATAG%4PRECOMPUTATION_PRECG%$DEQG%"YG %"ZG6"6)%.default_disksG%,ModuleApplyG%*trial_runG%1basic_series_solG%5precompu te_local_solG%5fundamental_solutionG%.proc_templateGF5F5F5F5%-_m4331376464G6'c1 PRECOMPUTED_DATA&:-242c4PRECOMPUTATION_PREC&:-243c$DEQ&:-244c"Y&:-245c"Z&:-2466 $%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-206c,bare_diffeq&:-247/%+modulenameGc(NumGfun%:-43 M7R0 I&:-187c&below&:-248/%+modulenameGc(NumGfun%:-43 M7R0 I&:-160f*6#%"tG6$%&savedG%$resG6"F)C,-%'forgetG6$%*simpl/absG9$-F,6%%0simpl/sim pl/absGF/%,_Envsignum0G>8$%+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&:-2496$%*protectedG/%+modulenameGc(NumGf un%:-43 M7R0 I&:-199c'ordrec&:-250/%+modulenameGc(NumGfun%:-43 M7R0 I&:-145`6&c0typecheck_hr_eq&:-251c,types_table&:-252c&setup&:-253c(cleanup&:-25 4b6#%+thismoduleG6"F,6&%0typecheck_hr_eqG%,types_tableG%&setupG%(cleanupGF,F,F, F,%-_m4331376688G6"/%+modulenameGc(NumGfun%:-43 M7R0 I&:-194c6diffeq_for_derivative&:-255/%+modulenameGc(NumGfun%:-43 M7R0 I&:-179c*evalf_rnd&:-256/%+modulenameGc(NumGfun%:-43 M7R0 I&:-198c*orddiffeq&:-257/%+modulenameGc(NumGfun%:-43 M7R0 I&:-217c3bound_abs_interval&:-258/%+modulenameGc(NumGfun%:-43 M7R0 I&:-150c*fnth_term&:-2596$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-167`6+c;binary_splitting_threshold&:-260c.precision_ini&:-261c-terms_factor &:-262c,terms_delta&:-263c8bound_ratpoly_tail_prec&:-264c9bound_ratpoly_max_exp and&:-265c4get_rid_of_poly_thr&:-266c:binomial_expand_threshold&:-267c*max_step s&:-268b6#%+thismoduleG6"F16+%;binary_splitting_thresholdG%.precision_iniG%-ter ms_factorG%,terms_deltaG%8bound_ratpoly_tail_precG%9bound_ratpoly_max_expandG%4 get_rid_of_poly_thrG%:binomial_expand_thresholdG%*max_stepsGF1F1F1F1%-_m4331373 712G6"6$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-188c&above&:-269/%+modulenameGc(NumGfun%:-43 M7R0 I&:-209c)set_mode&:-270/%+modulenameGc(NumGfun%:-43 M7R0 I&:-159c/bound_rec_tail&:-2716$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-214c)colinear&:-272/%+modulenameGc(NumGfun%:-43 M7R0 I&:-180c%rndu&:-273/%+modulenameGc(NumGfun%:-43 M7R0 I&:-201c,read_diffeq&:-274/%+modulenameGc(NumGfun%:-43 M7R0 I&:-166Q)0.5devel6"6$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-151c6analytic_continuation&:-2196$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-208c0simplify_RootOf&:-275/%+modulenameGc(NumGfun%:-43 M7R0 I&:-189c)ratabove&:-276/%+modulenameGc(NumGfun%:-43 M7R0 I&:-158c2bound_diffeq_tail&:-2776$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-215c)ratbelow&:-278/%+modulenameGc(NumGfun%:-43 M7R0 I&:-196c:make_fresh_name_generator&:-279/%+modulenameGc(NumGfun%:-43 M7R0 I&:-181c%rndz&:-280/%+modulenameGc(NumGfun%:-43 M7R0 I&:-182c%rndd&:-281/%+modulenameGc(NumGfun%:-43 M7R0 I&:-203c.diffeq_lcoeff&:-282/%+modulenameGc(NumGfun%:-43 M7R0 I&:-156c*bound_rec&:-2836$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-173`67c-rectodiffrec&:-284c0parametered_rec&:-285c7step_transition_matrix&: -286c7path_transition_matrix&:-287c*plot_path&:-288c6fail_if_singular_path&:-28 9c/bit_burst_path&:-290c/subdivide_path&:-291c-rewrite_path&:-292c;absolute_pre cision_warning&:-293c6diffeq_inicond_matrix&:-294c-ext_norm_ini&:-295c*apply_in i&:-296c6analytic_continuation&:-219c2transition_matrix&:-297c0local_monodromy& :-298c*monodromy&:-299c3rec_matrix_num_den&:-300c0binsplit_matrix&:-301c)binspl it&:-302c4diffeq_to_local_rec&:-303b6#%+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=%-_m4331786760G 6"/%+modulenameGc(NumGfun%:-43 M7R0 I&:-174`63c9common_root_multiplicity&:-304c2infroot_resultant&:-305c(longgcd&:- 306c?normal_majorant_series_formula&:-307c5normal_coeff_formula&:-308c+tail_bou nd&:-309c,normal_type&:-310c5rec_factorial_growth&:-311c3normalize_rec_doit&:-3 12c.normalize_rec&:-313c1normalize_diffeq&:-314c/make_above_psi&:-315c.find_con stant&:-316c7find_constant_from_rec&:-317c-get_rid_of_P&:-318c2bound_diffeq_doi t&:-319c/bound_rec_doit&:-320b6#%+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%-_m4331375344G6"/%+modulenameGc(NumGfun%:-43 M7R0 I&:-191c=evalf_complex_absolute_error&:-321/%+modulenameGc(NumGfun%:-43 M7R0 I&:-212c'argmax&:-322/%+modulenameGc(NumGfun%:-43 M7R0 I&:-148t+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#""$F( M7R0 I&:-165f*6"F$F$F$7#-%#opG6#-%&minusG6$<#-%(exportsG6#T&T'F$F$6(%6_thismoduledef initionGb6#%+thismoduleG6V%-numeric_modeG%/NUMGFUN_HIDDENG%4bound_normal_diffeq G%&typesG%)matricesG%(nthtermG%'ancontG%'boundsG%/numeric_boundsG%0symbolic_bou ndsG%&hrdeqG%&hrrecG%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rndnG%%rndiG%&upperG%&lo werG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=evalf_complex_absolute_ errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_derivativeG%(getnameG%:m ake_fresh_name_generatorG%(ordfrecG%*orddiffeqG%'ordrecG%>rec_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&:-150c6analytic_continuation&: -151c+evaldiffeq&:-152c-diffeqtoproc&:-153c2transition_matrix&:-154c-bound_diff eq&:-155c*bound_rec&:-156c.bound_ratpoly&:-157c2bound_diffeq_tail&:-158c/bound_ rec_tail&:-159c0abs_with_RootOf&:-160c.dominant_root&:-161c2make_waksman_proc&: -162c-needed_terms&:-163c*utilities&:-164c*_pexports&:-165c(version&:-166c)Sett ings&:-167F46Vc-numeric_mode&:-168c/NUMGFUN_HIDDEN&:-169c4bound_normal_diffeq&: -170c&types&:-145c)matrices&:-171c(nthterm&:-172c'ancont&:-173c'bounds&:-174c/n umeric_bounds&:-175c0symbolic_bounds&:-176c&hrdeq&:-177c&hrrec&:-178c*evalf_rnd &:-179c%rndu&:-180c%rndz&:-181c%rndd&:-182c%rndn&:-183c%rndi&:-184c&upper&:-185 c&lower&:-186c&below&:-187c&above&:-188c)ratabove&:-189c5evalf_absolute_error&: -190c=evalf_complex_absolute_error&:-191c7ndmatrix_approximation&:-192c)thetade q&:-193c6diffeq_for_derivative&:-194c(getname&:-195c:make_fresh_name_generator& :-196c(ordfrec&:-197c*orddiffeq&:-198c'ordrec&:-199c>rec_has_constant_coefficie nts&:-200c,read_diffeq&:-201c)read_rec&:-202c.diffeq_lcoeff&:-203c5diffeq_singu larities&:-204c/diffeq_infsing&:-205c,bare_diffeq&:-206c)bare_rec&:-207c0simpli fy_RootOf&:-208c)set_mode&:-209c+reset_mode&:-210c%call&:-211c'argmax&:-212c2fa lling_factorial&:-213c)colinear&:-214c)ratbelow&:-215c,Digits_plus&:-216c3bound _abs_interval&:-217c4sprint_small_approx&:-218F9Fer6$%*protectedG/%+modulenameG c(NumGfun%:-43 M7R0 I&:-202c)read_rec&:-323/%+modulenameGc(NumGfun%:-43 M7R0 I&:-183c%rndn&:-324/%+modulenameGc(NumGfun%:-43 M7R0 I&:-172`61c+frectopoly&:-325c*recmatrix&:-326c-frectomatrix&:-327c3rec_inicond_ vector&:-149c)binsplit&:-328c5makeitfloat/mantissa&:-329c,makeitfloat&:-330c,ex tractline&:-331c0binsplit_params&:-146c+ratorfloat&:-332c.nth_term_doit&:-147c, choose_ring&:-148c*fnth_term&:-259c5nth_term_of_ndseries&:-333c&mydiv&:-334b6#% +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%-_m4331374320G6"/%+modulenameGc(NumGfun%:-43 M7R0 I&:-157`6)c3parse_exppoly_term&:-335c3ratabove_algebraic&:-336c8ratabove_algebr aic_doit&:-337c+bound_term&:-338c+bound_tail&:-339c%doit&:-340c,ModuleApply&:-3 41b6#%+thismoduleG6"F/6)%3parse_exppoly_termG%3ratabove_algebraicG%8ratabove_al gebraic_doitG%+bound_termG%+bound_tailG%%doitG%,ModuleApplyGF/F/F/F/%-_m4331374 960G6"6$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-190c5evalf_absolute_error&:-342/%+modulenameGc(NumGfun%:-43 M7R0 I&:-175`6+c5bound_frobenius_norm&:-343crec_has_constant_coefficients&:-353/%+modulenameGc(NumGfun%:-43 M7R0 I&:-164`6Jc*evalf_rnd&:-256c%rndu&:-273c%rndz&:-280c%rndd&:-281c%rndn&:-324c%rn di&:-354c&upper&:-355c&lower&:-220c&below&:-248c&above&:-269c)ratabove&:-276c5e valf_absolute_error&:-342c=evalf_complex_absolute_error&:-321c7ndmatrix_approxi mation&:-356c)thetadeq&:-357c6diffeq_for_derivative&:-255c(getname&:-233c:make_ fresh_name_generator&:-279c(ordfrec&:-358c*orddiffeq&:-257c'ordrec&:-250c>rec_h as_constant_coefficients&:-353c,read_diffeq&:-274c)read_rec&:-323c.diffeq_lcoef f&:-282c5diffeq_singularities&:-359c/diffeq_infsing&:-360c,bare_diffeq&:-247c)b are_rec&:-221c0simplify_RootOf&:-275c)set_mode&:-270c+reset_mode&:-361c%call&:- 362c'argmax&:-322c2falling_factorial&:-352c)colinear&:-272c)ratbelow&:-278c,Dig its_plus&:-234c3bound_abs_interval&:-258c4sprint_small_approx&:-363b6#%+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%-_m4331373168G6&c1rnd_mode_aliases&:-364c ,above_below&:-365c3read_diffeq_or_rec&:-366c.my_abs/RootOf&:-2496$%*protectedG /%+modulenameGc(NumGfun%:-43 M7R0 I&:-149t,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&:-195% 'ordrecGc'ordrec&:-1996#""$&F76#%'columnG/%+modulenameGc(nthterm&:-172 M7R0 I&:-218c4sprint_small_approx&:-363/%+modulenameGc(NumGfun%:-43 M7R0 I&:-184c%rndi&:-354/%+modulenameGc(NumGfun%:-43 M7R0 I&:-205c/diffeq_infsing&:-360/%+modulenameGc(NumGfun%:-43 M7R0 I&:-154c2transition_matrix&:-2976$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-171`6,c'LAMain&:-367c%ReIm&:-368c'bigint&:-369c'mvMult&:-370c/WaksmanInplac e&:-371c(waksman&:-372c2ndmatrix_multiply&:-373c.ndmatrix_norm&:-374c+genmatrin g&:-375c0waksman_product&:-376b6#%+thismoduleG6"F26,%'LAMainG%%ReImG%'bigintG%' mvMultG%/WaksmanInplaceG%(waksmanG%2ndmatrix_multiplyG%.ndmatrix_normG%+genmatr ingG%0waksman_productGF2F26%%1type/matrix_ringG%.type/ndmatrixG%1convert/ndmatr ixGF2%-_m4331373872G6"/%+modulenameGc(NumGfun%:-43 M7R0 I&:-210c+reset_mode&:-361/%+modulenameGc(NumGfun%:-43 M7R0 I&:-176`6'c/bound_rec_tail&:-271c*bound_rec&:-283c2bound_diffeq_tail&:-277c-bou nd_diffeq&:-377c3simplify_algebraic&:-378b6#%+thismoduleG6"F-6'%/bound_rec_tail G%*bound_recG%2bound_diffeq_tailG%-bound_diffeqG%3simplify_algebraicGF-F-6#%)Co eftaylGF-%-_m4331375952G6"/%+modulenameGc(NumGfun%:-43 M7R0 I&:-193c)thetadeq&:-357/%+modulenameGc(NumGfun%:-43 M7R0 I&:-146t+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&:-195%)read_r ecGc)read_rec&:-202%)matricesGc)matrices&:-171%%callGc%call&:-211Fhsc-frectomat rix&:-3276#""'/%+modulenameGc(nthterm&:-172 M7R0 I&:-163c-needed_terms&:-3466$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-204c5diffeq_singularities&:-359/%+modulenameGc(NumGfun%:-43 M7R0 I&:-185c&upper&:-355/%+modulenameGc(NumGfun%:-43 M7R0 I&:-170`6(c/rewrite_diffeq&:-379c3bound_coefficients&:-380c-reduce_order&:-381c 3fit_initial_values&:-382c%doit&:-383c,ModuleApply&:-384b6#%+thismoduleG6&%"nG% "yG%"zG%&ordeqG6"6(%/rewrite_diffeqG%3bound_coefficientsG%-reduce_orderG%3fit_i nitial_valuesG%%doitG%,ModuleApplyGF3F3F3F3%-_m4331375312G6&c"n&:-385c"y&:-386c "z&:-387c&ordeq&:-388/%+modulenameGc(NumGfun%:-43 M7R0 I&:-155c-bound_diffeq&:-3776$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-211c%call&:-362/%+modulenameGc(NumGfun%:-43 M7R0 I&:-192c7ndmatrix_approximation&:-356/%+modulenameGc(NumGfun%:-43 M7R0 I&:-177G/%+modulenameGc(NumGfun%:-43 M7R0 I&:-162c0waksman_product&:-3766$%*protectedG/%+modulenameGc(NumGfun%:-43 M7R0 I&:-147t+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$Fc%doit&:-3836#""$/%+modulenameGc4bound_normal_diffeq&:-1 70 M7R0 I&:-302t+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 #""(/%+modulenameGc'ancont&:-173 M7R0 I&:-311t+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&:-2026#""$ /%+modulenameGc'bounds&:-174 M7R0 I&:-328t+6)%"AG%"nG%"iG%"jG%%ringG%4expected_entry_sizeG%#~$G6*%"PG%#P1G%#P2G%" kG%"mG%(matmultG%#idG%#AkG6"F5C%>6$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&:-167Fjqc)binsplit&:-32 86#""(/%+modulenameGc(nthterm&:-172 M7R0 I&:-361f*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&:-164 M7R0 I&:-246G/%+modulenameGc-diffeqtoproc&:-153 M7R0 I&:-224t+6$%"zG%#~$G6"6#%'inlineGF'*&9$"""-%*conjugateG6#F+F,F'F'F'6#""#/%+modu lenameGc.dominant_root&:-161 M7R0 I&:-274f*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&:-3666$%*protectedG/%+modulenameGc*utilities&:-164 M7R0 I&:-340t+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&:-339%)rat aboveGc)ratabove&:-189%,diffeqtorecGc,diffeqtorec%:-10%*rectoprocGc*rectoproc%: -33%%rnduGc%rndu&:-1806#Fiu/%+modulenameGc.bound_ratpoly&:-157 M7R0 I&:-283f*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&:-178%(getnameGc(getname&:-195%>rec_has_constant_c oefficientsGc>rec_has_constant_coefficients&:-200%,rectodiffeqGc,rectodiffeq%:- 31%.bound_ratpolyGc.bound_ratpoly&:-157%/ratpolytocoeffGc/ratpolytocoeff%:-28%' boundsGc'bounds&:-174Fctc3simplify_algebraic&:-378%)rataboveGc)ratabove&:-189/% +modulenameGc0symbolic_bounds&:-176 M7R0 I&:-349c=bound_path_transition_matrix&:-348/%+modulenameGc/numeric_bounds&:-175 M7R0 I&:-266"#I/%+modulenameGc)Settings&:-167 M7R0 I&:-294t+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&:-198%,diffeqtorecGc,diffeqtorec%:-10%*rectoprocGc*rectoproc %:-336#""$/%+modulenameGc'ancont&:-173 M7R0 I&:-320f*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&:-313%'ordre cGc'ordrec&:-199%,rectodiffeqGc,rectodiffeq%:-31%4bound_normal_diffeqGc4bound_n ormal_diffeq&:-170Fjqc7find_constant_from_rec&:-317F[rc-get_rid_of_P&:-318/%+mo dulenameGc'bounds&:-174 M7R0 I&:-353f*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&:-164 M7R0 I&:-329t+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%F6$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&:-195%*orddiffeqGc*orddif feq&:-198%.algebraicsubsGc.algebraicsubs$:-2%,bare_diffeqGc,bare_diffeq&:-206%, diffeqtorecGc,diffeqtorec%:-10%*rectoprocGc*rectoproc%:-336#""'/%+modulenameGc- diffeqtoproc&:-153 M7R0 I&:-255t+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&:-233%,diffeqtorecGc,diffeqtorec%:-10%*rectoprocGc*rectoproc%:-33 Fgsc*orddiffeq&:-2576#""$6$%*protectedG/%+modulenameGc*utilities&:-164 M7R0 I&:-332t+6%%$ndmG%%precG%#~$G6"F(F(@%/9%%)infinityG-%$mapG6$T%-%#opG6#9$-T'6$F4 F+F(F(6(%6_thismoduledefinitionGb6#%+thismoduleGF(F(61%+frectopolyG%*recmatrixG %-frectomatrixG%3rec_inicond_vectorG%)binsplitG%5makeitfloat/mantissaG%,makeitf loatG%,extractlineG%0binsplit_paramsG%+ratorfloatG%.nth_term_doitG%,choose_ring G%*fnth_termG%5nth_term_of_ndseriesG%&mydivGF(F(F(F(F(FLc&mydiv&:-334FDc,makeit float&:-3306#""$/%+modulenameGc(nthterm&:-172 M7R0 I&:-375=6"%&falseGE\[l+c/WaksmanInplace&:-371f+6#%"rG6'%$wakG%#adG%#prG%#zeG%#i dGF$F$C(>8%f*6&%"aG%"bG%&alphaG%%betaG6$%"iG%"jGF$F$?(8$"""F?T$%%trueG?(F3F?F?F @FA>&9$6$F>F3,&*&9&F?FDF?F?*&9'F?&9%FFF?F?F$F$6$F*FE>F>-T%6#FE>8&f*6$F6F76#%"cG F$F$C%>F>-%'rtableG6(;F?F@Fhn%%NULLGFin/.%)datatypeG.%(integerG/.%(subtypeG.%'M atrixG-FQ6%FEFMF>F>F$F$6&F*FEF,F>>8'-Fco6%FEFE/.%&shapeG.%%zeroG>8(-Fco6%FEFE/F \p.%)identityG-%,matrix_ringG6&F3FTFhoFapF$F$6&%6_thismoduledefinitionGb6#%+thi smoduleGF$F$6,%'LAMainG%%ReImG%'bigintG%'mvMultG%/WaksmanInplaceG%(waksmanG%2nd matrix_multiplyG%.ndmatrix_normG%+genmatringG%0waksman_productGF$F$6%%1type/mat rix_ringG%.type/ndmatrixG%1convert/ndmatrixGF$F$Fiqc0waksman_product&:-376Fhp%( genericGf+F)6&F-F.F/F0F$F$C'>F>f*F5F$F$F$,&*&FIF?FEF?F?*&FKF?FMF?F?F$F$F$>F3f*F VF$F$F$-%".G6$FEFMF$F$F$>FTFio>FhoFbp-Fhp6&F>F3FTFhoF$F$6$F[qF\qFhp%,ReImInplac eGf+F)6*F-F.F/F0%'int_adG%'int_prG%'int_zeG%'int_idGF$F$C(>6&Fap8)8*8+-%#opG6#- &FQ6#T'FR>F>f*F$F$F$F$YQ?Nobody~wants~to~add~imatrices.F$F$F$F$>F3f*6$%"UG%"VG6 ,%#U0G%#U1G%%denUG%#V0G%#V1G%%denVG%"TG%#W0G%#W1G%%denWGF$F$C.>6%F>F3FT-F`tFR>6 %FhoFapF\t-F`t6#FM>F^t-T#6$F>Fho>F]t-Fdv6$F3Fap-FQ6&F>F3F?F?-FQ6&FhoFapF?F?>8,F cv-FQ6&F^wF^tF?!""-FQ6&F^wF]tF?Faw-FQ6&F^tF]tF?Faw>8-*&FTF?F\tF?-%(imatrixG6%F^ tF^wFgwF$F$6&FfsF\tFesFap>FT-Fjw6%F]tF]tF?>Fho-Fjw6%F^tF]tF?F_sF$F$6(F[qF\qFhqc +genmatring&:-375FdqF'Fhpc(waksman&:-372f+F)F+F$F$C(>F3f*F56%FXF;FF>-Ff n6(FhnFhnFinFinFinF_o?(F3F?F?F@FA?(FTF?F?F@FA>&F>6$F3FT,&*&FIF?&FEFcyF?F?*&FKF? &FMFcyF?F?F>F$F$FN>F>FP>FTf*FVFWF$F$C%>F>F]yFdoF>F$F$Ffo>FhoFio>FapFbpFgpF$F$6& F[qF\qFiqF^rFhpc'LAMain&:-367f+F)FarF$F$C'>F>f*F5F$6#%'inlineGF$-__%.LinearAlge braG%(LA_MainG%*MatrixAddG6(FEFMFIFK/.%(inplaceGF%/.%.outputoptionsG7"F$F$F$>F3 f*FVF$FfzF$-_Fjz%5MatrixMatrixMultiplyG6&FEFMF_[lFb[lF$F$F$>FTFio>FhoFbpF_sF$F$ 6$F[qF\qFhp%)ndseriesGf*F)F$F$F$-Fct6#,&FEF?F?F?F$F$6(F[qF\qFhqFdxFcqc'mvMult&: -370%)ndmatrixGf+F)FarF$F$C%>F3f*F\uF$FfzF$-Ff\l6$-%+mvMultiplyG6$-F`t6$F?FE-F` t6$F?FM*&-F`t6$""#FEF?-F`t6$Fg]lFMF?F$F$F$>Fho-Ff\l6$FbpF?F_sF$F$6$F[qF\qFhpc'b igint&:-369&Fdx6#Fe\lc%ReIm&:-368f+F)FdsF$F$C(>F[t-F`t6#-%2genmatring/bigintGFR >F>f*F$F$F$F$YFitF$F$F$>F3f*F\u6+F`uFauFbuFcuFduFeuFguFhuFiuF$F$C(>F\vF]v>F_vF` v>F]t-FQ6&FcvFgvF?Faw>F^t-FQ6&-Fdv6$F>Fap-Fdv6$F3FhoF?F?>F^wFhw-Fjw6%F]tF^tF^wF $F$F\x>FTF^x>FhoFaxF_sF$F$6$F[qF\qFhpFe\lf+F)FarF$F$C%>F3f*FVF$FfzF$-F^]lF\sF$F $F$>FhoFbpF_sF$F$6$F[qF\qFhp/%+modulenameGc)matrices&:-171 M7R0 I&:-259t+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&:-148Fboc0binsplit_params&:-146F]oc3 rec_inicond_vector&:-149Fdoc.nth_term_doit&:-1476#""&/%+modulenameGc(nthterm&:- 172 M7R0 I&:-385G/%+modulenameGc4bound_normal_diffeq&:-170 M7R0 I&:-327t+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&:-326FKc+frectopoly&:-325%%callGc%call&:-2116#""$/%+modulenameGc (nthterm&:-172 M7R0 I&:-360t+6%%$deqG%%yofzG>%(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&:-168Fipc5diffeq_singularities&:-359Faqc 'argmax&:-322Fhpc.diffeq_lcoeff&:-282%.dominant_rootGc.dominant_root&:-1616#""# 6$%*protectedG/%+modulenameGc*utilities&:-164 M7R0 I&:-303t+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&:-195%.algebraicsubsGc.algebraicsub s$:-2%*orddiffeqGc*orddiffeq&:-198%,diffeqtorecGc,diffeqtorec%:-10%,rectohomrec Gc,rectohomrec%:-326#""$/%+modulenameGc'ancont&:-173 M7R0 I&:-312t+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&:-195%(rec*recGc(rec*rec%:-306# F5/%+modulenameGc'bounds&:-174 M7R0 I&:-245G/%+modulenameGc-diffeqtoproc&:-153 M7R0 I&:-273f*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&:-2566$%*protectedG/%+modulenameGc *utilities&:-164 M7R0 I&:-339t+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%:-28Fisc+bound_term&:-338%)SettingsGc)Settings&:-1676#""'/%+modulenameG c.bound_ratpoly&:-157 M7R0 I&:-225t+6%%$facG%"zG%#~$G6$%$solG%'sortedG6"F+C%>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$-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%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&:-2026#""$/%+modulenameGc'bounds&:-174 M7R0 I&:-319f*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&:-314%4bound_normal_diffeqGc4bound_normal_diffeq&:-170Ffp c7find_constant_from_rec&:-317Fgpc-get_rid_of_P&:-318/%+modulenameGc'bounds&:-1 74 M7R0 I&:-352f*6$%"zG%"nG6#%"kG6"F)-%$mulG6$,&9$"""8$!""/F0;""!,&9%F/F1F/F)F)6$%6_thi smoduledefinitionGb6#%+thismoduleG6&%1rnd_mode_aliasesG%,above_belowG%3read_dif feq_or_recG%.my_abs/RootOfG6#%(packageG6J%*evalf_rndG%%rnduG%%rndzG%%rnddG%%rnd nG%%rndiG%&upperG%&lowerG%&belowG%&aboveG%)rataboveG%5evalf_absolute_errorG%=ev alf_complex_absolute_errorG%7ndmatrix_approximationG%)thetadeqG%6diffeq_for_der ivativeG%(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%)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&:-164 M7R0 I&:-295t+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&:-1756#""$/%+modulenameGc'ancont&:-173 M7R0 I&:-237t+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&:-205%'ancontGc'ancont&:-1736#""$/% +modulenameGc-diffeqtoproc&:-153 M7R0 I&:-330t+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&:-329FYc,makeitfloat&:-3306#""$/%+modulenameGc(nthterm&:-172 M7R0 I&:-331=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$6$F4F56#FIFMt+F)F$F$F$-FM6$-F-6$-%# opG6$F2F1F2-Fhn6$FIF1F$F$6$F4F56#FI/%+modulenameGc(nthterm&:-172 M7R0 I&:-374f+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&:-172%&floatG/%+modulenameGc)matrices&: -171 M7R0 I&:-256t+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& :-234FOc1rnd_mode_aliases&:-3646#""#6$%*protectedG/%+modulenameGc*utilities&:-1 64 M7R0 I&:-300t+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&:-195%)bare_recGc)bare_rec&:- 2076#""$/%+modulenameGc'ancont&:-173 M7R0 I&:-326=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&:-3266#""$%)ndseriesGt,F) 6&F.%&McoefGF/%"rGF$F$C(>F2F5>8'-%'degreeG6$9$9%>8&-%'MatrixG6%,&FaoFEFEFEF\pF3 >&Fho6$FDFDF4>&Fho6$FDFEF4OFhoF$F$6&FHFIFNFfn6#Fhn-Fjo6#-%(polynomG6#-%(complex G6#%(integerGFF4-%&evalcG6#-FB6#*&FeoFE-%'lcoeffGF doFD>F3-%&denomG6#F4>Fho-F@6$FB*&F3FE-_%.LinearAlgebraG%*TransposeG6#&7#-_Ffr%0 CompanionMatrixG6$F4Ffo6#FEFE>Fho-F@6%%(convertGFho.%'hornerG>F3-Fcs6$F3Fds-F<6 $FhoF3F$F$6$FHFI6#Fhn/%+modulenameGc(nthterm&:-172 M7R0 I&:-359f*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&:-2826$%*protectedG/%+modulenameGc*utilit ies&:-164 M7R0 I&:-260"$+)/%+modulenameGc)Settings&:-167 M7R0 I&:-386G/%+modulenameGc4bound_normal_diffeq&:-170 M7R0 I&:-222t+6$%&polysG%#~$G6"6#%'inlineGF'-%&foldlG6$%$gcdG-%#opG6#9$F'F'F'6#""#/% +modulenameGc.dominant_root&:-161 M7R0 I&:-272f+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&:-164 M7R0 I&:-338t+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&:-336F[]lc3parse_exppoly_term&:-335%3bound_abs_in tervalGc3bound_abs_interval&:-217%)rataboveGc)ratabove&:-189%.dominant_rootGc.d ominant_root&:-161%&aboveGc&above&:-1886#Fgx/%+modulenameGc.bound_ratpoly&:-157 M7R0 I&:-248f*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&:-3656$%*protectedG/%+modulenameGc*ut ilities&:-164 M7R0 I&:-292t,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&:-289F irc/subdivide_path&:-291Fhrc/bit_burst_path&:-2906#""&-%%listG6#F;/%+modulename Gc'ancont&:-173 M7R0 I&:-309`6&c2simplify_validity&:-389c$psi&:-390c+tail_bound&:-391c,ModuleApply&: -392b6#%+thismoduleG6"F,6&%2simplify_validityG%$psiG%+tail_boundG%,ModuleApplyG F,F,F,F,%-_m4331375568G6"/%+modulenameGc'bounds&:-174 M7R0 I&:-318f*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&:-167%)rataboveG c)ratabove&:-189/%+modulenameGc'bounds&:-174 M7R0 I&:-351f*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%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'/%+ modulenameGc.dominant_root&:-161 M7R0 I&:-373f+6$%"aG%"bG6"6#%'inlineGF'-%)ndmatrixG6$-_%.LinearAlgebraG%)MultiplyG6$ -%#opG6$"""9$-F36$F59%*&-F36$""#F6F5-F36$F=F9F5F'F'F'F+/%+modulenameGc)matrices &:-171 M7R0 I&:-240f*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&:-173%%rnduGc%rndu&:-180%%rndzGc%rndz& :-181/%+modulenameGc-diffeqtoproc&:-153 M7R0 I&:-325t+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&:-1976#""$/%+modulenameGc(nthterm&:-172 M7R0 I&:-358f+6#%%frecG6"6#%'inlineGF&,&-%%nopsG6#9$"""!"#F.F&F&F&%*nonnegintG6$%*pr otectedG/%+modulenameGc*utilities&:-164 M7R0 I&:-301t+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'%#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&:-178%(getnameGc(getname&:-195%'boundsGc'bounds &:-174F[pc3simplify_algebraic&:-3786#""$/%+modulenameGc0symbolic_bounds&:-176 M7R0 I&:-337f*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&:-160/%+modulenameGc.b ound_ratpoly&:-157 M7R0 I&:-223t+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 #""$/%+modulenameGc.dominant_root&:-161 M7R0 I&:-247t+6%%$deqG%*z_or_yofzG%#~$G6"6#%'inlineGF(-%#ifG6%-%%typeG6$9$.%$setG-%# opG6#-%'selectG6%%$hasGF1-F56#9%F1F(F(F(6#""$6$%*protectedG/%+modulenameGc*util ities&:-164 M7R0 I&:-232f*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&:-216/%+modulenameGc.dominant_root&:-161 M7R0 I&:-308t+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&:-167F\pc?normal_majorant_series_formula&:-3076#""(/%+modulenameGc'bo unds&:-174 M7R0 I&:-317f*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&:-195%*formatrecGc*formatrec%:-49%3goodinitvalues/recGc3goodinitvalues/rec %:-51%*rectoprocGc*rectoproc%:-33Fepc.find_constant&:-316/%+modulenameGc'bounds &:-174 M7R0 I&:-293t+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*/%+modulenameGc'ancont&:-173 M7R0 I&:-286t+6)%$deqG%%yofzG%#z0G%#z1G%(epsilonG%#~$G>'%/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&:-19 8Fi\lc4diffeq_to_local_rec&:-303Fg\lc0binsplit_matrix&:-301%/numeric_boundsGc/n umeric_bounds&:-175%)SettingsGc)Settings&:-167%4sprint_small_approxGc4sprint_sm all_approx&:-218Fh\lc)binsplit&:-302%'ordrecGc'ordrec&:-1996#""'/%+modulenameGc 'ancont&:-173 M7R0 I&:-269f*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&:-3656$%*protectedG/%+modulenameGc*ut ilities&:-164 M7R0 I&:-230t+6&%%polyG%"zG%#~$G>%+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&:-2296#""$/%+modulenameGc.dominant_root&:-161 M7R0 I&:-372G/%+modulenameGc)matrices&:-171 M7R0 I&:-254t+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&:-252 6#"""/%+modulenameGc&types&:-145 M7R0 I&:-239f*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&:-198%%rndzGc%rndz&:-181%'ancontGc'ancont&:-173%/n umeric_boundsGc/numeric_bounds&:-175%'boundsGc'bounds&:-174Fevc5fundamental_sol ution&:-240Fcvc1basic_series_sol&:-238/%+modulenameGc-diffeqtoproc&:-153 M7R0 I&:-242G/%+modulenameGc-diffeqtoproc&:-153 M7R0 I&:-220f*6#%"iG6"6#%'inlineGF&-%#opG6$7$""#"""9$F&F&F&6$%*protectedG/%+modulena meGc*utilities&:-164 M7R0 I&:-278f*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&:-2486$% *protectedG/%+modulenameGc*utilities&:-164 M7R0 I&:-344t+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%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&:-198F]rc7step_transition_matr ix&:-286%/numeric_boundsGc/numeric_bounds&:-175F^rc7path_transition_matrix&:-28 7%)matricesGc)matrices&:-1716#""&/%+modulenameGc'ancont&:-173 M7R0 I&:-380t+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&:-388F_wc"z&:-387%.dominant_rootGc.dominant_root&:-161%-nume ric_modeGc-numeric_mode&:-168%,Digits_plusGc,Digits_plus&:-216%%rndzGc%rndz&:-1 81%'boundsGc'bounds&:-174%.bound_ratpolyGc.bound_ratpoly&:-1576#""#/%+modulenam eGc4bound_normal_diffeq&:-170 M7R0 I&:-306G/%+modulenameGc'bounds&:-174 M7R0 I&:-324f*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&:-2566$%*protectedG/%+modulenameGc *utilities&:-164 M7R0 I&:-365f+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*%)realconsG/%+modulenameGc*utilities&:-164 M7R0 I&:-366f*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&:-233F_oc( ordfrec&:-358/%+modulenameGc*utilities&:-164 M7R0 I&:-234f*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&:-164 M7R0 I&:-251f*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+/%+modulenameGc&types&:-145 M7R0 I&:-229t+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&:-2 25Fauc/dominant_first&:-231Fjtc'sqrabs&:-224%-numeric_modeGc-numeric_mode&:-168 F\uc2irreducible_check&:-226Fitc2infroot_resultant&:-223Fhtc(longgcd&:-222F^uc' isroot&:-228Fbuc1ratbelow_complex&:-2326#FW/%+modulenameGc.dominant_root&:-161 M7R0 I&:-336f*6#%%zetaG6"6#%&cacheGF&C$>%'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&:-337/%+modulenameGc.bound_ratpoly&:-157 M7R0 I&:-379t+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 &:-387Fbqc"y&:-386%)thetadeqGc)thetadeq&:-193Fdqc&ordeq&:-3886#""#/%+modulename Gc4bound_normal_diffeq&:-170 M7R0 I&:-279f+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&:-16 4 M7R0 I&:-345t,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$,&9'"""9&!"">8%7#-%$seqG6$-%(convertG6%-&%&evalfG6#""#6#,&F6F5*&F2F5-%$expG6 #*(^##FE"#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& :-315FZc)ratabove&:-189F\sc?normal_majorant_series_formula&:-307%)ratbelowGc)ra tbelow&:-215/%+modulenameGc'bounds&:-174 M7R0 I&:-357t+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&:-233Fhsc*orddiffeq&:-2576#""$6$%*protectedG/%+modulenameGc*utilities &:-164 M7R0 I&:-241t+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&:-243Fjqc1PRECOMPUTED_DATA&:-242F^rc"Z&:-24 6%(nthtermGc(nthterm&:-172F\rc$DEQ&:-244F]rc"Y&:-245%'ancontGc'ancont&:-1736#Fi p/%+modulenameGc-diffeqtoproc&:-153 M7R0 I&:-277f*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&:-177%(getnameGc(getname&:-195%'boundsGc'bounds&:-174Fgoc3simplif y_algebraic&:-378/%+modulenameGc0symbolic_bounds&:-176 M7R0 I&:-343f+6"F$6#%)overloadGF$m$f*6#'%$matG<$-.%'MatrixG6#.%)anythingG-.%'VectorG F0F$F%F$C$>%)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&:-180%%rndzGc %rndz&:-181F$F$F$F$/%+modulenameGc/numeric_bounds&:-175 M7R0 I&:-221t+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&:-164 M7R0 I&:-270t+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&:-164 M7R0 I&:-288t+6&%$deqG%%yofzG%%pathG%#~$G6,%%singG%)singplotG%)pathplotG%*circplotsG %*allpointsG%%xminG%%xmaxG%%yminG%%ymaxG%)gridplotG6"F4C->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&:-2046#""%/%+modulenameGc'ancont&:-173 M7R0 I&:-381t+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&:-385F[rc& ordeq&:-3886#""%/%+modulenameGc4bound_normal_diffeq&:-170 M7R0 I&:-323f*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&:-3666$%*protectedG/%+modulenameGc*utilities&:-164 M7R0 I&:-364=6"%&falseGE\[l-""!F'Q%rnddF$,$%)infinityG!""Q"dF$F)F*F*Q%rnduF$F*Q"nF$% (nearestGQ"uF$F*F)F)Q(nearestF$F/Q%rndnF$F/Q%rndzF$F'Q"zF$F'/%+modulenameGc*uti lities&:-164 M7R0 I&:-307t+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#""'/%+m odulenameGc'bounds&:-174 M7R0 I&:-233f*6#%%fofxG6"6#%'inlineGF&6$-%#opG6$""!9$-F+6$"""F.F&F&F&6$%*protectedG/ %+modulenameGc*utilities&:-164 M7R0 I&:-367G/%+modulenameGc)matrices&:-171 M7R0 I&:-228f*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(/%+modul enameGc.dominant_root&:-161 M7R0 I&:-335t,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 GFen/%+modulenameGc.bound_ratpoly&:-157 M7R0 I&:-378f*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&:-160/%+modulenameGc 0symbolic_bounds&:-176 M7R0 I&:-252=6"%&falseGE\[l%c&hrdeq&:-177f*6#%#eqGF$F$F$-T%6$9$/-.%)functionG6#""!.% )anythingGF$F$6&%6_thismoduledefinitionGb6#%+thismoduleGF$F$6&%0typecheck_hr_eq G%,types_tableG%&setupG%(cleanupGF$F$F$F$F$F=c0typecheck_hr_eq&:-251c&hrrec&:-1 78f*F)F$F$F$-F,6$F./-.%)typefuncG6$.%*nonnegintG.%%nameGF5F$F$6&F8F9F=FA%/compl ex_linearGf*6#%%exprGF$F$F$-%%typeG6$F.-%(polynomG6$-.%(complexG6#.%&floatG-%)f rontendG6$%'indetsG7#F.F$F$6$F8F9%%pathG<$-Ffn6#%(numericG-%%listG6#Fbo/%+modul enameGc&types&:-145 M7R0 I&:-280f*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&:-2566$%*protectedG/%+modulenameGc *utilities&:-164 M7R0 I&:-346t,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%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$<#F8$-%$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&:-3216#""$6$%*protectedG/%+modulenameGc*utilities &:-164 M7R0 I&:-299f*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$/%+modulenameGc'ancont&:-173 M7R0 I&:-257f+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%:-48%*nonnegintG6$%*protectedG/%+modulenameGc*utilities&:-16 4 M7R0 I&:-276f*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&:-2696$% *protectedG/%+modulenameGc*utilities&:-164 M7R0 I&:-342f*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 &:-164 M7R0 I&:-244G/%+modulenameGc-diffeqtoproc&:-153 M7R0 I&:-304t+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#""%/%+modulenameGc'bounds&:-174 M7R0 I&:-322f+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&:-164 M7R0 I&:-363f*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&:-164 M7R0 I&:-289t+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&:-2 046#""%/%+modulenameGc'ancont&:-173 M7R0 I&:-382G/%+modulenameGc4bound_normal_diffeq&:-170 M7R0 I&:-291t+6&%$deqG%%yofzG%%pathG>%&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& :-167%5diffeq_singularitiesGc5diffeq_singularities&:-204Fisc/subdivide_path&:-2 916#""%/%+modulenameGc'ancont&:-173 M7R0 I&:-249f*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&:-275/%+modulenameGc* utilities&:-164 M7R0 I&:-227G/%+modulenameGc.dominant_root&:-161 M7R0 I&:-334f*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)/%+modulenameGc(nthterm&:-172 M7R0 I&:-377t+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& :-177%(getnameGc(getname&:-195%*orddiffeqGc*orddiffeq&:-198%.bound_ratpolyGc.bo und_ratpoly&:-157%'boundsGc'bounds&:-174Fdvc3simplify_algebraic&:-3786#""$/%+mo dulenameGc0symbolic_bounds&:-176 M7R0 I&:-368G/%+modulenameGc)matrices&:-171 M7R0 I&:-236t+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&:-235%2diffeqtohomdiffeqGc2diffeqtohomdiffeq$:-9F\rc*trial_run&:-237 F^rc5precompute_local_sol&:-239%(getnameGc(getname&:-195Feqc4PRECOMPUTATION_PRE C&:-243Fdqc1PRECOMPUTED_DATA&:-242Ffqc$DEQ&:-244Fgqc"Y&:-245Fhqc"Z&:-246F`rc.pr oc_template&:-2416(FboFin""#Fbo""&""%/%+modulenameGc-diffeqtoproc&:-153 M7R0 I&:-296t+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&:-175%(nthtermGc(nthterm&:-172%%rnduGc%rndu&:-180%%rndzGc%rndz&:-181%)Set tingsGc)Settings&:-167%7ndmatrix_approximationGc7ndmatrix_approximation&:-192%) matricesGc)matrices&:-1716#""'/%+modulenameGc'ancont&:-173 M7R0 I&:-314t+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&:-310%,bare_diffeqGc,bare_diffeq&:-2 06Feoc.normalize_rec&:-313%,rectodiffeqGc,rectodiffeq%:-316#""$/%+modulenameGc' bounds&:-174 M7R0 I&:-355f*6#%"iG6"6#%'inlineGF&-%#opG6$7$"""F-9$F&F&F&6$%*protectedG/%+modulenam eGc*utilities&:-164 M7R0 I&:-281f*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&:-2566$%*protectedG/%+modulenameGc *utilities&:-164 M7R0 I&:-347f*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$-%'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%:-796$%*protectedG/%+modulenameGc*utilities&:-164 M7R0 I&:-341t+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 &:-174%.dominant_rootGc.dominant_root&:-161%.bound_ratpolyGc.bound_ratpoly&:-15 7%0abs_with_RootOfGc0abs_with_RootOf&:-1606#""$/%+modulenameGFbq M7R0 I&:-219t,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&:-292Favc6diffeq_inicond_matrix&:-29 4Fbvc-ext_norm_ini&:-295%/numeric_boundsGc/numeric_bounds&:-175Fiuc7step_transi tion_matrix&:-286%)matricesGc)matrices&:-171Fjuc7path_transition_matrix&:-287Fc vc*apply_ini&:-296F`vc;absolute_precision_warning&:-2936#""&%/complex_linearG/% +modulenameGc'ancont&:-173 M7R0 I&:-258f*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&:-164 M7R0 I&:-243G/%+modulenameGc-diffeqtoproc&:-153 M7R0 I&:-321f*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&:-3426$%*protectedG/%+modulenameGc*utilities&: -164 M7R0 I&:-362f*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&:-164 M7R0 I&:-305G/%+modulenameGc'bounds&:-174 M7R0 I&:-290t,6$'%%stepG7$-%(complexG6#%(numericGF(%#~$G6-%$thrG%#z0G%#z1G%#dzG%$dir G%&z0bisG%%pathG%"pG%"qG%#q0G%"QG6"F9C->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&:-191Fatc/bit_burst_path&:-2906#Fe q-%%listG6#F(/%+modulenameGc'ancont&:-173 M7R0 I&:-383t+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&:-386F^rc"z&:-387%(getnameGc(g etname&:-195F_rc&ordeq&:-388%*orddiffeqGc*orddiffeq&:-198Farc/rewrite_diffeq&:- 379Fbrc3bound_coefficients&:-380Fcrc-reduce_order&:-381%'boundsGc'bounds&:-1746 #F[q/%+modulenameGc4bound_normal_diffeq&:-170 M7R0 I&:-226t+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&:-224Fdrc2infroot_resultant&:-2236#F>/%+modulenameGc.dominant_r oot&:-161 M7R0 I&:-333t,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&:-195%'ordrecGc'ordrec&:-199Fgpc0binsplit_params&:-146Fcpc)binsplit &:-328Ffpc,extractline&:-331%%callGc%call&:-2116#""&%)ndmatrixG/%+modulenameGc( nthterm&:-172 M7R0 I&:-376f+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&:-196%*procedureG/%+modulenameGc)matrices&:-171 M7R0 I&:-250f+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&:-164 M7R0 I&:-235t+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&:-2056#FA/%+modulenameGc-diffeqtoproc&:- 153 M7R0 I&:-369G/%+modulenameGc)matrices&:-171 M7R0 I&:-313t+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 11FNc3normalize_rec_doit&:-3126#""$/%+modulenameGc'bounds&:-174 M7R0 I&:-354f*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&:-164 M7R0 I&:-297t,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&:-292Ffqc;absolute_pre cision_warning&:-293F`qc7path_transition_matrix&:-287%(nthtermGc(nthterm&:-1726 #""&-%'MatrixG6#-F26#%&floatG/%+modulenameGc'ancont&:-173 M7R0 I&:-282f*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&:-2746$%*prot ectedG/%+modulenameGc*utilities&:-164 M7R0 I&:-348t+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 %%+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&:-307Fa`lc$psi&:-390F``lc2simplify_valid ity&:-389%)ratbelowGc)ratbelow&:-2156#""*/%+modulenameGc+tail_bound&:-309 M7R0 I&:-392c+tail_bound&:-391/%+modulenameGc+tail_bound&:-309 M7R0 I&:-389f*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&/%+modulenameGc+tail_bound&:-309 M7R0 I&:-390f*6$%&kappaG%"nG6$%"pG%"qG6"F*C$>6$8$8%6$-%&numerG6#9$-%&denomGF3*&)F/,$ *&F."""F/!""F%%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%:-28F( M7R0 I%:-28f*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#%+thismoduleG6`p%,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% +gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rec tohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&m ymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequa tiongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrational G%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+inte rpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinte rpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0norma lizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%( packageG/%%loadGFeo/%'unloadGFfo6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodif feqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2d iffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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 crc4ratpolytocoeff/elmt&:-108Fdrc4ratpolytocoeff/poly&:-1096$%*protectedG/%+mod ulenameG%%gfunG M7R0 I&:-109f*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#%+thismoduleG6`p%,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%+ gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratpolytocoeff/polyG%/rect ohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG%*CheckNameG%$@@DG%&my mapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-findequationG%7findequat iongivenorderG%>findequationgivenorderratpolyG%?findequationgivenorderrationalG %*do_reduceG%;findequationgivenordermodpG%'degmatG%(degvectG%*interpmatG%+inter pvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.matinterpmodpG%8matinter pmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG%,checkresultG%0normal izeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG%/StorjohannmodpG6%%(p ackageG/%%loadGFen/%'unloadGFfn6hn%.algfuntoalgeqG%.algebraicsubsG%.algeqtodiff eqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffeqG%.diffeq*diffeqG%2di ffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+StorjohannG%+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%(versionGF,F,6(%/type/gfun/freeG%7type/gfun/has2diffeqs2G%7type/gfun/has2 diffeqs3G%3type/gfun/identityG%1type/gfun/initeqG%6gfun/rectoproc/symbolGF,F,/% +modulenameG%%gfunG M7R0 I&:-108f*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 duleG6`p%,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%+gfun_pade2G%0gfun_pade2/doitG%4ratpolytocoeff/elmtG%4ratp olytocoeff/polyG%/rectohomrecbisG%(s2d/s2dG%(s2a/s2aG%,systomatrixG%*typecheckG %*CheckNameG%$@@DG%&mymapG%+finddiffeqG%*findalgeqG%6rationalinterpolationG%-fi ndequationG%7findequationgivenorderG%>findequationgivenorderratpolyG%?findequat iongivenorderrationalG%*do_reduceG%;findequationgivenordermodpG%'degmatG%(degve ctG%*interpmatG%+interpvectG%,matmultmodpG%0matmultvectmodpG%-vectmultmodpG%.ma tinterpmodpG%8matinterpmodpearlyabortG%(initmatG%)tryearlyG%2checkresultnormalG %,checkresultG%0normalizeresultG%%liftG%.HighOrderCompG%6Matrix_inverse_NewtonG %/StorjohannmodpG6%%(packageG/%%loadGFfq/%'unloadGFgq6hn%.algfuntoalgeqG%.algeb raicsubsG%.algeqtodiffeqG%.algeqtoseriesG%&borelG%.cauchyproductG%.diffeq+diffe qG%.diffeq*diffeqG%2diffeqtohomdiffeqG%,diffeqtorecG%*gfun_padeG%)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%+ StorjohannG%+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/Fdtc4ratpolytocoeff/elmt&:-108/%+modulenameG%%gfunG