{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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "alpha:=arctan(x):" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "expr:=cos(4*alpha)+cos(6*a
lpha);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%exprG,&-%$cosG6#,$-%'arct
anG6#%\"xG\"\"%\"\"\"-F'6#,$F*\"\"'F/" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "expr1:=expand(expr);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%&expr1G,(*&\"\"\"F'*$),&\"\"\"F+*$)%\"xG\"\"#F'F+\"\"#F'!\"\"!#S*
&F'F'F*F1\"#5*&F'F'*$)F*\"\"$F'F1\"#K" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "expr2:=normal(expr1);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%&expr2G,$*&,(\"\"\"F(*$)%\"xG\"\"#\"\"\"!#5*$)F+\"\"%F-\"\"&F-
*$),&F(F(F)F(\"\"$F-!\"\"F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
30 "expr3:=normal(expr1,expanded);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%&expr3G*&,(\"\"#\"\"\"*$)%\"xGF'\"\"\"!#?*$)F+\"\"%F,\"#5F,,*F(F(F)
\"\"$F.F3*$)F+\"\"'F,F(!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}}{MARK "5 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }