{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 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 137 "restart;with(linalg):\nA := [[1, 2, 3], [4,
 5, 6], [1, 2, 1]]:\ndet(A);\n\nx := [1, 2, 3]:\ny := [4, 5, 6]:\n\ndo
tprod(x, y);\n\ncrossprod(x, y);\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "x := [x
1, x2, x3];y := [y1, y2, y3];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 125 "LeftSide  := innerprod(crossprod(x, y), crossprod(x, y));\nRigh
tSide := innerprod(x, x) * innerprod(y, y) - innerprod(x, y)^2;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "simplify(LeftSide - RightSid
e);" }}}}{MARK "1 0 0" 87 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }