{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 }{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 "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{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 22 "restart; with(linalg ):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm a nd trace have been redefined and unprotected\n" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 74 "A:=matrix(3,2,[-198,63,-24,-132,176,136]);R:=Q Rdecomp(A,Q='Q'):print(Q,R);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG -%'matrixG6#7%7$!$)>\"#j7$!#C!$K\"7$\"$w\"\"$O\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$-%'matrixG6#7%7%#!#**\"$L\"#\"#sF*#\"#_F*7%#!#7F*#!#))F *#\"#**F*7%#\"#))F*#\"#pF*F+-F$6#7%7$\"$m#\"#b7$\"\"!\"$#>7$FBFB" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 232 "c:=A[1,1];s:=A[2,1];b:=sqrt (c^2+s^2);\nG12:=evalm(matrix(3,3,[[c,s,0],[-s,c,0],[0,0,b]])*(1/b)); \nA1:=evalm(G12&*A);\nc:=A1[1,1];s:=A1[3,1];b:=sqrt(c^2+s^2);\nG13:=ev alm(matrix(3,3,[[c,0,s],[0,b,0],[-s,0,c]])*(1/b));\nA2:=evalm(G13&*A1) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG!$)>" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"sG!#C" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG,$*& \"\"'\"\"\"\"%06#F(\"\"#F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$G12G- %'matrixG6#7%7%,$*(\"#L\"\"\"\"%06!\"\"F.#F-\"\"#F/,$*(\"\"%F-F.F/F.F0 F/\"\"!7%,$*(F4F-F.F/F.F0F-F*F57%F5F5F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#A1G-%'matrixG6#7%7$,$*&\"\"'\"\"\"\"%06#F-\"\"#F-,$*(\"%^:F-F .!\"\"F.F/F47$\"\"!,$*(\"%3YF-F.F4F.F/F-7$\"$w\"\"$O\"" }}{PAGEBK } {PARA 11 "" 0 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"c G,$*&\"\"'\"\"\"\"%06#F(\"\"#F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% \"sG\"$w\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG\"$m#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$G13G-%'matrixG6#7%7%,$*(\"\"$\"\"\"\"$L\"!\" \"\"%06#F-\"\"#F-\"\"!#\"#))F.7%F3F-F37%#!#))F.F3F*" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#A2G-%'matrixG6#7%7$\"$m#\"#b7$\"\"!,$*(\"%3Y\"\"\" \"%06!\"\"F2#F1\"\"#F17$F-,$*(\"%;WF1F2F3F2F4F1" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 117 "c:=A2[2,2];s:=A2[3,2];b:=sqrt(c^2+s^2);\nG23: =evalm(matrix(3,3,[[b,0,0],[0,c,s],[0,-s,c]])*(1/b));\nA3:=evalm(G23&* A2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG,$*(\"%3Y\"\"\"\"%06!\" \"F)#F(\"\"#F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"sG,$*(\"%;W\"\" \"\"%06!\"\"F)#F(\"\"#F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG\"$# >" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$G23G-%'matrixG6#7%7%\"\"\"\"\" !F+7%F+,$*(\"#CF*\"%06!\"\"F0#F*\"\"#F*,$*(\"#BF*F0F1F0F2F*7%F+,$*(F6F *F0F1F0F2F1F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#A3G-%'matrixG6#7%7 $\"$m#\"#b7$\"\"!\"$#>7$F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 7 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }