{VERSION 4 0 "IBM INTEL NT" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Text Output" -1 2 
1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 
0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 
"" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 
}{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 
2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}{PARA 0 "
> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 
80 "Warning, the protected names norm and trace have been redefined an
d unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "r = p / \+
(1 - e*cos(w));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "r*e*cos(w) + p =
 r;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%\"rG*&%\"pG\"\"\",&F'F'*&%\"e
GF'-%$cosG6#%\"wGF'!\"\"F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,&*(%\"
rG\"\"\"%\"eGF'-%$cosG6#%\"wGF'F'%\"pGF'F&" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 153 "A:=matrix([[1.807,1],[0.781,1],[0.196,1],[-0.371,1
],[-0.600,1]]): B:=transpose(A): X:=matrix([[e],[p]]): Y:=matrix([[2.7
0],[2.00],[1.61],[1.20],[1.02]]):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 31 "evalm(A) * evalm(X) = evalm(Y);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#/*&-%'matrixG6#7'7$$\"%2=!\"$\"\"\"7$$\"$\"yF,F-7$$\"$'
>F,F-7$$!$r$F,F-7$$!$+'F,F-F--F&6#7$7#%\"eG7#%\"pGF--F&6#7'7#$\"$q#!\"
#7#$\"$+#FG7#$\"$h\"FG7#$\"$?\"FG7#$\"$-\"FG" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 47 "evalm(B)*evalm(A)*evalm(X) = evalm(B)*evalm(Y);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/*(-%'matrixG6#7$7'$\"%2=!\"$$\"$
\"yF,$\"$'>F,$!$r$F,$!$+'F,7'\"\"\"F6F6F6F6F6-F&6#7'7$F*F67$F-F67$F/F6
7$F1F67$F3F6F6-F&6#7$7#%\"eG7#%\"pGF6*&F%F6-F&6#7'7#$\"$q#!\"#7#$\"$+#
FM7#$\"$h\"FM7#$\"$?\"FM7#$\"$-\"FMF6" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 35 "evalm(B&*A)*evalm(X) = evalm(B&*Y);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#/*&-%'matrixG6#7$7$$\"(n7T%!\"'$\"%8=!\"$7$F-\"\"&\"
\"\"-F&6#7$7#%\"eG7#%\"pGF2-F&6#7$7#$\"'E*p&!\"&7#$\"$`)!\"#" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "solve(\{4.411267*e + 1.813*p
 = 5.69926, 1.813*e + 5*p = 8.53\},\{e,p\});" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#<$/%\"eG$\"+@V\"H%p!#5/%\"pG$\"+F*\\UX\"!\"*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "r = 1.454 / (1 - 0.694*cos(w
));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%\"rG,$*&\"\"\"F',&F'F'*&$\"$%
p!\"$F'-%$cosG6#%\"wGF'!\"\"F1$\"%a9F," }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 
1 }{PAGENUMBERS 0 1 2 33 1 1 }