{VERSION 2 3 "DEC ALPHA UNIX" "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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "R:=matrix(2,2,[[cos(
theta),-sin(theta)],[sin(theta),cos(theta)]]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"RG-%'MATRIXG6#7$7$-%$cosG6#%&thetaG,$-%$sinGF,!\"\"
7$F/F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "R2:=evalm(R&*R);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#R2G-%'MATRIXG6#7$7$,&*$)-%$cosG
6#%&thetaG\"\"#\"\"\"\"\"\"*$)-%$sinGF/F1F2!\"\",$*&F-F3F6F3!\"#7$,$F:
F1F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "map(readlib(`combin
e/trig`),R2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7$-%$co
sG6#,$%&thetaG\"\"#,$-%$sinGF*!\"\"7$F/F(" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}}{MARK "3 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }