-
Notifications
You must be signed in to change notification settings - Fork 0
/
M249Q3d.tex
104 lines (104 loc) · 4.61 KB
/
M249Q3d.tex
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
%% Created by Maple 2019.0, Mac OS X
%% Source Worksheet: M249Q3d
%% Generated: Sat Feb 15 19:28:35 EST 2020
\documentclass{article}
\usepackage{maplestd2e}
\def\emptyline{\vspace{12pt}}
\begin{document}
\pagestyle{empty}
\DefineParaStyle{Maple Bullet Item}
\DefineParaStyle{Maple Heading 1}
\DefineParaStyle{Maple Warning}
\DefineParaStyle{Maple Heading 4}
\DefineParaStyle{Maple Heading 2}
\DefineParaStyle{Maple Heading 3}
\DefineParaStyle{Maple Dash Item}
\DefineParaStyle{Maple Error}
\DefineParaStyle{Maple Title}
\DefineParaStyle{Maple Text Output}
\DefineParaStyle{Maple Normal}
\DefineCharStyle{Maple 2D Output}
\DefineCharStyle{Maple 2D Input}
\DefineCharStyle{Maple Maple Input}
\DefineCharStyle{Maple 2D Math}
\DefineCharStyle{Maple Hyperlink}
\begin{Maple Normal}{
\begin{Maple Normal}{
\mapleinline{inert}{2d}{with(LinearAlgebra); -1}{\[\displaystyle \]}
}\end{Maple Normal}
}\end{Maple Normal}
\begin{Maple Normal}{
\begin{Maple Normal}{
\mapleinline{inert}{2d}{M := `<|>`(`<,>`(0, s, t, u, 0, 0, 0, 0, 0), `<,>`(0, 0, 0, u, s, t, 0, 0, 0), `<,>`(0, s, t, u, 0, 0, 0, 0, 0), `<,>`(0, 0, 0, 0, 0, 0, 0, u, 0), `<,>`(0, s, 0, 0, 0, 0, 0, 0, 0), `<,>`(0, s, 0, u, 0, 0, 0, 0, 0), `<,>`(0, 0, 0, u, 0, t, 0, 0, 0), `<,>`(0, 0, 0, 0, 0, 0, 0, 0, u), `<,>`(0, 0, t, 0, 0, 0, s, 0, u)); 1}{\[\displaystyle \]}
}\end{Maple Normal}
}\end{Maple Normal}
\begin{maplegroup}
\begin{Maple Normal}{
\mapleinline{inert}{2d}{M := `<|>`(`<,>`(0, s, t, u, 0, 0, 0, 0, 0), `<,>`(0, 0, 0, u, s, t, 0, 0, 0), `<,>`(0, s, t, u, 0, 0, 0, 0, 0), `<,>`(0, 0, 0, 0, 0, 0, 0, u, 0), `<,>`(0, s, 0, 0, 0, 0, 0, 0, 0), `<,>`(0, s, 0, u, 0, 0, 0, 0, 0), `<,>`(0, 0, 0, u, 0, t, 0, 0, 0), `<,>`(0, 0, 0, 0, 0, 0, 0, 0, u), `<,>`(0, 0, t, 0, 0, 0, s, 0, u)); 1}{\[\displaystyle \]}
}\end{Maple Normal}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{rtable(1 .. 9, 1 .. 9, [[0, 0, 0, 0, 0, 0, 0, 0, 0], [s, 0, s, 0, s, s, 0, 0, 0], [t, 0, t, 0, 0, 0, 0, 0, t], [u, u, u, 0, 0, u, u, 0, 0], [0, s, 0, 0, 0, 0, 0, 0, 0], [0, t, 0, 0, 0, 0, t, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, s], [0, 0, 0, u, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, u, u]], subtype = Matrix); "_noterminate"}{\[\displaystyle \]}
\end{maplelatex}
\end{maplegroup}
\begin{Maple Normal}{
\begin{Maple Normal}{
\mapleinline{inert}{2d}{}{\[\displaystyle \]}
}\end{Maple Normal}
}\end{Maple Normal}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{2d}{A := LinearAlgebra:-IdentityMatrix(9)-M; 1}{\[\]}
\end{mapleinput}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{rtable(1 .. 9, 1 .. 9, [[1, 0, 0, 0, 0, 0, 0, 0, 0], [-s, 1, -s, 0, -s, -s, 0, 0, 0], [-t, 0, 1-t, 0, 0, 0, 0, 0, -t], [-u, -u, -u, 1, 0, -u, -u, 0, 0], [0, -s, 0, 0, 1, 0, 0, 0, 0], [0, -t, 0, 0, 0, 1, -t, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, -s], [0, 0, 0, -u, 0, 0, 0, 1, 0], [0, 0, 0, 0, 0, 0, 0, -u, 1-u]], subtype = Matrix); "_noterminate"}{\[\displaystyle \]}
\end{maplelatex}
\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{2d}{Q := LinearAlgebra:-Adjoint(A); -1}{\[\]}
\end{mapleinput}
\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{2d}{starting := `<,>`(1, 0, 0, 0, 0, 0, 0, 0, 0); 1}{\[\]}
\end{mapleinput}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{rtable(1 .. 9, [1, 0, 0, 0, 0, 0, 0, 0, 0], subtype = Vector[column]); "_noterminate"}{\[\displaystyle \]}
\end{maplelatex}
\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{2d}{ending := `<|>`(1, 1, 1, 0, 0, 1, 1, 0, 1); 1}{\[\]}
\end{mapleinput}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{rtable(1 .. 9, [1, 1, 1, 0, 0, 1, 1, 0, 1], subtype = Vector[row]); "_noterminate"}{\[\displaystyle \]}
\end{maplelatex}
\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{2d}{denompoly := LinearAlgebra:-Determinant(A); 1}{\[\]}
\end{mapleinput}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{denompoly := -s^3*t^2*u^3+s^3*u^3+s^2*t*u^3+s*t^2*u^3-s*t*u^3-s^2*t*u-s*t^2*u-s*u^3-t*u^3+s^2*t+s^2*u+s*t^2+s*t*u-s^2-s*t+t*u-t-u+1; "_noterminate"}{\[\displaystyle \]}
\end{maplelatex}
\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{2d}{G := evalm(Typesetting:-delayDotProduct(Typesetting:-delayDotProduct(ending, Q), starting))/denompoly; 1}{\[\]}
\end{mapleinput}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{G := (-s^2*u^3+s*u^3+s^2*u+u^3-s^2-s*u+s-u+1)/(-s^3*t^2*u^3+s^3*u^3+s^2*t*u^3+s*t^2*u^3-s*t*u^3-s^2*t*u-s*t^2*u-s*u^3-t*u^3+s^2*t+s^2*u+s*t^2+s*t*u-s^2-s*t+t*u-t-u+1); "_noterminate"}{\[\displaystyle \]}
\end{maplelatex}
\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{}{}
\end{mapleinput}
\end{maplegroup}
\end{document}