{VERSION 2 3 "APPLE_PPC_MAC" "2.3" }
{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 12 "##### 3.52-b" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 26 "op52:= 1- (1+q^(2*n-2))/N;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%%op52G,&\"\"\"F&*&,&F&F&)%\"qG,&%\"nG\"\"#!\"#F&F&F&%
\"NG!\"\"F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 129 "a1:= applys
hiftop( op52,\n    q^(8*j^2 +  2*j    ) * gp(2*n, n + 4*j     ,1) \n  \+
- q^(8*j^2 + 10*j + 3) * gp(2*n, n + 4*j + 3, 1));" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#a1G,.*&)%\"qG,&*$%\"jG\"\"#\"\")F+F,\"\"\"-%#gpG6%
,&%\"nGF,!\"#F.,(F3F.!\"\"F.F+\"\"%F.F.F6*&)F(,(F*F-F+\"#5\"\"$F.F.-F0
6%F2,(F3F.F,F.F+F7F.F.F.*&F/F.)F(,*F3F,F4F.F*F-F+F,F.F6*&)F(,*F3F,F.F.
F*F-F+F;F.F=F.F.*&F'F.-F06%,$F3F,,&F3F.F+F7F.F.F.*&F9F.-F06%FI,(F3F.F+
F7F<F.F.F.F6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a2:= eG0(5,
a1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a2G,0*&)%\"qG,&*$%\"jG\"\"#
\"\")F+F,\"\"\"-%#gpG6%,&%\"nGF,!\"#F.,(F3F.!\"\"F.F+\"\"%F.F.F6*&)F(,
(F*F-F+\"#5\"\"$F.F.-F06%F2,(F3F.F,F.F+F7F.F.F.*&F/F.)F(,*F3F,F4F.F*F-
F+F,F.F6*&)F(,*F3F,F.F.F*F-F+F;F.F=F.F.*&F'F.-F06%,&F3F,F6F.,&F3F.F+F7
F.F.F.*&)F(,(F*F-F+F4F3F.F.-F06%FIF5F.F.F.*&F9F.-F06%,$F3F,,(F3F.F+F7F
<F.F.F.F6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a3:= eG1(5,a2)
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a3G,.*&)%\"qG,(*$%\"jG\"\"#\"
\")F+\"#5\"\"$\"\"\"F0-%#gpG6%,&%\"nGF,!\"#F0,(F5F0F,F0F+\"\"%F0F0F0*&
-F26%F4,(F5F0!\"\"F0F+F8F0F0)F(,*F5F,F6F0F*F-F+F,F0F=*&)F(,*F5F,F0F0F*
F-F+F.F0F1F0F0*&)F(,(F*F-F+\"\"'F5F0F0-F26%F4,&F5F0F+F8F0F0F0*&)F(,(F*
F-F+F6F5F0F0-F26%,&F5F,F=F0F<F0F0F0*&F'F0-F26%,$F5F,,(F5F0F+F8F/F0F0F0
F=" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a4:= eG1(6,a3);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a4G,0*&)%\"qG,(*$%\"jG\"\"#\"\")F+
\"#5\"\"$\"\"\"F0-%#gpG6%,&%\"nGF,!\"#F0,(F5F0F,F0F+\"\"%F0F0F0*&-F26%
F4,(F5F0!\"\"F0F+F8F0F0)F(,*F5F,F6F0F*F-F+F,F0F=*&)F(,*F5F,F0F0F*F-F+F
.F0F1F0F0*&)F(,(F*F-F+\"\"'F5F0F0-F26%F4,&F5F0F+F8F0F0F0*&)F(,(F*F-F+F
6F5F0F0-F26%,&F5F,F=F0F<F0F0F0*&F'F0-F26%FOF7F0F0F=*&)F(,*F*F-F+\"#9FF
F0F5F0F0-F26%FO,(F5F0F+F8F/F0F0F0F=" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "a5:= eG0(6,a4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#a5G,.*&-%#gpG6%,&%\"nG\"\"#!\"#\"\"\",(F+F.!\"\"F.%\"jG\"\"%F.F.)%\"q
G,*F+F,F-F.*$F1F,\"\")F1F,F.F0*&)F4,*F+F,F.F.F6F7F1\"#5F.-F(6%F*,(F+F.
F,F.F1F2F.F.F.*&)F4,(F6F7F1\"\"'F+F.F.-F(6%F*,&F+F.F1F2F.F.F.*&)F4,(F6
F7F1F-F+F.F.-F(6%,&F+F,F0F.F/F.F.F.*&F@F.-F(6%F*,(F+F.F.F.F1F2F.F.F0*&
)F4,*F6F7F1\"#9FBF.F+F.F.-F(6%FK,(F+F.F1F2\"\"$F.F.F.F0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a6:= shiftdown(6,a5);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%#a6G,**&-%#gpG6%,&%\"nG\"\"#!\"#\"\"\",(F+F.!
\"\"F.%\"jG\"\"%F.F.)%\"qG,*F+F,F-F.*$F1F,\"\")F1F,F.F0*&)F4,*F+F,F.F.
F6F7F1\"#5F.-F(6%F*,(F+F.F,F.F1F2F.F.F.*&)F4,(F6F7F1\"\"'F+F.F.-F(6%F*
,&F+F.F1F2F.F.F.*&F@F.-F(6%F*,(F+F.F.F.F1F2F.F.F0" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 15 "a7:= eG0(3,a6);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%#a7G,,*&-%#gpG6%,&%\"nG\"\"#!\"#\"\"\",(F+F.!\"\"F.%
\"jG\"\"%F.F.)%\"qG,*F+F,F-F.*$F1F,\"\")F1F,F.F0*&)F4,*F+F,F.F.F6F7F1
\"#5F.-F(6%F*,(F+F.F,F.F1F2F.F.F.*&)F4,(F6F7F1\"\"'F+F.F.-F(6%,&F+F,!
\"$F.,&F+F.F1F2F.F.F.*&F3F.-F(6%FEF/F.F.F.*&F@F.-F(6%F*,(F+F.F.F.F1F2F
.F.F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a8:= eG1(5,a7);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a8G,**&-%#gpG6%,&%\"nG\"\"#!\"#\"
\"\",(F+F.!\"\"F.%\"jG\"\"%F.F.)%\"qG,*F+F,F-F.*$F1F,\"\")F1F,F.F0*&)F
4,*F+F,F.F.F6F7F1\"#5F.-F(6%F*,(F+F.F,F.F1F2F.F.F.*&F3F.-F(6%,&F+F,!\"
$F.F/F.F.F.*&F9F.-F(6%FB,(F+F.F.F.F1F2F.F.F0" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 15 "a9:= eG1(2,a8);" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%#a9G,(*&-%#gpG6%,&%\"nG\"\"#!\"#\"\"\",(F+F.!\"\"F.%\"jG\"\"%F.F.
)%\"qG,*F+F,F-F.*$F1F,\"\")F1F,F.F0*&)F4,*F+\"\"$F;F.F6F7F1\"#9F.-F(6%
,&F+F,!\"$F.,(F+F.F,F.F1F2F.F.F.*&F3F.-F(6%F?F/F.F.F." }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a10:= eG0(1,a9);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%$a10G,&*&)%\"qG,*%\"nG\"\"$!\"$\"\"\"*$%\"jG\"\"#\"
\")F/!\"#F--%#gpG6%,&F*F0F,F-,(F*F-F2F-F/\"\"%F-F-!\"\"*&)F(,*F*F+F+F-
F.F1F/\"#9F--F46%F6,(F*F-F0F-F/F8F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "a11:= shiftdown(2,a10);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%$a11G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }