{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{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 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 0 }3 3 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "rAR:=i->((1-L[2]^2)*L[1]^(i+1)-(1-L
[1]^2)*L[2]^(i+1))/(L[1]-L[2])/(1+L[1]*L[2]):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 78 "res:=simplify(2*rAR(2)+rAR(1)^2+2*sum(expand(rAR
(i)*rAR(2+i)),i=1..infinity));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$r
esG,$**,8*(\"\"$\"\"\")&%\"LG6#\"\"#F/F*)&F-6#F*\"\"%F*F**$F0F*!\"\"*(
F3F*)F1F)F*)F,F)F*F**(F3F*F7F*F,F*F5*(F)F*)F1F/F*)F,F3F*F**(\"#5F*F;F*
F+F*F5*&F)F*F;F*F**(F3F*F8F*F1F*F5*(F3F*F1F*F,F*F**&F)F*F+F*F**$F<F*F5
F*,&*$F+F*F*F*F5F5,&*$F;F*F*F*F5F5,&*&F;F*F+F*F*F*F5F5F5" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "res:=simplify(subs(\{L[1]=a1/2+sqrt
(a1^2/4+a2),L[2]=a1/2-sqrt(a1^2/4+a2)\},res));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$resG,$*,\"\"%\"\"\",.*$)%#a1GF'F(!\"\"*&\"\"$F()F,\"
\"#F(F(*(F/F(F0F()%#a2GF1F(F(*&F'F(F3F(F-*&F1F()F4F/F(F(*&F1F(F4F(F(F(
,**$F0F(F(*&F,F(,&F:F(*&F'F(F4F(F(#F(F1F-*&F1F(F4F(F(F1F-F-,*F:F(F;F(*
&F1F(F4F(F(F1F-F-,&*$F3F(F(F(F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 29 "factor(expand(denom(res))/4);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#**,&%#a2G\"\"\"F&!\"\"F&,&F%F&F&F&F&,(F%F&F&F'%#a1GF&F&
,(F%F&F&F'F*F'F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "simplif
y(numer(res)/4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,.*$)%#a1G\"\"%\"
\"\"F(*&\"\"$F()F&\"\"#F(!\"\"*(F*F(F+F()%#a2GF,F(F-*&F'F(F/F(F(*&F,F(
)F0F*F(F-*&F,F(F0F(F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }
}}}{MARK "6 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 
1 2 33 1 1 }