{VERSION 3 0 "SUN SPARC SOLARIS" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 6 "" 1 "" {TEXT -1 23 "Bibliotheque(s): linalg" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "read multires;" }}{PARA 6 "" 1 "" {TEXT -1 51 " mbezo ut, mresultant, melim, Jd, Theta, Delta, ..." }}{PARA 6 "" 1 "" {TEXT -1 23 " mresultant, schur, ..." }}{PARA 6 "" 1 "" {TEXT -1 7 " d ecomp" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#>%\"SG7%,0*$)%\"pG\"\"$\"\"\"!\"'*&F(F+)%$phiGF*F+\" \"%*(F.F+)%\"sGF*F+F)\"\"\"\"#:*&F.F+)F3\"\"&F+!\"$*(F.F+F3F4)F)\"\"#F +!#7*(F.F+F3F+F)F+F9*&F.F+F2F+F4,,*(F.F+)F3F " 0 "" {MPLTEXT 1 0 38 "t0 : = time();:B := mbezout(S,[p,phi]):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#t0G$\"'!pS#!\"$" }}{PARA 6 "" 1 "" {TEXT -1 140 "[1, p, phi^5, p*ph i^5, phi^3*p, phi, phi^3, phi^2, p^2*phi^3, p*phi^4, phi*p, phi^2*p, p hi^2*p^2, phi^5*p^2, p^2, p^2*phi^4, p^2*phi, phi^4]" }}{PARA 6 "" 1 " " {TEXT -1 218 "[xi[1]^5*xi[2]^2, xi[1]^4*xi[2]^2, xi[1]^2*xi[2]^2, xi [2]^2*xi[1]^3, xi[2]^2*xi[1], 1, xi[2]^2, xi[1]^2, xi[1], xi[1]^3, xi[ 2]*xi[1]^3, xi[1]^4*xi[2], xi[1]^5*xi[2], xi[1]^2*xi[2], xi[1]^4, xi[1 ]^5, xi[2]*xi[1], xi[2]]" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "triang(transpose(B)):B :=triang(%):shape(%):" }}{PARA 6 "" 1 "" {TEXT -1 7 "18 18" }}{PARA 6 "" 1 "" {TEXT -1 22 "[x x x \+ ] 1" }}{PARA 6 "" 1 "" {TEXT -1 22 "[x x x xx ] 2" }}{PARA 6 "" 1 "" {TEXT -1 22 "[x x x x x xxx xxx] 3" }}{PARA 6 "" 1 "" {TEXT -1 22 "[x x x x x xxx] 4" }}{PARA 6 "" 1 "" {TEXT -1 22 "[ \+ xx x xxx xx ] 5" }}{PARA 6 "" 1 "" {TEXT -1 22 "[ x x xx x \+ ] 6" }}{PARA 6 "" 1 "" {TEXT -1 22 "[ x x x ] 7" }}{PARA 6 "" 1 "" {TEXT -1 22 "[ x x x x x x ] 8" }}{PARA 6 "" 1 "" {TEXT -1 22 "[ x x xx x xxx xx] 9" }}{PARA 6 "" 1 "" {TEXT -1 23 "[ \+ x xx x xxx x] 10" }}{PARA 6 "" 1 "" {TEXT -1 23 "[ x xxx x xxx] 11" }}{PARA 6 "" 1 "" {TEXT -1 23 "[ x x x x x ] 12" }} {PARA 6 "" 1 "" {TEXT -1 23 "[ x x x x ] 13" }}{PARA 6 "" 1 " " {TEXT -1 23 "[ x xx x] 14" }}{PARA 6 "" 1 "" {TEXT -1 23 "[ x xx xxx] 15" }}{PARA 6 "" 1 "" {TEXT -1 23 "[ x x x xx] 16" }}{PARA 6 "" 1 "" {TEXT -1 23 "[ x xxxx] 17" }} {PARA 6 "" 1 "" {TEXT -1 23 "[ xxx ] 18" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "t1 := time();T :=ffgausselim(B):" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#t1G$\"'?rL!\"$" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 35 "t2 := time();f := factor(lasts(T));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#t2G$\"'?rL!\"$" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 26 "t2 := time();\ng :=op(5,f);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#t2G$\"'+,C!\"$" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"gG,dp*$)%\"sG\"#V\"\"\"\"&Wi#*$)F(\"#UF*\"'%o)G*$)F(\"#TF*\"'\" =v&*$)F(\"#SF*!(Q-;(*$)F(\"#RF*!)@q%3&*$)F(\"#QF*!)3B)4'*$)F(\"#PF*\"* Fe$3m*$)F(\"#OF*\"+AvewI*$)F(\"#NF*\"+l)4hX\"*$)F(\"#MF*!,'>X?YE*$)F( \"#LF*!,sDCXD(*$)F(\"#KF*\",7RS#yO*$)F(\"#JF*\"-'*f4<:Z*$)F(\"#IF*\"-# zn_.s%*$)F(\"#HF*!.//9aSX\"*$)F(\"#GF*!.G^PXtz#*$)F(\"#FF*\"./U.*RdE*$ )F(\"#EF*\".sc([*\\J(*$)F(\"#DF*!.!\\7pI(G$*$)F(\"#CF*!/Wi/nau5*$)F(\" #BF*\".]5h`m+$*$)F(\"#AF*\".'44&**=i)*$)F(\"#@F*!.YuRBC\"=*$)F(\"#?F*! .O_*4'H5#*$)F(\"#>F*!,EA*)Qg)*$)F(\"#=F*!.sgwQcc#*$)F(\"#'*=C*$)F(\"#:F*!.+d&o_o?*$)F(\"#9F*!-Se=>-D*$)F(\" #8F*\".+>Jw.T\"*$)F(\"#7F*!-+elj(R)*$)F(\"#6F*!-+%>QC?'*$)F(\"#5F*\"-+ j%*oSl*$)F(\"\"*F*\"-DJtsQ<*$)F(\"\")F*!-]2**REA*$)F(\"\"(F*!,DJVde#*$ )F(\"\"'F*\",+vpC_#*$)F(\"\"&F*!*DJ5@$*$)F(\"\"%F*\"+]7thu*$)F(\"\"$F* \"+D1*yb\"*$)F(\"\"#F*!++vV0IF(!*++D6*\"*+++v'\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "Digits := 30;\nfsolve(g);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"#I" }}{PARA 12 "" 1 "" {XPPMATH 20 "6) $!?TU699o**>j_@6r7V!#H$!?vTt*HkXXF%$!?z)yL%4=Lwmb0>yf6F%$\"?aCO_eCbC\"4OlSrk\"F%$\"?V0!z f%4M/cDi!Gz+$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "fsolve(g );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6)$!+A6r7V!\"*$!+I8IYTF%$!+rt'H(HF %$!+G)pJ&>F%$!+1>yf6F%$\"+a19Z;F%$\"+i!Gz+$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 111 "B1 := subs(s=1.647140654, evalm(B)):\nevalf(Svd (B1,U,V));\nv1 := evalm(col(U,18)/U[1,18]);\np= v1[2], phi= v1[11];" } }{PARA 12 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#74$\"+j%>\"GM!\"&$\"+i()) 3?$F)$\"+3!H[+$F)$\"+PZR4:F)$\"+W3?=9F)$\"+.q,O8F)$\"+S#\\kq$!\"'$\"+J 3[!)GF6$\"+NAP%*>F6$\"+`=c,@!\"($\"+Z1s%)=F=$\"+a$[7x\"F=$\"+Zv0u8F=$ \"+],Pe6F=$\"+!p%yma!\")$\"+nF`&4$FH$\"+MP(\\)=FH$\"+Zj(pf#!#;" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%#v1G-%'vectorG6#74$\"+**********!#5$ \"+ZY&p\"eF+$\"+O*[me%F+$!+z " 0 "" {MPLTEXT 1 0 132 "B2 := subs(s=3.0079280622556043409 4597900543, evalm(B)):;\nevalf(Svd(B2,U,V));\nv2 := evalm(col(U,18)/U[ 1,18]):\np= v2[2], phi= v2[11];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#-%' vectorG6#74$\"?6?Y[[W(Qs_bZZ0E)!#B$\"?l\\NTaRq>e$*RRZ*>)F)$\"?g*o23\"z '*)>wx01'*)HfigL'Gx:F)$\"?MlB'pnO!fLtDZ@a:F)$\"? u:!)RF(eS5(G>s#>`\"F)$\"?+Faco]_]C*pNn$3:!#D$\"?s'*yaZ(\\r7*=Lj7$H\"F< $\"?*=Fyc=56Bw%=LUDe!#E$\"?a&z\\9G_XAR9y]l!HFA$\"?:5ICw\"3k6IxRi*=BFA$ \"?P,5p[\"Gnv@7dbJ9\"!#F$\"?%Qd)foh+S@l,rvnP!#G$\"?)>fWoa[*[=0\"zyC\"H FK$\"?Y@C@=!**\\tvsu5;8#!#a" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$/%\"pG$ \"?]@&)eDv3=K'e8Ai7#!#H/%$phiG$\"?!3[s#G8#4zd@E)Gh;F'" }}}}{MARK "10 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }