1{VERSION 6 0 "IBM INTEL LINUX" "6.0" }
2{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0
31 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0
40 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
5{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0
60 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1
7{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0
80 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0
90 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
10{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 352 "restart:\nG:=<<G11,
11G21>|<G12,G22>>;\nY:=<Q(x[1]),Q(x[2])>;\nT:=G.Y;\nJ:=array(1..2,1..2):
12\nfor i from 1 to 2 do\n  for j from 1 to 2 do\n    J[i, j] := diff(T[
13i],x[j]);\n  od:\nod:\nprint(J);\nH:=array(1..2,1..2,1..2):\nfor i fro
14m 1 to 2 do\n  for j from 1 to 2 do\n    for k from 1 to 2 do\n      H
15[i, j, k] := diff(diff(T[i],x[j]),x[k]);\n    od:\n  od:\nod:\nprint(H
16);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"GG-%'RTABLEG6%\"*kDON\"-%'MA
17TRIXG6#7$7$%$G11G%$G12G7$%$G21G%$G22G%'MatrixG" }}{PARA 11 "" 1 ""
18{XPPMATH 20 "6#>%\"YG-%'RTABLEG6%\"*w9bM\"-%'MATRIXG6#7$7#-%\"QG6#&%\"
19xG6#\"\"\"7#-F/6#&F26#\"\"#&%'VectorG6#%'columnG" }}{PARA 11 "" 1 ""
20{XPPMATH 20 "6#>%\"TG-%'RTABLEG6%\"*KNiN\"-%'MATRIXG6#7$7#,&*&%$G11G\"
21\"\"-%\"QG6#&%\"xG6#F1F1F1*&%$G12GF1-F36#&F66#\"\"#F1F17#,&*&%$G21GF1F
222F1F1*&%$G22GF1F:F1F1&%'VectorG6#%'columnG" }}{PARA 11 "" 1 ""
23{XPPMATH 20 "6#K%'matrixG6#7$7$*&%$G11G\"\"\"-%%diffG6$-%\"QG6#&%\"xG6
24#F*F1F**&%$G12GF*-F,6$-F/6#&F26#\"\"#F:F*7$*&%$G21GF*F+F**&%$G22GF*F6F
25*Q(pprint96\"" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#K%&ARRAYG6$7%;\"\"\"
26\"\"#F'F'7*/6%F(F(F(*&%$G11GF(-%%diffG6$-%\"QG6#&%\"xG6#F(-%\"$G6$F5F)
27F(/6%F(F(F)\"\"!/6%F(F)F(F=/6%F(F)F)*&%$G12GF(-F06$-F36#&F66#F)-F96$FH
28F)F(/6%F)F(F(*&%$G21GF(F/F(/6%F)F(F)F=/6%F)F)F(F=/6%F)F)F)*&%$G22GF(FD
29F(Q)pprint106\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 157 "D2:=arr
30ay(1..2,1..2,1..2):\nfor i from 1 to 2 do\n  for j from 1 to 2 do\n   \+
31 for k from 1 to 2 do\n      D2[i, j, k] := H[k, j, i];\n    od:\n  od
32:\nod:\nprint(D2);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#K%&ARRAYG6$7%;\"
33\"\"\"\"#F'F'7*/6%F(F(F(*&%$G11GF(-%%diffG6$-%\"QG6#&%\"xG6#F(-%\"$G6$
34F5F)F(/6%F(F(F)*&%$G21GF(F/F(/6%F(F)F(\"\"!/6%F(F)F)FA/6%F)F(F(FA/6%F)
35F(F)FA/6%F)F)F(*&%$G12GF(-F06$-F36#&F66#F)-F96$FPF)F(/6%F)F)F)*&%$G22G
36F(FLF(Q)pprint116\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
37{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "3 0" 0 }
38{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }
39{RTABLE_HANDLES 135362564 134551476 135623532 }{RTABLE
40M7R0
41I6RTABLE_SAVE/135362564X,%)anythingG6"6"[gl!"%!!!#%"#"#%$G11G%$G21G%$G12G%$G22G
42F&
43}
44{RTABLE
45M7R0
46I6RTABLE_SAVE/134551476X*%)anythingG6"6"[gl!#%!!!"#"#-%"QG6#&%"xG6#"""-F(6#&F+6
47#""#F&
48}
49{RTABLE
50M7R0
51I6RTABLE_SAVE/135623532X*%)anythingG6"6"[gl!#%!!!"#"#,&*&%$G11G"""-%"QG6#&%"xG6
52#F*F*F**&%$G12GF*-F,6#&F/6#""#F*F*,&*&%$G21GF*F+F*F**&%$G22GF*F3F*F*F&
53}
54
55