{VERSION 3 0 "DEC ALPHA UNIX" "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 "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 20 "R:=(x^9+1)/(x^10-1);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"RG*&,&*$)%\"xG\"\"*\"\"\"\"\"
\"F,F,F+,&*$)F)\"#5F+F,!\"\"F,!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "A:=numer(R):\nB:=denom(R):" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 32 "F:=resultant(z*diff(B,x)-A,B,x);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%\"FG,6%\"zG\"$+\"*$)F&\"\"#\"\"\"!%+X*$)F&\"\"$F+
\"'++7*$)F&\"\"%F+!(++5#*$)F&\"\"&F+\")++?D*$)F&\"\"'F+!*+++5#*$)F&\"
\"(F+\"+++++7*$)F&\"\")F+!+++++X*$)F&\"\"*F+\",+++++\"*$)F&\"#5F+!,+++
++\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "dec:=convert(R,full
parfrac,x);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$decG,(*&\"\"\"F',&%
\"xG\"\"\"!\"\"F*!\"\"#F*\"\"&-%$SumG6$*&,&#F*\"#5F*%'_alphaGF4F',&F)F
*F6F+F,/F6-%'RootOfG6#,,*$)%#_ZG\"\"%F'F**$)F?\"\"$F'F**$)F?\"\"#F'F*F
?F*F*F*F*-F06$F2/F6-F:6#,,F=F*FAF+FDF*F?F+F*F*F*" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 217 "unlikely:=proc(s) \n  local sf;\n  if has(s,
Sum) then\n    if op(0,s)=Sum and has(op(2,s),RootOf) then\n         a
dd(sf,sf=\{allvalues(subs(op(2,s),op(1,s)))\})\n    else map(unlikely,
s)\n    fi\n  else s\n  fi\nend: # unlikely\n" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 19 "DEC:=unlikely(dec);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$DECG,4*&\"\"\"F',&%\"xG\"\"\"!\"\"F*!\"\"#F*\"\"&*&,
(#\"\"$\"#SF**$-%%sqrtG6#F.F'#F*F3*(%\"IGF*-F66#\"\"#F'-F66#,&F.F*F4F*
F'F8F',*F)F*F4#F+\"\"%#F*FCF*F9FBF,F**&,(F1F*F4#F+F3*(F:F*-F66#F=F'-F6
6#,&F.F*F4F+F'F8F',*F)F*F4FDFDF*FHFBF,F**&,(F1F*F4FGFHFGF',*F)F*F4FDFD
F*FHFDF,F**&,(F1F*F4F8F9FGF',*F)F*F4FBFDF*F9FDF,F**&,(#F*\"\")F*F4FGF9
FGF',*F)F*F4FDFBF*F9FDF,F**&,(FWF*F4F8FHFGF',*F)F*F4FBFBF*FHFDF,F**&,(
FWF*F4F8FHF8F',*F)F*F4FBFBF*FHFBF,F**&,(FWF*F4FGF9F8F',*F)F*F4FDFBF*F9
FBF,F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "for i in DEC do \+
\n  n:=remove(has,i,x);\n  evalc(subs(z=n,F))\nod;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%\"nG#\"\"\"\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG,(#\"\"$\"#S\"\"\"*$-%
%sqrtG6#\"\"&\"\"\"#F)F(*(%\"IGF)-F,6#\"\"#F/-F,6#,&F.F)F*F)F/F0" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"nG,(#\"\"$\"#S\"\"\"*$-%%sqrtG6#\"\"&\"\"\"#!\"\"F(*(%\"IGF)-F,
6#\"\"#F/-F,6#,&F.F)F*F1F/#F)F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"
\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG,(#\"\"$\"#S\"\"\"*$-%%sq
rtG6#\"\"&\"\"\"#!\"\"F(*(%\"IGF)-F,6#\"\"#F/-F,6#,&F.F)F*F1F/F0" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"nG,(#\"\"$\"#S\"\"\"*$-%%sqrtG6#\"\"&\"\"\"#F)F(*(%\"IGF)-F,6#
\"\"#F/-F,6#,&F.F)F*F)F/#!\"\"F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"
\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG,(#\"\"\"\"\")F'*$-%%sqrt
G6#\"\"&\"\"\"#!\"\"\"#S*(%\"IGF'-F+6#\"\"#F.-F+6#,&F-F'F)F'F.F/" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"nG,(#\"\"\"\"\")F'*$-%%sqrtG6#\"\"&\"\"\"#F'\"#S*(%\"IGF'-F+6#
\"\"#F.-F+6#,&F-F'F)!\"\"F.#F9F0" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"
\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG,(#\"\"\"\"\")F'*$-%%sqrt
G6#\"\"&\"\"\"#F'\"#S*(%\"IGF'-F+6#\"\"#F.-F+6#,&F-F'F)!\"\"F.F/" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"nG,(#\"\"\"\"\")F'*$-%%sqrtG6#\"\"&\"\"\"#!\"\"\"#S*(%\"IGF'-F+
6#\"\"#F.-F+6#,&F-F'F)F'F.#F'F1" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"
\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "7 0 0" 
0 }{VIEWOPTS 1 1 0 1 1 1803 }