AA;&/60&&*patcheslistmodule&*&patch-url-list*patch-date*global' 2-Aug-2008=setq'*%5http://reduce-algebra.com/support/patches/patches.fsl?<&*%sublist*fluid(*number-of-args* exptunwind_j00d9tazbry3put-=<o'&B%$(s8soH =o 29 )Iz @H d1^=Z1<=81=^%4k4^ Y)@="1$1I=H %^(hZ4IY)h"1s1s1HH $]p.$h2$h6xuqI>2 2&^(hGB@=@k6^ @I#>2I)j2 KY)j2I)?(j"KY)j.KY)j:#=multf*combineexptformsfexpttimesmultdcomfackernelslcoeffgcdprepsqsimpplusassocp1assocp2mkspnrootnquotfquotient(*P* subeval0_2lk6yhbu59w8O,<Ao5]G^)&  Ie),\AkY* o 5H% ^eS9U)R  ^!h"Ho9 I(RoV(Rk & !hI 'h H h_55%A&hU$5 6%h#<getrtypeTreval*a2kwoweightaevaleqexpr^mk*sqrederr!SUB requires at least 2 argumentssub#*evallhseqp<equalerrpri2Ksubeval1(*]* subsubf_2xyxvxoc9zv1\-<"]G%""yB$T4^6$H$I $e) I e%3>S2"#?$h,3>S2_1="h3["#?$hc3[_1="h1^%k $^'="hh1=HH$1 1%="hh# <E?subsublisDprepsq*reversip*simp*subevalFaconc*S(*d* reval1_v33gxro6rgbhc-<"+oOh Zhhwh&Hk  !aHV bhIK#hss V kZh) #l 8 l8pp8p% bhP+2 bhYh 8HoIh8 k ohHh Zh8"I$h8!HYh8a)  b)j8H lHYj#%<varstack*reval1reval2evfnSidp*listargs*resimp*sqaggregatefnarraypavaluecleanupfndmode*getelv{matrixmapopfnevalprepsqxxpsopfnrecursiveerrorsubfg*Missing evaluation for typealge#Pbooleanconvert\listargpmatmapfnopfnrememberrerrorrmmbreval(** getrtype2_kvjlaifftc78,<'2 >a2>a2 >kT#<rtypefnmatrixortypeD(** simpexpt2_dted92wvq9bb.<T5$:6$BH$[&3k3 'ec'h 6 [e}6 #"1K[%="h6 -BH(1k%^HK#2"1K[%="h61 BH k(SH k"  HS ecS&BHHe\6SHHeD Hk  k ecHS'hk`oH $AH &!  ˬk s He[e~#<{simpexpt1multsq*precisesimpexpte*mcdVposnumpprepf*keepsqrtsfrlis*bminus}retimessplit-signsqrtabsmksqquotsqsimpexpt2simpx1(** radf_5ewjizwv2rac-< o **!& s;s H '6k)6 ^(77e;7Z Y! ;HI)H J(B! HkU( U! H' I(I&|hH I (7' Y!^)h;6ZЫ  <8Z Kh}*<\(** read:num_7at120e9oox4,< oO e( !)()!("#%& ]$3' c& !?$p]F&]F%] ] IeP h/ ]0!] &+ JI]H h] ]0&h#!h/#!hf"%&hr(hz ^!l?]F$3?] ]0)h] )h3' !%h'#<:bprec:-./bflerrmsgmsd$bdeBDE:rd:read:num#Iconv:r2bf decimal2internalmake:ratnumround:mt+ arith_8faqzcznkhdfed#<arithBPw'*=*&D=<'uE'G@Eprog%=D*smacro*Lputc(** new_meijer_nw3qjpn7rcgh,< ;TV!!I!!&Ho eS   UH!!K!R! !߅"  UH!T$ I!  V!) UHR(!!!!!! "m "k$!$! otop S! o9 o5S SI! K'  e#VJV'#eVT#h oS SI! h=S SI! ^! hTo S_! hz S_! ^! h3R"#?$h3R_1="h3R"#?$h3R_1="hoR_!"jR_!!hoR_!"j8R_!!h%   UHT$j#*=(*number-of-args*dipfmonput(*'''dipzeroaWnW&nt*k*?j(*\*get-f-numvec[(*'&&&?cdddr?>%@v*m*=l(*^*printstr](*''&terpri*&lprin2*progn%>{*r*@q(*c*factor-traceb(*'(&&(&streamwrsaction'&&>=>setqA?z'&''ONassoc@=&''@='''Oequal*trfacd*trallfacd~%C|%A*{*Dz(*l*get-image-setk(*'&O%O*|*<{(*m* distribute.lc_4ewp3jow5281l/< !,! L"!! &]2%]2$"m]F!"mV֫ K# 8f"kK$ h)I ^,#1"]0!"H` K&]I`"hc H"k{  "Ѭda"=]_"R RU]_! Ѭ:7"=]_"RU"k ]_ hHRH "h&^"h<^"hfI $! I%! ^,I` ^, I` ^, K' ^, _,! "h()!!!  ! Ѭ m "(=]_"RR RH R RRURR R RU]_   ^! Ѭ"=]_"R RRU]_ `Z T I `Ѭ96"=]_"RRR H RU]_ ]!  `< ^! hW^"h; ]! Ѭ" =]_"RU]_h^"h^"h * ! "j^"j``"j#(?Umultfprintsf)= U evaluate-in-orderdist.lc.msg4prinsf Finally we have: It goes so an f(% no good so try another factor ... Trial divide into  Try again... :% of these in the leading coefficient. with l.c.  ) belongs in $FINAL DELTA IS -VE IN DISTRIBUTE!.LC%The absolute value of the image of f( There are f( #Ydist.lc.msg1dist.lc.msg2dist.lc.msg3gcdddmultiply-alphas multiply-alphas-recip+ factor_0zqwo1voqcjced#<distribute.lcIfactor'*>*<&*$*pvar*galoiskord**uncached*rationalize*mcd*limitedfactors*keepsqrts*expdmode**precise basic-listofnewsqrts basic-listofallsqrtssqrt-intvar*intflag*loglist sqrt-places-alistindexlistgaussiani*trdint*purerischu(**argof(*'&r%**<(** df2q_zmh36re327w9,<jo&%Eoe'H%4X K X$(h#@#Z"V"==X&=X'1"I '(hEI JJ&@%hZ# <`quotfBrationalizesqtidy-powersqaddfgcdfxl2f(** tidy-powersq_vgbpv4f1yfog,<* H'B[6J&$HJ'$J'32"#?$h"32_1="h!31"#?$h]31_1="h# <quotientfind-exptssubs2q#URU(** find-expts_mvn1ey6koudd-<RџN3sK?YJ#3$$l?l?l^" ]" #?I=_1h6# <>'?glcmAsqrt(** look_for_quad_3hyom019ziq7.< 1H m= T"=HK#"6&%[o[o!]$ SSSS\   J)TJ) SH SSS  THL$#  "T>JI3I#4$#@"[oy[ot[oo "T$3oT#T"1H k3H k"ef%3H k ee9) ( ' & %ok [oe [o` [o[;$ # II"1 Ik  Ik1 ex II" Ik1 Ik IJ& ex1 H l = =H l==]l'j#'<prin2simpdependsFtimeseven_powerlistpminusfplusdifferencelook_for_invhypmksp*trintImultsqquotsqsqrt_substituteprepsq  -> ,Integrand is transformed by substitution to Linear shift suggested using substitution Ocoeff1integratesqlook_for_asin(** simpint_pbd7flt7zfda,H k(!kH o([!(%(4!(& H(J!(I!4]@H >K K A* kI k:I !*<SSI! ?K *H k\hh8& H(J!(h&SSSI!h !)1]>)H:]> ]?!&SSS+SI!* ! H k )[!jr([!([!jw?$!I$H(*LR#"!jC [1_1"#h ="h$$!hG6H+jfj;]]!!%29]@!j$ 0f!#S<hprintsqsimpfndnintonofferrorphreordsq)Wvarstack*J*backtracenWsimpint1rscomplexerfg*Ilistofallsqrtslistofnewsqrts*msgrerror*a2k*algint*q2fVcmpxfndnamegetvariablesidpint-simpinterrnumlistpsetkordersimpdintsimpsqrti#Improper number of arguments to INT IntegrateIntegration kernelPartial answer=Resimp and all that Retrying...Sqrt(x) not properly formedTo do=Too many arguments to INTreplaced by simple variable with Zvars oint-resubproper-simpsqrtsimpidensimpint#N#N# POintvar# *structure*gcd<=depend1qint-subsq@sqrtsavezvars(** mknewsqrt_48io47lrxqe5,<Ҭ HH "*IHHH HII #HHI"t=1"=lB1"I#2H2I>JJ ">H#2>I""K HH$K ?3#֌H# <bymerrachmkquoteYޞTmksqrtnegflreval{simp*sqrt2toptidysqrtDivision failure in mknewsqrtError in mknewsqrt: afactorsimpsqrterrorset*stt+ int_0q113bgycpf9+K KKK  K  eb##I "hK1$=#h #<*noargdepl*maprinopputpline!dfsub!failed{#Blayout-formularemember-argsupdate-pline+ mathpr_x72qsqz6u4r4ed#<dflayoutHmathprN'*>*,<"55H$4#ՃK %*  a#* $#A&h93$C"#?$h3$ _1="h3*U"#?$h3*U_1="h3*U"#?$hT3*U_1="h %o  aI #h b#h  Kh5k pH#h?pp3oKEH$#hIh5w7KᰒHo K$%#j>o oDIhI h3$="#?$h03$ _1="h3V"#?$h3V_1="h3V"#?$hK3V_1="hk5H 5I H%hI%lH%h#!<matrixmatsubs2xsimp*sub2matsmsubfg*inversefnlnrsolvefnMatrix mismatchmultmmultsmgenerateidentgetrtypelchkrevprMatrixNon square matrix Zero divisornot set*divlispapplymatmapfnmatrixmap(*S* matrixmap_dqqdacud0qcgR-<2T$e$3$I"#?$h3$ _1="h3:R S"#?$h3:R S_1="h3:R S"#?$h]3:R S_1="h2eH2eI# <mk*sqtKmatsm*1matrix operatormatfnAreval2typerr+ matrix_3i8a8d6y18o4/K  K  K KK^ ^ #*rlfi&*& bareiss-step-size**cramerfluid&*%assumptionsglobal(** solvelnrsys_yjch7fiyd9rc-<8I -%$*  R:RU&To1%eL4@I %h h&%h0# <@errorset2solvebareiss#CCsolvecramer solvesparsechecksolvesyspost(** solvesq_bs0we09ac04c.<tK$#As AsAH_-3kJCS&D= Jo8#R"?$t9h;3kCS&= Jo _1R"?$h*hh;#<lastpairEroot_ofsubfxksolvesq1(** subfx_q7zhg3f1krb6-<RRU"Tk1#<FU(** polypeval_xh35f3kmhw95,<&"S$?3R$33Ik#?$h]6#<^Psmember(** solvenonlnrtansolve_w5v3ea4us0y.<|"" ' H H ! H &+B"0 S SH#Ho2o+ II$1=T'H ^6T'+  I%I&="h]#<!arbintequalsolve0unionMtsimpsolveeval solvenonlnrtansolve1cospiquotientbtantg-(** check-solns_qcxu691zgs5b.<@RRRT#So2 * VH"RRRT#So2# solvelnrsys solvenonlnrtansolvesolvequarticusolvesqDC#*complex*rounded*modulark><=k'*_*^ patches-load-check+ specfn_k9g2mtxkbtycSe!#<]forall&*%'&('mujacobicn'>=jacobisn'?_timesP'?'@?jacobidnޛlet00&BA'*D*specfnF+ rlisp_1x6abybmmq82#<'*<*rlispH%endmodulecr