{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 59 "M:=array(1..3,1..3,[
seq([cos(x+i),sin(x+i),1],i=[a,b,c])]);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"MG-%'MATRIXG6#7%7%-%$cosG6#,&%\"xG\"\"\"%\"aGF/-%$sinGF,F/7%
-F+6#,&F.F/%\"bGF/-F2F5F/7%-F+6#,&F.F/%\"cGF/-F2F;F/" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 22 "Delta:=linalg[det](M);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%&DeltaG,.*&-%$cosG6#,&%\"xG\"\"\"%\"aGF,F,-%$sinG6#
,&F+F,%\"bGF,F,F,*&F'F,-F/6#,&F+F,%\"cGF,F,!\"\"*&-F(F0F,-F/F)F,F8*&F:
F,F4F,F,*&-F(F5F,F;F,F,*&F>F,F.F,F8" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "combine(Delta,trig);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#,(-%$sinG6#,&%\"aG\"\"\"%\"bG!\"\"F+-F%6#,&F(F)%\"cGF+F)-F%6#,&F*F)
F/F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0
" 0 }{VIEWOPTS 1 1 0 1 1 1803 }